� TIME IN GERMAN
� By Malcolm McKay
� (c) The Micro User
( �=&2F34:*LOAD C.mnuscrg 2F34
2�>&E00 �tpD
<�:�6:�i
F�:�22,1:�cf:�131:�:�mnu
P
�:*FX15,1
Z&G$=�:�G$="1"�G$="!"�G$="2"�G$=""""
d�19,3,7,0,0,0,26
n�G$="1"�G$="!"�dmo � �tst
x��
���cf:�23,1,0;0;0;0;:�
���cn:�23,1,1;0;0;0;:�
�-��ch:�1,5,0,1,1,1,0,1,100,-1,-1,-1,100,99
�8��tj@:� 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:�19,1,6,0,0,0,19,3,1,0,0,0:�129:�:�fc
�^�128:�2:�32,5)�7;:�32,6)"Type @ ";:�32,7)�7;:�32,8)"for """;�135;"""";:�32,9)�7;:�129
�6�224,320:�240,320:�85,224,960:�240,960:�85,240,320
�'�216,964:�248,964:�248,968:�216,968
�%�224,384:�32,384:�32,512:�224,512
�;�0,128:�220,508:�36,508:�87,36,474:�220,508:�87,220,474
�;�0,131:�220,470:�36,470:�87,36,431:�220,470:�87,220,431

;�0,130:�220,427:�36,427:�87,36,388:�220,427:�87,220,388

%�=0:� T%=1 � 10:B%=0:dm=�(-(�+�))

$H%=�(12):G%=H%:�(1)>.5 G%=H%+12

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

,�dgt:�ct(2)

6�B%=1�2��B%=4�2��0

@,�hs(0):�0,24)T%;". Wieviel Uhr ist es?"

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

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

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

he�A$<>t$:�7:�128:�0,27)�(160);:�2:�128:�(39-�t$)/2,28)t$;�8,30)"PRESS A KEY TO CONTINUE":*FX15,1

r�A$<>t$:G=�:�129

|�B%=1�2��B%=4�2��0

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

��:t%=�(�/100+.5)

��B%=1�2��B%=4�2��0

��=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%):��tRD:� J%=1�H%:�h$:�

��M%>=7 �h$

���t\D:� J%=1�M%:�m$:�

�!�h$="eins"�m$="" h$="ein Uhr"

�2�m$=""�h$<>"Mittag"�h$<>"ein Uhr" h$=h$+" Uhr"

�'�h$="Mittag"�G%>12 h$="Mitternacht"
t$=m$+h$
R��t$,6)="Mittag" �snmn(1,2,1)���t$,11)="Mitternacht" �snmn(4,1,2)��snmn(6,0,0)
.�F%=1 �3:�128:�0,24)�40;�(40-�t$)/2,24)t$
&�
0!��dgt:H$=�H%:�H$=1 H$="0"+H$
:�G%=24 H$="00"
D$M$=�((M%-1)*5):� �M$=1 M$="0"+M$
N.D$=H$+":"+M$:�24,544;448;720;496;:�0,129:�
X$�5:�556,484:�0,0:�D$:�4,26:�cf:�
b*��dmo:�19,1,6,0,0,0:�129:�:�fc:�2:�128
lN�0,28)�40;"H=Advance Hours ";:�3:�"M=Advance Minutes ";:�2:�"Q=Quit";�40;
v�0,23)�40;�0,25)�40
�
G%=1:M%=1
�H%=G%:�G%>12 H%=G%-12
��G%>24 G%=1:H%=1
��M%>12 M%=1
�(�ct(1):�dgt:�hs(0):G$=�get:�G$="Q" �
�
�hs(2)
�(�G$="M" M%=M%+1:G%=G%-(M%=13):� �tJB
��G$="H" G%=G%+1:� �tJB
�ݤ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%,2):�5:�0,2:@%=0
�6�A%=1�12:X=cx%-16+320*�(A%*f):Y=cy%+16+316*�(A%*f)
�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(6,0,0):�
*)��snmn(V%,scol%,mcol%):�19,1,V%,0,0,0
4g�129:�scol%:�10,1)�128;�129;:� mcol%:�28,1)�132;:�scol%:�10,2)�130;�131;:�mcol%:�28,2)�133;�134
>m�mcol%:�10,19)�132;:�scol%:�28,19)�128;�129;:�mcol%:�10,20)�133;�134;:�scol%:�28,20)�130;�131:B%=V%:�
H@��hs(col%):�0,col%:�h(208,(H%+(M%-1)/12)*f):�h(268,(M%-1)*f)
Rm�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,2)
\�
f3A$=�39," "):m$=�28," "):h$=�11," "):t$=�39," ")
p=��h(r%,ang):�cx%,cy%:�cx%+20*�(ang+�/2),cy%+20*�(ang+�/2)
zn�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
�S�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):�
�'��mnu:�A%=0�&CB:B%=A%?&2F34:�B%:�:�
���i:*FX200,1
�@%=&405:*FX4,1
�*FX11,0
�(�2,10,15,0,0,4,0,0,25,-2,-5,-20,60,5
�3cx%=639:cy%=664:r1%=350:r2%=275:r3%=24:f=2*�/12
�7ll$="MUVabcdefghijklmnopqrstuvwxyz "+�135:� P(2,60)
�2�A%=1�60:P(1,A%)=�(A%*f/5):P(2,A%)=�(A%*f/5):�
���drC:� A%=1�80:�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
E�23,134,0,0,0,128,192,240,255,248,23,135,0,102,0,102,102,102,62,0
�
$ݤin(m%,x%,y%,l$):*FX15
.0I$="":�:�cf:�x%,y%)I$;" ";:�8:�cn:*FX202,48
8
*FX118
BG=�:�I$=""�G=32�DBD
L��I$,1)=" "�G=32�DBD
V'�I$<>""�G=127:I$=�I$,�I$-1):m%=m%+1
`�G=13 �tHD
j�G=64 G=135
t�l$,�G)>0 I$=I$+�G:m%=m%-1
~�m%=0 G=13
�!�G=13:�cf:�x%,y%)I$;:�cf:=I$
�L� eins,zwei,drei,vier,"f�nf",sechs,sieben,acht,neun,zehn,elf,Mittag,eins
���"","f�nf Minuten nach ","zehn Minuten nach ","Viertel nach ","zwanzig Minuten nach ","f�nfundzwanzig Minuten nach ","halb ","f�nfundzwanzig Minuten vor ","zwanzig Minuten vor ","Viertel vor ","zehn Minuten vor "
��"f�nf Minuten vor ",""
�	*TAPE
�*KEY0 CLS:PRINTTAB(12,10)"Please wait!":VDU21:N%=&E00:FORA%=PAGE TO TOP STEP4:!N%=!A%:N%=N%+4:NEXT:PAGE=&E00|MEND|MGOTO60|M
�*FX138,0,128
�

00000000  0d 00 0a 14 f4 20 54 49  4d 45 20 49 4e 20 47 45  |..... TIME IN GE|
00000010  52 4d 41 4e 0d 00 14 16  f4 20 42 79 20 4d 61 6c  |RMAN..... By Mal|
00000020  63 6f 6c 6d 20 4d 63 4b  61 79 0d 00 1e 18 f4 20  |colm McKay..... |
00000030  28 63 29 20 54 68 65 20  4d 69 63 72 6f 20 55 73  |(c) The Micro Us|
00000040  65 72 0d 00 28 20 d3 3d  26 32 46 33 34 3a 2a 4c  |er..( .=&2F34:*L|
00000050  4f 41 44 20 43 2e 6d 6e  75 73 63 72 67 20 32 46  |OAD C.mnuscrg 2F|
00000060  33 34 0d 00 32 11 e7 90  3e 26 45 30 30 20 e5 8d  |34..2...>&E00 ..|
00000070  74 70 44 0d 00 3c 0b d8  3a ef 36 3a f2 69 0d 00  |tpD..<..:.6:.i..|
00000080  46 1b f5 3a ef 32 32 2c  31 3a f2 63 66 3a fb 31  |F..:.22,1:.cf:.1|
00000090  33 31 3a db 3a f2 6d 6e  75 0d 00 50 0d f5 3a 2a  |31:.:.mnu..P..:*|
000000a0  46 58 31 35 2c 31 0d 00  5a 26 47 24 3d be 3a fd  |FX15,1..Z&G$=.:.|
000000b0  47 24 3d 22 31 22 84 47  24 3d 22 21 22 84 47 24  |G$="1".G$="!".G$|
000000c0  3d 22 32 22 84 47 24 3d  22 22 22 22 0d 00 64 14  |="2".G$=""""..d.|
000000d0  ef 31 39 2c 33 2c 37 2c  30 2c 30 2c 30 2c 32 36  |.19,3,7,0,0,0,26|
000000e0  0d 00 6e 1d e7 47 24 3d  22 31 22 84 47 24 3d 22  |..n..G$="1".G$="|
000000f0  21 22 f2 64 6d 6f 20 8b  20 f2 74 73 74 0d 00 78  |!".dmo . .tst..x|
00000100  06 fd a3 0d 00 82 19 dd  f2 63 66 3a ef 32 33 2c  |.........cf:.23,|
00000110  31 2c 30 3b 30 3b 30 3b  30 3b 3a e1 0d 00 8c 19  |1,0;0;0;0;:.....|
00000120  dd f2 63 6e 3a ef 32 33  2c 31 2c 31 3b 30 3b 30  |..cn:.23,1,1;0;0|
00000130  3b 30 3b 3a e1 0d 00 96  2d dd f2 63 68 3a e2 31  |;0;:....-..ch:.1|
00000140  2c 35 2c 30 2c 31 2c 31  2c 31 2c 30 2c 31 2c 31  |,5,0,1,1,1,0,1,1|
00000150  30 30 2c 2d 31 2c 2d 31  2c 2d 31 2c 31 30 30 2c  |00,-1,-1,-1,100,|
00000160  39 39 0d 00 a0 38 f7 8d  74 6a 40 3a e3 20 4e 25  |99...8..tj@:. N%|
00000170  3d 31 b8 38 3a f3 44 25  3a d4 31 2c 31 2c 31 30  |=1.8:.D%:.1,1,10|
00000180  30 2d 44 25 2c 31 35 2b  28 2d 31 2a 28 4e 25 3d  |0-D%,15+(-1*(N%=|
00000190  34 29 2a 31 30 29 3a ed  3a e1 0d 00 aa 18 dc 30  |4)*10):.:......0|
000001a0  2c 31 36 2c 38 2c 33 36  2c 33 36 2c 38 2c 30 2c  |,16,8,36,36,8,0,|
000001b0  31 36 0d 00 b4 0f dd f2  74 73 74 3a 2a 4b 45 59  |16......tst:*KEY|
000001c0  30 0d 00 be 2f 53 43 25  3d 30 3a ef 31 39 2c 31  |0.../SC%=0:.19,1|
000001d0  2c 36 2c 30 2c 30 2c 30  2c 31 39 2c 33 2c 31 2c  |,6,0,0,0,19,3,1,|
000001e0  30 2c 30 2c 30 3a fb 31  32 39 3a db 3a f2 66 63  |0,0,0:.129:.:.fc|
000001f0  0d 00 c8 5e fb 31 32 38  3a fb 32 3a f1 8a 33 32  |...^.128:.2:..32|
00000200  2c 35 29 89 37 3b 3a f1  8a 33 32 2c 36 29 22 54  |,5).7;:..32,6)"T|
00000210  79 70 65 20 40 20 22 3b  3a f1 8a 33 32 2c 37 29  |ype @ ";:..32,7)|
00000220  89 37 3b 3a f1 8a 33 32  2c 38 29 22 66 6f 72 20  |.7;:..32,8)"for |
00000230  22 22 22 3b bd 31 33 35  3b 22 22 22 22 3b 3a f1  |""";.135;"""";:.|
00000240  8a 33 32 2c 39 29 89 37  3b 3a fb 31 32 39 0d 00  |.32,9).7;:.129..|
00000250  d2 36 ec 32 32 34 2c 33  32 30 3a ec 32 34 30 2c  |.6.224,320:.240,|
00000260  33 32 30 3a f0 38 35 2c  32 32 34 2c 39 36 30 3a  |320:.85,224,960:|
00000270  ec 32 34 30 2c 39 36 30  3a f0 38 35 2c 32 34 30  |.240,960:.85,240|
00000280  2c 33 32 30 0d 00 dc 27  ec 32 31 36 2c 39 36 34  |,320...'.216,964|
00000290  3a df 32 34 38 2c 39 36  34 3a ec 32 34 38 2c 39  |:.248,964:.248,9|
000002a0  36 38 3a df 32 31 36 2c  39 36 38 0d 00 e6 25 ec  |68:.216,968...%.|
000002b0  32 32 34 2c 33 38 34 3a  df 33 32 2c 33 38 34 3a  |224,384:.32,384:|
000002c0  df 33 32 2c 35 31 32 3a  df 32 32 34 2c 35 31 32  |.32,512:.224,512|
000002d0  0d 00 f0 3b e6 30 2c 31  32 38 3a ec 32 32 30 2c  |...;.0,128:.220,|
000002e0  35 30 38 3a ec 33 36 2c  35 30 38 3a f0 38 37 2c  |508:.36,508:.87,|
000002f0  33 36 2c 34 37 34 3a ec  32 32 30 2c 35 30 38 3a  |36,474:.220,508:|
00000300  f0 38 37 2c 32 32 30 2c  34 37 34 0d 00 fa 3b e6  |.87,220,474...;.|
00000310  30 2c 31 33 31 3a ec 32  32 30 2c 34 37 30 3a ec  |0,131:.220,470:.|
00000320  33 36 2c 34 37 30 3a f0  38 37 2c 33 36 2c 34 33  |36,470:.87,36,43|
00000330  31 3a ec 32 32 30 2c 34  37 30 3a f0 38 37 2c 32  |1:.220,470:.87,2|
00000340  32 30 2c 34 33 31 0d 01  04 3b e6 30 2c 31 33 30  |20,431...;.0,130|
00000350  3a ec 32 32 30 2c 34 32  37 3a ec 33 36 2c 34 32  |:.220,427:.36,42|
00000360  37 3a f0 38 37 2c 33 36  2c 33 38 38 3a ec 32 32  |7:.87,36,388:.22|
00000370  30 2c 34 32 37 3a f0 38  37 2c 32 32 30 2c 33 38  |0,427:.87,220,38|
00000380  38 0d 01 0e 25 d1 3d 30  3a e3 20 54 25 3d 31 20  |8...%.=0:. T%=1 |
00000390  b8 20 31 30 3a 42 25 3d  30 3a 64 6d 3d b3 28 2d  |. 10:B%=0:dm=.(-|
000003a0  28 91 2b b3 29 29 0d 01  18 24 48 25 3d b3 28 31  |(.+.))...$H%=.(1|
000003b0  32 29 3a 47 25 3d 48 25  3a e7 b3 28 31 29 3e 2e  |2):G%=H%:..(1)>.|
000003c0  35 20 47 25 3d 48 25 2b  31 32 0d 01 22 16 4d 25  |5 G%=H%+12..".M%|
000003d0  3d b3 28 31 32 29 2b 31  3a 4d 25 3d 4d 25 2d 31  |=.(12)+1:M%=M%-1|
000003e0  0d 01 2c 0f f2 64 67 74  3a f2 63 74 28 32 29 0d  |..,..dgt:.ct(2).|
000003f0  01 36 16 e7 42 25 3d 31  fb 32 8b e7 42 25 3d 34  |.6..B%=1.2..B%=4|
00000400  fb 32 8b fb 30 0d 01 40  2c f2 68 73 28 30 29 3a  |.2..0..@,.hs(0):|
00000410  f1 8a 30 2c 32 34 29 54  25 3b 22 2e 20 57 69 65  |..0,24)T%;". Wie|
00000420  76 69 65 6c 20 55 68 72  20 69 73 74 20 65 73 3f  |viel Uhr ist es?|
00000430  22 0d 01 4a 23 41 24 3d  a4 69 6e 28 33 39 2c 30  |"..J#A$=.in(39,0|
00000440  2c 32 36 2c 6c 6c 24 29  3a e7 41 24 3d 22 22 e5  |,26,ll$):.A$="".|
00000450  8d 44 4a 41 0d 01 54 1f  e7 97 28 c2 41 24 2c 31  |.DJA..T...(.A$,1|
00000460  29 29 3d 33 32 20 41 24  3d c0 41 24 2c a9 41 24  |))=32 A$=.A$,.A$|
00000470  2d 31 29 0d 01 5e 37 e7  41 24 3d 74 24 3a d4 31  |-1)..^7.A$=t$:.1|
00000480  2c 32 2c 37 30 2c 37 3a  53 43 25 3d 53 43 25 2b  |,2,70,7:SC%=SC%+|
00000490  31 3a 59 25 3d 31 32 37  2d 28 53 43 25 2d 31 29  |1:Y%=127-(SC%-1)|
000004a0  2a 31 31 3a d6 20 26 39  30 30 0d 01 68 65 e7 41  |*11:. &900..he.A|
000004b0  24 3c 3e 74 24 3a ef 37  3a fb 31 32 38 3a f1 8a  |$<>t$:.7:.128:..|
000004c0  30 2c 32 37 29 89 28 31  36 30 29 3b 3a fb 32 3a  |0,27).(160);:.2:|
000004d0  fb 31 32 38 3a f1 8a 28  33 39 2d a9 74 24 29 2f  |.128:..(39-.t$)/|
000004e0  32 2c 32 38 29 74 24 3b  8a 38 2c 33 30 29 22 50  |2,28)t$;.8,30)"P|
000004f0  52 45 53 53 20 41 20 4b  45 59 20 54 4f 20 43 4f  |RESS A KEY TO CO|
00000500  4e 54 49 4e 55 45 22 3a  2a 46 58 31 35 2c 31 0d  |NTINUE":*FX15,1.|
00000510  01 72 14 e7 41 24 3c 3e  74 24 3a 47 3d a5 3a fb  |.r..A$<>t$:G=.:.|
00000520  31 32 39 0d 01 7c 16 e7  42 25 3d 31 fb 32 8b e7  |129..|..B%=1.2..|
00000530  42 25 3d 34 fb 32 8b fb  30 0d 01 86 2a f1 8a 30  |B%=4.2..0...*..0|
00000540  2c 32 34 29 89 28 32 34  30 29 3b 89 28 34 30 29  |,24).(240);.(40)|
00000550  3b 3a e7 20 54 25 3c 3e  31 30 20 8c 20 f2 68 73  |;:. T%<>10 . .hs|
00000560  28 32 29 0d 01 90 14 ed  3a 74 25 3d a8 28 91 2f  |(2).....:t%=.(./|
00000570  31 30 30 2b 2e 35 29 0d  01 9a 16 e7 42 25 3d 31  |100+.5).....B%=1|
00000580  fb 32 8b e7 42 25 3d 34  fb 32 8b fb 30 0d 01 a4  |.2..B%=4.2..0...|
00000590  13 d1 3d 30 3a f5 fd 91  3e 31 30 30 3a f2 63 68  |..=0:...>100:.ch|
000005a0  0d 01 ae 64 53 24 3d 22  59 4f 55 52 20 53 43 4f  |...dS$="YOUR SCO|
000005b0  52 45 3a 20 22 2b c3 53  43 25 2b 22 2f 31 30 22  |RE: "+.SC%+"/10"|
000005c0  3a 54 24 3d 22 54 49 4d  45 20 54 41 4b 45 4e 3a  |:T$="TIME TAKEN:|
000005d0  20 22 2b c3 74 25 2b 22  20 73 65 63 73 2e 22 3a  | "+.t%+" secs.":|
000005e0  f1 8a 28 33 39 2d a9 53  24 29 2f 32 2c 32 35 29  |..(39-.S$)/2,25)|
000005f0  53 24 3b 8a 28 33 39 2d  a9 54 24 29 2f 32 2c 32  |S$;.(39-.T$)/2,2|
00000600  37 29 54 24 0d 01 b8 2c  f1 8a 38 2c 33 30 29 22  |7)T$...,..8,30)"|
00000610  50 52 45 53 53 20 41 20  4b 45 59 20 54 4f 20 43  |PRESS A KEY TO C|
00000620  4f 4e 54 49 4e 55 45 22  3a 2a 46 58 31 35 2c 31  |ONTINUE":*FX15,1|
00000630  0d 01 c2 09 47 3d a5 3a  e1 0d 01 cc 22 dd f2 63  |....G=.:...."..c|
00000640  74 28 46 25 29 3a f7 8d  74 52 44 3a e3 20 4a 25  |t(F%):..tRD:. J%|
00000650  3d 31 b8 48 25 3a f3 68  24 3a ed 0d 01 d6 0e e7  |=1.H%:.h$:......|
00000660  4d 25 3e 3d 37 20 f3 68  24 0d 01 e0 19 f7 8d 74  |M%>=7 .h$......t|
00000670  5c 44 3a e3 20 4a 25 3d  31 b8 4d 25 3a f3 6d 24  |\D:. J%=1.M%:.m$|
00000680  3a ed 0d 01 ea 21 e7 68  24 3d 22 65 69 6e 73 22  |:....!.h$="eins"|
00000690  80 6d 24 3d 22 22 20 68  24 3d 22 65 69 6e 20 55  |.m$="" h$="ein U|
000006a0  68 72 22 0d 01 f4 32 e7  6d 24 3d 22 22 80 68 24  |hr"...2.m$="".h$|
000006b0  3c 3e 22 4d 69 74 74 61  67 22 80 68 24 3c 3e 22  |<>"Mittag".h$<>"|
000006c0  65 69 6e 20 55 68 72 22  20 68 24 3d 68 24 2b 22  |ein Uhr" h$=h$+"|
000006d0  20 55 68 72 22 0d 01 fe  27 e7 68 24 3d 22 4d 69  | Uhr"...'.h$="Mi|
000006e0  74 74 61 67 22 80 47 25  3e 31 32 20 68 24 3d 22  |ttag".G%>12 h$="|
000006f0  4d 69 74 74 65 72 6e 61  63 68 74 22 0d 02 08 0c  |Mitternacht"....|
00000700  74 24 3d 6d 24 2b 68 24  0d 02 12 52 e7 c2 74 24  |t$=m$+h$...R..t$|
00000710  2c 36 29 3d 22 4d 69 74  74 61 67 22 20 f2 73 6e  |,6)="Mittag" .sn|
00000720  6d 6e 28 31 2c 32 2c 31  29 8b e7 c2 74 24 2c 31  |mn(1,2,1)...t$,1|
00000730  31 29 3d 22 4d 69 74 74  65 72 6e 61 63 68 74 22  |1)="Mitternacht"|
00000740  20 f2 73 6e 6d 6e 28 34  2c 31 2c 32 29 8b f2 73  | .snmn(4,1,2)..s|
00000750  6e 6d 6e 28 36 2c 30 2c  30 29 0d 02 1c 2e e7 46  |nmn(6,0,0).....F|
00000760  25 3d 31 20 fb 33 3a fb  31 32 38 3a f1 8a 30 2c  |%=1 .3:.128:..0,|
00000770  32 34 29 89 34 30 3b 8a  28 34 30 2d a9 74 24 29  |24).40;.(40-.t$)|
00000780  2f 32 2c 32 34 29 74 24  0d 02 26 05 e1 0d 02 30  |/2,24)t$..&....0|
00000790  21 dd f2 64 67 74 3a 48  24 3d c3 48 25 3a e7 a9  |!..dgt:H$=.H%:..|
000007a0  48 24 3d 31 20 48 24 3d  22 30 22 2b 48 24 0d 02  |H$=1 H$="0"+H$..|
000007b0  3a 12 e7 47 25 3d 32 34  20 48 24 3d 22 30 30 22  |:..G%=24 H$="00"|
000007c0  0d 02 44 24 4d 24 3d c3  28 28 4d 25 2d 31 29 2a  |..D$M$=.((M%-1)*|
000007d0  35 29 3a e7 20 a9 4d 24  3d 31 20 4d 24 3d 22 30  |5):. .M$=1 M$="0|
000007e0  22 2b 4d 24 0d 02 4e 2e  44 24 3d 48 24 2b 22 3a  |"+M$..N.D$=H$+":|
000007f0  22 2b 4d 24 3a ef 32 34  2c 35 34 34 3b 34 34 38  |"+M$:.24,544;448|
00000800  3b 37 32 30 3b 34 39 36  3b 3a e6 30 2c 31 32 39  |;720;496;:.0,129|
00000810  3a da 0d 02 58 24 ef 35  3a ec 35 35 36 2c 34 38  |:...X$.5:.556,48|
00000820  34 3a e6 30 2c 30 3a f1  44 24 3a ef 34 2c 32 36  |4:.0,0:.D$:.4,26|
00000830  3a f2 63 66 3a e1 0d 02  62 2a dd f2 64 6d 6f 3a  |:.cf:...b*..dmo:|
00000840  ef 31 39 2c 31 2c 36 2c  30 2c 30 2c 30 3a fb 31  |.19,1,6,0,0,0:.1|
00000850  32 39 3a db 3a f2 66 63  3a fb 32 3a fb 31 32 38  |29:.:.fc:.2:.128|
00000860  0d 02 6c 4e f1 8a 30 2c  32 38 29 89 34 30 3b 22  |..lN..0,28).40;"|
00000870  48 3d 41 64 76 61 6e 63  65 20 48 6f 75 72 73 20  |H=Advance Hours |
00000880  22 3b 3a fb 33 3a f1 22  4d 3d 41 64 76 61 6e 63  |";:.3:."M=Advanc|
00000890  65 20 4d 69 6e 75 74 65  73 20 22 3b 3a fb 32 3a  |e Minutes ";:.2:|
000008a0  f1 22 51 3d 51 75 69 74  22 3b 89 34 30 3b 0d 02  |."Q=Quit";.40;..|
000008b0  76 18 f1 8a 30 2c 32 33  29 89 34 30 3b 8a 30 2c  |v...0,23).40;.0,|
000008c0  32 35 29 89 34 30 0d 02  80 0d 47 25 3d 31 3a 4d  |25).40....G%=1:M|
000008d0  25 3d 31 0d 02 8a 19 48  25 3d 47 25 3a e7 47 25  |%=1....H%=G%:.G%|
000008e0  3e 31 32 20 48 25 3d 47  25 2d 31 32 0d 02 94 14  |>12 H%=G%-12....|
000008f0  e7 47 25 3e 32 34 20 47  25 3d 31 3a 48 25 3d 31  |.G%>24 G%=1:H%=1|
00000900  0d 02 9e 0f e7 4d 25 3e  31 32 20 4d 25 3d 31 0d  |.....M%>12 M%=1.|
00000910  02 a8 28 f2 63 74 28 31  29 3a f2 64 67 74 3a f2  |..(.ct(1):.dgt:.|
00000920  68 73 28 30 29 3a 47 24  3d a4 67 65 74 3a e7 47  |hs(0):G$=.get:.G|
00000930  24 3d 22 51 22 20 e1 0d  02 b2 0a f2 68 73 28 32  |$="Q" ......hs(2|
00000940  29 0d 02 bc 28 e7 47 24  3d 22 4d 22 20 4d 25 3d  |)...(.G$="M" M%=|
00000950  4d 25 2b 31 3a 47 25 3d  47 25 2d 28 4d 25 3d 31  |M%+1:G%=G%-(M%=1|
00000960  33 29 3a e5 20 8d 74 4a  42 0d 02 c6 1a e7 47 24  |3):. .tJB.....G$|
00000970  3d 22 48 22 20 47 25 3d  47 25 2b 31 3a e5 20 8d  |="H" G%=G%+1:. .|
00000980  74 4a 42 0d 02 d0 13 dd  a4 67 65 74 3a f5 3a 2a  |tJB......get:.:*|
00000990  46 58 31 35 2c 31 0d 02  da 29 47 24 3d bd 28 a5  |FX15,1...)G$=.(.|
000009a0  80 26 44 46 29 3a fd 47  24 3d 22 48 22 84 47 24  |.&DF):.G$="H".G$|
000009b0  3d 22 4d 22 84 47 24 3d  22 51 22 3a 3d 47 24 0d  |="M".G$="Q":=G$.|
000009c0  02 e4 3a dd f2 66 63 3a  ec 63 78 25 2c 63 79 25  |..:..fc:.cx%,cy%|
000009d0  3a ec 63 78 25 2b 72 31  25 2a 50 28 32 2c 36 30  |:.cx%+r1%*P(2,60|
000009e0  29 2c 63 79 25 3a f2 63  72 63 28 63 78 25 2c 63  |),cy%:.crc(cx%,c|
000009f0  79 25 2c 72 31 25 2c 30  29 0d 02 ee 42 ec 63 78  |y%,r1%,0)...B.cx|
00000a00  25 2c 63 79 25 3a ec 63  78 25 2b 72 32 25 2a 50  |%,cy%:.cx%+r2%*P|
00000a10  28 32 2c 36 30 29 2c 63  79 25 3a f2 63 72 63 28  |(2,60),cy%:.crc(|
00000a20  63 78 25 2c 63 79 25 2c  72 32 25 2c 32 29 3a ef  |cx%,cy%,r2%,2):.|
00000a30  35 3a e6 30 2c 32 3a 40  25 3d 30 0d 02 f8 36 e3  |5:.0,2:@%=0...6.|
00000a40  41 25 3d 31 b8 31 32 3a  58 3d 63 78 25 2d 31 36  |A%=1.12:X=cx%-16|
00000a50  2b 33 32 30 2a b5 28 41  25 2a 66 29 3a 59 3d 63  |+320*.(A%*f):Y=c|
00000a60  79 25 2b 31 36 2b 33 31  36 2a 9b 28 41 25 2a 66  |y%+16+316*.(A%*f|
00000a70  29 0d 03 02 16 ec 58 2c  59 3a f1 41 25 3a ed 3a  |).....X,Y:.A%:.:|
00000a80  ef 34 3a e6 30 2c 30 0d  03 0c 32 ec 32 38 39 2c  |.4:.0,0...2.289,|
00000a90  33 31 34 3a df 39 38 39  2c 33 31 34 3a df 39 38  |314:.989,314:.98|
00000aa0  39 2c 31 30 31 34 3a df  32 38 39 2c 31 30 31 34  |9,1014:.289,1014|
00000ab0  3a df 32 38 39 2c 33 31  34 0d 03 16 32 ec 32 39  |:.289,314...2.29|
00000ac0  33 2c 33 31 38 3a df 39  38 35 2c 33 31 38 3a df  |3,318:.985,318:.|
00000ad0  39 38 35 2c 31 30 31 30  3a df 32 39 33 2c 31 30  |985,1010:.293,10|
00000ae0  31 30 3a df 32 39 33 2c  33 31 38 0d 03 20 12 f2  |10:.293,318.. ..|
00000af0  73 6e 6d 6e 28 36 2c 30  2c 30 29 3a e1 0d 03 2a  |snmn(6,0,0):...*|
00000b00  29 dd f2 73 6e 6d 6e 28  56 25 2c 73 63 6f 6c 25  |)..snmn(V%,scol%|
00000b10  2c 6d 63 6f 6c 25 29 3a  ef 31 39 2c 31 2c 56 25  |,mcol%):.19,1,V%|
00000b20  2c 30 2c 30 2c 30 0d 03  34 67 fb 31 32 39 3a fb  |,0,0,0..4g.129:.|
00000b30  73 63 6f 6c 25 3a f1 8a  31 30 2c 31 29 bd 31 32  |scol%:..10,1).12|
00000b40  38 3b bd 31 32 39 3b 3a  fb 20 6d 63 6f 6c 25 3a  |8;.129;:. mcol%:|
00000b50  f1 8a 32 38 2c 31 29 bd  31 33 32 3b 3a fb 73 63  |..28,1).132;:.sc|
00000b60  6f 6c 25 3a f1 8a 31 30  2c 32 29 bd 31 33 30 3b  |ol%:..10,2).130;|
00000b70  bd 31 33 31 3b 3a fb 6d  63 6f 6c 25 3a f1 8a 32  |.131;:.mcol%:..2|
00000b80  38 2c 32 29 bd 31 33 33  3b bd 31 33 34 0d 03 3e  |8,2).133;.134..>|
00000b90  6d fb 6d 63 6f 6c 25 3a  f1 8a 31 30 2c 31 39 29  |m.mcol%:..10,19)|
00000ba0  bd 31 33 32 3b 3a fb 73  63 6f 6c 25 3a f1 8a 32  |.132;:.scol%:..2|
00000bb0  38 2c 31 39 29 bd 31 32  38 3b bd 31 32 39 3b 3a  |8,19).128;.129;:|
00000bc0  fb 6d 63 6f 6c 25 3a f1  8a 31 30 2c 32 30 29 bd  |.mcol%:..10,20).|
00000bd0  31 33 33 3b bd 31 33 34  3b 3a fb 73 63 6f 6c 25  |133;.134;:.scol%|
00000be0  3a f1 8a 32 38 2c 32 30  29 bd 31 33 30 3b bd 31  |:..28,20).130;.1|
00000bf0  33 31 3a 42 25 3d 56 25  3a e1 0d 03 48 40 dd f2  |31:B%=V%:...H@..|
00000c00  68 73 28 63 6f 6c 25 29  3a e6 30 2c 63 6f 6c 25  |hs(col%):.0,col%|
00000c10  3a f2 68 28 32 30 38 2c  28 48 25 2b 28 4d 25 2d  |:.h(208,(H%+(M%-|
00000c20  31 29 2f 31 32 29 2a 66  29 3a f2 68 28 32 36 38  |1)/12)*f):.h(268|
00000c30  2c 28 4d 25 2d 31 29 2a  66 29 0d 03 52 6d e7 63  |,(M%-1)*f)..Rm.c|
00000c40  6f 6c 25 3d 30 20 ec 63  78 25 2c 63 79 25 3a ec  |ol%=0 .cx%,cy%:.|
00000c50  63 78 25 2b 72 33 25 2a  50 28 32 2c 36 30 29 2c  |cx%+r3%*P(2,60),|
00000c60  63 79 25 3a f2 63 72 63  28 63 78 25 2c 63 79 25  |cy%:.crc(cx%,cy%|
00000c70  2c 72 33 25 2c 30 29 3a  ec 63 78 25 2c 63 79 25  |,r3%,0):.cx%,cy%|
00000c80  3a ec 63 78 25 2b 31 30  2a 50 28 32 2c 36 30 29  |:.cx%+10*P(2,60)|
00000c90  2c 63 79 25 3a f2 63 72  63 28 63 78 25 2c 63 79  |,cy%:.crc(cx%,cy|
00000ca0  25 2c 31 30 2c 32 29 0d  03 5c 05 e1 0d 03 66 33  |%,10,2)..\....f3|
00000cb0  41 24 3d c4 33 39 2c 22  20 22 29 3a 6d 24 3d c4  |A$=.39," "):m$=.|
00000cc0  32 38 2c 22 20 22 29 3a  68 24 3d c4 31 31 2c 22  |28," "):h$=.11,"|
00000cd0  20 22 29 3a 74 24 3d c4  33 39 2c 22 20 22 29 0d  | "):t$=.39," ").|
00000ce0  03 70 3d dd f2 68 28 72  25 2c 61 6e 67 29 3a ec  |.p=..h(r%,ang):.|
00000cf0  63 78 25 2c 63 79 25 3a  ec 63 78 25 2b 32 30 2a  |cx%,cy%:.cx%+20*|
00000d00  b5 28 61 6e 67 2b af 2f  32 29 2c 63 79 25 2b 32  |.(ang+./2),cy%+2|
00000d10  30 2a 9b 28 61 6e 67 2b  af 2f 32 29 0d 03 7a 6e  |0*.(ang+./2)..zn|
00000d20  f0 38 35 2c 63 78 25 2b  72 25 2a b5 28 61 6e 67  |.85,cx%+r%*.(ang|
00000d30  29 2c 63 79 25 2b 72 25  2a 9b 28 61 6e 67 29 3a  |),cy%+r%*.(ang):|
00000d40  ec 63 78 25 2b 32 30 2a  b5 28 33 2a af 2f 32 2b  |.cx%+20*.(3*./2+|
00000d50  61 6e 67 29 2c 63 79 25  2b 32 30 2a 9b 28 33 2a  |ang),cy%+20*.(3*|
00000d60  af 2f 32 2b 61 6e 67 29  3a f0 38 35 2c 63 78 25  |./2+ang):.85,cx%|
00000d70  2b 72 25 2a b5 28 61 6e  67 29 2c 63 79 25 2b 72  |+r%*.(ang),cy%+r|
00000d80  25 2a 9b 28 61 6e 67 29  3a e1 0d 03 84 2d dd f2  |%*.(ang):....-..|
00000d90  63 72 63 28 78 25 2c 79  25 2c 72 25 2c 63 6f 6c  |crc(x%,y%,r%,col|
00000da0  25 29 3a e6 30 2c 63 6f  6c 25 3a e3 41 25 3d 31  |%):.0,col%:.A%=1|
00000db0  b8 36 30 20 88 20 32 0d  03 8e 53 ec 78 25 2c 79  |.60 . 2...S.x%,y|
00000dc0  25 3a f0 38 35 2c 78 25  2b 72 25 2a 50 28 32 2c  |%:.85,x%+r%*P(2,|
00000dd0  41 25 29 2c 79 25 2b 72  25 2a 50 28 31 2c 41 25  |A%),y%+r%*P(1,A%|
00000de0  29 3a ed 3a ec 78 25 2c  79 25 3a f0 38 35 2c 78  |):.:.x%,y%:.85,x|
00000df0  25 2b 72 25 2a 50 28 32  2c 31 29 2c 79 25 2b 72  |%+r%*P(2,1),y%+r|
00000e00  25 2a 50 28 31 2c 31 29  3a e1 0d 03 98 27 dd f2  |%*P(1,1):....'..|
00000e10  6d 6e 75 3a e3 41 25 3d  30 b8 26 43 42 3a 42 25  |mnu:.A%=0.&CB:B%|
00000e20  3d 41 25 3f 26 32 46 33  34 3a ef 42 25 3a ed 3a  |=A%?&2F34:.B%:.:|
00000e30  e1 0d 03 a2 10 dd f2 69  3a 2a 46 58 32 30 30 2c  |.......i:*FX200,|
00000e40  31 0d 03 ac 12 40 25 3d  26 34 30 35 3a 2a 46 58  |1....@%=&405:*FX|
00000e50  34 2c 31 0d 03 b6 0b 2a  46 58 31 31 2c 30 0d 03  |4,1....*FX11,0..|
00000e60  c0 28 e2 32 2c 31 30 2c  31 35 2c 30 2c 30 2c 34  |.(.2,10,15,0,0,4|
00000e70  2c 30 2c 30 2c 32 35 2c  2d 32 2c 2d 35 2c 2d 32  |,0,0,25,-2,-5,-2|
00000e80  30 2c 36 30 2c 35 0d 03  ca 33 63 78 25 3d 36 33  |0,60,5...3cx%=63|
00000e90  39 3a 63 79 25 3d 36 36  34 3a 72 31 25 3d 33 35  |9:cy%=664:r1%=35|
00000ea0  30 3a 72 32 25 3d 32 37  35 3a 72 33 25 3d 32 34  |0:r2%=275:r3%=24|
00000eb0  3a 66 3d 32 2a af 2f 31  32 0d 03 d4 37 6c 6c 24  |:f=2*./12...7ll$|
00000ec0  3d 22 4d 55 56 61 62 63  64 65 66 67 68 69 6a 6b  |="MUVabcdefghijk|
00000ed0  6c 6d 6e 6f 70 71 72 73  74 75 76 77 78 79 7a 20  |lmnopqrstuvwxyz |
00000ee0  22 2b bd 31 33 35 3a de  20 50 28 32 2c 36 30 29  |"+.135:. P(2,60)|
00000ef0  0d 03 de 32 e3 41 25 3d  31 b8 36 30 3a 50 28 31  |...2.A%=1.60:P(1|
00000f00  2c 41 25 29 3d b5 28 41  25 2a 66 2f 35 29 3a 50  |,A%)=.(A%*f/5):P|
00000f10  28 32 2c 41 25 29 3d 9b  28 41 25 2a 66 2f 35 29  |(2,A%)=.(A%*f/5)|
00000f20  3a ed 0d 03 e8 1d f7 8d  64 72 43 3a e3 20 41 25  |:.......drC:. A%|
00000f30  3d 31 b8 38 30 3a f3 42  25 3a ef 42 25 3a ed 0d  |=1.80:.B%:.B%:..|
00000f40  03 f2 49 dc 32 33 2c 31  32 38 2c 30 2c 36 34 2c  |..I.23,128,0,64,|
00000f50  33 32 2c 31 36 2c 31 31  2c 37 2c 31 35 2c 32 35  |32,16,11,7,15,25|
00000f60  35 2c 32 33 2c 31 32 39  2c 31 32 38 2c 31 33 30  |5,23,129,128,130|
00000f70  2c 31 33 32 2c 31 33 36  2c 32 30 38 2c 32 32 34  |,132,136,208,224|
00000f80  2c 32 34 30 2c 32 34 30  0d 03 fc 40 dc 32 33 2c  |,240,240...@.23,|
00000f90  31 33 30 2c 31 35 2c 31  35 2c 37 2c 31 31 2c 31  |130,15,15,7,11,1|
00000fa0  37 2c 33 33 2c 36 35 2c  31 2c 32 33 2c 31 33 31  |7,33,65,1,23,131|
00000fb0  2c 32 35 35 2c 32 34 30  2c 32 32 34 2c 32 30 38  |,255,240,224,208|
00000fc0  2c 38 2c 34 2c 32 2c 30  0d 04 06 45 dc 32 33 2c  |,8,4,2,0...E.23,|
00000fd0  31 33 32 2c 38 2c 31 36  2c 34 38 2c 34 38 2c 31  |132,8,16,48,48,1|
00000fe0  31 32 2c 31 32 30 2c 31  32 30 2c 31 32 34 2c 32  |12,120,120,124,2|
00000ff0  33 2c 31 33 33 2c 31 32  34 2c 31 32 36 2c 36 33  |3,133,124,126,63|
00001000  2c 36 33 2c 33 31 2c 31  35 2c 37 2c 31 0d 04 10  |,63,31,15,7,1...|
00001010  45 dc 32 33 2c 31 33 34  2c 30 2c 30 2c 30 2c 31  |E.23,134,0,0,0,1|
00001020  32 38 2c 31 39 32 2c 32  34 30 2c 32 35 35 2c 32  |28,192,240,255,2|
00001030  34 38 2c 32 33 2c 31 33  35 2c 30 2c 31 30 32 2c  |48,23,135,0,102,|
00001040  30 2c 31 30 32 2c 31 30  32 2c 31 30 32 2c 36 32  |0,102,102,102,62|
00001050  2c 30 0d 04 1a 05 e1 0d  04 24 1b dd a4 69 6e 28  |,0.......$...in(|
00001060  6d 25 2c 78 25 2c 79 25  2c 6c 24 29 3a 2a 46 58  |m%,x%,y%,l$):*FX|
00001070  31 35 0d 04 2e 30 49 24  3d 22 22 3a f5 3a f2 63  |15...0I$="":.:.c|
00001080  66 3a f1 8a 78 25 2c 79  25 29 49 24 3b 22 20 22  |f:..x%,y%)I$;" "|
00001090  3b 3a ef 38 3a f2 63 6e  3a 2a 46 58 32 30 32 2c  |;:.8:.cn:*FX202,|
000010a0  34 38 0d 04 38 0a 2a 46  58 31 31 38 0d 04 42 18  |48..8.*FX118..B.|
000010b0  47 3d a5 3a e7 49 24 3d  22 22 80 47 3d 33 32 e5  |G=.:.I$="".G=32.|
000010c0  8d 44 42 44 0d 04 4c 19  e7 c2 49 24 2c 31 29 3d  |.DBD..L...I$,1)=|
000010d0  22 20 22 80 47 3d 33 32  e5 8d 44 42 44 0d 04 56  |" ".G=32..DBD..V|
000010e0  27 e7 49 24 3c 3e 22 22  80 47 3d 31 32 37 3a 49  |'.I$<>"".G=127:I|
000010f0  24 3d c0 49 24 2c a9 49  24 2d 31 29 3a 6d 25 3d  |$=.I$,.I$-1):m%=|
00001100  6d 25 2b 31 0d 04 60 0f  e7 47 3d 31 33 20 e5 8d  |m%+1..`..G=13 ..|
00001110  74 48 44 0d 04 6a 0f e7  47 3d 36 34 20 47 3d 31  |tHD..j..G=64 G=1|
00001120  33 35 0d 04 74 1f e7 a7  6c 24 2c bd 47 29 3e 30  |35..t...l$,.G)>0|
00001130  20 49 24 3d 49 24 2b bd  47 3a 6d 25 3d 6d 25 2d  | I$=I$+.G:m%=m%-|
00001140  31 0d 04 7e 0e e7 6d 25  3d 30 20 47 3d 31 33 0d  |1..~..m%=0 G=13.|
00001150  04 88 21 fd 47 3d 31 33  3a f2 63 66 3a f1 8a 78  |..!.G=13:.cf:..x|
00001160  25 2c 79 25 29 49 24 3b  3a f2 63 66 3a 3d 49 24  |%,y%)I$;:.cf:=I$|
00001170  0d 04 92 4c dc 20 65 69  6e 73 2c 7a 77 65 69 2c  |...L. eins,zwei,|
00001180  64 72 65 69 2c 76 69 65  72 2c 22 66 87 6e 66 22  |drei,vier,"f.nf"|
00001190  2c 73 65 63 68 73 2c 73  69 65 62 65 6e 2c 61 63  |,sechs,sieben,ac|
000011a0  68 74 2c 6e 65 75 6e 2c  7a 65 68 6e 2c 65 6c 66  |ht,neun,zehn,elf|
000011b0  2c 4d 69 74 74 61 67 2c  65 69 6e 73 0d 04 9c d8  |,Mittag,eins....|
000011c0  dc 22 22 2c 22 66 87 6e  66 20 4d 69 6e 75 74 65  |."","f.nf Minute|
000011d0  6e 20 6e 61 63 68 20 22  2c 22 7a 65 68 6e 20 4d  |n nach ","zehn M|
000011e0  69 6e 75 74 65 6e 20 6e  61 63 68 20 22 2c 22 56  |inuten nach ","V|
000011f0  69 65 72 74 65 6c 20 6e  61 63 68 20 22 2c 22 7a  |iertel nach ","z|
00001200  77 61 6e 7a 69 67 20 4d  69 6e 75 74 65 6e 20 6e  |wanzig Minuten n|
00001210  61 63 68 20 22 2c 22 66  87 6e 66 75 6e 64 7a 77  |ach ","f.nfundzw|
00001220  61 6e 7a 69 67 20 4d 69  6e 75 74 65 6e 20 6e 61  |anzig Minuten na|
00001230  63 68 20 22 2c 22 68 61  6c 62 20 22 2c 22 66 87  |ch ","halb ","f.|
00001240  6e 66 75 6e 64 7a 77 61  6e 7a 69 67 20 4d 69 6e  |nfundzwanzig Min|
00001250  75 74 65 6e 20 76 6f 72  20 22 2c 22 7a 77 61 6e  |uten vor ","zwan|
00001260  7a 69 67 20 4d 69 6e 75  74 65 6e 20 76 6f 72 20  |zig Minuten vor |
00001270  22 2c 22 56 69 65 72 74  65 6c 20 76 6f 72 20 22  |","Viertel vor "|
00001280  2c 22 7a 65 68 6e 20 4d  69 6e 75 74 65 6e 20 76  |,"zehn Minuten v|
00001290  6f 72 20 22 0d 04 a6 1b  dc 22 66 87 6e 66 20 4d  |or "....."f.nf M|
000012a0  69 6e 75 74 65 6e 20 76  6f 72 20 22 2c 22 22 0d  |inuten vor ","".|
000012b0  04 b0 09 2a 54 41 50 45  0d 04 ba 7f 2a 4b 45 59  |...*TAPE....*KEY|
000012c0  30 20 43 4c 53 3a 50 52  49 4e 54 54 41 42 28 31  |0 CLS:PRINTTAB(1|
000012d0  32 2c 31 30 29 22 50 6c  65 61 73 65 20 77 61 69  |2,10)"Please wai|
000012e0  74 21 22 3a 56 44 55 32  31 3a 4e 25 3d 26 45 30  |t!":VDU21:N%=&E0|
000012f0  30 3a 46 4f 52 41 25 3d  50 41 47 45 20 54 4f 20  |0:FORA%=PAGE TO |
00001300  54 4f 50 20 53 54 45 50  34 3a 21 4e 25 3d 21 41  |TOP STEP4:!N%=!A|
00001310  25 3a 4e 25 3d 4e 25 2b  34 3a 4e 45 58 54 3a 50  |%:N%=N%+4:NEXT:P|
00001320  41 47 45 3d 26 45 30 30  7c 4d 45 4e 44 7c 4d 47  |AGE=&E00|MEND|MG|
00001330  4f 54 4f 36 30 7c 4d 0d  04 c4 10 2a 46 58 31 33  |OTO60|M....*FX13|
00001340  38 2c 30 2c 31 32 38 0d  ff                       |8,0,128..|
00001349