Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape13a_acorn_bbc_welcome_cassette.wav » CLOCK

CLOCK

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_acornsoft_tape13a_acorn_bbc_welcome_cassette.wav
Filename: CLOCK
Read OK: ✔
File size: 08B9 bytes
Load address: FFFF0E00
Exec address: FFFF8000
File contents
   10 REM CLOCK
   40 ONERRORGOTO50
   50 MODE7:IFM%=0PROCOFF:PRINTTAB(5,16)"Press the STOP button"'TAB(5)"on your tape recorder"TAB(3,20)"Press the SPACE BAR to continue":REPEATUNTILGET$=" "
   60 F%=0:O%=1:ONERRORGOTO800
  100 MODE7:PROCOFF:FORI%=8TO9:PRINTTAB(17,I%);CHR$&8D"CLOCK":NEXT
  110 IF F%=0 THEN CLEAR:DIMA%120:@%=2:FORI%=0TO119:A%?I%=100*(1+SINRAD(I%*6)):NEXT
  120 IFTIME<0THENTIME=0
  200 F%=1:ON O% GOTO1000,2000,1000
  500 PRINTTAB(15,1);"M E N U"'''"Choose between...."'
  510 PRINTTAB(9)"Analogue Display"''TAB(9)"Digital Display"''TAB(9)"Analogue and Digital Display"''TAB(9)"Reset Time"
  515 PRINTTAB(0,16)"Press ESCAPE to exit the program"
  520 FORI%=1TO4:PRINTTAB(5,4+2*I%);I%;" -":NEXT
  530 PRINT'"Enter 1-4 and Press RETURN: ";:K%=0:F%=2
  540 Y%=GET:IFY%=13ANDK%>0THEN570
  550 Y%=Y%AND&EF-32:IFY%<1ORY%>4THEN540
  560 K%=Y%:PRINTCHR$(K%+48);CHR$8;:GOTO540
  570 F%=1:IFK%<4THENO%=K%:GOTO100
  600 CLS:FORI%=7TO8:PRINTTAB(13,I%)CHR$&8D"ENTER TIME -":NEXT
  610 INPUTLINE'TAB(14)"HOURS  :"H% TAB(14)"MINUTES:"L% TAB(14)"SECONDS:"S%
  620 IFH%<0ORH%>23ORL%<0ORL%>59ORS%<0ORS%>59 THEN PROCOFF:PRINT'TAB(12)"INVALID TIME -"'TAB(12)"PLEASE RE-ENTER":N%=INKEY(400):GOTO600
  630 TIME=(S%+(L%+(H%*60))*60)*100:GOTO100
  800 MODE7:IF F%=1 THEN500
  810 IF F%=0 THEN100
  900 IFM%=0PRINTTAB(5,5)"Press the PLAY button"'TAB(5)"on your tape recorder"
  990 CHAIN""
 1000 MODE4:VDU19,0,1;0;19,1,3;0;16,29,500;512;5
 1010 FORA=0TORAD45STEPRAD.5:X%=400*COSA:Y%=400*SINA
 1020 PLOT69,X%,Y%:PLOT69,Y%,X%:PLOT69,-X%,Y%:PLOT69,Y%,-X%:PLOT69,X%,-Y%:PLOT69,-Y%,X%:PLOT69,-X%,-Y%:PLOT69,-Y%,-X%:NEXT
 1050 FORI%=1TO12:MOVE SINRAD(I%*30)*400*1.1-32-16*(I%<10),COSRAD(I%*30)*400*1.1+16
 1060 PRINT;I%;:X%=SINRAD(I%*30)*400:Y%=COSRAD(I%*30)*400:MOVEX%,Y%:DRAWX%*.9,Y%*.9:NEXT
 1070 VDU4:PROCOFF:PROCSET:PROCH:PROCM:PROCS
 1100 REPEATUNTILTIME MOD100=0:PROCS:S%=(S%+1)MOD60:PROCS:IFS%=0PROCM:L%=(L%+1)MOD60:PROCM:IFL%MOD12=0PROCH:H%=(H%+1)MOD120:PROCH
 1110 IFO%=3PRINTTAB(30,5);:PROCP
 1120 GOTO1100
 1700 DEFPROCS MOVE0,0:PLOT6,3.2*(A%?S%-100),3.2*(A%?(S%+15)-100):ENDPROC
 1800 DEFPROCM MOVE0,0:MOVE1.5*(A%?(L%+59)-100),1.5*(A%?(L%+14)-100):PLOT86,1.5*(A%?(L%+1)-100),1.5*(A%?(L%+16)-100)
 1810 PLOT6,1.5*(A%?(L%+59)-100),1.5*(A%?(L%+14)-100):PLOT86,3*(A%?L%-100),3*(A%?(L%+15)-100):ENDPROC
 1900 DEFPROCH G%=H%MOD60:MOVE0,0:MOVEA%?(G%+58)-100,A%?(G%+13)-100:PLOT86,A%?(G%+2)-100,A%?(G%+17)-100:PLOT6,A%?(G%+58)-100,A%?(G%+13)-100:PLOT86,2*(A%?G%-100),2*(A%?(G%+15)-100):ENDPROC
 2000 MODE5:VDU19,0,0;0;19,3,2;0;12:MOVE300,400:DRAW980,400:DRAW980,648:DRAW300,648:DRAW300,400:PROCOFF:PROCSET
 2010 REPEATUNTILTIME MOD100=0:S%=(S%+1)MOD60:IFS%=0L%=(L%+1)MOD60:IFL%MOD12=0:H%=(H%+1)MOD120
 2020 PRINTTAB(6,15);:PROCP:GOTO2010
 2500 DEFPROCP PRINTH%DIV5":";L%DIV10;L%MOD10":";S%DIV10;S%MOD10:ENDPROC
 8000 DEFPROCOFF VDU23;8202;0;0;0;:ENDPROC
 8100 DEFPROCSET T%=TIME:S%=(T%DIV100)MOD60:L%=(T%DIV6000)MOD60:H%=(T%DIV72000)MOD120:ENDPROC


 � CLOCK
( ��Tr@
2z �7:�M%=0�OFF:�5,16)"Press the STOP button"'�5)"on your tape recorder"�3,20)"Press the SPACE BAR to continue":���=" "
< F%=0:O%=1:��T`C
d+ �7:�OFF:�I%=8�9:�17,I%);�&8D"CLOCK":�
n> � F%=0 � �:�A%120:@%=2:�I%=0�119:A%?I%=100*(1+��(I%*6)):�
x
 �<0��=0
� F%=1:� O% �dhC,�dPG,�dhC
�. �15,1);"M E N U"'''"Choose between...."'
�e �9)"Analogue Display"''�9)"Digital Display"''�9)"Analogue and Digital Display"''�9)"Reset Time"
. �0,16)"Press ESCAPE to exit the program"
" �I%=1�4:�5,4+2*I%);I%;" -":�
0 �'"Enter 1-4 and Press RETURN: ";:K%=0:F%=2
 Y%=�:�Y%=13�K%>0��TzB
