� Strat1
� by Martin Sann
� (c) The Micro User
(�4:�23;8202;0;0;0;
2�19,0,4;0;
< � prod%(36),comp%(36),d%(36)
F� good$(8)
P
*FX4 1
Z*FX11 0
d.�1,10,16,-16,0,8,1,20,-128,0,0,-10,128,128
nws$="Wins    Score    "
x,i1$=�224+�225:i2$=�226+�227:cl$=�36," ")
�#w1%=0:w2%=0:p1$=$&380:p2$=$&38A
��choose:�screen:�change
�
�end:�
���choose
�sc1%=0:sc2%=0:f%=1:s%=1
�end%=0:tm1%=20
�	�fill
��d("Choose level",14,12)
��15,17)"1  =  easy"
��15,19)"2  =  hard"
�'�:level%=�-48:� level%>0 � level%<3
��d("Choose bonus",14,12)
��15,15)"0  =  none"

�15,17)"1  =  line"

�15,19)"2  =  time"

�15,21)"3  =  both"

"%�:game%=�-48:� game%>-1 � game%<4

,�

6
��fill

@�box(0,0,1279,1023)

J�box(408,248,864,712)

T.�0,129:�24,416;256;856;704;:�:�26:?&D3=255

^�

h��screen

r�:�1:� �tXH:�read

|�0,129:�24,16;472;576;1007;

�	�:�26

��0,0:�box(24,480,568,999)

� �0,1:�box(592,746,1264,1007)

��box(592,472,1264,732)

��box(16,16,1264,384)

��d(p1$,20,2):�d(p2$,20,10)

��d(i1$,36,2):�d(i2$,36,10)

�w1$=�(w1%):w2$=�(w2%)

��20,6)ws$

��20,14)ws$

��25,6)w1$

��25,14)w2$

��37,6)"0"
�37,14)"0"
�d("1",28,23):�d("1",32,23)
�d("x",30,23):�d("=",34,23)
&)�6,27)"Change digits using  Z and C"
0*�9,29)"RETURN  for the answer":�scram
:� game%>1 �tbox
D�
N
��tbox
X�box(16,396,34*32+4,460)
b�box(35*32-16,396,1264,460)
l�2,18)"Time bonus"
v�
�
��read
�� n%=1�35:� prod%(n%):�
�� n%=1�8:� good$(n%):�
��
���box(x1,y1,x2,y2)
�&�x1,y1:�x1,y2:�x2,y2:�x2,y1:�x1,y1
��
���scram
�"� level%=1 high%=22 � high%=35
��rnd(high%):Ypos=0
�� n%=1�16:Xpos=n% � 4
�� Xpos=0 Xpos=4
�� Xpos=1 Ypos=Ypos+2
#n$=�(prod%(comp%(n%))):?&D3=255
� �n$<2 x%=-1 � x%=-2
�d(n$,Xpos*4+x%,Ypos*2-2)
 �1,-12,0,1:� n%:?&D3=0
