� CLOCK
$� Electron Introductory Cassette
� Author T.D.
(�
2��M%=1234��T|@��M%=5678��DF@��5:�19,3,4;0;:�2:�0,5)"Does your cassette"''"recorder have motor"''"control (Y/N)?";:�(��&DF)=�"Y"�M%=5678:�DF@�M%=1234
<��1,-15,121,60:�5:�19,3,4;0;:�1:�8,9)"STOP";:�3:�6,13)"the tape":�2:�4,25)"Press SPACE"�4,27)"to continue":���=32:�&11,0,0,0
F�4
PO%=1
Z
��:�Dd@
d0� MAP 255,BLOCK 8,sin% 120:@%=2:osword=&FFF1
n�4:�OFF:�DBL("Clock",12)
x(�I%=0�119:sin%?I%=100*(1+��(I%*6)):�
��<0��=0
�
� � �DhA
�� O% �tt@,�TbA,�tt@
� 
�$� Analogue or Analogue & Digital
�.�4:�OFF:�19,0,1;0;19,3,3;0;16,29,500;512;5
�
�0,400
�4�I%=1�60:�4*(sin%?I%-100),4*(sin%?(I%+15)-100):�
�C�I%=1�12:� ��(I%*30)*400*1.1-32-16*(I%<10),��(I%*30)*400*1.1+16
�A�;I%;:X%=��(I%*30)*400:Y%=��(I%*30)*400:�X%,Y%:�X%*.9,Y%*.9:�
��4:�OFF:�SET:�H:�M:�S
��
�U��� �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

�O%=3�30,5);:�P

�0

 

"� Digital Clock

,S�5:�19,0,0;0;19,7,2;0;12:�300,400:�980,400:�980,648:�300,648:�300,400:�OFF:�SET

6�

@D��� �100=0:S%=(S%+1)�60:�S%=0L%=(L%+1)�60:�L%�12=0:H%=(H%+1)�120

J�6,15);:�P:�0

T 

^� Error Handler

h� �<>17 �:�" at line ";�:�

