1 REM Ins{nd av Stefan Westman <4969> 1985-01-05 21.29.29 2 REM ************************************************************************** 3 REM ** ** 4 REM ** Program f|r "analog" klocka med datumvisning. ** 5 REM ** ** 6 REM ** Konstruerat av Thomas & Stefan Westman ** 7 REM ** Medlem nr: 4969 (Stefan) ** 8 REM ** ** 9 REM ** Programmet utnyttjar hela TIME$ f|r att st{lla ** 10 REM * analogklockan. D{refter utnyttjas endast sekunder ** 11 REM * f|r uppr{kning. Digitaluret och datumet h{mtas ur ** 12 REM * TIME$. ** 13 REM * Programmet anv{nder tv} bilder (0,1) som omv{xlande ** 14 REM * ritas och visas. ** 15 REM * ** 16 REM * Konstruerat under kalla vintern{tter ny}ret 1985. ** 17 REM * ** 18 REM ************************************************************************* 19 REM ************************************************************************* 100 EXTEND : FLOAT 110 PRINT CHR$(12) 120 PRINT "Vill Du st{lla klockan? (j/n)" 130 GET Lf$ 140 IF Lf$="J" OR Lf$="j" OR Lf$="Y" OR Lf$="y" THEN 145 ELSE 180 145 ON ERROR GOTO 1200 150 INPUT "Datum: ]],MM,DD ";Y%,M%,D% 160 INPUT "Tid :HH,MM,SS ";H%,M1%,S% 170 POKE -17%,Y%,M%,D%,H%,M1%,S% 180 FGCTL GBLK+GBLK+GBLK+GBLK 190 FGPICTURE 0%,0%,2% 200 FGPOINT 0%,0%,1% 210 FGFILL 511%,239% 220 FGPICTURE 0%,0%,2% 230 FOR Y%=0% TO 1% 240 IF Y%=1% THEN FGPICTURE 0%,0%,2% : GOTO 260 250 FGPICTURE 1%,0%,2% 260 PRINT CHR$(12%) 270 FGCTL CYA+GBLK+BLU+GRED 280 FGPOINT 0%,0%,1% 290 FGFILL 511%,239%,1% 300 R%=4% 310 FOR A=0% TO 2%*PI STEP PI/100% 320 FGPOINT 256%+19.2*COS(A),120%+9%*SIN(A),3% 330 NEXT A 340 FGPAINT 256%,120% 350 FOR A=PI/8% TO 2%*PI+PI/8% STEP PI/4% 360 IF A=PI/8% THEN FGPOINT INT(256%+275.2*COS(A)),INT(120%+129%*SIN(A)),2% 370 FGLINE INT(256%+275.2*COS(A)),INT(120%+129%*SIN(A)),2% 380 NEXT A 390 FOR A=PI/8% TO 2%*PI+PI/8% STEP PI/4% 400 IF A=PI/8% THEN FGPOINT INT(256%+266.67*COS(A)),INT(120%+125%*SIN(A)),2% 410 FGLINE INT(256%+266.67*COS(A)),INT(120%+125%*SIN(A)),2% 420 NEXT A 430 FGPAINT 256%,236% 440 FGPAINT 256%,50%,0% 450 FOR A=0% TO 2%*PI-PI/30% STEP PI/30% 460 S%=INT(256%+213.33*COS(A)) : T%=INT(120%+100%*SIN(A)) 470 R%=R%+1% : IF R%=5% THEN R%=0% : GOTO 500 480 FGPOINT S%,T%,3% : FGPOINT S%,T%+1% : FGPOINT S%+1%,T% : FGPOINT S%,T%-1% : FGPOINT S%-1%,T% 490 GOTO 510 500 FGPOINT S%,T%,1% : FGLINE INT(256%+228.27*COS(A)),INT(120%+107%*SIN(A)),1% 510 NEXT A 520 NEXT Y% 530 A$=MID$(TIME$,12%,2%) 540 A%=VAL(A$) 550 IF A%>=12% THEN A%=A%-12% 560 B$=MID$(TIME$,15%,2%) 570 B%=VAL(B$) 580 C$=MID$(TIME$,18%,2%) 590 C%=VAL(C$) 600 Dat$=LEFT$(TIME$,10%) 610 Tid$=RIGHT$(TIME$,12%) 620 PRINT CUR(6%,26%) DBLE WHT Dat$ 630 PRINT CUR(20%,35%) WHT Tid$ 640 IF C%=C2% THEN 580 650 C2%=C% 660 IF C%=0% THEN B%=B%+1% 670 IF B%=60% AND C%=0% THEN A%=A%+1% : B%=0% 680 IF A%=12% THEN A%=0% 690 A0=A%+B%/60+C%/3600 700 B0=B%+C%/60 710 D=(A0*PI)/6% 720 E=(B0*PI)/30% 730 F=(C%*PI)/30% 740 U=U+PI/2% : FGPICTURE ABS(SIN(U)),ABS(COS(U)),2% 750 IF U>=2%*PI THEN U=0% 760 FGPOINT 256%+21.33*(COS(-D1+PI/2%)),120%+10%*SIN(-D1+PI/2%),0% 770 FGLINE 256%+138.67*(COS(-D1+PI/2%)),120%+65%*SIN(-D1+PI/2%),0% 780 FGPOINT 256%+21.33*(COS(-E1+PI/2%)),120%+10%*SIN(-E1+PI/2%),0% 790 FGLINE 256%+206.93*(COS(-E1+PI/2%)),120%+97%*SIN(-E1+PI/2%),0% 800 FGPOINT 256%+21.33*(COS(-F1+PI/2%)),120%+10%*SIN(-F1+PI/2%),0% 810 FGLINE 256%+206.93*(COS(-F1+PI/2%)),120%+97%*SIN(-F1+PI/2%),0% 820 FGPOINT 256%-21.33*(COS(-F1+PI/2%)),120%-10%*SIN(-F1+PI/2%),0% 830 FGLINE 256%-44.8*(COS(-F1+PI/2%)),120%-21%*SIN(-F1+PI/2%),0% 840 D1=D : E1=E : F1=F 850 C1%=C% : B1%=B% : A1%=A% 860 C1%=C%+1% 870 IF C1%=0% THEN B1%=B1%+1% 880 IF B1%=60% AND C1%=0% THEN A1%=A1%+1% : B1%=0% 890 IF A1%=12% THEN A1%=0% 900 A3=A1%+B1%/60+C1%/3600 910 B3=B1%+C1%/60 920 D2=(A3*PI)/6% 930 E2=(B3*PI)/30% 940 F2=(C1%*PI)/30% 950 FGPOINT 193%,162%,1% 960 FGFILL 320%,179%,1% 970 FGPOINT 197%,164%,2% 980 FGFILL 316%,177%,2% 990 FGPOINT 228%,30%,1% 1000 FGFILL 284%,40%,1% 1010 FGPOINT 232%,32%,2% 1020 FGFILL 280%,38%,2% 1030 FGPOINT 256%+21.33*(COS(-D2+PI/2%)),120%+10%*SIN(-D2+PI/2%),1% 1040 FGLINE 256%+138.67*(COS(-D2+PI/2%)),120%+65%*SIN(-D2+PI/2%),1% 1050 FGPOINT 256%+21.33*(COS(-E2+PI/2%)),120%+10%*SIN(-E2+PI/2%),1% 1060 FGLINE 256%+206.93*(COS(-E2+PI/2%)),120%+97%*SIN(-E2+PI/2%),1% 1070 FGPOINT 256%+21.33*(COS(-F2+PI/2%)),120%+10%*SIN(-F2+PI/2%),3% 1080 FGLINE 256%+206.93*(COS(-F2+PI/2%)),120%+97%*SIN(-F2+PI/2%),3% 1090 FGPOINT 256%-21.33*(COS(-F2+PI/2%)),120%-10%*SIN(-F2+PI/2%),3% 1100 FGLINE 256%-44.8*(COS(-F2+PI/2%)),120%-21%*SIN(-F2+PI/2%),3% 1110 GOTO 580 1200 RESUME 1300 END