10 REM SAVE TIME (C)Magnus Lundberg
20 GOSUB 130 : ; CHR$(12%)
30 ; CUR(15%,0%)SPACE$(39%)CHR$(13%)'[r klockan:'H$':'M$':'S$'?'; : GET A$
40 IF (ASC(A$) AND 223%)=74% OR ASC(A$)=13% 120
50 ONERRORGOTO 20
60 ; CUR(15%,0%)'Ange klockslag (hh,mm,ss,)'; : INPUT H%,M%,S%
70 Z=1.8E+5*H%+3000*M%+50*S%
80 Z1=INT(Z/256%) : Z1%= NOT Z1
90 Z%=( NOT (Z-Z1*256)) OR 4%
100 POKE 65008%,Z%,Z1%,SWAP%(Z1%)
110 GOTO 20
120 CHAIN 'MENY'
130 D%=0% : IF (PEEK(65008%) AND 4%)=0% 130
140 FOR I%=0% TO 2% : Z%(I%)=255% XOR PEEK(65008+I%) : NEXT I%
150 Z$=ADD$(MUL$(NUM$(256%*Z%(2%)+Z%(1%)),'512',0%),NUM$(Z%(0%)*2%),0%)
160 IF COMP%(Z$,'8640000')>-1% D%=D%+1% : Z$=SUB$(Z$,'8640000',0%) : GOTO 160
170 Z=INT(VAL(Z$)/100%)
180 H%=Z/3600% : Z=Z-3600*H%
190 M%=Z/60% : S%=Z-60%*M%
200 H$=RIGHT$(NUM$(100%+H%),3%)
210 M$=RIGHT$(NUM$(100%+M%),3%)
220 S$=RIGHT$(NUM$(100%+S%),3%)
230 RETURN