r0�4:�15,1);"M E N U"'''"Choose between...."'

|t�5)"1 - Analogue Display"''�5)"2 - Digital Display"''�5)"3 - Analogue and Digital Display"''�5)"4 - Reset Time"

�-�0,16)"Press ESCAPE to exit the program"

�%�'"Enter 1-4 and Press RETURN: ";

�
� � �TRB

��

�%�K%=��&EF-32:�K%>=1 � K%<=4:�;K%;

��Y%=�:�Y%=127�Y%=13:�Y%

�
�Y%=13

�� � � �DhA

��K%<4 O%=K%:�tV@

��4:�DBL("ENTER TIME -",8)

�:�''�14)"HOURS  :"H%'�14)"MINUTES:"L%'�14)"SECONDS:"S%

�i�H%<0�H%>23�L%<0�L%>59�S%<0�S%>59 � �OFF:�'�12)"INVALID TIME -"'�12)"PLEASE RE-ENTER":N%=�(400):�d`A

�$�=(S%+(L%+(H%*60))*60)*100:�tV@
 
�4
�'"Play tape"'
&�""
0 
::��S �0,0:�6,3.2*(sin%?S%-100),3.2*(sin%?(S%+15)-100):�
D 
Nl��M �0,0:�1.5*(sin%?(L%+59)-100),1.5*(sin%?(L%+14)-100):�86,1.5*(sin%?(L%+1)-100),1.5*(sin%?(L%+16)-100)
X_�6,1.5*(sin%?(L%+59)-100),1.5*(sin%?(L%+14)-100):�86,3*(sin%?L%-100),3*(sin%?(L%+15)-100):�
b 
l���H G%=H%�60:�0,0:�sin%?(G%+58)-100,sin%?(G%+13)-100:�86,sin%?(G%+2)-100,sin%?(G%+17)-100:�6,sin%?(G%+58)-100,sin%?(G%+13)-100:�86,2*(sin%?G%-100),2*(sin%?(G%+15)-100):�
v 
�-��P �H%�5":";L%�10;L%�10":";S%�10;S%�10:�
� 
���OFF �23,1,0;0;0;0;:�
� 
�A��SET T%=�:S%=(T%�100)�60:L%=(T%�6000)�60:H%=(T%�72000)�120:�
� 
����DBL(A$,y%)$MAP=�255,�0):MAP?255=0:CHARPTR=224:B$="":C$="":�CH%=1��A$:K%=�CHAR(��A$,CH%,1)):B$=B$+�K%:C$=C$+�(K%+1):�:K%=19-�A$/2:DBL$=�31+�K%+�y%+B$+�31+�K%+�(y%+1)+C$:�DBL$;
��
� 
ڻݤCHAR(C%)�MAP?C%�=MAP?C%��CHARPTR>=256� �MAP?C%=CHARPTR:?BLOCK=C%:A%=10:X%=BLOCK:Y%=BLOCK � 256:�osword:�J%=0�1:�23,CHARPTR+J%:�I%=2�9:�BLOCK?(J%*4+I%�2):�,:CHARPTR=CHARPTR+2:=MAP?C%
�

00000000  0d 00 0a 0b f4 20 43 4c  4f 43 4b 0d 00 14 24 f4  |..... CLOCK...$.|
00000010  20 45 6c 65 63 74 72 6f  6e 20 49 6e 74 72 6f 64  | Electron Introd|
00000020  75 63 74 6f 72 79 20 43  61 73 73 65 74 74 65 0d  |uctory Cassette.|
00000030  00 1e 11 f4 20 41 75 74  68 6f 72 20 54 2e 44 2e  |.... Author T.D.|
00000040  0d 00 28 07 ee 85 f9 0d  00 32 99 e7 4d 25 3d 31  |..(......2..M%=1|
00000050  32 33 34 8c 8d 54 7c 40  8b e7 4d 25 3d 35 36 37  |234..T|@..M%=567|
00000060  38 8c 8d 44 46 40 8b eb  35 3a ef 31 39 2c 33 2c  |8..DF@..5:.19,3,|
00000070  34 3b 30 3b 3a fb 32 3a  f1 8a 30 2c 35 29 22 44  |4;0;:.2:..0,5)"D|
00000080  6f 65 73 20 79 6f 75 72  20 63 61 73 73 65 74 74  |oes your cassett|
00000090  65 22 27 27 22 72 65 63  6f 72 64 65 72 20 68 61  |e"''"recorder ha|
000000a0  76 65 20 6d 6f 74 6f 72  22 27 27 22 63 6f 6e 74  |ve motor"''"cont|
000000b0  72 6f 6c 20 28 59 2f 4e  29 3f 22 3b 3a e7 28 a5  |rol (Y/N)?";:.(.|
000000c0  80 26 44 46 29 3d 97 22  59 22 8c 4d 25 3d 35 36  |.&DF)=."Y".M%=56|
000000d0  37 38 3a e5 8d 44 46 40  8b 4d 25 3d 31 32 33 34  |78:..DF@.M%=1234|
000000e0  0d 00 3c 82 d4 31 2c 2d  31 35 2c 31 32 31 2c 36  |..<..1,-15,121,6|
000000f0  30 3a eb 35 3a ef 31 39  2c 33 2c 34 3b 30 3b 3a  |0:.5:.19,3,4;0;:|
00000100  fb 31 3a f1 8a 38 2c 39  29 22 53 54 4f 50 22 3b  |.1:..8,9)"STOP";|
00000110  3a fb 33 3a f1 8a 36 2c  31 33 29 22 74 68 65 20  |:.3:..6,13)"the |
00000120  74 61 70 65 22 3a fb 32  3a f1 8a 34 2c 32 35 29  |tape":.2:..4,25)|
00000130  22 50 72 65 73 73 20 53  50 41 43 45 22 8a 34 2c  |"Press SPACE".4,|
00000140  32 37 29 22 74 6f 20 63  6f 6e 74 69 6e 75 65 22  |27)"to continue"|
00000150  3a f5 fd a5 3d 33 32 3a  d4 26 31 31 2c 30 2c 30  |:...=32:.&11,0,0|
00000160  2c 30 0d 00 46 06 eb 34  0d 00 50 08 4f 25 3d 31  |,0..F..4..P.O%=1|
00000170  0d 00 5a 0d ee 85 d8 3a  e5 8d 44 64 40 0d 00 64  |..Z....:..Dd@..d|
00000180  30 de 20 4d 41 50 20 32  35 35 2c 42 4c 4f 43 4b  |0. MAP 255,BLOCK|
00000190  20 38 2c 73 69 6e 25 20  31 32 30 3a 40 25 3d 32  | 8,sin% 120:@%=2|
000001a0  3a 6f 73 77 6f 72 64 3d  26 46 46 46 31 0d 00 6e  |:osword=&FFF1..n|
000001b0  1c eb 34 3a f2 4f 46 46  3a f2 44 42 4c 28 22 43  |..4:.OFF:.DBL("C|
000001c0  6c 6f 63 6b 22 2c 31 32  29 0d 00 78 28 e3 49 25  |lock",12)..x(.I%|
000001d0  3d 30 b8 31 31 39 3a 73  69 6e 25 3f 49 25 3d 31  |=0.119:sin%?I%=1|
000001e0  30 30 2a 28 31 2b b5 b2  28 49 25 2a 36 29 29 3a  |00*(1+..(I%*6)):|
000001f0  ed 0d 00 82 0c e7 91 3c  30 8c d1 3d 30 0d 00 8c  |.......<0..=0...|
00000200  0d ee 20 85 20 e5 8d 44  68 41 0d 00 96 18 ee 20  |.. . ..DhA..... |
00000210  4f 25 20 e5 8d 74 74 40  2c 8d 54 62 41 2c 8d 74  |O% ..tt@,.TbA,.t|
00000220  74 40 0d 00 a0 05 20 0d  00 aa 24 f4 20 41 6e 61  |t@.... ...$. Ana|
00000230  6c 6f 67 75 65 20 6f 72  20 41 6e 61 6c 6f 67 75  |logue or Analogu|
00000240  65 20 26 20 44 69 67 69  74 61 6c 0d 00 b4 2e eb  |e & Digital.....|
00000250  34 3a f2 4f 46 46 3a ef  31 39 2c 30 2c 31 3b 30  |4:.OFF:.19,0,1;0|
00000260  3b 31 39 2c 33 2c 33 3b  30 3b 31 36 2c 32 39 2c  |;19,3,3;0;16,29,|
00000270  35 30 30 3b 35 31 32 3b  35 0d 00 be 0a ec 30 2c  |500;512;5.....0,|
00000280  34 30 30 0d 00 c8 34 e3  49 25 3d 31 b8 36 30 3a  |400...4.I%=1.60:|
00000290  df 34 2a 28 73 69 6e 25  3f 49 25 2d 31 30 30 29  |.4*(sin%?I%-100)|
000002a0  2c 34 2a 28 73 69 6e 25  3f 28 49 25 2b 31 35 29  |,4*(sin%?(I%+15)|
000002b0  2d 31 30 30 29 3a ed 0d  00 d2 43 e3 49 25 3d 31  |-100):....C.I%=1|
000002c0  b8 31 32 3a ec 20 b5 b2  28 49 25 2a 33 30 29 2a  |.12:. ..(I%*30)*|
000002d0  34 30 30 2a 31 2e 31 2d  33 32 2d 31 36 2a 28 49  |400*1.1-32-16*(I|
000002e0  25 3c 31 30 29 2c 9b b2  28 49 25 2a 33 30 29 2a  |%<10),..(I%*30)*|
000002f0  34 30 30 2a 31 2e 31 2b  31 36 0d 00 dc 41 f1 3b  |400*1.1+16...A.;|
00000300  49 25 3b 3a 58 25 3d b5  b2 28 49 25 2a 33 30 29  |I%;:X%=..(I%*30)|
00000310  2a 34 30 30 3a 59 25 3d  9b b2 28 49 25 2a 33 30  |*400:Y%=..(I%*30|
00000320  29 2a 34 30 30 3a ec 58  25 2c 59 25 3a df 58 25  |)*400:.X%,Y%:.X%|
00000330  2a 2e 39 2c 59 25 2a 2e  39 3a ed 0d 00 e6 19 ef  |*.9,Y%*.9:......|
00000340  34 3a f2 4f 46 46 3a f2  53 45 54 3a f2 48 3a f2  |4:.OFF:.SET:.H:.|
00000350  4d 3a f2 53 0d 00 f0 05  f5 0d 00 fa 55 f5 fd 91  |M:.S........U...|
00000360  20 83 31 30 30 3d 30 3a  f2 53 3a 53 25 3d 28 53  | .100=0:.S:S%=(S|
00000370  25 2b 31 29 83 36 30 3a  f2 53 3a e7 53 25 3d 30  |%+1).60:.S:.S%=0|
00000380  f2 4d 3a 4c 25 3d 28 4c  25 2b 31 29 83 36 30 3a  |.M:L%=(L%+1).60:|
00000390  f2 4d 3a e7 4c 25 83 31  32 3d 30 f2 48 3a 48 25  |.M:.L%.12=0.H:H%|
000003a0  3d 28 48 25 2b 31 29 83  31 32 30 3a f2 48 0d 01  |=(H%+1).120:.H..|
000003b0  04 14 e7 4f 25 3d 33 f1  8a 33 30 2c 35 29 3b 3a  |...O%=3..30,5);:|
000003c0  f2 50 0d 01 0e 06 fd 30  0d 01 18 05 20 0d 01 22  |.P.....0.... .."|
000003d0  13 f4 20 44 69 67 69 74  61 6c 20 43 6c 6f 63 6b  |.. Digital Clock|
000003e0  0d 01 2c 53 eb 35 3a ef  31 39 2c 30 2c 30 3b 30  |..,S.5:.19,0,0;0|
000003f0  3b 31 39 2c 37 2c 32 3b  30 3b 31 32 3a ec 33 30  |;19,7,2;0;12:.30|
00000400  30 2c 34 30 30 3a df 39  38 30 2c 34 30 30 3a df  |0,400:.980,400:.|
00000410  39 38 30 2c 36 34 38 3a  df 33 30 30 2c 36 34 38  |980,648:.300,648|
00000420  3a df 33 30 30 2c 34 30  30 3a f2 4f 46 46 3a f2  |:.300,400:.OFF:.|
00000430  53 45 54 0d 01 36 05 f5  0d 01 40 44 f5 fd 91 20  |SET..6....@D... |
00000440  83 31 30 30 3d 30 3a 53  25 3d 28 53 25 2b 31 29  |.100=0:S%=(S%+1)|
00000450  83 36 30 3a e7 53 25 3d  30 4c 25 3d 28 4c 25 2b  |.60:.S%=0L%=(L%+|
00000460  31 29 83 36 30 3a e7 4c  25 83 31 32 3d 30 3a 48  |1).60:.L%.12=0:H|
00000470  25 3d 28 48 25 2b 31 29  83 31 32 30 0d 01 4a 12  |%=(H%+1).120..J.|
00000480  f1 8a 36 2c 31 35 29 3b  3a f2 50 3a fd 30 0d 01  |..6,15);:.P:.0..|
00000490  54 05 20 0d 01 5e 13 f4  20 45 72 72 6f 72 20 48  |T. ..^.. Error H|
000004a0  61 6e 64 6c 65 72 0d 01  68 1e e7 20 9f 3c 3e 31  |andler..h.. .<>1|
000004b0  37 20 f6 3a f1 22 20 61  74 20 6c 69 6e 65 20 22  |7 .:." at line "|
000004c0  3b 9e 3a e0 0d 01 72 30  eb 34 3a f1 8a 31 35 2c  |;.:...r0.4:..15,|
000004d0  31 29 3b 22 4d 20 45 20  4e 20 55 22 27 27 27 22  |1);"M E N U"'''"|
000004e0  43 68 6f 6f 73 65 20 62  65 74 77 65 65 6e 2e 2e  |Choose between..|
000004f0  2e 2e 22 27 0d 01 7c 74  f1 8a 35 29 22 31 20 2d  |.."'..|t..5)"1 -|
00000500  20 41 6e 61 6c 6f 67 75  65 20 44 69 73 70 6c 61  | Analogue Displa|
00000510  79 22 27 27 8a 35 29 22  32 20 2d 20 44 69 67 69  |y"''.5)"2 - Digi|
00000520  74 61 6c 20 44 69 73 70  6c 61 79 22 27 27 8a 35  |tal Display"''.5|
00000530  29 22 33 20 2d 20 41 6e  61 6c 6f 67 75 65 20 61  |)"3 - Analogue a|
00000540  6e 64 20 44 69 67 69 74  61 6c 20 44 69 73 70 6c  |nd Digital Displ|
00000550  61 79 22 27 27 8a 35 29  22 34 20 2d 20 52 65 73  |ay"''.5)"4 - Res|
00000560  65 74 20 54 69 6d 65 22  0d 01 86 2d f1 8a 30 2c  |et Time"...-..0,|
00000570  31 36 29 22 50 72 65 73  73 20 45 53 43 41 50 45  |16)"Press ESCAPE|
00000580  20 74 6f 20 65 78 69 74  20 74 68 65 20 70 72 6f  | to exit the pro|
00000590  67 72 61 6d 22 0d 01 90  25 f1 27 22 45 6e 74 65  |gram"...%.'"Ente|
000005a0  72 20 31 2d 34 20 61 6e  64 20 50 72 65 73 73 20  |r 1-4 and Press |
000005b0  52 45 54 55 52 4e 3a 20  22 3b 0d 01 9a 0d ee 20  |RETURN: ";..... |
000005c0  85 20 e5 8d 54 52 42 0d  01 a4 05 f5 0d 01 ae 25  |. ..TRB........%|
000005d0  f5 4b 25 3d a5 80 26 45  46 2d 33 32 3a fd 4b 25  |.K%=..&EF-32:.K%|
000005e0  3e 3d 31 20 80 20 4b 25  3c 3d 34 3a f1 3b 4b 25  |>=1 . K%<=4:.;K%|
000005f0  3b 0d 01 b8 1b f5 59 25  3d a5 3a fd 59 25 3d 31  |;.....Y%=.:.Y%=1|
00000600  32 37 84 59 25 3d 31 33  3a ef 59 25 0d 01 c2 0a  |27.Y%=13:.Y%....|
00000610  fd 59 25 3d 31 33 0d 01  cc 0e ee 20 85 20 e5 20  |.Y%=13..... . . |
00000620  8d 44 68 41 0d 01 d6 15  e7 4b 25 3c 34 20 4f 25  |.DhA.....K%<4 O%|
00000630  3d 4b 25 3a e5 8d 74 56  40 0d 01 e0 1d eb 34 3a  |=K%:..tV@.....4:|
00000640  f2 44 42 4c 28 22 45 4e  54 45 52 20 54 49 4d 45  |.DBL("ENTER TIME|
00000650  20 2d 22 2c 38 29 0d 01  ea 3a e8 86 27 27 8a 31  | -",8)...:..''.1|
00000660  34 29 22 48 4f 55 52 53  20 20 3a 22 48 25 27 8a  |4)"HOURS  :"H%'.|
00000670  31 34 29 22 4d 49 4e 55  54 45 53 3a 22 4c 25 27  |14)"MINUTES:"L%'|
00000680  8a 31 34 29 22 53 45 43  4f 4e 44 53 3a 22 53 25  |.14)"SECONDS:"S%|
00000690  0d 01 f4 69 e7 48 25 3c  30 84 48 25 3e 32 33 84  |...i.H%<0.H%>23.|
000006a0  4c 25 3c 30 84 4c 25 3e  35 39 84 53 25 3c 30 84  |L%<0.L%>59.S%<0.|
000006b0  53 25 3e 35 39 20 8c 20  f2 4f 46 46 3a f1 27 8a  |S%>59 . .OFF:.'.|
000006c0  31 32 29 22 49 4e 56 41  4c 49 44 20 54 49 4d 45  |12)"INVALID TIME|
000006d0  20 2d 22 27 8a 31 32 29  22 50 4c 45 41 53 45 20  | -"'.12)"PLEASE |
000006e0  52 45 2d 45 4e 54 45 52  22 3a 4e 25 3d a6 28 34  |RE-ENTER":N%=.(4|
000006f0  30 30 29 3a e5 8d 64 60  41 0d 01 fe 24 d1 3d 28  |00):..d`A...$.=(|
00000700  53 25 2b 28 4c 25 2b 28  48 25 2a 36 30 29 29 2a  |S%+(L%+(H%*60))*|
00000710  36 30 29 2a 31 30 30 3a  e5 8d 74 56 40 0d 02 08  |60)*100:..tV@...|
00000720  05 20 0d 02 12 06 eb 34  0d 02 1c 12 f1 27 22 50  |. .....4.....'"P|
00000730  6c 61 79 20 74 61 70 65  22 27 0d 02 26 07 d7 22  |lay tape"'..&.."|
00000740  22 0d 02 30 05 20 0d 02  3a 3a dd f2 53 20 ec 30  |"..0. ..::..S .0|
00000750  2c 30 3a f0 36 2c 33 2e  32 2a 28 73 69 6e 25 3f  |,0:.6,3.2*(sin%?|
00000760  53 25 2d 31 30 30 29 2c  33 2e 32 2a 28 73 69 6e  |S%-100),3.2*(sin|
00000770  25 3f 28 53 25 2b 31 35  29 2d 31 30 30 29 3a e1  |%?(S%+15)-100):.|
00000780  0d 02 44 05 20 0d 02 4e  6c dd f2 4d 20 ec 30 2c  |..D. ..Nl..M .0,|
00000790  30 3a ec 31 2e 35 2a 28  73 69 6e 25 3f 28 4c 25  |0:.1.5*(sin%?(L%|
000007a0  2b 35 39 29 2d 31 30 30  29 2c 31 2e 35 2a 28 73  |+59)-100),1.5*(s|
000007b0  69 6e 25 3f 28 4c 25 2b  31 34 29 2d 31 30 30 29  |in%?(L%+14)-100)|
000007c0  3a f0 38 36 2c 31 2e 35  2a 28 73 69 6e 25 3f 28  |:.86,1.5*(sin%?(|
000007d0  4c 25 2b 31 29 2d 31 30  30 29 2c 31 2e 35 2a 28  |L%+1)-100),1.5*(|
000007e0  73 69 6e 25 3f 28 4c 25  2b 31 36 29 2d 31 30 30  |sin%?(L%+16)-100|
000007f0  29 0d 02 58 5f f0 36 2c  31 2e 35 2a 28 73 69 6e  |)..X_.6,1.5*(sin|
00000800  25 3f 28 4c 25 2b 35 39  29 2d 31 30 30 29 2c 31  |%?(L%+59)-100),1|
00000810  2e 35 2a 28 73 69 6e 25  3f 28 4c 25 2b 31 34 29  |.5*(sin%?(L%+14)|
00000820  2d 31 30 30 29 3a f0 38  36 2c 33 2a 28 73 69 6e  |-100):.86,3*(sin|
00000830  25 3f 4c 25 2d 31 30 30  29 2c 33 2a 28 73 69 6e  |%?L%-100),3*(sin|
00000840  25 3f 28 4c 25 2b 31 35  29 2d 31 30 30 29 3a e1  |%?(L%+15)-100):.|
00000850  0d 02 62 05 20 0d 02 6c  ad dd f2 48 20 47 25 3d  |..b. ..l...H G%=|
00000860  48 25 83 36 30 3a ec 30  2c 30 3a ec 73 69 6e 25  |H%.60:.0,0:.sin%|
00000870  3f 28 47 25 2b 35 38 29  2d 31 30 30 2c 73 69 6e  |?(G%+58)-100,sin|
00000880  25 3f 28 47 25 2b 31 33  29 2d 31 30 30 3a f0 38  |%?(G%+13)-100:.8|
00000890  36 2c 73 69 6e 25 3f 28  47 25 2b 32 29 2d 31 30  |6,sin%?(G%+2)-10|
000008a0  30 2c 73 69 6e 25 3f 28  47 25 2b 31 37 29 2d 31  |0,sin%?(G%+17)-1|
000008b0  30 30 3a f0 36 2c 73 69  6e 25 3f 28 47 25 2b 35  |00:.6,sin%?(G%+5|
000008c0  38 29 2d 31 30 30 2c 73  69 6e 25 3f 28 47 25 2b  |8)-100,sin%?(G%+|
000008d0  31 33 29 2d 31 30 30 3a  f0 38 36 2c 32 2a 28 73  |13)-100:.86,2*(s|
000008e0  69 6e 25 3f 47 25 2d 31  30 30 29 2c 32 2a 28 73  |in%?G%-100),2*(s|
000008f0  69 6e 25 3f 28 47 25 2b  31 35 29 2d 31 30 30 29  |in%?(G%+15)-100)|
00000900  3a e1 0d 02 76 05 20 0d  02 80 2d dd f2 50 20 f1  |:...v. ...-..P .|
00000910  48 25 81 35 22 3a 22 3b  4c 25 81 31 30 3b 4c 25  |H%.5":";L%.10;L%|
00000920  83 31 30 22 3a 22 3b 53  25 81 31 30 3b 53 25 83  |.10":";S%.10;S%.|
00000930  31 30 3a e1 0d 02 8a 05  20 0d 02 94 1a dd f2 4f  |10:..... ......O|
00000940  46 46 20 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |FF .23,1,0;0;0;0|
00000950  3b 3a e1 0d 02 9e 05 20  0d 02 a8 41 dd f2 53 45  |;:..... ...A..SE|
00000960  54 20 54 25 3d 91 3a 53  25 3d 28 54 25 81 31 30  |T T%=.:S%=(T%.10|
00000970  30 29 83 36 30 3a 4c 25  3d 28 54 25 81 36 30 30  |0).60:L%=(T%.600|
00000980  30 29 83 36 30 3a 48 25  3d 28 54 25 81 37 32 30  |0).60:H%=(T%.720|
00000990  30 30 29 83 31 32 30 3a  e1 0d 02 b2 05 20 0d 02  |00).120:..... ..|
000009a0  bc b4 dd f2 44 42 4c 28  41 24 2c 79 25 29 24 4d  |....DBL(A$,y%)$M|
000009b0  41 50 3d c4 32 35 35 2c  bd 30 29 3a 4d 41 50 3f  |AP=.255,.0):MAP?|
000009c0  32 35 35 3d 30 3a 43 48  41 52 50 54 52 3d 32 32  |255=0:CHARPTR=22|
000009d0  34 3a 42 24 3d 22 22 3a  43 24 3d 22 22 3a e3 43  |4:B$="":C$="":.C|
000009e0  48 25 3d 31 b8 a9 41 24  3a 4b 25 3d a4 43 48 41  |H%=1..A$:K%=.CHA|
000009f0  52 28 97 c1 41 24 2c 43  48 25 2c 31 29 29 3a 42  |R(..A$,CH%,1)):B|
00000a00  24 3d 42 24 2b bd 4b 25  3a 43 24 3d 43 24 2b bd  |$=B$+.K%:C$=C$+.|
00000a10  28 4b 25 2b 31 29 3a ed  3a 4b 25 3d 31 39 2d a9  |(K%+1):.:K%=19-.|
00000a20  41 24 2f 32 3a 44 42 4c  24 3d bd 33 31 2b bd 4b  |A$/2:DBL$=.31+.K|
00000a30  25 2b bd 79 25 2b 42 24  2b bd 33 31 2b bd 4b 25  |%+.y%+B$+.31+.K%|
00000a40  2b bd 28 79 25 2b 31 29  2b 43 24 3a f1 44 42 4c  |+.(y%+1)+C$:.DBL|
00000a50  24 3b 0d 02 c6 05 e1 0d  02 d0 05 20 0d 02 da bb  |$;......... ....|
00000a60  dd a4 43 48 41 52 28 43  25 29 e7 4d 41 50 3f 43  |..CHAR(C%).MAP?C|
00000a70  25 8c 3d 4d 41 50 3f 43  25 8b e7 43 48 41 52 50  |%.=MAP?C%..CHARP|
00000a80  54 52 3e 3d 32 35 36 fa  20 8b 4d 41 50 3f 43 25  |TR>=256. .MAP?C%|
00000a90  3d 43 48 41 52 50 54 52  3a 3f 42 4c 4f 43 4b 3d  |=CHARPTR:?BLOCK=|
00000aa0  43 25 3a 41 25 3d 31 30  3a 58 25 3d 42 4c 4f 43  |C%:A%=10:X%=BLOC|
00000ab0  4b 3a 59 25 3d 42 4c 4f  43 4b 20 81 20 32 35 36  |K:Y%=BLOCK . 256|
00000ac0  3a d6 6f 73 77 6f 72 64  3a e3 4a 25 3d 30 b8 31  |:.osword:.J%=0.1|
00000ad0  3a ef 32 33 2c 43 48 41  52 50 54 52 2b 4a 25 3a  |:.23,CHARPTR+J%:|
00000ae0  e3 49 25 3d 32 b8 39 3a  ef 42 4c 4f 43 4b 3f 28  |.I%=2.9:.BLOCK?(|
00000af0  4a 25 2a 34 2b 49 25 81  32 29 3a ed 2c 3a 43 48  |J%*4+I%.2):.,:CH|
00000b00  41 52 50 54 52 3d 43 48  41 52 50 54 52 2b 32 3a  |ARPTR=CHARPTR+2:|
00000b10  3d 4d 41 50 3f 43 25 0d  ff                       |=MAP?C%..|
00000b19