� TIME IN ENGLISH
� By Malcolm McKay
� (c) The Micro User
( �=&2F33:*LOAD C.mnuscre 2F33
2�>&E00 �DVD
<�:�6:�i
F�:�22,1:�cf:�131:�:�mnu
P
�:*FX15,1
Z&G$=�:�G$="1"�G$="!"�G$="2"�G$=""""
d!�19,2,4,0,0,0,26,19,3,7,0,0,0
n�G$="1"�G$="!"�dmo � �tst
x��
���cf:�23,1,0;0;0;0;:�
���cn:�23,1,1;0;0;0;:�
�b��ch:�1,5,0,1,1,1,0,1,100,-1,-1,-1,100,99:��t`@:� N%=1�8:�D%:�1,1,100-D%,15+(-1*(N%=4)*10):�:�
��0,16,8,36,36,8,0,16
���tst:*KEY0
�SC%=0:�131:�:�fc
�;�0,0:�224,320:�240,320:�85,224,960:�240,960:�85,240,320
�I�216,964:�248,964:�248,968:�216,968:�224,384:�32,384:�32,512:�224,512
�:�0,131:�220,508:�36,508:�87,220,388:�36,388:�87,36,508
�=�0,129:�120,508:�140,508:�87,140,388:�120,388:�87,120,508
��220,438:�36,438:�87,36,458:�220,438:�87,220,458:�220,508:�7,148,466:�36,508:�7,112,466:�36,388:�7,112,430:�220,388:�7,148,430
�d�0,130:�204,508:�148,474:�87,148,508:�220,466:�220,500:�87,164,466:�220,430:�220,396:�87,164,430
���148,388:�204,388:�87,148,420:�36,466:�36,500:�87,96,466:�52,508:�112,508:�87,112,474:�36,430:�36,396:�87,100,430:�44,388:�112,388:�87,112,422

�=0

=� T%=1 � 10:dm=�(-(�+�)):H%=�(12):G%=H%:�(1)>.5 G%=H%+12

"M%=�(12)+1:M%=M%-1:�dgt:�ct(2)

",�hs(0):�0:�0,24)T%;". What time is it?"

,#A$=�in(39,0,26,ll$):�A$=""�TlA

6�(�A$,1))=32 A$=�A$,�A$-1)

@r�t$="midday / twelve o'clock / (twelve) noon"�A$="midday"�A$="twelve o'clock"�A$="twelve noon"�A$="noon" A$=t$

Ji�t$="twelve o'clock / (twelve) midnight"�A$="twelve o'clock"�A$="twelve midnight"�A$="midnight" A$=t$

T7�A$=t$:�1,2,70,7:SC%=SC%+1:Y%=127-(SC%-1)*11:� &900

^K�A$<>t$:�7:�130:�0,27)�(40);:�129:�0,28)�(40);:�3:�(39-�t$)/2,28)t$;

hZ�A$<>t$:�130:�0,29)�(40);:�130:�0,30)�(40);:�8,30)"PRESS A KEY TO CONTINUE":*FX15,1

r�A$<>t$:G=�:�131:�0

|*�0,24)�(240);�(40);:� T%<>10 � �hs(3)

�$�:t%=�(�/100+.5):�=0:���>100:�ch

�dS$="YOUR SCORE: "+�SC%+"/10":T$="TIME TAKEN: "+�t%+" secs.":�(39-�S$)/2,25)S$;�(39-�T$)/2,27)T$

�,�8,30)"PRESS A KEY TO CONTINUE":*FX15,1

�	G=�:�

�"��ct(F%):��DBD:� J%=1�H%:�h$:�

�
�M%>7 �h$

���DLD:� J%=1�M%:�m$:�

��m$="" h$=h$+" o'clock"

�t$=m$+h$

��t$="twelve o'clock"�G%=12 t$="midday / twelve o'clock / (twelve) noon":�snmn(1,3):��t$="twelve o'clock" t$=t$+" / (twelve) midnight":�snmn(3,2)� �snmn(0,0)

�.�F%=1 �3:�129:�0,24)�40;�(40-�t$)/2,24)t$

��

�!��dgt:H$=�H%:�H$=1 H$="0"+H$
�G%=24 H$="00"
$M$=�((M%-1)*5):� �M$=1 M$="0"+M$
.D$=H$+":"+M$:�24,544;448;720;496;:�0,128:�
&$�5:�556,484:�0,3:�D$:�4,26:�cf:�
0��dmo:�131:�:�fc:�3:�130
:N�0,28)�40;"H=Advance Hours ";:�1:�"M=Advance Minutes ";:�3:�"Q=Quit";�40;
D"�0,23)�40;�0,25)�40:G%=1:M%=1
NH%=G%:�G%>12 H%=G%-12
X�G%>24 G%=1:H%=1
b�M%>12 M%=1
l(�ct(1):�dgt:�hs(0):G$=�get:�G$="Q" �
v
�hs(3)
�(�G$="M" M%=M%+1:G%=G%-(M%=13):� �DNB
��G$="H" G%=G%+1:� �DNB
�ݤget:�:*FX15,1
�)G$=�(��&DF):�G$="H"�G$="M"�G$="Q":=G$
�:��fc:�cx%,cy%:�cx%+r1%*P(2,60),cy%:�crc(cx%,cy%,r1%,0)
�B�cx%,cy%:�cx%+r2%*P(2,60),cy%:�crc(cx%,cy%,r2%,3):�5:�0,3:@%=0
�<�A%=1�12:X=cx%-16+320*�(A%*fact):Y=cy%+16+316*�(A%*fact)
��X,Y:�A%:�:�4:�0,0
�2�289,314:�989,314:�989,1014:�289,1014:�289,314
�2�293,318:�985,318:�985,1010:�293,1010:�293,318
��snmn(0,0):�
���snmn(scol%,mcol%)
�g�131:�scol%:�10,1)�128;�129;:� mcol%:�28,1)�132;:�scol%:�10,2)�130;�131;:�mcol%:�28,2)�133;�134
g�mcol%:�10,19)�132;:�scol%:�28,19)�128;�129;:�mcol%:�10,20)�133;�134;:�scol%:�28,20)�130;�131:�
F��hs(col%):�0,col%:�h(208,(H%+(M%-1)/12)*fact):�h(268,(M%-1)*fact)
m�col%=0 �cx%,cy%:�cx%+r3%*P(2,60),cy%:�crc(cx%,cy%,r3%,0):�cx%,cy%:�cx%+10*P(2,60),cy%:�crc(cx%,cy%,10,3)
 �
*=��h(r%,ang):�cx%,cy%:�cx%+20*�(ang+�/2),cy%+20*�(ang+�/2)
4n�85,cx%+r%*�(ang),cy%+r%*�(ang):�cx%+20*�(3*�/2+ang),cy%+20*�(3*�/2+ang):�85,cx%+r%*�(ang),cy%+r%*�(ang):�
>-��crc(x%,y%,r%,col%):�0,col%:�A%=1�60 � 2
HS�x%,y%:�85,x%+r%*P(2,A%),y%+r%*P(1,A%):�:�x%,y%:�85,x%+r%*P(2,1),y%+r%*P(1,1):�
R'��mnu:�A%=0�&CC:B%=A%?&2F33:�B%:�:�
\��i:*FX200,1
f@%=&405:*FX4,1
p*FX11,0
z(�2,10,15,0,0,4,0,0,25,-2,-5,-20,60,5
�6cx%=639:cy%=664:r1%=350:r2%=275:r3%=24:fact=2*�/12
�3A$=�39," "):h$="      ":m$=�17," "):t$=�23," ")
�'ll$="abcdefghijklmnopqrstuvwxyz-' "
�B� P(2,60):�A%=1�60:P(1,A%)=�(A%*fact/5):P(2,A%)=�(A%*fact/5):�
���tvC:� A%=1�70:�B%:�B%:�
�I�23,128,0,64,32,16,11,7,15,255,23,129,128,130,132,136,208,224,240,240
�@�23,130,15,15,7,11,17,33,65,1,23,131,255,240,224,208,8,4,2,0
�E�23,132,8,16,48,48,112,120,120,124,23,133,124,126,63,63,31,15,7,1
�%�23,134,0,0,0,128,192,240,255,248
��
�ݤin(m%,x%,y%,l$):*FX15
�&I$="":�:�cf:�x%,y%)I$;" ";:�8:�cn
�G%=�:�I$=""�G%=32 �d|C
��I$,1)=" "�G%=32 �d|C
(�G%=127��I$<>0 I$=�I$,�I$-1):m%=m%+1
�G%=13 �TxD� G%=(G% � 32)
$!�l$,�G%)>0 I$=I$+�G%:m%=m%-1
.�m%=0 G%=13
8"�G%=13:�cf:�x%,y%)I$;:�cf:=I$
BH� one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,one
L��"",five past ,ten past ,a quarter past ,twenty past ,twenty-five past ,half past ,twenty-five to ,twenty to ,a quarter to ,ten to ,five to ,""
V	*TAPE
`�*KEY0 CLS:PRINTTAB(12,10)|"Please wait!|":VDU21:N%=&E00:FORA%=PAGE TO TOP STEP4:!N%=!A%:N%=N%+4:NEXT|MPAGE=&E00|MEND|MGOTO60|M
j*FX138,0,128
�

00000000  0d 00 0a 15 f4 20 54 49  4d 45 20 49 4e 20 45 4e  |..... TIME IN EN|
00000010  47 4c 49 53 48 0d 00 14  16 f4 20 42 79 20 4d 61  |GLISH..... By Ma|
00000020  6c 63 6f 6c 6d 20 4d 63  4b 61 79 0d 00 1e 18 f4  |lcolm McKay.....|
00000030  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000040  73 65 72 0d 00 28 20 d3  3d 26 32 46 33 33 3a 2a  |ser..( .=&2F33:*|
00000050  4c 4f 41 44 20 43 2e 6d  6e 75 73 63 72 65 20 32  |LOAD C.mnuscre 2|
00000060  46 33 33 0d 00 32 11 e7  90 3e 26 45 30 30 20 e5  |F33..2...>&E00 .|
00000070  8d 44 56 44 0d 00 3c 0b  d8 3a ef 36 3a f2 69 0d  |.DVD..<..:.6:.i.|
00000080  00 46 1b f5 3a ef 32 32  2c 31 3a f2 63 66 3a fb  |.F..:.22,1:.cf:.|
00000090  31 33 31 3a db 3a f2 6d  6e 75 0d 00 50 0d f5 3a  |131:.:.mnu..P..:|
000000a0  2a 46 58 31 35 2c 31 0d  00 5a 26 47 24 3d be 3a  |*FX15,1..Z&G$=.:|
000000b0  fd 47 24 3d 22 31 22 84  47 24 3d 22 21 22 84 47  |.G$="1".G$="!".G|
000000c0  24 3d 22 32 22 84 47 24  3d 22 22 22 22 0d 00 64  |$="2".G$=""""..d|
000000d0  21 ef 31 39 2c 32 2c 34  2c 30 2c 30 2c 30 2c 32  |!.19,2,4,0,0,0,2|
000000e0  36 2c 31 39 2c 33 2c 37  2c 30 2c 30 2c 30 0d 00  |6,19,3,7,0,0,0..|
000000f0  6e 1d e7 47 24 3d 22 31  22 84 47 24 3d 22 21 22  |n..G$="1".G$="!"|
00000100  f2 64 6d 6f 20 8b 20 f2  74 73 74 0d 00 78 06 fd  |.dmo . .tst..x..|
00000110  a3 0d 00 82 19 dd f2 63  66 3a ef 32 33 2c 31 2c  |.......cf:.23,1,|
00000120  30 3b 30 3b 30 3b 30 3b  3a e1 0d 00 8c 19 dd f2  |0;0;0;0;:.......|
00000130  63 6e 3a ef 32 33 2c 31  2c 31 3b 30 3b 30 3b 30  |cn:.23,1,1;0;0;0|
00000140  3b 3a e1 0d 00 96 62 dd  f2 63 68 3a e2 31 2c 35  |;:....b..ch:.1,5|
00000150  2c 30 2c 31 2c 31 2c 31  2c 30 2c 31 2c 31 30 30  |,0,1,1,1,0,1,100|
00000160  2c 2d 31 2c 2d 31 2c 2d  31 2c 31 30 30 2c 39 39  |,-1,-1,-1,100,99|
00000170  3a f7 8d 74 60 40 3a e3  20 4e 25 3d 31 b8 38 3a  |:..t`@:. N%=1.8:|
00000180  f3 44 25 3a d4 31 2c 31  2c 31 30 30 2d 44 25 2c  |.D%:.1,1,100-D%,|
00000190  31 35 2b 28 2d 31 2a 28  4e 25 3d 34 29 2a 31 30  |15+(-1*(N%=4)*10|
000001a0  29 3a ed 3a e1 0d 00 a0  18 dc 30 2c 31 36 2c 38  |):.:......0,16,8|
000001b0  2c 33 36 2c 33 36 2c 38  2c 30 2c 31 36 0d 00 aa  |,36,36,8,0,16...|
000001c0  0f dd f2 74 73 74 3a 2a  4b 45 59 30 0d 00 b4 14  |...tst:*KEY0....|
000001d0  53 43 25 3d 30 3a fb 31  33 31 3a db 3a f2 66 63  |SC%=0:.131:.:.fc|
000001e0  0d 00 be 3b e6 30 2c 30  3a ec 32 32 34 2c 33 32  |...;.0,0:.224,32|
000001f0  30 3a ec 32 34 30 2c 33  32 30 3a f0 38 35 2c 32  |0:.240,320:.85,2|
00000200  32 34 2c 39 36 30 3a ec  32 34 30 2c 39 36 30 3a  |24,960:.240,960:|
00000210  f0 38 35 2c 32 34 30 2c  33 32 30 0d 00 c8 49 ec  |.85,240,320...I.|
00000220  32 31 36 2c 39 36 34 3a  df 32 34 38 2c 39 36 34  |216,964:.248,964|
00000230  3a ec 32 34 38 2c 39 36  38 3a df 32 31 36 2c 39  |:.248,968:.216,9|
00000240  36 38 3a ec 32 32 34 2c  33 38 34 3a df 33 32 2c  |68:.224,384:.32,|
00000250  33 38 34 3a df 33 32 2c  35 31 32 3a df 32 32 34  |384:.32,512:.224|
00000260  2c 35 31 32 0d 00 d2 3a  e6 30 2c 31 33 31 3a ec  |,512...:.0,131:.|
00000270  32 32 30 2c 35 30 38 3a  ec 33 36 2c 35 30 38 3a  |220,508:.36,508:|
00000280  f0 38 37 2c 32 32 30 2c  33 38 38 3a ec 33 36 2c  |.87,220,388:.36,|
00000290  33 38 38 3a f0 38 37 2c  33 36 2c 35 30 38 0d 00  |388:.87,36,508..|
000002a0  dc 3d e6 30 2c 31 32 39  3a ec 31 32 30 2c 35 30  |.=.0,129:.120,50|
000002b0  38 3a ec 31 34 30 2c 35  30 38 3a f0 38 37 2c 31  |8:.140,508:.87,1|
000002c0  34 30 2c 33 38 38 3a ec  31 32 30 2c 33 38 38 3a  |40,388:.120,388:|
000002d0  f0 38 37 2c 31 32 30 2c  35 30 38 0d 00 e6 82 ec  |.87,120,508.....|
000002e0  32 32 30 2c 34 33 38 3a  ec 33 36 2c 34 33 38 3a  |220,438:.36,438:|
000002f0  f0 38 37 2c 33 36 2c 34  35 38 3a ec 32 32 30 2c  |.87,36,458:.220,|
00000300  34 33 38 3a f0 38 37 2c  32 32 30 2c 34 35 38 3a  |438:.87,220,458:|
00000310  ec 32 32 30 2c 35 30 38  3a f0 37 2c 31 34 38 2c  |.220,508:.7,148,|
00000320  34 36 36 3a ec 33 36 2c  35 30 38 3a f0 37 2c 31  |466:.36,508:.7,1|
00000330  31 32 2c 34 36 36 3a ec  33 36 2c 33 38 38 3a f0  |12,466:.36,388:.|
00000340  37 2c 31 31 32 2c 34 33  30 3a ec 32 32 30 2c 33  |7,112,430:.220,3|
00000350  38 38 3a f0 37 2c 31 34  38 2c 34 33 30 0d 00 f0  |88:.7,148,430...|
00000360  64 e6 30 2c 31 33 30 3a  ec 32 30 34 2c 35 30 38  |d.0,130:.204,508|
00000370  3a ec 31 34 38 2c 34 37  34 3a f0 38 37 2c 31 34  |:.148,474:.87,14|
00000380  38 2c 35 30 38 3a ec 32  32 30 2c 34 36 36 3a ec  |8,508:.220,466:.|
00000390  32 32 30 2c 35 30 30 3a  f0 38 37 2c 31 36 34 2c  |220,500:.87,164,|
000003a0  34 36 36 3a ec 32 32 30  2c 34 33 30 3a ec 32 32  |466:.220,430:.22|
000003b0  30 2c 33 39 36 3a f0 38  37 2c 31 36 34 2c 34 33  |0,396:.87,164,43|
000003c0  30 0d 00 fa 92 ec 31 34  38 2c 33 38 38 3a ec 32  |0.....148,388:.2|
000003d0  30 34 2c 33 38 38 3a f0  38 37 2c 31 34 38 2c 34  |04,388:.87,148,4|
000003e0  32 30 3a ec 33 36 2c 34  36 36 3a ec 33 36 2c 35  |20:.36,466:.36,5|
000003f0  30 30 3a f0 38 37 2c 39  36 2c 34 36 36 3a ec 35  |00:.87,96,466:.5|
00000400  32 2c 35 30 38 3a ec 31  31 32 2c 35 30 38 3a f0  |2,508:.112,508:.|
00000410  38 37 2c 31 31 32 2c 34  37 34 3a ec 33 36 2c 34  |87,112,474:.36,4|
00000420  33 30 3a ec 33 36 2c 33  39 36 3a f0 38 37 2c 31  |30:.36,396:.87,1|
00000430  30 30 2c 34 33 30 3a ec  34 34 2c 33 38 38 3a ec  |00,430:.44,388:.|
00000440  31 31 32 2c 33 38 38 3a  f0 38 37 2c 31 31 32 2c  |112,388:.87,112,|
00000450  34 32 32 0d 01 04 07 d1  3d 30 0d 01 0e 3d e3 20  |422.....=0...=. |
00000460  54 25 3d 31 20 b8 20 31  30 3a 64 6d 3d b3 28 2d  |T%=1 . 10:dm=.(-|
00000470  28 91 2b b3 29 29 3a 48  25 3d b3 28 31 32 29 3a  |(.+.)):H%=.(12):|
00000480  47 25 3d 48 25 3a e7 b3  28 31 29 3e 2e 35 20 47  |G%=H%:..(1)>.5 G|
00000490  25 3d 48 25 2b 31 32 0d  01 18 22 4d 25 3d b3 28  |%=H%+12..."M%=.(|
000004a0  31 32 29 2b 31 3a 4d 25  3d 4d 25 2d 31 3a f2 64  |12)+1:M%=M%-1:.d|
000004b0  67 74 3a f2 63 74 28 32  29 0d 01 22 2c f2 68 73  |gt:.ct(2)..",.hs|
000004c0  28 30 29 3a fb 30 3a f1  8a 30 2c 32 34 29 54 25  |(0):.0:..0,24)T%|
000004d0  3b 22 2e 20 57 68 61 74  20 74 69 6d 65 20 69 73  |;". What time is|
000004e0  20 69 74 3f 22 0d 01 2c  23 41 24 3d a4 69 6e 28  | it?"..,#A$=.in(|
000004f0  33 39 2c 30 2c 32 36 2c  6c 6c 24 29 3a e7 41 24  |39,0,26,ll$):.A$|
00000500  3d 22 22 e5 8d 54 6c 41  0d 01 36 1f e7 97 28 c2  |=""..TlA..6...(.|
00000510  41 24 2c 31 29 29 3d 33  32 20 41 24 3d c0 41 24  |A$,1))=32 A$=.A$|
00000520  2c a9 41 24 2d 31 29 0d  01 40 72 e7 74 24 3d 22  |,.A$-1)..@r.t$="|
00000530  6d 69 64 64 61 79 20 2f  20 74 77 65 6c 76 65 20  |midday / twelve |
00000540  6f 27 63 6c 6f 63 6b 20  2f 20 28 74 77 65 6c 76  |o'clock / (twelv|
00000550  65 29 20 6e 6f 6f 6e 22  80 41 24 3d 22 6d 69 64  |e) noon".A$="mid|
00000560  64 61 79 22 84 41 24 3d  22 74 77 65 6c 76 65 20  |day".A$="twelve |
00000570  6f 27 63 6c 6f 63 6b 22  84 41 24 3d 22 74 77 65  |o'clock".A$="twe|
00000580  6c 76 65 20 6e 6f 6f 6e  22 84 41 24 3d 22 6e 6f  |lve noon".A$="no|
00000590  6f 6e 22 20 41 24 3d 74  24 0d 01 4a 69 e7 74 24  |on" A$=t$..Ji.t$|
000005a0  3d 22 74 77 65 6c 76 65  20 6f 27 63 6c 6f 63 6b  |="twelve o'clock|
000005b0  20 2f 20 28 74 77 65 6c  76 65 29 20 6d 69 64 6e  | / (twelve) midn|
000005c0  69 67 68 74 22 80 41 24  3d 22 74 77 65 6c 76 65  |ight".A$="twelve|
000005d0  20 6f 27 63 6c 6f 63 6b  22 84 41 24 3d 22 74 77  | o'clock".A$="tw|
000005e0  65 6c 76 65 20 6d 69 64  6e 69 67 68 74 22 84 41  |elve midnight".A|
000005f0  24 3d 22 6d 69 64 6e 69  67 68 74 22 20 41 24 3d  |$="midnight" A$=|
00000600  74 24 0d 01 54 37 e7 41  24 3d 74 24 3a d4 31 2c  |t$..T7.A$=t$:.1,|
00000610  32 2c 37 30 2c 37 3a 53  43 25 3d 53 43 25 2b 31  |2,70,7:SC%=SC%+1|
00000620  3a 59 25 3d 31 32 37 2d  28 53 43 25 2d 31 29 2a  |:Y%=127-(SC%-1)*|
00000630  31 31 3a d6 20 26 39 30  30 0d 01 5e 4b e7 41 24  |11:. &900..^K.A$|
00000640  3c 3e 74 24 3a ef 37 3a  fb 31 33 30 3a f1 8a 30  |<>t$:.7:.130:..0|
00000650  2c 32 37 29 89 28 34 30  29 3b 3a fb 31 32 39 3a  |,27).(40);:.129:|
00000660  f1 8a 30 2c 32 38 29 89  28 34 30 29 3b 3a fb 33  |..0,28).(40);:.3|
00000670  3a f1 8a 28 33 39 2d a9  74 24 29 2f 32 2c 32 38  |:..(39-.t$)/2,28|
00000680  29 74 24 3b 0d 01 68 5a  e7 41 24 3c 3e 74 24 3a  |)t$;..hZ.A$<>t$:|
00000690  fb 31 33 30 3a f1 8a 30  2c 32 39 29 89 28 34 30  |.130:..0,29).(40|
000006a0  29 3b 3a fb 31 33 30 3a  f1 8a 30 2c 33 30 29 89  |);:.130:..0,30).|
000006b0  28 34 30 29 3b 3a f1 8a  38 2c 33 30 29 22 50 52  |(40);:..8,30)"PR|
000006c0  45 53 53 20 41 20 4b 45  59 20 54 4f 20 43 4f 4e  |ESS A KEY TO CON|
000006d0  54 49 4e 55 45 22 3a 2a  46 58 31 35 2c 31 0d 01  |TINUE":*FX15,1..|
000006e0  72 17 e7 41 24 3c 3e 74  24 3a 47 3d a5 3a fb 31  |r..A$<>t$:G=.:.1|
000006f0  33 31 3a fb 30 0d 01 7c  2a f1 8a 30 2c 32 34 29  |31:.0..|*..0,24)|
00000700  89 28 32 34 30 29 3b 89  28 34 30 29 3b 3a e7 20  |.(240);.(40);:. |
00000710  54 25 3c 3e 31 30 20 8c  20 f2 68 73 28 33 29 0d  |T%<>10 . .hs(3).|
00000720  01 86 24 ed 3a 74 25 3d  a8 28 91 2f 31 30 30 2b  |..$.:t%=.(./100+|
00000730  2e 35 29 3a d1 3d 30 3a  f5 fd 91 3e 31 30 30 3a  |.5):.=0:...>100:|
00000740  f2 63 68 0d 01 90 64 53  24 3d 22 59 4f 55 52 20  |.ch...dS$="YOUR |
00000750  53 43 4f 52 45 3a 20 22  2b c3 53 43 25 2b 22 2f  |SCORE: "+.SC%+"/|
00000760  31 30 22 3a 54 24 3d 22  54 49 4d 45 20 54 41 4b  |10":T$="TIME TAK|
00000770  45 4e 3a 20 22 2b c3 74  25 2b 22 20 73 65 63 73  |EN: "+.t%+" secs|
00000780  2e 22 3a f1 8a 28 33 39  2d a9 53 24 29 2f 32 2c  |.":..(39-.S$)/2,|
00000790  32 35 29 53 24 3b 8a 28  33 39 2d a9 54 24 29 2f  |25)S$;.(39-.T$)/|
000007a0  32 2c 32 37 29 54 24 0d  01 9a 2c f1 8a 38 2c 33  |2,27)T$...,..8,3|
000007b0  30 29 22 50 52 45 53 53  20 41 20 4b 45 59 20 54  |0)"PRESS A KEY T|
000007c0  4f 20 43 4f 4e 54 49 4e  55 45 22 3a 2a 46 58 31  |O CONTINUE":*FX1|
000007d0  35 2c 31 0d 01 a4 09 47  3d a5 3a e1 0d 01 ae 22  |5,1....G=.:...."|
000007e0  dd f2 63 74 28 46 25 29  3a f7 8d 44 42 44 3a e3  |..ct(F%):..DBD:.|
000007f0  20 4a 25 3d 31 b8 48 25  3a f3 68 24 3a ed 0d 01  | J%=1.H%:.h$:...|
00000800  b8 0d e7 4d 25 3e 37 20  f3 68 24 0d 01 c2 19 f7  |...M%>7 .h$.....|
00000810  8d 44 4c 44 3a e3 20 4a  25 3d 31 b8 4d 25 3a f3  |.DLD:. J%=1.M%:.|
00000820  6d 24 3a ed 0d 01 cc 1b  e7 6d 24 3d 22 22 20 68  |m$:......m$="" h|
00000830  24 3d 68 24 2b 22 20 6f  27 63 6c 6f 63 6b 22 0d  |$=h$+" o'clock".|
00000840  01 d6 0c 74 24 3d 6d 24  2b 68 24 0d 01 e0 a0 e7  |...t$=m$+h$.....|
00000850  74 24 3d 22 74 77 65 6c  76 65 20 6f 27 63 6c 6f  |t$="twelve o'clo|
00000860  63 6b 22 80 47 25 3d 31  32 20 74 24 3d 22 6d 69  |ck".G%=12 t$="mi|
00000870  64 64 61 79 20 2f 20 74  77 65 6c 76 65 20 6f 27  |dday / twelve o'|
00000880  63 6c 6f 63 6b 20 2f 20  28 74 77 65 6c 76 65 29  |clock / (twelve)|
00000890  20 6e 6f 6f 6e 22 3a f2  73 6e 6d 6e 28 31 2c 33  | noon":.snmn(1,3|
000008a0  29 3a 8b e7 74 24 3d 22  74 77 65 6c 76 65 20 6f  |):..t$="twelve o|
000008b0  27 63 6c 6f 63 6b 22 20  74 24 3d 74 24 2b 22 20  |'clock" t$=t$+" |
000008c0  2f 20 28 74 77 65 6c 76  65 29 20 6d 69 64 6e 69  |/ (twelve) midni|
000008d0  67 68 74 22 3a f2 73 6e  6d 6e 28 33 2c 32 29 8b  |ght":.snmn(3,2).|
000008e0  20 f2 73 6e 6d 6e 28 30  2c 30 29 0d 01 ea 2e e7  | .snmn(0,0).....|
000008f0  46 25 3d 31 20 fb 33 3a  fb 31 32 39 3a f1 8a 30  |F%=1 .3:.129:..0|
00000900  2c 32 34 29 89 34 30 3b  8a 28 34 30 2d a9 74 24  |,24).40;.(40-.t$|
00000910  29 2f 32 2c 32 34 29 74  24 0d 01 f4 05 e1 0d 01  |)/2,24)t$.......|
00000920  fe 21 dd f2 64 67 74 3a  48 24 3d c3 48 25 3a e7  |.!..dgt:H$=.H%:.|
00000930  a9 48 24 3d 31 20 48 24  3d 22 30 22 2b 48 24 0d  |.H$=1 H$="0"+H$.|
00000940  02 08 12 e7 47 25 3d 32  34 20 48 24 3d 22 30 30  |....G%=24 H$="00|
00000950  22 0d 02 12 24 4d 24 3d  c3 28 28 4d 25 2d 31 29  |"...$M$=.((M%-1)|
00000960  2a 35 29 3a e7 20 a9 4d  24 3d 31 20 4d 24 3d 22  |*5):. .M$=1 M$="|
00000970  30 22 2b 4d 24 0d 02 1c  2e 44 24 3d 48 24 2b 22  |0"+M$....D$=H$+"|
00000980  3a 22 2b 4d 24 3a ef 32  34 2c 35 34 34 3b 34 34  |:"+M$:.24,544;44|
00000990  38 3b 37 32 30 3b 34 39  36 3b 3a e6 30 2c 31 32  |8;720;496;:.0,12|
000009a0  38 3a da 0d 02 26 24 ef  35 3a ec 35 35 36 2c 34  |8:...&$.5:.556,4|
000009b0  38 34 3a e6 30 2c 33 3a  f1 44 24 3a ef 34 2c 32  |84:.0,3:.D$:.4,2|
000009c0  36 3a f2 63 66 3a e1 0d  02 30 1c dd f2 64 6d 6f  |6:.cf:...0...dmo|
000009d0  3a fb 31 33 31 3a db 3a  f2 66 63 3a fb 33 3a fb  |:.131:.:.fc:.3:.|
000009e0  31 33 30 0d 02 3a 4e f1  8a 30 2c 32 38 29 89 34  |130..:N..0,28).4|
000009f0  30 3b 22 48 3d 41 64 76  61 6e 63 65 20 48 6f 75  |0;"H=Advance Hou|
00000a00  72 73 20 22 3b 3a fb 31  3a f1 22 4d 3d 41 64 76  |rs ";:.1:."M=Adv|
00000a10  61 6e 63 65 20 4d 69 6e  75 74 65 73 20 22 3b 3a  |ance Minutes ";:|
00000a20  fb 33 3a f1 22 51 3d 51  75 69 74 22 3b 89 34 30  |.3:."Q=Quit";.40|
00000a30  3b 0d 02 44 22 f1 8a 30  2c 32 33 29 89 34 30 3b  |;..D"..0,23).40;|
00000a40  8a 30 2c 32 35 29 89 34  30 3a 47 25 3d 31 3a 4d  |.0,25).40:G%=1:M|
00000a50  25 3d 31 0d 02 4e 19 48  25 3d 47 25 3a e7 47 25  |%=1..N.H%=G%:.G%|
00000a60  3e 31 32 20 48 25 3d 47  25 2d 31 32 0d 02 58 14  |>12 H%=G%-12..X.|
00000a70  e7 47 25 3e 32 34 20 47  25 3d 31 3a 48 25 3d 31  |.G%>24 G%=1:H%=1|
00000a80  0d 02 62 0f e7 4d 25 3e  31 32 20 4d 25 3d 31 0d  |..b..M%>12 M%=1.|
00000a90  02 6c 28 f2 63 74 28 31  29 3a f2 64 67 74 3a f2  |.l(.ct(1):.dgt:.|
00000aa0  68 73 28 30 29 3a 47 24  3d a4 67 65 74 3a e7 47  |hs(0):G$=.get:.G|
00000ab0  24 3d 22 51 22 20 e1 0d  02 76 0a f2 68 73 28 33  |$="Q" ...v..hs(3|
00000ac0  29 0d 02 80 28 e7 47 24  3d 22 4d 22 20 4d 25 3d  |)...(.G$="M" M%=|
00000ad0  4d 25 2b 31 3a 47 25 3d  47 25 2d 28 4d 25 3d 31  |M%+1:G%=G%-(M%=1|
00000ae0  33 29 3a e5 20 8d 44 4e  42 0d 02 8a 1a e7 47 24  |3):. .DNB.....G$|
00000af0  3d 22 48 22 20 47 25 3d  47 25 2b 31 3a e5 20 8d  |="H" G%=G%+1:. .|
00000b00  44 4e 42 0d 02 94 13 dd  a4 67 65 74 3a f5 3a 2a  |DNB......get:.:*|
00000b10  46 58 31 35 2c 31 0d 02  9e 29 47 24 3d bd 28 a5  |FX15,1...)G$=.(.|
00000b20  80 26 44 46 29 3a fd 47  24 3d 22 48 22 84 47 24  |.&DF):.G$="H".G$|
00000b30  3d 22 4d 22 84 47 24 3d  22 51 22 3a 3d 47 24 0d  |="M".G$="Q":=G$.|
00000b40  02 a8 3a dd f2 66 63 3a  ec 63 78 25 2c 63 79 25  |..:..fc:.cx%,cy%|
00000b50  3a ec 63 78 25 2b 72 31  25 2a 50 28 32 2c 36 30  |:.cx%+r1%*P(2,60|
00000b60  29 2c 63 79 25 3a f2 63  72 63 28 63 78 25 2c 63  |),cy%:.crc(cx%,c|
00000b70  79 25 2c 72 31 25 2c 30  29 0d 02 b2 42 ec 63 78  |y%,r1%,0)...B.cx|
00000b80  25 2c 63 79 25 3a ec 63  78 25 2b 72 32 25 2a 50  |%,cy%:.cx%+r2%*P|
00000b90  28 32 2c 36 30 29 2c 63  79 25 3a f2 63 72 63 28  |(2,60),cy%:.crc(|
00000ba0  63 78 25 2c 63 79 25 2c  72 32 25 2c 33 29 3a ef  |cx%,cy%,r2%,3):.|
00000bb0  35 3a e6 30 2c 33 3a 40  25 3d 30 0d 02 bc 3c e3  |5:.0,3:@%=0...<.|
00000bc0  41 25 3d 31 b8 31 32 3a  58 3d 63 78 25 2d 31 36  |A%=1.12:X=cx%-16|
00000bd0  2b 33 32 30 2a b5 28 41  25 2a 66 61 63 74 29 3a  |+320*.(A%*fact):|
00000be0  59 3d 63 79 25 2b 31 36  2b 33 31 36 2a 9b 28 41  |Y=cy%+16+316*.(A|
00000bf0  25 2a 66 61 63 74 29 0d  02 c6 16 ec 58 2c 59 3a  |%*fact).....X,Y:|
00000c00  f1 41 25 3a ed 3a ef 34  3a e6 30 2c 30 0d 02 d0  |.A%:.:.4:.0,0...|
00000c10  32 ec 32 38 39 2c 33 31  34 3a df 39 38 39 2c 33  |2.289,314:.989,3|
00000c20  31 34 3a df 39 38 39 2c  31 30 31 34 3a df 32 38  |14:.989,1014:.28|
00000c30  39 2c 31 30 31 34 3a df  32 38 39 2c 33 31 34 0d  |9,1014:.289,314.|
00000c40  02 da 32 ec 32 39 33 2c  33 31 38 3a df 39 38 35  |..2.293,318:.985|
00000c50  2c 33 31 38 3a df 39 38  35 2c 31 30 31 30 3a df  |,318:.985,1010:.|
00000c60  32 39 33 2c 31 30 31 30  3a df 32 39 33 2c 33 31  |293,1010:.293,31|
00000c70  38 0d 02 e4 10 f2 73 6e  6d 6e 28 30 2c 30 29 3a  |8.....snmn(0,0):|
00000c80  e1 0d 02 ee 17 dd f2 73  6e 6d 6e 28 73 63 6f 6c  |.......snmn(scol|
00000c90  25 2c 6d 63 6f 6c 25 29  0d 02 f8 67 fb 31 33 31  |%,mcol%)...g.131|
00000ca0  3a fb 73 63 6f 6c 25 3a  f1 8a 31 30 2c 31 29 bd  |:.scol%:..10,1).|
00000cb0  31 32 38 3b bd 31 32 39  3b 3a fb 20 6d 63 6f 6c  |128;.129;:. mcol|
00000cc0  25 3a f1 8a 32 38 2c 31  29 bd 31 33 32 3b 3a fb  |%:..28,1).132;:.|
00000cd0  73 63 6f 6c 25 3a f1 8a  31 30 2c 32 29 bd 31 33  |scol%:..10,2).13|
00000ce0  30 3b bd 31 33 31 3b 3a  fb 6d 63 6f 6c 25 3a f1  |0;.131;:.mcol%:.|
00000cf0  8a 32 38 2c 32 29 bd 31  33 33 3b bd 31 33 34 0d  |.28,2).133;.134.|
00000d00  03 02 67 fb 6d 63 6f 6c  25 3a f1 8a 31 30 2c 31  |..g.mcol%:..10,1|
00000d10  39 29 bd 31 33 32 3b 3a  fb 73 63 6f 6c 25 3a f1  |9).132;:.scol%:.|
00000d20  8a 32 38 2c 31 39 29 bd  31 32 38 3b bd 31 32 39  |.28,19).128;.129|
00000d30  3b 3a fb 6d 63 6f 6c 25  3a f1 8a 31 30 2c 32 30  |;:.mcol%:..10,20|
00000d40  29 bd 31 33 33 3b bd 31  33 34 3b 3a fb 73 63 6f  |).133;.134;:.sco|
00000d50  6c 25 3a f1 8a 32 38 2c  32 30 29 bd 31 33 30 3b  |l%:..28,20).130;|
00000d60  bd 31 33 31 3a e1 0d 03  0c 46 dd f2 68 73 28 63  |.131:....F..hs(c|
00000d70  6f 6c 25 29 3a e6 30 2c  63 6f 6c 25 3a f2 68 28  |ol%):.0,col%:.h(|
00000d80  32 30 38 2c 28 48 25 2b  28 4d 25 2d 31 29 2f 31  |208,(H%+(M%-1)/1|
00000d90  32 29 2a 66 61 63 74 29  3a f2 68 28 32 36 38 2c  |2)*fact):.h(268,|
00000da0  28 4d 25 2d 31 29 2a 66  61 63 74 29 0d 03 16 6d  |(M%-1)*fact)...m|
00000db0  e7 63 6f 6c 25 3d 30 20  ec 63 78 25 2c 63 79 25  |.col%=0 .cx%,cy%|
00000dc0  3a ec 63 78 25 2b 72 33  25 2a 50 28 32 2c 36 30  |:.cx%+r3%*P(2,60|
00000dd0  29 2c 63 79 25 3a f2 63  72 63 28 63 78 25 2c 63  |),cy%:.crc(cx%,c|
00000de0  79 25 2c 72 33 25 2c 30  29 3a ec 63 78 25 2c 63  |y%,r3%,0):.cx%,c|
00000df0  79 25 3a ec 63 78 25 2b  31 30 2a 50 28 32 2c 36  |y%:.cx%+10*P(2,6|
00000e00  30 29 2c 63 79 25 3a f2  63 72 63 28 63 78 25 2c  |0),cy%:.crc(cx%,|
00000e10  63 79 25 2c 31 30 2c 33  29 0d 03 20 05 e1 0d 03  |cy%,10,3).. ....|
00000e20  2a 3d dd f2 68 28 72 25  2c 61 6e 67 29 3a ec 63  |*=..h(r%,ang):.c|
00000e30  78 25 2c 63 79 25 3a ec  63 78 25 2b 32 30 2a b5  |x%,cy%:.cx%+20*.|
00000e40  28 61 6e 67 2b af 2f 32  29 2c 63 79 25 2b 32 30  |(ang+./2),cy%+20|
00000e50  2a 9b 28 61 6e 67 2b af  2f 32 29 0d 03 34 6e f0  |*.(ang+./2)..4n.|
00000e60  38 35 2c 63 78 25 2b 72  25 2a b5 28 61 6e 67 29  |85,cx%+r%*.(ang)|
00000e70  2c 63 79 25 2b 72 25 2a  9b 28 61 6e 67 29 3a ec  |,cy%+r%*.(ang):.|
00000e80  63 78 25 2b 32 30 2a b5  28 33 2a af 2f 32 2b 61  |cx%+20*.(3*./2+a|
00000e90  6e 67 29 2c 63 79 25 2b  32 30 2a 9b 28 33 2a af  |ng),cy%+20*.(3*.|
00000ea0  2f 32 2b 61 6e 67 29 3a  f0 38 35 2c 63 78 25 2b  |/2+ang):.85,cx%+|
00000eb0  72 25 2a b5 28 61 6e 67  29 2c 63 79 25 2b 72 25  |r%*.(ang),cy%+r%|
00000ec0  2a 9b 28 61 6e 67 29 3a  e1 0d 03 3e 2d dd f2 63  |*.(ang):...>-..c|
00000ed0  72 63 28 78 25 2c 79 25  2c 72 25 2c 63 6f 6c 25  |rc(x%,y%,r%,col%|
00000ee0  29 3a e6 30 2c 63 6f 6c  25 3a e3 41 25 3d 31 b8  |):.0,col%:.A%=1.|
00000ef0  36 30 20 88 20 32 0d 03  48 53 ec 78 25 2c 79 25  |60 . 2..HS.x%,y%|
00000f00  3a f0 38 35 2c 78 25 2b  72 25 2a 50 28 32 2c 41  |:.85,x%+r%*P(2,A|
00000f10  25 29 2c 79 25 2b 72 25  2a 50 28 31 2c 41 25 29  |%),y%+r%*P(1,A%)|
00000f20  3a ed 3a ec 78 25 2c 79  25 3a f0 38 35 2c 78 25  |:.:.x%,y%:.85,x%|
00000f30  2b 72 25 2a 50 28 32 2c  31 29 2c 79 25 2b 72 25  |+r%*P(2,1),y%+r%|
00000f40  2a 50 28 31 2c 31 29 3a  e1 0d 03 52 27 dd f2 6d  |*P(1,1):...R'..m|
00000f50  6e 75 3a e3 41 25 3d 30  b8 26 43 43 3a 42 25 3d  |nu:.A%=0.&CC:B%=|
00000f60  41 25 3f 26 32 46 33 33  3a ef 42 25 3a ed 3a e1  |A%?&2F33:.B%:.:.|
00000f70  0d 03 5c 10 dd f2 69 3a  2a 46 58 32 30 30 2c 31  |..\...i:*FX200,1|
00000f80  0d 03 66 12 40 25 3d 26  34 30 35 3a 2a 46 58 34  |..f.@%=&405:*FX4|
00000f90  2c 31 0d 03 70 0b 2a 46  58 31 31 2c 30 0d 03 7a  |,1..p.*FX11,0..z|
00000fa0  28 e2 32 2c 31 30 2c 31  35 2c 30 2c 30 2c 34 2c  |(.2,10,15,0,0,4,|
00000fb0  30 2c 30 2c 32 35 2c 2d  32 2c 2d 35 2c 2d 32 30  |0,0,25,-2,-5,-20|
00000fc0  2c 36 30 2c 35 0d 03 84  36 63 78 25 3d 36 33 39  |,60,5...6cx%=639|
00000fd0  3a 63 79 25 3d 36 36 34  3a 72 31 25 3d 33 35 30  |:cy%=664:r1%=350|
00000fe0  3a 72 32 25 3d 32 37 35  3a 72 33 25 3d 32 34 3a  |:r2%=275:r3%=24:|
00000ff0  66 61 63 74 3d 32 2a af  2f 31 32 0d 03 8e 33 41  |fact=2*./12...3A|
00001000  24 3d c4 33 39 2c 22 20  22 29 3a 68 24 3d 22 20  |$=.39," "):h$=" |
00001010  20 20 20 20 20 22 3a 6d  24 3d c4 31 37 2c 22 20  |     ":m$=.17," |
00001020  22 29 3a 74 24 3d c4 32  33 2c 22 20 22 29 0d 03  |"):t$=.23," ")..|
00001030  98 27 6c 6c 24 3d 22 61  62 63 64 65 66 67 68 69  |.'ll$="abcdefghi|
00001040  6a 6b 6c 6d 6e 6f 70 71  72 73 74 75 76 77 78 79  |jklmnopqrstuvwxy|
00001050  7a 2d 27 20 22 0d 03 a2  42 de 20 50 28 32 2c 36  |z-' "...B. P(2,6|
00001060  30 29 3a e3 41 25 3d 31  b8 36 30 3a 50 28 31 2c  |0):.A%=1.60:P(1,|
00001070  41 25 29 3d b5 28 41 25  2a 66 61 63 74 2f 35 29  |A%)=.(A%*fact/5)|
00001080  3a 50 28 32 2c 41 25 29  3d 9b 28 41 25 2a 66 61  |:P(2,A%)=.(A%*fa|
00001090  63 74 2f 35 29 3a ed 0d  03 ac 1d f7 8d 74 76 43  |ct/5):.......tvC|
000010a0  3a e3 20 41 25 3d 31 b8  37 30 3a f3 42 25 3a ef  |:. A%=1.70:.B%:.|
000010b0  42 25 3a ed 0d 03 b6 49  dc 32 33 2c 31 32 38 2c  |B%:....I.23,128,|
000010c0  30 2c 36 34 2c 33 32 2c  31 36 2c 31 31 2c 37 2c  |0,64,32,16,11,7,|
000010d0  31 35 2c 32 35 35 2c 32  33 2c 31 32 39 2c 31 32  |15,255,23,129,12|
000010e0  38 2c 31 33 30 2c 31 33  32 2c 31 33 36 2c 32 30  |8,130,132,136,20|
000010f0  38 2c 32 32 34 2c 32 34  30 2c 32 34 30 0d 03 c0  |8,224,240,240...|
00001100  40 dc 32 33 2c 31 33 30  2c 31 35 2c 31 35 2c 37  |@.23,130,15,15,7|
00001110  2c 31 31 2c 31 37 2c 33  33 2c 36 35 2c 31 2c 32  |,11,17,33,65,1,2|
00001120  33 2c 31 33 31 2c 32 35  35 2c 32 34 30 2c 32 32  |3,131,255,240,22|
00001130  34 2c 32 30 38 2c 38 2c  34 2c 32 2c 30 0d 03 ca  |4,208,8,4,2,0...|
00001140  45 dc 32 33 2c 31 33 32  2c 38 2c 31 36 2c 34 38  |E.23,132,8,16,48|
00001150  2c 34 38 2c 31 31 32 2c  31 32 30 2c 31 32 30 2c  |,48,112,120,120,|
00001160  31 32 34 2c 32 33 2c 31  33 33 2c 31 32 34 2c 31  |124,23,133,124,1|
00001170  32 36 2c 36 33 2c 36 33  2c 33 31 2c 31 35 2c 37  |26,63,63,31,15,7|
00001180  2c 31 0d 03 d4 25 dc 32  33 2c 31 33 34 2c 30 2c  |,1...%.23,134,0,|
00001190  30 2c 30 2c 31 32 38 2c  31 39 32 2c 32 34 30 2c  |0,0,128,192,240,|
000011a0  32 35 35 2c 32 34 38 0d  03 de 05 e1 0d 03 e8 1b  |255,248.........|
000011b0  dd a4 69 6e 28 6d 25 2c  78 25 2c 79 25 2c 6c 24  |..in(m%,x%,y%,l$|
000011c0  29 3a 2a 46 58 31 35 0d  03 f2 26 49 24 3d 22 22  |):*FX15...&I$=""|
000011d0  3a f5 3a f2 63 66 3a f1  8a 78 25 2c 79 25 29 49  |:.:.cf:..x%,y%)I|
000011e0  24 3b 22 20 22 3b 3a ef  38 3a f2 63 6e 0d 03 fc  |$;" ";:.8:.cn...|
000011f0  1b 47 25 3d a5 3a e7 49  24 3d 22 22 80 47 25 3d  |.G%=.:.I$="".G%=|
00001200  33 32 20 e5 8d 64 7c 43  0d 04 06 1b e7 c2 49 24  |32 ..d|C......I$|
00001210  2c 31 29 3d 22 20 22 80  47 25 3d 33 32 20 e5 8d  |,1)=" ".G%=32 ..|
00001220  64 7c 43 0d 04 10 28 e7  47 25 3d 31 32 37 80 a9  |d|C...(.G%=127..|
00001230  49 24 3c 3e 30 20 49 24  3d c0 49 24 2c a9 49 24  |I$<>0 I$=.I$,.I$|
00001240  2d 31 29 3a 6d 25 3d 6d  25 2b 31 0d 04 1a 1e e7  |-1):m%=m%+1.....|
00001250  47 25 3d 31 33 20 e5 8d  54 78 44 8b 20 47 25 3d  |G%=13 ..TxD. G%=|
00001260  28 47 25 20 84 20 33 32  29 0d 04 24 21 e7 a7 6c  |(G% . 32)..$!..l|
00001270  24 2c bd 47 25 29 3e 30  20 49 24 3d 49 24 2b bd  |$,.G%)>0 I$=I$+.|
00001280  47 25 3a 6d 25 3d 6d 25  2d 31 0d 04 2e 0f e7 6d  |G%:m%=m%-1.....m|
00001290  25 3d 30 20 47 25 3d 31  33 0d 04 38 22 fd 47 25  |%=0 G%=13..8".G%|
000012a0  3d 31 33 3a f2 63 66 3a  f1 8a 78 25 2c 79 25 29  |=13:.cf:..x%,y%)|
000012b0  49 24 3b 3a f2 63 66 3a  3d 49 24 0d 04 42 48 dc  |I$;:.cf:=I$..BH.|
000012c0  20 6f 6e 65 2c 74 77 6f  2c 74 68 72 65 65 2c 66  | one,two,three,f|
000012d0  6f 75 72 2c 66 69 76 65  2c 73 69 78 2c 73 65 76  |our,five,six,sev|
000012e0  65 6e 2c 65 69 67 68 74  2c 6e 69 6e 65 2c 74 65  |en,eight,nine,te|
000012f0  6e 2c 65 6c 65 76 65 6e  2c 74 77 65 6c 76 65 2c  |n,eleven,twelve,|
00001300  6f 6e 65 0d 04 4c 93 dc  22 22 2c 66 69 76 65 20  |one..L.."",five |
00001310  70 61 73 74 20 2c 74 65  6e 20 70 61 73 74 20 2c  |past ,ten past ,|
00001320  61 20 71 75 61 72 74 65  72 20 70 61 73 74 20 2c  |a quarter past ,|
00001330  74 77 65 6e 74 79 20 70  61 73 74 20 2c 74 77 65  |twenty past ,twe|
00001340  6e 74 79 2d 66 69 76 65  20 70 61 73 74 20 2c 68  |nty-five past ,h|
00001350  61 6c 66 20 70 61 73 74  20 2c 74 77 65 6e 74 79  |alf past ,twenty|
00001360  2d 66 69 76 65 20 74 6f  20 2c 74 77 65 6e 74 79  |-five to ,twenty|
00001370  20 74 6f 20 2c 61 20 71  75 61 72 74 65 72 20 74  | to ,a quarter t|
00001380  6f 20 2c 74 65 6e 20 74  6f 20 2c 66 69 76 65 20  |o ,ten to ,five |
00001390  74 6f 20 2c 22 22 0d 04  56 09 2a 54 41 50 45 0d  |to ,""..V.*TAPE.|
000013a0  04 60 82 2a 4b 45 59 30  20 43 4c 53 3a 50 52 49  |.`.*KEY0 CLS:PRI|
000013b0  4e 54 54 41 42 28 31 32  2c 31 30 29 7c 22 50 6c  |NTTAB(12,10)|"Pl|
000013c0  65 61 73 65 20 77 61 69  74 21 7c 22 3a 56 44 55  |ease wait!|":VDU|
000013d0  32 31 3a 4e 25 3d 26 45  30 30 3a 46 4f 52 41 25  |21:N%=&E00:FORA%|
000013e0  3d 50 41 47 45 20 54 4f  20 54 4f 50 20 53 54 45  |=PAGE TO TOP STE|
000013f0  50 34 3a 21 4e 25 3d 21  41 25 3a 4e 25 3d 4e 25  |P4:!N%=!A%:N%=N%|
00001400  2b 34 3a 4e 45 58 54 7c  4d 50 41 47 45 3d 26 45  |+4:NEXT|MPAGE=&E|
00001410  30 30 7c 4d 45 4e 44 7c  4d 47 4f 54 4f 36 30 7c  |00|MEND|MGOTO60||
00001420  4d 0d 04 6a 10 2a 46 58  31 33 38 2c 30 2c 31 32  |M..j.*FX138,0,12|
00001430  38 0d ff                                          |8..|
00001433