*�
4
��rnd(t%)
>Z=�(-�)
H� n%=1 � t%+1:d%(n%)=n%:�
R�:r%=�(t%):comp%(t%)=d%(r%)
\"� n%=r% � t%-1:d%(n%)=d%(n%+1)
f�:t%=t%-1:� t%=1
pcomp%(1)=d%(1)
z�
���d(A$,x%,y%)
� X%=0:Y%=13:A%=10:D=&D00:M%=0
�C$=�240+�8+�10+�241
��:M%=M%+1:B$=�A$,M%,1)
�?D=�(B$):�&FFF1
�+�23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4
�+�23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
��x%+M%-1,y%)C$
�� M%>�A$-1
��
���change
�%go%=�(2):ok%=0:nok%=1:e1%=0:e2%=0
��:go%=go%+1:pl%=go%�2
�p:�c:�2,23)"Your go"
�d(p$,10,23):�d(i$,36,23)
� game%>1 �13,18)�20,�228)
$tm%=21000:� game%=1 tm1%=0
.� tm1%>10 dec%=40 � dec%=20
8�keys:�check
B� ok%<15 I=�(200)
L� ok%=15:I=�(200):n%=0
V!�:n%=n%+1:a%=prod%(comp%(n%))
`� a%>0 end%=1:�ok:� 
j� n%=16
t�
~��p
�)� pl%=1 p$=p1$:i$=i1$ � p$=p2$:i$=i2$
��
���c
��d(�20," "),2,23)
��
�
��keys
�.� nok%=1 or$="and" � or$=�229+�230+�231:�1
��29,27)"   "
��29,27)or$
�k%=0:j%=2:�
��:*FX15
�� game%>1 �timer
� �(-98) � �(-83) � �(-74)

� �(-98) k%=90
� �(-83) k%=67
� �(-74) k%=13
(� j%=1 � nok%=0 �DFE
2*� k%=90 j%=0:f%=f%+1:�peep:� f%>9 f%=1
<� j%=0 � nok%=0 �DPE
F*� k%=67 j%=1:s%=s%+1:�peep:� s%>9 s%=1
Pf$=�(f%):s$=�(s%)
Z�d(f$,28,23):�d(s$,32,23)
d� k%=13:�d(" ",36,23)
nans%=f%*s%:ans$=�(ans%)
x�d(ans$,38-�(ans$),23)
��
���timer
�!tm%=tm%-dec%:tm1%=�(tm%/1000)
�� tm1%<0 tm1%=0:�
�+� tm1%<10 tm$=" "+�(tm1%) � tm$=�(tm1%)
��1:�36,18)tm$:�0
��13+tm1%,18)�228:�1
��1
��
�
��peep
��1,-10,180,2
��
���check
n%=0:�:n%=n%+1
tot%=prod%(comp%(n%))
� ans%=tot% � n%=16
"� ans%=tot% �ok � �nok
,�
6��ok
@*FX15 0
Jok%=ok%+1:nok%=0:�c
TXpos=(n% � 4)*4-2
^� Xpos=-2 Xpos=14
hYpos=2+((n%-1)� 4)*4:�p
rT� end%=0 �d(good$(�(8)),2,23) � �2,23)"Yours":pl%=pl%+1:�p:�d(p$,8,23):I=�(200)
|5?&D3=255:�d(i$,Xpos,Ypos):?&D3=0:�1,1,4*(ok%+1),2
�v� pl%=1 sc1%=sc1%+ans%+tm1%:prod%(comp%(n%))=-1:�ps(sc1%,6) � sc2%=sc2%+ans%+tm1%:prod%(comp%(n%))=-2:�ps(sc2%,14)
��
�	��nok
�*FX15 0
�nok%=1:tm1%=0:�c
�.�2,23)"Not in":�d("Square",9,23):�0,1,5,6
�@� pl%=1 sc2%=sc2%+25:�ps(sc2%,14) � sc1%=sc1%+25:�ps(sc1%,6)
��
���ps(sc%,y%)
�sc$=�(sc%)
��38-�(sc$),y%)sc$
��
�	��end
(� game%=1 � game%=3 �lbonus � �clear
;� sc1%>sc2% w1%=w1%+1 � w2%=w2%+1:w1$=�(w1%):w2$=�(w2%)
�25,6)w1$
&�25,14)w2$
0-�4,28)"Do you want to play again (Y/N)?"
:�:G$=�:� �"YN",G$)
DB� G$="Y" �clear:�3,28)"Do you want the same bonus (Y/N)?" � �
N�:G$=�:� �"YN",G$)
X� G$="Y" �tV@ � �:�tL@
b�
l��lbonus
v
�clear
��d("Line bonus",4,23)
��20,22)p1$
��20,25)p2$
��line(1,4):�line(4,1)
��
���clear
�!� R%=1�9:�2,20+R%)cl$:� R%:�
���line(F%,G%)
�� H%=0�3:L%=H%*G%+1
�Zlv%=prod%(comp%(L%))+prod%(comp%(L%+1*F%))+prod%(comp%(L%+2*F%))+prod%(comp%(L%+3*F%))
�� V%=0�3
�%v%=lv%-prod%(comp%(L%+V%*(5-G%)))
�� v%=-3 e2%=e2%+1:�e1
� v%=-6 e1%=e1%+1:�e2

� V%:� H%
�
 ��e1
*sc2%=sc2%+50:sc2$=�(sc2%)
4e2$=�(e2%*50)
>�38-�(sc2$),14)sc2$ 
H�38-�(e2$),25)e2$
R�
\��e2
fsc1%=sc1%+50:sc1$=�(sc1%)
pe1$=�(e1%*50)
z�38-�(sc1$),6)sc1$
��38-�(e1$),22)e1$
��
�� 1,2,3,4,5,6,7,8,9,10
�� 12,14,16,18,20,21,24
�� 25,27,28,30,32,35,36
�� 40,42,45,48,49,54,56
�� 63,64,72,81
�R� Good one!,Well done!,Fine!,Sehr Gut!,Wunderbah!,Muy bien!,Excellente!,Bueno!
�

00000000  0d 00 0a 0d 20 f4 20 53  74 72 61 74 31 0d 00 14  |.... . Strat1...|
00000010  14 f4 20 62 79 20 4d 61  72 74 69 6e 20 53 61 6e  |.. by Martin San|
00000020  6e 0d 00 1e 18 f4 20 28  63 29 20 54 68 65 20 4d  |n..... (c) The M|
00000030  69 63 72 6f 20 55 73 65  72 0d 00 28 16 eb 34 3a  |icro User..(..4:|
00000040  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  |.23;8202;0;0;0;.|
00000050  00 32 0e ef 31 39 2c 30  2c 34 3b 30 3b 0d 00 3c  |.2..19,0,4;0;..<|
00000060  20 de 20 70 72 6f 64 25  28 33 36 29 2c 63 6f 6d  | . prod%(36),com|
00000070  70 25 28 33 36 29 2c 64  25 28 33 36 29 0d 00 46  |p%(36),d%(36)..F|
00000080  0e de 20 67 6f 6f 64 24  28 38 29 0d 00 50 0a 2a  |.. good$(8)..P.*|
00000090  46 58 34 20 31 0d 00 5a  0b 2a 46 58 31 31 20 30  |FX4 1..Z.*FX11 0|
000000a0  0d 00 64 2e e2 31 2c 31  30 2c 31 36 2c 2d 31 36  |..d..1,10,16,-16|
000000b0  2c 30 2c 38 2c 31 2c 32  30 2c 2d 31 32 38 2c 30  |,0,8,1,20,-128,0|
000000c0  2c 30 2c 2d 31 30 2c 31  32 38 2c 31 32 38 0d 00  |,0,-10,128,128..|
000000d0  6e 1b 77 73 24 3d 22 57  69 6e 73 20 20 20 20 53  |n.ws$="Wins    S|
000000e0  63 6f 72 65 20 20 20 20  22 0d 00 78 2c 69 31 24  |core    "..x,i1$|
000000f0  3d bd 32 32 34 2b bd 32  32 35 3a 69 32 24 3d bd  |=.224+.225:i2$=.|
00000100  32 32 36 2b bd 32 32 37  3a 63 6c 24 3d c4 33 36  |226+.227:cl$=.36|
00000110  2c 22 20 22 29 0d 00 82  23 77 31 25 3d 30 3a 77  |," ")...#w1%=0:w|
00000120  32 25 3d 30 3a 70 31 24  3d 24 26 33 38 30 3a 70  |2%=0:p1$=$&380:p|
00000130  32 24 3d 24 26 33 38 41  0d 00 8c 1b f2 63 68 6f  |2$=$&38A.....cho|
00000140  6f 73 65 3a f2 73 63 72  65 65 6e 3a f2 63 68 61  |ose:.screen:.cha|
00000150  6e 67 65 0d 00 96 0a f2  65 6e 64 3a e0 0d 00 a0  |nge.....end:....|
00000160  0c dd f2 63 68 6f 6f 73  65 0d 00 aa 1b 73 63 31  |...choose....sc1|
00000170  25 3d 30 3a 73 63 32 25  3d 30 3a 66 25 3d 31 3a  |%=0:sc2%=0:f%=1:|
00000180  73 25 3d 31 0d 00 b4 12  65 6e 64 25 3d 30 3a 74  |s%=1....end%=0:t|
00000190  6d 31 25 3d 32 30 0d 00  be 09 f2 66 69 6c 6c 0d  |m1%=20.....fill.|
000001a0  00 c8 1c f2 64 28 22 43  68 6f 6f 73 65 20 6c 65  |....d("Choose le|
000001b0  76 65 6c 22 2c 31 34 2c  31 32 29 0d 00 d2 18 f1  |vel",14,12).....|
000001c0  8a 31 35 2c 31 37 29 22  31 20 20 3d 20 20 65 61  |.15,17)"1  =  ea|
000001d0  73 79 22 0d 00 dc 18 f1  8a 31 35 2c 31 39 29 22  |sy"......15,19)"|
000001e0  32 20 20 3d 20 20 68 61  72 64 22 0d 00 e6 27 f5  |2  =  hard"...'.|
000001f0  3a 6c 65 76 65 6c 25 3d  a5 2d 34 38 3a fd 20 6c  |:level%=.-48:. l|
00000200  65 76 65 6c 25 3e 30 20  80 20 6c 65 76 65 6c 25  |evel%>0 . level%|
00000210  3c 33 0d 00 f0 1c f2 64  28 22 43 68 6f 6f 73 65  |<3.....d("Choose|
00000220  20 62 6f 6e 75 73 22 2c  31 34 2c 31 32 29 0d 00  | bonus",14,12)..|
00000230  fa 18 f1 8a 31 35 2c 31  35 29 22 30 20 20 3d 20  |....15,15)"0  = |
00000240  20 6e 6f 6e 65 22 0d 01  04 18 f1 8a 31 35 2c 31  | none"......15,1|
00000250  37 29 22 31 20 20 3d 20  20 6c 69 6e 65 22 0d 01  |7)"1  =  line"..|
00000260  0e 18 f1 8a 31 35 2c 31  39 29 22 32 20 20 3d 20  |....15,19)"2  = |
00000270  20 74 69 6d 65 22 0d 01  18 18 f1 8a 31 35 2c 32  | time"......15,2|
00000280  31 29 22 33 20 20 3d 20  20 62 6f 74 68 22 0d 01  |1)"3  =  both"..|
00000290  22 25 f5 3a 67 61 6d 65  25 3d a5 2d 34 38 3a fd  |"%.:game%=.-48:.|
000002a0  20 67 61 6d 65 25 3e 2d  31 20 80 20 67 61 6d 65  | game%>-1 . game|
000002b0  25 3c 34 0d 01 2c 05 e1  0d 01 36 0a dd f2 66 69  |%<4..,....6...fi|
000002c0  6c 6c 0d 01 40 17 f2 62  6f 78 28 30 2c 30 2c 31  |ll..@..box(0,0,1|
000002d0  32 37 39 2c 31 30 32 33  29 0d 01 4a 19 f2 62 6f  |279,1023)..J..bo|
000002e0  78 28 34 30 38 2c 32 34  38 2c 38 36 34 2c 37 31  |x(408,248,864,71|
000002f0  32 29 0d 01 54 2e e6 30  2c 31 32 39 3a ef 32 34  |2)..T..0,129:.24|
00000300  2c 34 31 36 3b 32 35 36  3b 38 35 36 3b 37 30 34  |,416;256;856;704|
00000310  3b 3a da 3a ef 32 36 3a  3f 26 44 33 3d 32 35 35  |;:.:.26:?&D3=255|
00000320  0d 01 5e 05 e1 0d 01 68  0c dd f2 73 63 72 65 65  |..^....h...scree|
00000330  6e 0d 01 72 15 db 3a fb  31 3a f7 20 8d 74 58 48  |n..r..:.1:. .tXH|
00000340  3a f2 72 65 61 64 0d 01  7c 1f e6 30 2c 31 32 39  |:.read..|..0,129|
00000350  3a ef 32 34 2c 31 36 3b  34 37 32 3b 35 37 36 3b  |:.24,16;472;576;|
00000360  31 30 30 37 3b 0d 01 86  09 da 3a ef 32 36 0d 01  |1007;.....:.26..|
00000370  90 1d e6 30 2c 30 3a f2  62 6f 78 28 32 34 2c 34  |...0,0:.box(24,4|
00000380  38 30 2c 35 36 38 2c 39  39 39 29 0d 01 9a 20 e6  |80,568,999)... .|
00000390  30 2c 31 3a f2 62 6f 78  28 35 39 32 2c 37 34 36  |0,1:.box(592,746|
000003a0  2c 31 32 36 34 2c 31 30  30 37 29 0d 01 a4 1a f2  |,1264,1007).....|
000003b0  62 6f 78 28 35 39 32 2c  34 37 32 2c 31 32 36 34  |box(592,472,1264|
000003c0  2c 37 33 32 29 0d 01 ae  18 f2 62 6f 78 28 31 36  |,732).....box(16|
000003d0  2c 31 36 2c 31 32 36 34  2c 33 38 34 29 0d 01 b8  |,16,1264,384)...|
000003e0  1e f2 64 28 70 31 24 2c  32 30 2c 32 29 3a f2 64  |..d(p1$,20,2):.d|
000003f0  28 70 32 24 2c 32 30 2c  31 30 29 0d 01 c2 1e f2  |(p2$,20,10).....|
00000400  64 28 69 31 24 2c 33 36  2c 32 29 3a f2 64 28 69  |d(i1$,36,2):.d(i|
00000410  32 24 2c 33 36 2c 31 30  29 0d 01 cc 19 77 31 24  |2$,36,10)....w1$|
00000420  3d c3 28 77 31 25 29 3a  77 32 24 3d c3 28 77 32  |=.(w1%):w2$=.(w2|
00000430  25 29 0d 01 d6 0e f1 8a  32 30 2c 36 29 77 73 24  |%)......20,6)ws$|
00000440  0d 01 e0 0f f1 8a 32 30  2c 31 34 29 77 73 24 0d  |......20,14)ws$.|
00000450  01 ea 0e f1 8a 32 35 2c  36 29 77 31 24 0d 01 f4  |.....25,6)w1$...|
00000460  0f f1 8a 32 35 2c 31 34  29 77 32 24 0d 01 fe 0e  |...25,14)w2$....|
00000470  f1 8a 33 37 2c 36 29 22  30 22 0d 02 08 0f f1 8a  |..37,6)"0"......|
00000480  33 37 2c 31 34 29 22 30  22 0d 02 12 1f f2 64 28  |37,14)"0".....d(|
00000490  22 31 22 2c 32 38 2c 32  33 29 3a f2 64 28 22 31  |"1",28,23):.d("1|
000004a0  22 2c 33 32 2c 32 33 29  0d 02 1c 1f f2 64 28 22  |",32,23).....d("|
000004b0  78 22 2c 33 30 2c 32 33  29 3a f2 64 28 22 3d 22  |x",30,23):.d("="|
000004c0  2c 33 34 2c 32 33 29 0d  02 26 29 f1 8a 36 2c 32  |,34,23)..&)..6,2|
000004d0  37 29 22 43 68 61 6e 67  65 20 64 69 67 69 74 73  |7)"Change digits|
000004e0  20 75 73 69 6e 67 20 20  5a 20 61 6e 64 20 43 22  | using  Z and C"|
000004f0  0d 02 30 2a f1 8a 39 2c  32 39 29 22 52 45 54 55  |..0*..9,29)"RETU|
00000500  52 4e 20 20 66 6f 72 20  74 68 65 20 61 6e 73 77  |RN  for the answ|
00000510  65 72 22 3a f2 73 63 72  61 6d 0d 02 3a 13 e7 20  |er":.scram..:.. |
00000520  67 61 6d 65 25 3e 31 20  f2 74 62 6f 78 0d 02 44  |game%>1 .tbox..D|
00000530  05 e1 0d 02 4e 0a dd f2  74 62 6f 78 0d 02 58 1c  |....N...tbox..X.|
00000540  f2 62 6f 78 28 31 36 2c  33 39 36 2c 33 34 2a 33  |.box(16,396,34*3|
00000550  32 2b 34 2c 34 36 30 29  0d 02 62 1f f2 62 6f 78  |2+4,460)..b..box|
00000560  28 33 35 2a 33 32 2d 31  36 2c 33 39 36 2c 31 32  |(35*32-16,396,12|
00000570  36 34 2c 34 36 30 29 0d  02 6c 17 f1 8a 32 2c 31  |64,460)..l...2,1|
00000580  38 29 22 54 69 6d 65 20  62 6f 6e 75 73 22 0d 02  |8)"Time bonus"..|
00000590  76 05 e1 0d 02 80 0a dd  f2 72 65 61 64 0d 02 8a  |v........read...|
000005a0  1b e3 20 6e 25 3d 31 b8  33 35 3a f3 20 70 72 6f  |.. n%=1.35:. pro|
000005b0  64 25 28 6e 25 29 3a ed  0d 02 94 1a e3 20 6e 25  |d%(n%):...... n%|
000005c0  3d 31 b8 38 3a f3 20 67  6f 6f 64 24 28 6e 25 29  |=1.8:. good$(n%)|
000005d0  3a ed 0d 02 9e 05 e1 0d  02 a8 16 dd f2 62 6f 78  |:............box|
000005e0  28 78 31 2c 79 31 2c 78  32 2c 79 32 29 0d 02 b2  |(x1,y1,x2,y2)...|
000005f0  26 ec 78 31 2c 79 31 3a  df 78 31 2c 79 32 3a df  |&.x1,y1:.x1,y2:.|
00000600  78 32 2c 79 32 3a df 78  32 2c 79 31 3a df 78 31  |x2,y2:.x2,y1:.x1|
00000610  2c 79 31 0d 02 bc 05 e1  0d 02 c6 0b dd f2 73 63  |,y1...........sc|
00000620  72 61 6d 0d 02 d0 22 e7  20 6c 65 76 65 6c 25 3d  |ram...". level%=|
00000630  31 20 68 69 67 68 25 3d  32 32 20 8b 20 68 69 67  |1 high%=22 . hig|
00000640  68 25 3d 33 35 0d 02 da  16 f2 72 6e 64 28 68 69  |h%=35.....rnd(hi|
00000650  67 68 25 29 3a 59 70 6f  73 3d 30 0d 02 e4 19 e3  |gh%):Ypos=0.....|
00000660  20 6e 25 3d 31 b8 31 36  3a 58 70 6f 73 3d 6e 25  | n%=1.16:Xpos=n%|
00000670  20 83 20 34 0d 02 ee 13  e7 20 58 70 6f 73 3d 30  | . 4..... Xpos=0|
00000680  20 58 70 6f 73 3d 34 0d  02 f8 18 e7 20 58 70 6f  | Xpos=4..... Xpo|
00000690  73 3d 31 20 59 70 6f 73  3d 59 70 6f 73 2b 32 0d  |s=1 Ypos=Ypos+2.|
000006a0  03 02 23 6e 24 3d c3 28  70 72 6f 64 25 28 63 6f  |..#n$=.(prod%(co|
000006b0  6d 70 25 28 6e 25 29 29  29 3a 3f 26 44 33 3d 32  |mp%(n%))):?&D3=2|
000006c0  35 35 0d 03 0c 19 e7 20  a9 6e 24 3c 32 20 78 25  |55..... .n$<2 x%|
000006d0  3d 2d 31 20 8b 20 78 25  3d 2d 32 0d 03 16 1d f2  |=-1 . x%=-2.....|
000006e0  64 28 6e 24 2c 58 70 6f  73 2a 34 2b 78 25 2c 59  |d(n$,Xpos*4+x%,Y|
000006f0  70 6f 73 2a 32 2d 32 29  0d 03 20 1a d4 31 2c 2d  |pos*2-2).. ..1,-|
00000700  31 32 2c 30 2c 31 3a ed  20 6e 25 3a 3f 26 44 33  |12,0,1:. n%:?&D3|
00000710  3d 30 0d 03 2a 05 e1 0d  03 34 0d dd f2 72 6e 64  |=0..*....4...rnd|
00000720  28 74 25 29 0d 03 3e 0b  5a 3d b3 28 2d 91 29 0d  |(t%)..>.Z=.(-.).|
00000730  03 48 1d e3 20 6e 25 3d  31 20 b8 20 74 25 2b 31  |.H.. n%=1 . t%+1|
00000740  3a 64 25 28 6e 25 29 3d  6e 25 3a ed 0d 03 52 1f  |:d%(n%)=n%:...R.|
00000750  f5 3a 72 25 3d b3 28 74  25 29 3a 63 6f 6d 70 25  |.:r%=.(t%):comp%|
00000760  28 74 25 29 3d 64 25 28  72 25 29 0d 03 5c 22 e3  |(t%)=d%(r%)..\".|
00000770  20 6e 25 3d 72 25 20 b8  20 74 25 2d 31 3a 64 25  | n%=r% . t%-1:d%|
00000780  28 6e 25 29 3d 64 25 28  6e 25 2b 31 29 0d 03 66  |(n%)=d%(n%+1)..f|
00000790  14 ed 3a 74 25 3d 74 25  2d 31 3a fd 20 74 25 3d  |..:t%=t%-1:. t%=|
000007a0  31 0d 03 70 12 63 6f 6d  70 25 28 31 29 3d 64 25  |1..p.comp%(1)=d%|
000007b0  28 31 29 0d 03 7a 05 e1  0d 03 84 11 dd f2 64 28  |(1)..z........d(|
000007c0  41 24 2c 78 25 2c 79 25  29 0d 03 8e 20 58 25 3d  |A$,x%,y%)... X%=|
000007d0  30 3a 59 25 3d 31 33 3a  41 25 3d 31 30 3a 44 3d  |0:Y%=13:A%=10:D=|
000007e0  26 44 30 30 3a 4d 25 3d  30 0d 03 98 17 43 24 3d  |&D00:M%=0....C$=|
000007f0  bd 32 34 30 2b bd 38 2b  bd 31 30 2b bd 32 34 31  |.240+.8+.10+.241|
00000800  0d 03 a2 1a f5 3a 4d 25  3d 4d 25 2b 31 3a 42 24  |.....:M%=M%+1:B$|
00000810  3d c1 41 24 2c 4d 25 2c  31 29 0d 03 ac 13 3f 44  |=.A$,M%,1)....?D|
00000820  3d 97 28 42 24 29 3a d6  26 46 46 46 31 0d 03 b6  |=.(B$):.&FFF1...|
00000830  2b ef 32 33 2c 32 34 30  2c 44 3f 31 2c 44 3f 31  |+.23,240,D?1,D?1|
00000840  2c 44 3f 32 2c 44 3f 32  2c 44 3f 33 2c 44 3f 33  |,D?2,D?2,D?3,D?3|
00000850  2c 44 3f 34 2c 44 3f 34  0d 03 c0 2b ef 32 33 2c  |,D?4,D?4...+.23,|
00000860  32 34 31 2c 44 3f 35 2c  44 3f 35 2c 44 3f 36 2c  |241,D?5,D?5,D?6,|
00000870  44 3f 36 2c 44 3f 37 2c  44 3f 37 2c 44 3f 38 2c  |D?6,D?7,D?7,D?8,|
00000880  44 3f 38 0d 03 ca 13 f1  8a 78 25 2b 4d 25 2d 31  |D?8......x%+M%-1|
00000890  2c 79 25 29 43 24 0d 03  d4 0e fd 20 4d 25 3e a9  |,y%)C$..... M%>.|
000008a0  41 24 2d 31 0d 03 de 05  e1 0d 03 e8 0c dd f2 63  |A$-1...........c|
000008b0  68 61 6e 67 65 0d 03 f2  25 67 6f 25 3d b3 28 32  |hange...%go%=.(2|
000008c0  29 3a 6f 6b 25 3d 30 3a  6e 6f 6b 25 3d 31 3a 65  |):ok%=0:nok%=1:e|
000008d0  31 25 3d 30 3a 65 32 25  3d 30 0d 03 fc 19 f5 3a  |1%=0:e2%=0.....:|
000008e0  67 6f 25 3d 67 6f 25 2b  31 3a 70 6c 25 3d 67 6f  |go%=go%+1:pl%=go|
000008f0  25 83 32 0d 04 06 1a f2  70 3a f2 63 3a f1 8a 32  |%.2.....p:.c:..2|
00000900  2c 32 33 29 22 59 6f 75  72 20 67 6f 22 0d 04 10  |,23)"Your go"...|
00000910  1d f2 64 28 70 24 2c 31  30 2c 32 33 29 3a f2 64  |..d(p$,10,23):.d|
00000920  28 69 24 2c 33 36 2c 32  33 29 0d 04 1a 1f e7 20  |(i$,36,23)..... |
00000930  67 61 6d 65 25 3e 31 20  f1 8a 31 33 2c 31 38 29  |game%>1 ..13,18)|
00000940  c4 32 30 2c bd 32 32 38  29 0d 04 24 1e 74 6d 25  |.20,.228)..$.tm%|
00000950  3d 32 31 30 30 30 3a e7  20 67 61 6d 65 25 3d 31  |=21000:. game%=1|
00000960  20 74 6d 31 25 3d 30 0d  04 2e 1f e7 20 74 6d 31  | tm1%=0..... tm1|
00000970  25 3e 31 30 20 64 65 63  25 3d 34 30 20 8b 20 64  |%>10 dec%=40 . d|
00000980  65 63 25 3d 32 30 0d 04  38 10 f2 6b 65 79 73 3a  |ec%=20..8..keys:|
00000990  f2 63 68 65 63 6b 0d 04  42 15 e7 20 6f 6b 25 3c  |.check..B.. ok%<|
000009a0  31 35 20 49 3d a6 28 32  30 30 29 0d 04 4c 1a fd  |15 I=.(200)..L..|
000009b0  20 6f 6b 25 3d 31 35 3a  49 3d a6 28 32 30 30 29  | ok%=15:I=.(200)|
000009c0  3a 6e 25 3d 30 0d 04 56  21 f5 3a 6e 25 3d 6e 25  |:n%=0..V!.:n%=n%|
000009d0  2b 31 3a 61 25 3d 70 72  6f 64 25 28 63 6f 6d 70  |+1:a%=prod%(comp|
000009e0  25 28 6e 25 29 29 0d 04  60 18 e7 20 61 25 3e 30  |%(n%))..`.. a%>0|
000009f0  20 65 6e 64 25 3d 31 3a  f2 6f 6b 3a e1 20 0d 04  | end%=1:.ok:. ..|
00000a00  6a 0b fd 20 6e 25 3d 31  36 0d 04 74 05 e1 0d 04  |j.. n%=16..t....|
00000a10  7e 07 dd f2 70 0d 04 88  29 e7 20 70 6c 25 3d 31  |~...p...). pl%=1|
00000a20  20 70 24 3d 70 31 24 3a  69 24 3d 69 31 24 20 8b  | p$=p1$:i$=i1$ .|
00000a30  20 70 24 3d 70 32 24 3a  69 24 3d 69 32 24 0d 04  | p$=p2$:i$=i2$..|
00000a40  92 05 e1 0d 04 9c 07 dd  f2 63 0d 04 a6 15 f2 64  |.........c.....d|
00000a50  28 c4 32 30 2c 22 20 22  29 2c 32 2c 32 33 29 0d  |(.20," "),2,23).|
00000a60  04 b0 05 e1 0d 04 ba 0a  dd f2 6b 65 79 73 0d 04  |..........keys..|
00000a70  c4 2e e7 20 6e 6f 6b 25  3d 31 20 6f 72 24 3d 22  |... nok%=1 or$="|
00000a80  61 6e 64 22 20 8b 20 6f  72 24 3d bd 32 32 39 2b  |and" . or$=.229+|
00000a90  bd 32 33 30 2b bd 32 33  31 3a fb 31 0d 04 ce 11  |.230+.231:.1....|
00000aa0  f1 8a 32 39 2c 32 37 29  22 20 20 20 22 0d 04 d8  |..29,27)"   "...|
00000ab0  0f f1 8a 32 39 2c 32 37  29 6f 72 24 0d 04 e2 0f  |...29,27)or$....|
00000ac0  6b 25 3d 30 3a 6a 25 3d  32 3a f5 0d 04 ec 0b f5  |k%=0:j%=2:......|
00000ad0  3a 2a 46 58 31 35 0d 04  f6 14 e7 20 67 61 6d 65  |:*FX15..... game|
00000ae0  25 3e 31 20 f2 74 69 6d  65 72 0d 05 00 1e fd 20  |%>1 .timer..... |
00000af0  a6 28 2d 39 38 29 20 84  20 a6 28 2d 38 33 29 20  |.(-98) . .(-83) |
00000b00  84 20 a6 28 2d 37 34 29  0d 05 0a 12 e7 20 a6 28  |. .(-74)..... .(|
00000b10  2d 39 38 29 20 6b 25 3d  39 30 0d 05 14 12 e7 20  |-98) k%=90..... |
00000b20  a6 28 2d 38 33 29 20 6b  25 3d 36 37 0d 05 1e 12  |.(-83) k%=67....|
00000b30  e7 20 a6 28 2d 37 34 29  20 6b 25 3d 31 33 0d 05  |. .(-74) k%=13..|
00000b40  28 19 e7 20 6a 25 3d 31  20 80 20 6e 6f 6b 25 3d  |(.. j%=1 . nok%=|
00000b50  30 20 e5 8d 44 46 45 0d  05 32 2a e7 20 6b 25 3d  |0 ..DFE..2*. k%=|
00000b60  39 30 20 6a 25 3d 30 3a  66 25 3d 66 25 2b 31 3a  |90 j%=0:f%=f%+1:|
00000b70  f2 70 65 65 70 3a e7 20  66 25 3e 39 20 66 25 3d  |.peep:. f%>9 f%=|
00000b80  31 0d 05 3c 19 e7 20 6a  25 3d 30 20 80 20 6e 6f  |1..<.. j%=0 . no|
00000b90  6b 25 3d 30 20 e5 8d 44  50 45 0d 05 46 2a e7 20  |k%=0 ..DPE..F*. |
00000ba0  6b 25 3d 36 37 20 6a 25  3d 31 3a 73 25 3d 73 25  |k%=67 j%=1:s%=s%|
00000bb0  2b 31 3a f2 70 65 65 70  3a e7 20 73 25 3e 39 20  |+1:.peep:. s%>9 |
00000bc0  73 25 3d 31 0d 05 50 15  66 24 3d c3 28 66 25 29  |s%=1..P.f$=.(f%)|
00000bd0  3a 73 24 3d c3 28 73 25  29 0d 05 5a 1d f2 64 28  |:s$=.(s%)..Z..d(|
00000be0  66 24 2c 32 38 2c 32 33  29 3a f2 64 28 73 24 2c  |f$,28,23):.d(s$,|
00000bf0  33 32 2c 32 33 29 0d 05  64 19 fd 20 6b 25 3d 31  |32,23)..d.. k%=1|
00000c00  33 3a f2 64 28 22 20 22  2c 33 36 2c 32 33 29 0d  |3:.d(" ",36,23).|
00000c10  05 6e 1b 61 6e 73 25 3d  66 25 2a 73 25 3a 61 6e  |.n.ans%=f%*s%:an|
00000c20  73 24 3d c3 28 61 6e 73  25 29 0d 05 78 1a f2 64  |s$=.(ans%)..x..d|
00000c30  28 61 6e 73 24 2c 33 38  2d a9 28 61 6e 73 24 29  |(ans$,38-.(ans$)|
00000c40  2c 32 33 29 0d 05 82 05  e1 0d 05 8c 0b dd f2 74  |,23)...........t|
00000c50  69 6d 65 72 0d 05 96 21  74 6d 25 3d 74 6d 25 2d  |imer...!tm%=tm%-|
00000c60  64 65 63 25 3a 74 6d 31  25 3d a8 28 74 6d 25 2f  |dec%:tm1%=.(tm%/|
00000c70  31 30 30 30 29 0d 05 a0  15 e7 20 74 6d 31 25 3c  |1000)..... tm1%<|
00000c80  30 20 74 6d 31 25 3d 30  3a e1 0d 05 aa 2b e7 20  |0 tm1%=0:....+. |
00000c90  74 6d 31 25 3c 31 30 20  74 6d 24 3d 22 20 22 2b  |tm1%<10 tm$=" "+|
00000ca0  c3 28 74 6d 31 25 29 20  8b 20 74 6d 24 3d c3 28  |.(tm1%) . tm$=.(|
00000cb0  74 6d 31 25 29 0d 05 b4  15 fb 31 3a f1 8a 33 36  |tm1%).....1:..36|
00000cc0  2c 31 38 29 74 6d 24 3a  fb 30 0d 05 be 18 f1 8a  |,18)tm$:.0......|
00000cd0  31 33 2b 74 6d 31 25 2c  31 38 29 bd 32 32 38 3a  |13+tm1%,18).228:|
00000ce0  fb 31 0d 05 c8 06 fb 31  0d 05 d2 05 e1 0d 05 dc  |.1.....1........|
00000cf0  0a dd f2 70 65 65 70 0d  05 e6 10 d4 31 2c 2d 31  |...peep.....1,-1|
00000d00  30 2c 31 38 30 2c 32 0d  05 f0 05 e1 0d 05 fa 0b  |0,180,2.........|
00000d10  dd f2 63 68 65 63 6b 0d  06 04 12 6e 25 3d 30 3a  |..check....n%=0:|
00000d20  f5 3a 6e 25 3d 6e 25 2b  31 0d 06 0e 19 74 6f 74  |.:n%=n%+1....tot|
00000d30  25 3d 70 72 6f 64 25 28  63 6f 6d 70 25 28 6e 25  |%=prod%(comp%(n%|
00000d40  29 29 0d 06 18 17 fd 20  61 6e 73 25 3d 74 6f 74  |))..... ans%=tot|
00000d50  25 20 84 20 6e 25 3d 31  36 0d 06 22 1a e7 20 61  |% . n%=16..".. a|
00000d60  6e 73 25 3d 74 6f 74 25  20 f2 6f 6b 20 8b 20 f2  |ns%=tot% .ok . .|
00000d70  6e 6f 6b 0d 06 2c 05 e1  0d 06 36 08 dd f2 6f 6b  |nok..,....6...ok|
00000d80  0d 06 40 0b 2a 46 58 31  35 20 30 0d 06 4a 17 6f  |..@.*FX15 0..J.o|
00000d90  6b 25 3d 6f 6b 25 2b 31  3a 6e 6f 6b 25 3d 30 3a  |k%=ok%+1:nok%=0:|
00000da0  f2 63 0d 06 54 15 58 70  6f 73 3d 28 6e 25 20 83  |.c..T.Xpos=(n% .|
00000db0  20 34 29 2a 34 2d 32 0d  06 5e 15 e7 20 58 70 6f  | 4)*4-2..^.. Xpo|
00000dc0  73 3d 2d 32 20 58 70 6f  73 3d 31 34 0d 06 68 1b  |s=-2 Xpos=14..h.|
00000dd0  59 70 6f 73 3d 32 2b 28  28 6e 25 2d 31 29 81 20  |Ypos=2+((n%-1). |
00000de0  34 29 2a 34 3a f2 70 0d  06 72 54 e7 20 65 6e 64  |4)*4:.p..rT. end|
00000df0  25 3d 30 20 f2 64 28 67  6f 6f 64 24 28 b3 28 38  |%=0 .d(good$(.(8|
00000e00  29 29 2c 32 2c 32 33 29  20 8b 20 f1 8a 32 2c 32  |)),2,23) . ..2,2|
00000e10  33 29 22 59 6f 75 72 73  22 3a 70 6c 25 3d 70 6c  |3)"Yours":pl%=pl|
00000e20  25 2b 31 3a f2 70 3a f2  64 28 70 24 2c 38 2c 32  |%+1:.p:.d(p$,8,2|
00000e30  33 29 3a 49 3d a6 28 32  30 30 29 0d 06 7c 35 3f  |3):I=.(200)..|5?|
00000e40  26 44 33 3d 32 35 35 3a  f2 64 28 69 24 2c 58 70  |&D3=255:.d(i$,Xp|
00000e50  6f 73 2c 59 70 6f 73 29  3a 3f 26 44 33 3d 30 3a  |os,Ypos):?&D3=0:|
00000e60  d4 31 2c 31 2c 34 2a 28  6f 6b 25 2b 31 29 2c 32  |.1,1,4*(ok%+1),2|
00000e70  0d 06 86 76 e7 20 70 6c  25 3d 31 20 73 63 31 25  |...v. pl%=1 sc1%|
00000e80  3d 73 63 31 25 2b 61 6e  73 25 2b 74 6d 31 25 3a  |=sc1%+ans%+tm1%:|
00000e90  70 72 6f 64 25 28 63 6f  6d 70 25 28 6e 25 29 29  |prod%(comp%(n%))|
00000ea0  3d 2d 31 3a f2 70 73 28  73 63 31 25 2c 36 29 20  |=-1:.ps(sc1%,6) |
00000eb0  8b 20 73 63 32 25 3d 73  63 32 25 2b 61 6e 73 25  |. sc2%=sc2%+ans%|
00000ec0  2b 74 6d 31 25 3a 70 72  6f 64 25 28 63 6f 6d 70  |+tm1%:prod%(comp|
00000ed0  25 28 6e 25 29 29 3d 2d  32 3a f2 70 73 28 73 63  |%(n%))=-2:.ps(sc|
00000ee0  32 25 2c 31 34 29 0d 06  90 05 e1 0d 06 9a 09 dd  |2%,14)..........|
00000ef0  f2 6e 6f 6b 0d 06 a4 0b  2a 46 58 31 35 20 30 0d  |.nok....*FX15 0.|
00000f00  06 ae 14 6e 6f 6b 25 3d  31 3a 74 6d 31 25 3d 30  |...nok%=1:tm1%=0|
00000f10  3a f2 63 0d 06 b8 2e f1  8a 32 2c 32 33 29 22 4e  |:.c......2,23)"N|
00000f20  6f 74 20 69 6e 22 3a f2  64 28 22 53 71 75 61 72  |ot in":.d("Squar|
00000f30  65 22 2c 39 2c 32 33 29  3a d4 30 2c 31 2c 35 2c  |e",9,23):.0,1,5,|
00000f40  36 0d 06 c2 40 e7 20 70  6c 25 3d 31 20 73 63 32  |6...@. pl%=1 sc2|
00000f50  25 3d 73 63 32 25 2b 32  35 3a f2 70 73 28 73 63  |%=sc2%+25:.ps(sc|
00000f60  32 25 2c 31 34 29 20 8b  20 73 63 31 25 3d 73 63  |2%,14) . sc1%=sc|
00000f70  31 25 2b 32 35 3a f2 70  73 28 73 63 31 25 2c 36  |1%+25:.ps(sc1%,6|
00000f80  29 0d 06 cc 05 e1 0d 06  d6 10 dd f2 70 73 28 73  |)...........ps(s|
00000f90  63 25 2c 79 25 29 0d 06  e0 0e 73 63 24 3d c3 28  |c%,y%)....sc$=.(|
00000fa0  73 63 25 29 0d 06 ea 16  f1 8a 33 38 2d a9 28 73  |sc%)......38-.(s|
00000fb0  63 24 29 2c 79 25 29 73  63 24 0d 06 f4 05 e1 0d  |c$),y%)sc$......|
00000fc0  06 fe 09 dd f2 65 6e 64  0d 07 08 28 e7 20 67 61  |.....end...(. ga|
00000fd0  6d 65 25 3d 31 20 84 20  67 61 6d 65 25 3d 33 20  |me%=1 . game%=3 |
00000fe0  f2 6c 62 6f 6e 75 73 20  8b 20 f2 63 6c 65 61 72  |.lbonus . .clear|
00000ff0  0d 07 12 3b e7 20 73 63  31 25 3e 73 63 32 25 20  |...;. sc1%>sc2% |
00001000  77 31 25 3d 77 31 25 2b  31 20 8b 20 77 32 25 3d  |w1%=w1%+1 . w2%=|
00001010  77 32 25 2b 31 3a 77 31  24 3d c3 28 77 31 25 29  |w2%+1:w1$=.(w1%)|
00001020  3a 77 32 24 3d c3 28 77  32 25 29 0d 07 1c 0e f1  |:w2$=.(w2%).....|
00001030  8a 32 35 2c 36 29 77 31  24 0d 07 26 0f f1 8a 32  |.25,6)w1$..&...2|
00001040  35 2c 31 34 29 77 32 24  0d 07 30 2d f1 8a 34 2c  |5,14)w2$..0-..4,|
00001050  32 38 29 22 44 6f 20 79  6f 75 20 77 61 6e 74 20  |28)"Do you want |
00001060  74 6f 20 70 6c 61 79 20  61 67 61 69 6e 20 28 59  |to play again (Y|
00001070  2f 4e 29 3f 22 0d 07 3a  16 f5 3a 47 24 3d be 3a  |/N)?"..:..:G$=.:|
00001080  fd 20 a7 22 59 4e 22 2c  47 24 29 0d 07 44 42 e7  |. ."YN",G$)..DB.|
00001090  20 47 24 3d 22 59 22 20  f2 63 6c 65 61 72 3a f1  | G$="Y" .clear:.|
000010a0  8a 33 2c 32 38 29 22 44  6f 20 79 6f 75 20 77 61  |.3,28)"Do you wa|
000010b0  6e 74 20 74 68 65 20 73  61 6d 65 20 62 6f 6e 75  |nt the same bonu|
000010c0  73 20 28 59 2f 4e 29 3f  22 20 8b 20 e0 0d 07 4e  |s (Y/N)?" . ...N|
000010d0  16 f5 3a 47 24 3d be 3a  fd 20 a7 22 59 4e 22 2c  |..:G$=.:. ."YN",|
000010e0  47 24 29 0d 07 58 1c e7  20 47 24 3d 22 59 22 20  |G$)..X.. G$="Y" |
000010f0  e5 8d 74 56 40 20 8b 20  db 3a e5 8d 74 4c 40 0d  |..tV@ . .:..tL@.|
00001100  07 62 05 e1 0d 07 6c 0c  dd f2 6c 62 6f 6e 75 73  |.b....l...lbonus|
00001110  0d 07 76 0a f2 63 6c 65  61 72 0d 07 80 19 f2 64  |..v..clear.....d|
00001120  28 22 4c 69 6e 65 20 62  6f 6e 75 73 22 2c 34 2c  |("Line bonus",4,|
00001130  32 33 29 0d 07 8a 0f f1  8a 32 30 2c 32 32 29 70  |23)......20,22)p|
00001140  31 24 0d 07 94 0f f1 8a  32 30 2c 32 35 29 70 32  |1$......20,25)p2|
00001150  24 0d 07 9e 19 f2 6c 69  6e 65 28 31 2c 34 29 3a  |$.....line(1,4):|
00001160  f2 6c 69 6e 65 28 34 2c  31 29 0d 07 a8 05 e1 0d  |.line(4,1)......|
00001170  07 b2 0b dd f2 63 6c 65  61 72 0d 07 bc 21 e3 20  |.....clear...!. |
00001180  52 25 3d 31 b8 39 3a f1  8a 32 2c 32 30 2b 52 25  |R%=1.9:..2,20+R%|
00001190  29 63 6c 24 3a ed 20 52  25 3a e1 0d 07 c6 11 dd  |)cl$:. R%:......|
000011a0  f2 6c 69 6e 65 28 46 25  2c 47 25 29 0d 07 d0 17  |.line(F%,G%)....|
000011b0  e3 20 48 25 3d 30 b8 33  3a 4c 25 3d 48 25 2a 47  |. H%=0.3:L%=H%*G|
000011c0  25 2b 31 0d 07 da 5a 6c  76 25 3d 70 72 6f 64 25  |%+1...Zlv%=prod%|
000011d0  28 63 6f 6d 70 25 28 4c  25 29 29 2b 70 72 6f 64  |(comp%(L%))+prod|
000011e0  25 28 63 6f 6d 70 25 28  4c 25 2b 31 2a 46 25 29  |%(comp%(L%+1*F%)|
000011f0  29 2b 70 72 6f 64 25 28  63 6f 6d 70 25 28 4c 25  |)+prod%(comp%(L%|
00001200  2b 32 2a 46 25 29 29 2b  70 72 6f 64 25 28 63 6f  |+2*F%))+prod%(co|
00001210  6d 70 25 28 4c 25 2b 33  2a 46 25 29 29 0d 07 e4  |mp%(L%+3*F%))...|
00001220  0c e3 20 56 25 3d 30 b8  33 0d 07 ee 25 76 25 3d  |.. V%=0.3...%v%=|
00001230  6c 76 25 2d 70 72 6f 64  25 28 63 6f 6d 70 25 28  |lv%-prod%(comp%(|
00001240  4c 25 2b 56 25 2a 28 35  2d 47 25 29 29 29 0d 07  |L%+V%*(5-G%)))..|
00001250  f8 19 e7 20 76 25 3d 2d  33 20 65 32 25 3d 65 32  |... v%=-3 e2%=e2|
00001260  25 2b 31 3a f2 65 31 0d  08 02 19 e7 20 76 25 3d  |%+1:.e1..... v%=|
00001270  2d 36 20 65 31 25 3d 65  31 25 2b 31 3a f2 65 32  |-6 e1%=e1%+1:.e2|
00001280  0d 08 0c 0d ed 20 56 25  3a ed 20 48 25 0d 08 16  |..... V%:. H%...|
00001290  05 e1 0d 08 20 08 dd f2  65 31 0d 08 2a 1d 73 63  |.... ...e1..*.sc|
000012a0  32 25 3d 73 63 32 25 2b  35 30 3a 73 63 32 24 3d  |2%=sc2%+50:sc2$=|
000012b0  c3 28 73 63 32 25 29 0d  08 34 11 65 32 24 3d c3  |.(sc2%)..4.e2$=.|
000012c0  28 65 32 25 2a 35 30 29  0d 08 3e 19 f1 8a 33 38  |(e2%*50)..>...38|
000012d0  2d a9 28 73 63 32 24 29  2c 31 34 29 73 63 32 24  |-.(sc2$),14)sc2$|
000012e0  20 0d 08 48 16 f1 8a 33  38 2d a9 28 65 32 24 29  | ..H...38-.(e2$)|
000012f0  2c 32 35 29 65 32 24 0d  08 52 05 e1 0d 08 5c 08  |,25)e2$..R....\.|
00001300  dd f2 65 32 0d 08 66 1d  73 63 31 25 3d 73 63 31  |..e2..f.sc1%=sc1|
00001310  25 2b 35 30 3a 73 63 31  24 3d c3 28 73 63 31 25  |%+50:sc1$=.(sc1%|
00001320  29 0d 08 70 11 65 31 24  3d c3 28 65 31 25 2a 35  |)..p.e1$=.(e1%*5|
00001330  30 29 0d 08 7a 17 f1 8a  33 38 2d a9 28 73 63 31  |0)..z...38-.(sc1|
00001340  24 29 2c 36 29 73 63 31  24 0d 08 84 16 f1 8a 33  |$),6)sc1$......3|
00001350  38 2d a9 28 65 31 24 29  2c 32 32 29 65 31 24 0d  |8-.(e1$),22)e1$.|
00001360  08 8e 05 e1 0d 08 98 1a  dc 20 31 2c 32 2c 33 2c  |......... 1,2,3,|
00001370  34 2c 35 2c 36 2c 37 2c  38 2c 39 2c 31 30 0d 08  |4,5,6,7,8,9,10..|
00001380  a2 1a dc 20 31 32 2c 31  34 2c 31 36 2c 31 38 2c  |... 12,14,16,18,|
00001390  32 30 2c 32 31 2c 32 34  0d 08 ac 1a dc 20 32 35  |20,21,24..... 25|
000013a0  2c 32 37 2c 32 38 2c 33  30 2c 33 32 2c 33 35 2c  |,27,28,30,32,35,|
000013b0  33 36 0d 08 b6 1a dc 20  34 30 2c 34 32 2c 34 35  |36..... 40,42,45|
000013c0  2c 34 38 2c 34 39 2c 35  34 2c 35 36 0d 08 c0 11  |,48,49,54,56....|
000013d0  dc 20 36 33 2c 36 34 2c  37 32 2c 38 31 0d 08 ca  |. 63,64,72,81...|
000013e0  52 dc 20 47 6f 6f 64 20  6f 6e 65 21 2c 57 65 6c  |R. Good one!,Wel|
000013f0  6c 20 64 6f 6e 65 21 2c  46 69 6e 65 21 2c 53 65  |l done!,Fine!,Se|
00001400  68 72 20 47 75 74 21 2c  57 75 6e 64 65 72 62 61  |hr Gut!,Wunderba|
00001410  68 21 2c 4d 75 79 20 62  69 65 6e 21 2c 45 78 63  |h!,Muy bien!,Exc|
00001420  65 6c 6c 65 6e 74 65 21  2c 42 75 65 6e 6f 21 0d  |ellente!,Bueno!.|
00001430  ff                                                |.|
00001431