1 REM Ins{nt av 525
10 REM ************************
20 REM * GRAFIKUR.BAS         *
21 REM * KLOCKA MED RIKTIGA   *
22 REM * VISARE               *
30 REM * VER 1.0 / 1980-08-21 *
40 REM * gjort av Johan Hedin *
50 REM * ins{nt av -"-   -"-  *
60 REM ************************
70 POKE -1280%,123%,167%,40%,8%,33%,8%,252%,34%,6%,252%,24%,6%,33%,16%,252%
80 POKE -1265%,34%,6%,252%,237%,75%,128%,255%,104%,38%,0%,6%,0%,205%,5%,252%
90 POKE -1250%,221%,33%,128%,255%,221%,126%,0%,221%,190%,2%,32%,7%,221%,126%,1%
100 POKE -1235%,221%,190%,3%,200%,62%,1%,221%,119%,6%,221%,126%,2%,221%,150%,0%
110 POKE -1220%,242%,74%,251%,62%,255%,221%,119%,6%,221%,126%,0%,221%,150%,2%,221%
120 POKE -1205%,119%,4%,62%,1%,221%,119%,7%,221%,126%,3%,221%,150%,1%,242%,102%
130 POKE -1190%,251%,62%,255%,221%,119%,7%,221%,126%,1%,221%,150%,3%,221%,119%,5%
140 POKE -1175%,221%,126%,4%,221%,190%,5%,33%,0%,0%,34%,136%,255%,242%,191%,251%
150 POKE -1160%,103%,46%,0%,22%,0%,221%,94%,5%,205%,136%,55%,34%,138%,255%,42%
160 POKE -1145%,136%,255%,237%,75%,138%,255%,9%,34%,136%,255%,221%,126%,9%,167%,202%
170 POKE -1130%,165%,251%,221%,126%,0%,221%,134%,6%,221%,119%,0%,221%,54%,9%,0%
180 POKE -1115%,221%,126%,1%,221%,134%,7%,221%,119%,1%,111%,38%,0%,221%,78%,0%
190 POKE -1100%,6%,0%,205%,5%,252%,221%,53%,5%,32%,200%,201%,221%,102%,5%,46%
200 POKE -1085%,0%,22%,0%,95%,205%,136%,55%,34%,138%,255%,42%,136%,255%,237%,75%
210 POKE -1070%,138%,255%,9%,34%,136%,255%,221%,126%,9%,167%,40%,13%,221%,126%,1%
220 POKE -1055%,221%,134%,7%,221%,119%,1%,221%,54%,9%,0%,221%,126%,0%,221%,134%
230 POKE -1040%,6%,221%,119%,0%,79%,6%,0%,221%,110%,1%,38%,0%,205%,5%,252%
240 POKE -1025%,221%,53%,4%,32%,201%,201%,195%,0%,0%,205%,232%,34%,182%,246%,32%
250 POKE -1010%,119%,201%,205%,232%,34%,47%,166%,119%,201%
251 REM ***** ST[LLA KLOCKAN ***
260 ; CHR$(12%)CUR(12%,0%)"Vill du st{lla klockan (J/N)?";
270 GET A$ : ON INSTR(1%,"JjNn",A$)+1% GOTO 270,280,280,360,360
280 ; CHR$(12%)CUR(12%,0%)"HH,MM,SS"
290 INPUT H%,M%,S% : Z=H%*3600+M%*60+S%
300 Z1%=Z*50/256
310 Z%= NOT (50*(Z-Z1%/50*256))
320 Z1%= NOT Z1%
330 Z%=(Z%+1%) AND 255%
340 POKE 65008%,Z%,Z1%,SWAP%(Z1%)
350 REM **** START ****
360 ; CHR$(12) : FOR I%=0% TO 22% : ; CUR(I%,0%)CHR$(151%); : NEXT I%
370 P=2*PI : P1=PI/2 : P2=P/60 : P3=P/12 : P4=12*60/P
380 ; CUR(23%,13%)">          <";
381 REM *** RITA 12 PRICKAR ***
390 FOR I=0 TO P STEP P3 : SETDOT SIN(I)*33+35,COS(I)*28+39 : NEXT I
400 POKE 65410%,35%,39%
410 REM **** R[KNA UT TIDEN ***
420 Z%=PEEK(65008%) : Z1%=PEEK(65009%) XOR 255% : Z2%=PEEK(65010%) XOR 255%
430 IF PEEK(65008%)<>Z% THEN 420
440 Z%=((Z%-1%) AND 255%) XOR 255%
450 Z=Z%/50+5.12*(Z1%+256*Z2%)
460 IF Z>86400 THEN Z=Z-86400 : GOTO 460
470 IF INT(Z)=Z1 THEN 420 ELSE Z1=INT(Z)
480 H%=Z/3600 : Z=Z-H%*3600 : M%=Z/60 : S%=Z-60%*M%
481 REM *** R[KNA UT VISARNA ***
490 I=P2*S%-P1 : R%=SIN(I)*30%+35% : K%=COS(I)*26%+39%
500 I=P2*M%-P1 : R1%=SIN(I)*29%+35% : K1%=COS(I)*26%+39%
510 I=P3*H%-P1+M%/P4 : R2%=SIN(I)*20%+35% : K2%=COS(I)*18%+39%
520 IF NOT A1% THEN R3%=R1% : K3%=K1% : R4%=R2% : K4%=K2% : R5%=R% : K5%=K% : A1%=-1%
521 REM *** RITA VISARNA ***
530 POKE 65408%,R%,K% : A%=CALL(64256%,1%)
540 IF S%<>0% THEN 580
550 POKE 65408%,R1%,K1% : A%=CALL(64256%,1%) : POKE 65408%,R2%,K2% : A%=CALL(64256%,1%)
560 POKE 65408%,R3%,K3% : A%=CALL(64256%,0%) : POKE 65408%,R4%,K4% : A%=CALL(64256%,0%)
570 R3%=R1% : K3%=K1% : R4%=R2% : K4%=K2%
580 POKE 65408%,R5%,K5% : A%=CALL(64256%,0%) : R5%=R% : K5%=K%
590 POKE 65408%,R%,K% : A%=CALL(64256%,1%)
600 POKE 65408%,R1%,K1% : A%=CALL(64256%,1%)
610 POKE 65408%,R2%,K2% : A%=CALL(64256%,1%)
611 REM *** SKRIV UT TIDEN ***
620 ; CUR(23%,15%)RIGHT$(NUM$(H%+100%),3%)":"RIGHT$(NUM$(M%+100%),3%)":"RIGHT$(NUM$(S%+100%),3%);
630 OUT 6,0,6,57
640 GOTO 420