&! Y%=Y%�&EF-32:�Y%<1�Y%>4��T\B
0 K%=Y%:�(K%+48);�8;:�T\B
: F%=1:�K%<4�O%=K%:�Dd@
X+ �:�I%=7�8:�13,I%)�&8D"ENTER TIME -":�
b: �'�14)"HOURS  :"H% �14)"MINUTES:"L% �14)"SECONDS:"S%
lj �H%<0�H%>23�L%<0�L%>59�S%<0�S%>59 � �OFF:�'�12)"INVALID TIME -"'�12)"PLEASE RE-ENTER":N%=�(400):�DXB
v% �=(S%+(L%+(H%*60))*60)*100:�Dd@
  �7:� F%=1 ��dtA
* � F%=0 ��Dd@
�B �M%=0�5,5)"Press the PLAY button"'�5)"on your tape recorder"
� �""
�* �4:�19,0,1;0;19,1,3;0;16,29,500;512;5
�% �A=0��45��.5:X%=400*�A:Y%=400*�A
�^ �69,X%,Y%:�69,Y%,X%:�69,-X%,Y%:�69,Y%,-X%:�69,X%,-Y%:�69,-Y%,X%:�69,-X%,-Y%:�69,-Y%,-X%:�
D �I%=1�12:� ��(I%*30)*400*1.1-32-16*(I%<10),��(I%*30)*400*1.1+16
$B �;I%;:X%=��(I%*30)*400:Y%=��(I%*30)*400:�X%,Y%:�X%*.9,Y%*.9:�
. �4:�OFF:�SET:�H:�M:�S
LV ��� �100=0:�S:S%=(S%+1)�60:�S:�S%=0�M:L%=(L%+1)�60:�M:�L%�12=0�H:H%=(H%+1)�120:�H
V �O%=3�30,5);:�P
`
 �DLD
�7 ��S �0,0:�6,3.2*(A%?S%-100),3.2*(A%?(S%+15)-100):�
e ��M �0,0:�1.5*(A%?(L%+59)-100),1.5*(A%?(L%+14)-100):�86,1.5*(A%?(L%+1)-100),1.5*(A%?(L%+16)-100)
X �6,1.5*(A%?(L%+59)-100),1.5*(A%?(L%+14)-100):�86,3*(A%?L%-100),3*(A%?(L%+15)-100):�
l� ��H G%=H%�60:�0,0:�A%?(G%+58)-100,A%?(G%+13)-100:�86,A%?(G%+2)-100,A%?(G%+17)-100:�6,A%?(G%+58)-100,A%?(G%+13)-100:�86,2*(A%?G%-100),2*(A%?(G%+15)-100):�
�T �5:�19,0,0;0;19,3,2;0;12:�300,400:�980,400:�980,648:�300,648:�300,400:�OFF:�SET
�E ��� �100=0:S%=(S%+1)�60:�S%=0L%=(L%+1)�60:�L%�12=0:H%=(H%+1)�120
� �6,15);:�P:�dZG
	�. ��P �H%�5":";L%�10;L%�10":";S%�10;S%�10:�
@ ��OFF �23;8202;0;0;0;:�
�B ��SET T%=�:S%=(T%�100)�60:L%=(T%�6000)�60:H%=(T%�72000)�120:�
�
00000000  0d 00 0a 0c 20 f4 20 43  4c 4f 43 4b 0d 00 28 0c  |.... . CLOCK..(.|
00000010  20 ee 85 e5 8d 54 72 40  0d 00 32 7a 20 eb 37 3a  | ....Tr@..2z .7:|
00000020  e7 4d 25 3d 30 f2 4f 46  46 3a f1 8a 35 2c 31 36  |.M%=0.OFF:..5,16|
00000030  29 22 50 72 65 73 73 20  74 68 65 20 53 54 4f 50  |)"Press the STOP|
00000040  20 62 75 74 74 6f 6e 22  27 8a 35 29 22 6f 6e 20  | button"'.5)"on |
00000050  79 6f 75 72 20 74 61 70  65 20 72 65 63 6f 72 64  |your tape record|
00000060  65 72 22 8a 33 2c 32 30  29 22 50 72 65 73 73 20  |er".3,20)"Press |
00000070  74 68 65 20 53 50 41 43  45 20 42 41 52 20 74 6f  |the SPACE BAR to|
00000080  20 63 6f 6e 74 69 6e 75  65 22 3a f5 fd be 3d 22  | continue":...="|
00000090  20 22 0d 00 3c 16 20 46  25 3d 30 3a 4f 25 3d 31  | "..<. F%=0:O%=1|
000000a0  3a ee 85 e5 8d 54 60 43  0d 00 64 2b 20 eb 37 3a  |:....T`C..d+ .7:|
000000b0  f2 4f 46 46 3a e3 49 25  3d 38 b8 39 3a f1 8a 31  |.OFF:.I%=8.9:..1|
000000c0  37 2c 49 25 29 3b bd 26  38 44 22 43 4c 4f 43 4b  |7,I%);.&8D"CLOCK|
000000d0  22 3a ed 0d 00 6e 3e 20  e7 20 46 25 3d 30 20 8c  |":...n> . F%=0 .|
000000e0  20 d8 3a de 41 25 31 32  30 3a 40 25 3d 32 3a e3  | .:.A%120:@%=2:.|
000000f0  49 25 3d 30 b8 31 31 39  3a 41 25 3f 49 25 3d 31  |I%=0.119:A%?I%=1|
00000100  30 30 2a 28 31 2b b5 b2  28 49 25 2a 36 29 29 3a  |00*(1+..(I%*6)):|
00000110  ed 0d 00 78 0d 20 e7 91  3c 30 8c d1 3d 30 0d 00  |...x. ..<0..=0..|
00000120  c8 1e 20 46 25 3d 31 3a  ee 20 4f 25 20 e5 8d 64  |.. F%=1:. O% ..d|
00000130  68 43 2c 8d 64 50 47 2c  8d 64 68 43 0d 01 f4 2e  |hC,.dPG,.dhC....|
00000140  20 f1 8a 31 35 2c 31 29  3b 22 4d 20 45 20 4e 20  | ..15,1);"M E N |
00000150  55 22 27 27 27 22 43 68  6f 6f 73 65 20 62 65 74  |U"'''"Choose bet|
00000160  77 65 65 6e 2e 2e 2e 2e  22 27 0d 01 fe 65 20 f1  |ween...."'...e .|
00000170  8a 39 29 22 41 6e 61 6c  6f 67 75 65 20 44 69 73  |.9)"Analogue Dis|
00000180  70 6c 61 79 22 27 27 8a  39 29 22 44 69 67 69 74  |play"''.9)"Digit|
00000190  61 6c 20 44 69 73 70 6c  61 79 22 27 27 8a 39 29  |al Display"''.9)|
000001a0  22 41 6e 61 6c 6f 67 75  65 20 61 6e 64 20 44 69  |"Analogue and Di|
000001b0  67 69 74 61 6c 20 44 69  73 70 6c 61 79 22 27 27  |gital Display"''|
000001c0  8a 39 29 22 52 65 73 65  74 20 54 69 6d 65 22 0d  |.9)"Reset Time".|
000001d0  02 03 2e 20 f1 8a 30 2c  31 36 29 22 50 72 65 73  |... ..0,16)"Pres|
000001e0  73 20 45 53 43 41 50 45  20 74 6f 20 65 78 69 74  |s ESCAPE to exit|
000001f0  20 74 68 65 20 70 72 6f  67 72 61 6d 22 0d 02 08  | the program"...|
00000200  22 20 e3 49 25 3d 31 b8  34 3a f1 8a 35 2c 34 2b  |" .I%=1.4:..5,4+|
00000210  32 2a 49 25 29 3b 49 25  3b 22 20 2d 22 3a ed 0d  |2*I%);I%;" -":..|
00000220  02 12 30 20 f1 27 22 45  6e 74 65 72 20 31 2d 34  |..0 .'"Enter 1-4|
00000230  20 61 6e 64 20 50 72 65  73 73 20 52 45 54 55 52  | and Press RETUR|
00000240  4e 3a 20 22 3b 3a 4b 25  3d 30 3a 46 25 3d 32 0d  |N: ";:K%=0:F%=2.|
00000250  02 1c 1a 20 59 25 3d a5  3a e7 59 25 3d 31 33 80  |... Y%=.:.Y%=13.|
00000260  4b 25 3e 30 8c 8d 54 7a  42 0d 02 26 21 20 59 25  |K%>0..TzB..&! Y%|
00000270  3d 59 25 80 26 45 46 2d  33 32 3a e7 59 25 3c 31  |=Y%.&EF-32:.Y%<1|
00000280  84 59 25 3e 34 8c 8d 54  5c 42 0d 02 30 1e 20 4b  |.Y%>4..T\B..0. K|
00000290  25 3d 59 25 3a f1 bd 28  4b 25 2b 34 38 29 3b bd  |%=Y%:..(K%+48);.|
000002a0  38 3b 3a e5 8d 54 5c 42  0d 02 3a 1b 20 46 25 3d  |8;:..T\B..:. F%=|
000002b0  31 3a e7 4b 25 3c 34 8c  4f 25 3d 4b 25 3a e5 8d  |1:.K%<4.O%=K%:..|
000002c0  44 64 40 0d 02 58 2b 20  db 3a e3 49 25 3d 37 b8  |Dd@..X+ .:.I%=7.|
000002d0  38 3a f1 8a 31 33 2c 49  25 29 bd 26 38 44 22 45  |8:..13,I%).&8D"E|
000002e0  4e 54 45 52 20 54 49 4d  45 20 2d 22 3a ed 0d 02  |NTER TIME -":...|
000002f0  62 3a 20 e8 86 27 8a 31  34 29 22 48 4f 55 52 53  |b: ..'.14)"HOURS|
00000300  20 20 3a 22 48 25 20 8a  31 34 29 22 4d 49 4e 55  |  :"H% .14)"MINU|
00000310  54 45 53 3a 22 4c 25 20  8a 31 34 29 22 53 45 43  |TES:"L% .14)"SEC|
00000320  4f 4e 44 53 3a 22 53 25  0d 02 6c 6a 20 e7 48 25  |ONDS:"S%..lj .H%|
00000330  3c 30 84 48 25 3e 32 33  84 4c 25 3c 30 84 4c 25  |<0.H%>23.L%<0.L%|
00000340  3e 35 39 84 53 25 3c 30  84 53 25 3e 35 39 20 8c  |>59.S%<0.S%>59 .|
00000350  20 f2 4f 46 46 3a f1 27  8a 31 32 29 22 49 4e 56  | .OFF:.'.12)"INV|
00000360  41 4c 49 44 20 54 49 4d  45 20 2d 22 27 8a 31 32  |ALID TIME -"'.12|
00000370  29 22 50 4c 45 41 53 45  20 52 45 2d 45 4e 54 45  |)"PLEASE RE-ENTE|
00000380  52 22 3a 4e 25 3d a6 28  34 30 30 29 3a e5 8d 44  |R":N%=.(400):..D|
00000390  58 42 0d 02 76 25 20 d1  3d 28 53 25 2b 28 4c 25  |XB..v% .=(S%+(L%|
000003a0  2b 28 48 25 2a 36 30 29  29 2a 36 30 29 2a 31 30  |+(H%*60))*60)*10|
000003b0  30 3a e5 8d 44 64 40 0d  03 20 14 20 eb 37 3a e7  |0:..Dd@.. . .7:.|
000003c0  20 46 25 3d 31 20 8c 8d  64 74 41 0d 03 2a 11 20  | F%=1 ..dtA..*. |
000003d0  e7 20 46 25 3d 30 20 8c  8d 44 64 40 0d 03 84 42  |. F%=0 ..Dd@...B|
000003e0  20 e7 4d 25 3d 30 f1 8a  35 2c 35 29 22 50 72 65  | .M%=0..5,5)"Pre|
000003f0  73 73 20 74 68 65 20 50  4c 41 59 20 62 75 74 74  |ss the PLAY butt|
00000400  6f 6e 22 27 8a 35 29 22  6f 6e 20 79 6f 75 72 20  |on"'.5)"on your |
00000410  74 61 70 65 20 72 65 63  6f 72 64 65 72 22 0d 03  |tape recorder"..|
00000420  de 08 20 d7 22 22 0d 03  e8 2a 20 eb 34 3a ef 31  |.. .""...* .4:.1|
00000430  39 2c 30 2c 31 3b 30 3b  31 39 2c 31 2c 33 3b 30  |9,0,1;0;19,1,3;0|
00000440  3b 31 36 2c 32 39 2c 35  30 30 3b 35 31 32 3b 35  |;16,29,500;512;5|
00000450  0d 03 f2 25 20 e3 41 3d  30 b8 b2 34 35 88 b2 2e  |...% .A=0..45...|
00000460  35 3a 58 25 3d 34 30 30  2a 9b 41 3a 59 25 3d 34  |5:X%=400*.A:Y%=4|
00000470  30 30 2a b5 41 0d 03 fc  5e 20 f0 36 39 2c 58 25  |00*.A...^ .69,X%|
00000480  2c 59 25 3a f0 36 39 2c  59 25 2c 58 25 3a f0 36  |,Y%:.69,Y%,X%:.6|
00000490  39 2c 2d 58 25 2c 59 25  3a f0 36 39 2c 59 25 2c  |9,-X%,Y%:.69,Y%,|
000004a0  2d 58 25 3a f0 36 39 2c  58 25 2c 2d 59 25 3a f0  |-X%:.69,X%,-Y%:.|
000004b0  36 39 2c 2d 59 25 2c 58  25 3a f0 36 39 2c 2d 58  |69,-Y%,X%:.69,-X|
000004c0  25 2c 2d 59 25 3a f0 36  39 2c 2d 59 25 2c 2d 58  |%,-Y%:.69,-Y%,-X|
000004d0  25 3a ed 0d 04 1a 44 20  e3 49 25 3d 31 b8 31 32  |%:....D .I%=1.12|
000004e0  3a ec 20 b5 b2 28 49 25  2a 33 30 29 2a 34 30 30  |:. ..(I%*30)*400|
000004f0  2a 31 2e 31 2d 33 32 2d  31 36 2a 28 49 25 3c 31  |*1.1-32-16*(I%<1|
00000500  30 29 2c 9b b2 28 49 25  2a 33 30 29 2a 34 30 30  |0),..(I%*30)*400|
00000510  2a 31 2e 31 2b 31 36 0d  04 24 42 20 f1 3b 49 25  |*1.1+16..$B .;I%|
00000520  3b 3a 58 25 3d b5 b2 28  49 25 2a 33 30 29 2a 34  |;:X%=..(I%*30)*4|
00000530  30 30 3a 59 25 3d 9b b2  28 49 25 2a 33 30 29 2a  |00:Y%=..(I%*30)*|
00000540  34 30 30 3a ec 58 25 2c  59 25 3a df 58 25 2a 2e  |400:.X%,Y%:.X%*.|
00000550  39 2c 59 25 2a 2e 39 3a  ed 0d 04 2e 1a 20 ef 34  |9,Y%*.9:..... .4|
00000560  3a f2 4f 46 46 3a f2 53  45 54 3a f2 48 3a f2 4d  |:.OFF:.SET:.H:.M|
00000570  3a f2 53 0d 04 4c 56 20  f5 fd 91 20 83 31 30 30  |:.S..LV ... .100|
00000580  3d 30 3a f2 53 3a 53 25  3d 28 53 25 2b 31 29 83  |=0:.S:S%=(S%+1).|
00000590  36 30 3a f2 53 3a e7 53  25 3d 30 f2 4d 3a 4c 25  |60:.S:.S%=0.M:L%|
000005a0  3d 28 4c 25 2b 31 29 83  36 30 3a f2 4d 3a e7 4c  |=(L%+1).60:.M:.L|
000005b0  25 83 31 32 3d 30 f2 48  3a 48 25 3d 28 48 25 2b  |%.12=0.H:H%=(H%+|
000005c0  31 29 83 31 32 30 3a f2  48 0d 04 56 15 20 e7 4f  |1).120:.H..V. .O|
000005d0  25 3d 33 f1 8a 33 30 2c  35 29 3b 3a f2 50 0d 04  |%=3..30,5);:.P..|
000005e0  60 0a 20 e5 8d 44 4c 44  0d 06 a4 37 20 dd f2 53  |`. ..DLD...7 ..S|
000005f0  20 ec 30 2c 30 3a f0 36  2c 33 2e 32 2a 28 41 25  | .0,0:.6,3.2*(A%|
00000600  3f 53 25 2d 31 30 30 29  2c 33 2e 32 2a 28 41 25  |?S%-100),3.2*(A%|
00000610  3f 28 53 25 2b 31 35 29  2d 31 30 30 29 3a e1 0d  |?(S%+15)-100):..|
00000620  07 08 65 20 dd f2 4d 20  ec 30 2c 30 3a ec 31 2e  |..e ..M .0,0:.1.|
00000630  35 2a 28 41 25 3f 28 4c  25 2b 35 39 29 2d 31 30  |5*(A%?(L%+59)-10|
00000640  30 29 2c 31 2e 35 2a 28  41 25 3f 28 4c 25 2b 31  |0),1.5*(A%?(L%+1|
00000650  34 29 2d 31 30 30 29 3a  f0 38 36 2c 31 2e 35 2a  |4)-100):.86,1.5*|
00000660  28 41 25 3f 28 4c 25 2b  31 29 2d 31 30 30 29 2c  |(A%?(L%+1)-100),|
00000670  31 2e 35 2a 28 41 25 3f  28 4c 25 2b 31 36 29 2d  |1.5*(A%?(L%+16)-|
00000680  31 30 30 29 0d 07 12 58  20 f0 36 2c 31 2e 35 2a  |100)...X .6,1.5*|
00000690  28 41 25 3f 28 4c 25 2b  35 39 29 2d 31 30 30 29  |(A%?(L%+59)-100)|
000006a0  2c 31 2e 35 2a 28 41 25  3f 28 4c 25 2b 31 34 29  |,1.5*(A%?(L%+14)|
000006b0  2d 31 30 30 29 3a f0 38  36 2c 33 2a 28 41 25 3f  |-100):.86,3*(A%?|
000006c0  4c 25 2d 31 30 30 29 2c  33 2a 28 41 25 3f 28 4c  |L%-100),3*(A%?(L|
000006d0  25 2b 31 35 29 2d 31 30  30 29 3a e1 0d 07 6c 9e  |%+15)-100):...l.|
000006e0  20 dd f2 48 20 47 25 3d  48 25 83 36 30 3a ec 30  | ..H G%=H%.60:.0|
000006f0  2c 30 3a ec 41 25 3f 28  47 25 2b 35 38 29 2d 31  |,0:.A%?(G%+58)-1|
00000700  30 30 2c 41 25 3f 28 47  25 2b 31 33 29 2d 31 30  |00,A%?(G%+13)-10|
00000710  30 3a f0 38 36 2c 41 25  3f 28 47 25 2b 32 29 2d  |0:.86,A%?(G%+2)-|
00000720  31 30 30 2c 41 25 3f 28  47 25 2b 31 37 29 2d 31  |100,A%?(G%+17)-1|
00000730  30 30 3a f0 36 2c 41 25  3f 28 47 25 2b 35 38 29  |00:.6,A%?(G%+58)|
00000740  2d 31 30 30 2c 41 25 3f  28 47 25 2b 31 33 29 2d  |-100,A%?(G%+13)-|
00000750  31 30 30 3a f0 38 36 2c  32 2a 28 41 25 3f 47 25  |100:.86,2*(A%?G%|
00000760  2d 31 30 30 29 2c 32 2a  28 41 25 3f 28 47 25 2b  |-100),2*(A%?(G%+|
00000770  31 35 29 2d 31 30 30 29  3a e1 0d 07 d0 54 20 eb  |15)-100):....T .|
00000780  35 3a ef 31 39 2c 30 2c  30 3b 30 3b 31 39 2c 33  |5:.19,0,0;0;19,3|
00000790  2c 32 3b 30 3b 31 32 3a  ec 33 30 30 2c 34 30 30  |,2;0;12:.300,400|
000007a0  3a df 39 38 30 2c 34 30  30 3a df 39 38 30 2c 36  |:.980,400:.980,6|
000007b0  34 38 3a df 33 30 30 2c  36 34 38 3a df 33 30 30  |48:.300,648:.300|
000007c0  2c 34 30 30 3a f2 4f 46  46 3a f2 53 45 54 0d 07  |,400:.OFF:.SET..|
000007d0  da 45 20 f5 fd 91 20 83  31 30 30 3d 30 3a 53 25  |.E ... .100=0:S%|
000007e0  3d 28 53 25 2b 31 29 83  36 30 3a e7 53 25 3d 30  |=(S%+1).60:.S%=0|
000007f0  4c 25 3d 28 4c 25 2b 31  29 83 36 30 3a e7 4c 25  |L%=(L%+1).60:.L%|
00000800  83 31 32 3d 30 3a 48 25  3d 28 48 25 2b 31 29 83  |.12=0:H%=(H%+1).|
00000810  31 32 30 0d 07 e4 16 20  f1 8a 36 2c 31 35 29 3b  |120.... ..6,15);|
00000820  3a f2 50 3a e5 8d 64 5a  47 0d 09 c4 2e 20 dd f2  |:.P:..dZG.... ..|
00000830  50 20 f1 48 25 81 35 22  3a 22 3b 4c 25 81 31 30  |P .H%.5":";L%.10|
00000840  3b 4c 25 83 31 30 22 3a  22 3b 53 25 81 31 30 3b  |;L%.10":";S%.10;|
00000850  53 25 83 31 30 3a e1 0d  1f 40 1c 20 dd f2 4f 46  |S%.10:...@. ..OF|
00000860  46 20 ef 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |F .23;8202;0;0;0|
00000870  3b 3a e1 0d 1f a4 42 20  dd f2 53 45 54 20 54 25  |;:....B ..SET T%|
00000880  3d 91 3a 53 25 3d 28 54  25 81 31 30 30 29 83 36  |=.:S%=(T%.100).6|
00000890  30 3a 4c 25 3d 28 54 25  81 36 30 30 30 29 83 36  |0:L%=(T%.6000).6|
000008a0  30 3a 48 25 3d 28 54 25  81 37 32 30 30 30 29 83  |0:H%=(T%.72000).|
000008b0  31 32 30 3a e1 0d ff 00  00                       |120:.....|
000008b9
CLOCK.m0
CLOCK.m1
CLOCK.m2
CLOCK.m4
CLOCK.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .