� Wormy2
� by Martin Sann
� (c) The Micro User
(�1:�23;8202;0;0;0;
24� c%(10),d%(10),sc%(8),hi%(8),K%(100):lv%=0:sp=0
<=sum$=" "+�224+" "+�229+" ":cl$=�36," "):pr$="Press a key"
F*FX200,1
P*FX11,0
Z�ch:�vars:�rnd(9)
d�scr:�num:� � �play
n�
x:
���ch
�@%=1:�:�19,0,4;0;:�mfr
��2:�load(F$)
��8,7)"Level"
��18,7)"Score"
��26,7)"Hiscore"
�� lev=1�8:lev$=�(lev)
�sc%(lev)=?(&37F+lev)
�hi%(lev)=?(&387+lev)
�� L%=0 ?(&387+lev)=hi%(lev)
�sclev$=�(sc%(lev))
�hilev$=�(hi%(lev))
�� lev<3 op$=�225

� lev>2 � lev<5 op$=�226

� lev>4 � lev<7 op$=�227

� lev>6  op$=�228

"�8,8+2*lev)op$+"   "+lev$

,!�22-�(sclev$),8+2*lev)sclev$

6!�31-�(hilev$),8+2*lev)hilev$

@� lev:L%=1:�#0

J%�8,28)"Press S to save hiscores"

T$�choice("Choose level 1 to 8",9)

^� G=35 �save(F$):�DTA

h�2,28)cl$

r�8,28)"Level"

|lv%=G:�15,28)�G

��23,28)"Speed  ?"

�%�choice("Choose speed  1 to 3",4)

�� G=35 �7:�tPA

�sp=G:�30,28)�G

�I=�(100):*FX15,0

��

��

�:

�	��mfr

��1,3:�fr(16,936,1264,1008)

��fr(16,16,1264,912)

��fr(24,24,1256,904)

��
:
��fr(Xo,Yo,X,Y)
"�Xo,Yo:�Xo,Y:�X,Y:�X,Yo:�Xo,Yo
&�
0:
:
��vars
D HI=�:K%(0)=8:w=&5E40:V=&5E38
N"D=-4:P=0:Q=0:M=0:N=10:T=0:U=0 
Xsc=0:go=1:diff=Z%
b�
l:
v��choice(C$,CH%)
�
�2,1)cl$
�
�10,1)C$
�'�:G=�-48:� G>0 � G<CH% � G=35:�peep
��
�:
�
��peep
��1,-10,180,4
��
�:
���rnd(tot)
�� R=1 � tot+1:d%(R)=R:� R
��:rnum=�(tot)
�c%(tot)=d%(rnum)
� R=rnum � tot-1
d%(R)=d%(R+1):� R
!tot=tot-1:� tot=1:c%(1)=d%(1)
 �
*:
4	��scr
>@%=0:�19,0,4;0;19,1,3;0;:�1
H�1,1)"Level "lv%
R�30,1)"Score "sc
\�quest:�0,2:�mfr
f�
p:
z��quest
�X1=14:X2=23:fst=�(9)
�� lv%=1 fst=10
�� lv%=2 fst=�(9)
�'� lv%=3 � fst<c%(go) fst=�(9):�tbC
�� lv%=4 fst=10+�(9)
�� lv%=5 fst=�(5)
�� lv%=6 fst=5+�(4)
�� lv%=7 fst=�(5)*c%(go)
�� lv%=8 fst=(6+�(4))*c%(go)
��3
�/� lv%=1 � lv%=2 x$=�225+sum$:ans=fst+c%(go)
�/� lv%=3 � lv%=4 x$=�226+sum$:ans=fst-c%(go)
�/� lv%=5 � lv%=6 x$=�227+sum$:ans=fst*c%(go)
(� lv%>6  x$=�228+sum$:ans=fst/c%(go)
�X1,1)"  "
� �(�fst)=1 X1=X1+1
$�X1,1)�fst
.�17,1)x$:�X2,1)"  "
8�X2,1)�ans
B�
L:
V	��num
`� num=1 � 9
jX=�(38):Y=2+c%(num)*3
t� X=20 � Y=20 �DjD
~� 3:�X,Y);num:� num
�I=�(500)
��
�:
�
��play
�key=�(7-sp*2)
�� key=88 D=+8
�� key=90 D=-8
�� key=47 D=+4
�� key=58 D=-4
�� �(D)=8 w=w+D � M=M+D
�� M=-4 w=w-640:M=4
�� M=+8 w=w+640:M=0
� !(w+M)=&F0F0F0F0 �nok

4� !w<>0 � !w<>&F0F0F0F0 �DdE � !(w+M)=&F0F0F0F0
 � T>0 T=T-1:�DPE � !(V+U)=0
� diff=2 �tpD
(&� �(K%(P))=8 V=V+K%(P) � U=U+K%(P)
2� U=-4 V=V-640:U=4
<� U=+8 V=V+640:U=0
FP=P+1:� P=100 P=0
PQ=Q+1:� Q=100 Q=0
ZK%(Q)=D:�tpD
dY=�((w-HI)/640)
nX=�((w-HI-(Y*640))/16)
x�X,Y);:A%=135
�"I=((�(&FFF4) � &FF00)/&100)-48
�� I=c%(go) �ok � �nok
�
�X,Y)" "
�!(w+M)=&F0F0F0F0:N=N-1
�� N>0 �TTE � �tpD
��
�:
���ok
�"�1,1,100+go*4,1:T=T+10:go=go+1
�
�score(I)
��
�:
���score(N)
sc=sc+5*diff*sp:�update
�1:�36,1)sc:�3
�go<10 �quest � �all
"�
,:
6��update
@sc%(lv%)=sc
J� sc>hi%(lv%) hi%(lv%)=sc
T?(&37F+lv%)=sc%(lv%)
^?(&387+lv%)=hi%(lv%)
h�
r:
|	��all
��:sc=sc+5*diff*sp:�update
�C�fr(440,248,864,712):�0,131:�24,448;256;856;704;:�:�26:?&D3=255
��15,14)"You got ALL"
��17,16)"of them"
��15,20)pr$
�	� � �
��
�:
�	��nok
��:�0,1,0,20:�update
��0,1:�sq:�0,0:�sq
��
��
:
��sq
WXo=640:Yo=512:X=660:Y=532:�:�fr(Xo,Yo,X,Y):Xo=Xo-32:Yo=Yo-32:X=X+32:Y=Y+32:� Xo=160
&�
0:
:��load(F$)
DT� �:� �=214 �2,1)cl$:�2,1)"Can't find file "+F$:�27,1)pr$:� �:�2,1)cl$:�DZ@
N� L%=1 �
XF�6,1)"Load previous hiscores?":�yn:� G$="Y" �("LOAD "+F$) � L%=1 
b�
l:
v��save(F$)
�L�6,1)"Save the hiscore table?":�yn:� G$="Y" �("SAVE "+F$+" "+�388+"+8")
��
�:
���yn
��30,1)"(Y/N)"
��:G$=�:� �"YN",G$)
��peep:� G$="Y":F$=�in(7)
��
�:
�� �in(i%):� a$,i$,g%,len%
�6�3,1)"Please enter the file name":�30,1)�i%,"*")
�6� � g%=�:a$=�g%:len%=�i$:� len%=0 � g%=13 �7:�dnG
�N� g%=13 � g%=127 � (g%>47 � g%<91):� g%=13 � g%=127 � � len%=i% � i$=i$+a$
�30,1)i$:�peep
3� g%=127 � i$>"" �29+len%,1)"*":i$=�i$,len%-1)
� g%=13 � len%>0:=i$ 
�

00000000  0d 00 0a 0c f4 20 57 6f  72 6d 79 32 0d 00 14 14  |..... Wormy2....|
00000010  f4 20 62 79 20 4d 61 72  74 69 6e 20 53 61 6e 6e  |. by Martin Sann|
00000020  0d 00 1e 18 f4 20 28 63  29 20 54 68 65 20 4d 69  |..... (c) The Mi|
00000030  63 72 6f 20 55 73 65 72  0d 00 28 16 eb 31 3a ef  |cro User..(..1:.|
00000040  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 00  |23;8202;0;0;0;..|
00000050  32 34 de 20 63 25 28 31  30 29 2c 64 25 28 31 30  |24. c%(10),d%(10|
00000060  29 2c 73 63 25 28 38 29  2c 68 69 25 28 38 29 2c  |),sc%(8),hi%(8),|
00000070  4b 25 28 31 30 30 29 3a  6c 76 25 3d 30 3a 73 70  |K%(100):lv%=0:sp|
00000080  3d 30 0d 00 3c 3d 73 75  6d 24 3d 22 20 22 2b bd  |=0..<=sum$=" "+.|
00000090  32 32 34 2b 22 20 22 2b  bd 32 32 39 2b 22 20 22  |224+" "+.229+" "|
000000a0  3a 63 6c 24 3d c4 33 36  2c 22 20 22 29 3a 70 72  |:cl$=.36," "):pr|
000000b0  24 3d 22 50 72 65 73 73  20 61 20 6b 65 79 22 0d  |$="Press a key".|
000000c0  00 46 0c 2a 46 58 32 30  30 2c 31 0d 00 50 0b 2a  |.F.*FX200,1..P.*|
000000d0  46 58 31 31 2c 30 0d 00  5a 15 f2 63 68 3a f2 76  |FX11,0..Z..ch:.v|
000000e0  61 72 73 3a f2 72 6e 64  28 39 29 0d 00 64 17 f2  |ars:.rnd(9)..d..|
000000f0  73 63 72 3a f2 6e 75 6d  3a e7 20 a5 20 f2 70 6c  |scr:.num:. . .pl|
00000100  61 79 0d 00 6e 05 e0 0d  00 78 05 3a 0d 00 82 08  |ay..n....x.:....|
00000110  dd f2 63 68 0d 00 8c 1a  40 25 3d 31 3a db 3a ef  |..ch....@%=1:.:.|
00000120  31 39 2c 30 2c 34 3b 30  3b 3a f2 6d 66 72 0d 00  |19,0,4;0;:.mfr..|
00000130  96 10 fb 32 3a f2 6c 6f  61 64 28 46 24 29 0d 00  |...2:.load(F$)..|
00000140  a0 11 f1 8a 38 2c 37 29  22 4c 65 76 65 6c 22 0d  |....8,7)"Level".|
00000150  00 aa 12 f1 8a 31 38 2c  37 29 22 53 63 6f 72 65  |.....18,7)"Score|
00000160  22 0d 00 b4 14 f1 8a 32  36 2c 37 29 22 48 69 73  |"......26,7)"His|
00000170  63 6f 72 65 22 0d 00 be  19 e3 20 6c 65 76 3d 31  |core"..... lev=1|
00000180  b8 38 3a 6c 65 76 24 3d  c3 28 6c 65 76 29 0d 00  |.8:lev$=.(lev)..|
00000190  c8 18 73 63 25 28 6c 65  76 29 3d 3f 28 26 33 37  |..sc%(lev)=?(&37|
000001a0  46 2b 6c 65 76 29 0d 00  d2 18 68 69 25 28 6c 65  |F+lev)....hi%(le|
000001b0  76 29 3d 3f 28 26 33 38  37 2b 6c 65 76 29 0d 00  |v)=?(&387+lev)..|
000001c0  dc 1f e7 20 4c 25 3d 30  20 3f 28 26 33 38 37 2b  |... L%=0 ?(&387+|
000001d0  6c 65 76 29 3d 68 69 25  28 6c 65 76 29 0d 00 e6  |lev)=hi%(lev)...|
000001e0  16 73 63 6c 65 76 24 3d  c3 28 73 63 25 28 6c 65  |.sclev$=.(sc%(le|
000001f0  76 29 29 0d 00 f0 16 68  69 6c 65 76 24 3d c3 28  |v))....hilev$=.(|
00000200  68 69 25 28 6c 65 76 29  29 0d 00 fa 14 e7 20 6c  |hi%(lev))..... l|
00000210  65 76 3c 33 20 6f 70 24  3d bd 32 32 35 0d 01 04  |ev<3 op$=.225...|
00000220  1c e7 20 6c 65 76 3e 32  20 80 20 6c 65 76 3c 35  |.. lev>2 . lev<5|
00000230  20 6f 70 24 3d bd 32 32  36 0d 01 0e 1c e7 20 6c  | op$=.226..... l|
00000240  65 76 3e 34 20 80 20 6c  65 76 3c 37 20 6f 70 24  |ev>4 . lev<7 op$|
00000250  3d bd 32 32 37 0d 01 18  15 e7 20 6c 65 76 3e 36  |=.227..... lev>6|
00000260  20 20 6f 70 24 3d bd 32  32 38 0d 01 22 1e f1 8a  |  op$=.228.."...|
00000270  38 2c 38 2b 32 2a 6c 65  76 29 6f 70 24 2b 22 20  |8,8+2*lev)op$+" |
00000280  20 20 22 2b 6c 65 76 24  0d 01 2c 21 f1 8a 32 32  |  "+lev$..,!..22|
00000290  2d a9 28 73 63 6c 65 76  24 29 2c 38 2b 32 2a 6c  |-.(sclev$),8+2*l|
000002a0  65 76 29 73 63 6c 65 76  24 0d 01 36 21 f1 8a 33  |ev)sclev$..6!..3|
000002b0  31 2d a9 28 68 69 6c 65  76 24 29 2c 38 2b 32 2a  |1-.(hilev$),8+2*|
000002c0  6c 65 76 29 68 69 6c 65  76 24 0d 01 40 12 ed 20  |lev)hilev$..@.. |
000002d0  6c 65 76 3a 4c 25 3d 31  3a d9 23 30 0d 01 4a 25  |lev:L%=1:.#0..J%|
000002e0  f1 8a 38 2c 32 38 29 22  50 72 65 73 73 20 53 20  |..8,28)"Press S |
000002f0  74 6f 20 73 61 76 65 20  68 69 73 63 6f 72 65 73  |to save hiscores|
00000300  22 0d 01 54 24 f2 63 68  6f 69 63 65 28 22 43 68  |"..T$.choice("Ch|
00000310  6f 6f 73 65 20 6c 65 76  65 6c 20 31 20 74 6f 20  |oose level 1 to |
00000320  38 22 2c 39 29 0d 01 5e  1a e7 20 47 3d 33 35 20  |8",9)..^.. G=35 |
00000330  f2 73 61 76 65 28 46 24  29 3a e5 8d 44 54 41 0d  |.save(F$):..DTA.|
00000340  01 68 0e f1 8a 32 2c 32  38 29 63 6c 24 0d 01 72  |.h...2,28)cl$..r|
00000350  12 f1 8a 38 2c 32 38 29  22 4c 65 76 65 6c 22 0d  |...8,28)"Level".|
00000360  01 7c 14 6c 76 25 3d 47  3a f1 8a 31 35 2c 32 38  |.|.lv%=G:..15,28|
00000370  29 c3 47 0d 01 86 16 f1  8a 32 33 2c 32 38 29 22  |).G......23,28)"|
00000380  53 70 65 65 64 20 20 3f  22 0d 01 90 25 f2 63 68  |Speed  ?"...%.ch|
00000390  6f 69 63 65 28 22 43 68  6f 6f 73 65 20 73 70 65  |oice("Choose spe|
000003a0  65 64 20 20 31 20 74 6f  20 33 22 2c 34 29 0d 01  |ed  1 to 3",4)..|
000003b0  9a 13 e7 20 47 3d 33 35  20 ef 37 3a e5 8d 74 50  |... G=35 .7:..tP|
000003c0  41 0d 01 a4 13 73 70 3d  47 3a f1 8a 33 30 2c 32  |A....sp=G:..30,2|
000003d0  38 29 c3 47 0d 01 ae 14  49 3d a6 28 31 30 30 29  |8).G....I=.(100)|
000003e0  3a 2a 46 58 31 35 2c 30  0d 01 b8 05 db 0d 01 c2  |:*FX15,0........|
000003f0  05 e1 0d 01 cc 05 3a 0d  01 d6 09 dd f2 6d 66 72  |......:......mfr|
00000400  0d 01 e0 1e e6 31 2c 33  3a f2 66 72 28 31 36 2c  |.....1,3:.fr(16,|
00000410  39 33 36 2c 31 32 36 34  2c 31 30 30 38 29 0d 01  |936,1264,1008)..|
00000420  ea 17 f2 66 72 28 31 36  2c 31 36 2c 31 32 36 34  |...fr(16,16,1264|
00000430  2c 39 31 32 29 0d 01 f4  17 f2 66 72 28 32 34 2c  |,912).....fr(24,|
00000440  32 34 2c 31 32 35 36 2c  39 30 34 29 0d 01 fe 05  |24,1256,904)....|
00000450  e1 0d 02 08 05 3a 0d 02  12 13 dd f2 66 72 28 58  |.....:......fr(X|
00000460  6f 2c 59 6f 2c 58 2c 59  29 0d 02 1c 22 ec 58 6f  |o,Yo,X,Y)...".Xo|
00000470  2c 59 6f 3a df 58 6f 2c  59 3a df 58 2c 59 3a df  |,Yo:.Xo,Y:.X,Y:.|
00000480  58 2c 59 6f 3a df 58 6f  2c 59 6f 0d 02 26 05 e1  |X,Yo:.Xo,Yo..&..|
00000490  0d 02 30 05 3a 0d 02 3a  0a dd f2 76 61 72 73 0d  |..0.:..:...vars.|
000004a0  02 44 20 48 49 3d 93 3a  4b 25 28 30 29 3d 38 3a  |.D HI=.:K%(0)=8:|
000004b0  77 3d 26 35 45 34 30 3a  56 3d 26 35 45 33 38 0d  |w=&5E40:V=&5E38.|
000004c0  02 4e 22 44 3d 2d 34 3a  50 3d 30 3a 51 3d 30 3a  |.N"D=-4:P=0:Q=0:|
000004d0  4d 3d 30 3a 4e 3d 31 30  3a 54 3d 30 3a 55 3d 30  |M=0:N=10:T=0:U=0|
000004e0  20 0d 02 58 15 73 63 3d  30 3a 67 6f 3d 31 3a 64  | ..X.sc=0:go=1:d|
000004f0  69 66 66 3d 5a 25 0d 02  62 05 e1 0d 02 6c 05 3a  |iff=Z%..b....l.:|
00000500  0d 02 76 14 dd f2 63 68  6f 69 63 65 28 43 24 2c  |..v...choice(C$,|
00000510  43 48 25 29 0d 02 80 0d  f1 8a 32 2c 31 29 63 6c  |CH%)......2,1)cl|
00000520  24 0d 02 8a 0d f1 8a 31  30 2c 31 29 43 24 0d 02  |$......10,1)C$..|
00000530  94 27 f5 3a 47 3d a5 2d  34 38 3a fd 20 47 3e 30  |.'.:G=.-48:. G>0|
00000540  20 80 20 47 3c 43 48 25  20 84 20 47 3d 33 35 3a  | . G<CH% . G=35:|
00000550  f2 70 65 65 70 0d 02 9e  05 e1 0d 02 a8 05 3a 0d  |.peep.........:.|
00000560  02 b2 0a dd f2 70 65 65  70 0d 02 bc 10 d4 31 2c  |.....peep.....1,|
00000570  2d 31 30 2c 31 38 30 2c  34 0d 02 c6 05 e1 0d 02  |-10,180,4.......|
00000580  d0 05 3a 0d 02 da 0e dd  f2 72 6e 64 28 74 6f 74  |..:......rnd(tot|
00000590  29 0d 02 e4 1d e3 20 52  3d 31 20 b8 20 74 6f 74  |)..... R=1 . tot|
000005a0  2b 31 3a 64 25 28 52 29  3d 52 3a ed 20 52 0d 02  |+1:d%(R)=R:. R..|
000005b0  ee 11 f5 3a 72 6e 75 6d  3d b3 28 74 6f 74 29 0d  |...:rnum=.(tot).|
000005c0  02 f8 14 63 25 28 74 6f  74 29 3d 64 25 28 72 6e  |...c%(tot)=d%(rn|
000005d0  75 6d 29 0d 03 02 14 e3  20 52 3d 72 6e 75 6d 20  |um)..... R=rnum |
000005e0  b8 20 74 6f 74 2d 31 0d  03 0c 15 64 25 28 52 29  |. tot-1....d%(R)|
000005f0  3d 64 25 28 52 2b 31 29  3a ed 20 52 0d 03 16 21  |=d%(R+1):. R...!|
00000600  74 6f 74 3d 74 6f 74 2d  31 3a fd 20 74 6f 74 3d  |tot=tot-1:. tot=|
00000610  31 3a 63 25 28 31 29 3d  64 25 28 31 29 0d 03 20  |1:c%(1)=d%(1).. |
00000620  05 e1 0d 03 2a 05 3a 0d  03 34 09 dd f2 73 63 72  |....*.:..4...scr|
00000630  0d 03 3e 1f 40 25 3d 30  3a ef 31 39 2c 30 2c 34  |..>.@%=0:.19,0,4|
00000640  3b 30 3b 31 39 2c 31 2c  33 3b 30 3b 3a fb 31 0d  |;0;19,1,3;0;:.1.|
00000650  03 48 15 f1 8a 31 2c 31  29 22 4c 65 76 65 6c 20  |.H...1,1)"Level |
00000660  22 6c 76 25 0d 03 52 15  f1 8a 33 30 2c 31 29 22  |"lv%..R...30,1)"|
00000670  53 63 6f 72 65 20 22 73  63 0d 03 5c 14 f2 71 75  |Score "sc..\..qu|
00000680  65 73 74 3a e6 30 2c 32  3a f2 6d 66 72 0d 03 66  |est:.0,2:.mfr..f|
00000690  05 e1 0d 03 70 05 3a 0d  03 7a 0b dd f2 71 75 65  |....p.:..z...que|
000006a0  73 74 0d 03 84 18 58 31  3d 31 34 3a 58 32 3d 32  |st....X1=14:X2=2|
000006b0  33 3a 66 73 74 3d b3 28  39 29 0d 03 8e 12 e7 20  |3:fst=.(9)..... |
000006c0  6c 76 25 3d 31 20 66 73  74 3d 31 30 0d 03 98 14  |lv%=1 fst=10....|
000006d0  e7 20 6c 76 25 3d 32 20  66 73 74 3d b3 28 39 29  |. lv%=2 fst=.(9)|
000006e0  0d 03 a2 27 e7 20 6c 76  25 3d 33 20 80 20 66 73  |...'. lv%=3 . fs|
000006f0  74 3c 63 25 28 67 6f 29  20 66 73 74 3d b3 28 39  |t<c%(go) fst=.(9|
00000700  29 3a e5 8d 74 62 43 0d  03 ac 17 e7 20 6c 76 25  |):..tbC..... lv%|
00000710  3d 34 20 66 73 74 3d 31  30 2b b3 28 39 29 0d 03  |=4 fst=10+.(9)..|
00000720  b6 14 e7 20 6c 76 25 3d  35 20 66 73 74 3d b3 28  |... lv%=5 fst=.(|
00000730  35 29 0d 03 c0 16 e7 20  6c 76 25 3d 36 20 66 73  |5)..... lv%=6 fs|
00000740  74 3d 35 2b b3 28 34 29  0d 03 ca 1b e7 20 6c 76  |t=5+.(4)..... lv|
00000750  25 3d 37 20 66 73 74 3d  b3 28 35 29 2a 63 25 28  |%=7 fst=.(5)*c%(|
00000760  67 6f 29 0d 03 d4 1f e7  20 6c 76 25 3d 38 20 66  |go)..... lv%=8 f|
00000770  73 74 3d 28 36 2b b3 28  34 29 29 2a 63 25 28 67  |st=(6+.(4))*c%(g|
00000780  6f 29 0d 03 de 06 fb 33  0d 03 e8 2f e7 20 6c 76  |o).....3.../. lv|
00000790  25 3d 31 20 84 20 6c 76  25 3d 32 20 78 24 3d bd  |%=1 . lv%=2 x$=.|
000007a0  32 32 35 2b 73 75 6d 24  3a 61 6e 73 3d 66 73 74  |225+sum$:ans=fst|
000007b0  2b 63 25 28 67 6f 29 0d  03 f2 2f e7 20 6c 76 25  |+c%(go).../. lv%|
000007c0  3d 33 20 84 20 6c 76 25  3d 34 20 78 24 3d bd 32  |=3 . lv%=4 x$=.2|
000007d0  32 36 2b 73 75 6d 24 3a  61 6e 73 3d 66 73 74 2d  |26+sum$:ans=fst-|
000007e0  63 25 28 67 6f 29 0d 03  fc 2f e7 20 6c 76 25 3d  |c%(go).../. lv%=|
000007f0  35 20 84 20 6c 76 25 3d  36 20 78 24 3d bd 32 32  |5 . lv%=6 x$=.22|
00000800  37 2b 73 75 6d 24 3a 61  6e 73 3d 66 73 74 2a 63  |7+sum$:ans=fst*c|
00000810  25 28 67 6f 29 0d 04 06  28 e7 20 6c 76 25 3e 36  |%(go)...(. lv%>6|
00000820  20 20 78 24 3d bd 32 32  38 2b 73 75 6d 24 3a 61  |  x$=.228+sum$:a|
00000830  6e 73 3d 66 73 74 2f 63  25 28 67 6f 29 0d 04 10  |ns=fst/c%(go)...|
00000840  0f f1 8a 58 31 2c 31 29  22 20 20 22 0d 04 1a 17  |...X1,1)"  "....|
00000850  e7 20 a9 28 c3 66 73 74  29 3d 31 20 58 31 3d 58  |. .(.fst)=1 X1=X|
00000860  31 2b 31 0d 04 24 0f f1  8a 58 31 2c 31 29 c3 66  |1+1..$...X1,1).f|
00000870  73 74 0d 04 2e 19 f1 8a  31 37 2c 31 29 78 24 3a  |st......17,1)x$:|
00000880  f1 8a 58 32 2c 31 29 22  20 20 22 0d 04 38 0f f1  |..X2,1)"  "..8..|
00000890  8a 58 32 2c 31 29 c3 61  6e 73 0d 04 42 05 e1 0d  |.X2,1).ans..B...|
000008a0  04 4c 05 3a 0d 04 56 09  dd f2 6e 75 6d 0d 04 60  |.L.:..V...num..`|
000008b0  0f e3 20 6e 75 6d 3d 31  20 b8 20 39 0d 04 6a 19  |.. num=1 . 9..j.|
000008c0  58 3d b3 28 33 38 29 3a  59 3d 32 2b 63 25 28 6e  |X=.(38):Y=2+c%(n|
000008d0  75 6d 29 2a 33 0d 04 74  17 e7 20 58 3d 32 30 20  |um)*3..t.. X=20 |
000008e0  80 20 59 3d 32 30 20 e5  8d 44 6a 44 0d 04 7e 18  |. Y=20 ..DjD..~.|
000008f0  fb 20 33 3a f1 8a 58 2c  59 29 3b 6e 75 6d 3a ed  |. 3:..X,Y);num:.|
00000900  20 6e 75 6d 0d 04 88 0c  49 3d a6 28 35 30 30 29  | num....I=.(500)|
00000910  0d 04 92 05 e1 0d 04 9c  05 3a 0d 04 a6 0a dd f2  |.........:......|
00000920  70 6c 61 79 0d 04 b0 11  6b 65 79 3d a6 28 37 2d  |play....key=.(7-|
00000930  73 70 2a 32 29 0d 04 ba  11 e7 20 6b 65 79 3d 38  |sp*2)..... key=8|
00000940  38 20 44 3d 2b 38 0d 04  c4 11 e7 20 6b 65 79 3d  |8 D=+8..... key=|
00000950  39 30 20 44 3d 2d 38 0d  04 ce 11 e7 20 6b 65 79  |90 D=-8..... key|
00000960  3d 34 37 20 44 3d 2b 34  0d 04 d8 11 e7 20 6b 65  |=47 D=+4..... ke|
00000970  79 3d 35 38 20 44 3d 2d  34 0d 04 e2 1a e7 20 94  |y=58 D=-4..... .|
00000980  28 44 29 3d 38 20 77 3d  77 2b 44 20 8b 20 4d 3d  |(D)=8 w=w+D . M=|
00000990  4d 2b 44 0d 04 ec 16 e7  20 4d 3d 2d 34 20 77 3d  |M+D..... M=-4 w=|
000009a0  77 2d 36 34 30 3a 4d 3d  34 0d 04 f6 16 e7 20 4d  |w-640:M=4..... M|
000009b0  3d 2b 38 20 77 3d 77 2b  36 34 30 3a 4d 3d 30 0d  |=+8 w=w+640:M=0.|
000009c0  05 00 1b e7 20 21 28 77  2b 4d 29 3d 26 46 30 46  |.... !(w+M)=&F0F|
000009d0  30 46 30 46 30 20 f2 6e  6f 6b 0d 05 0a 34 e7 20  |0F0F0 .nok...4. |
000009e0  21 77 3c 3e 30 20 80 20  21 77 3c 3e 26 46 30 46  |!w<>0 . !w<>&F0F|
000009f0  30 46 30 46 30 20 e5 8d  44 64 45 20 8b 20 21 28  |0F0F0 ..DdE . !(|
00000a00  77 2b 4d 29 3d 26 46 30  46 30 46 30 46 30 0d 05  |w+M)=&F0F0F0F0..|
00000a10  14 20 e7 20 54 3e 30 20  54 3d 54 2d 31 3a e5 8d  |. . T>0 T=T-1:..|
00000a20  44 50 45 20 8b 20 21 28  56 2b 55 29 3d 30 0d 05  |DPE . !(V+U)=0..|
00000a30  1e 12 e7 20 64 69 66 66  3d 32 20 e5 8d 74 70 44  |... diff=2 ..tpD|
00000a40  0d 05 28 26 e7 20 94 28  4b 25 28 50 29 29 3d 38  |..(&. .(K%(P))=8|
00000a50  20 56 3d 56 2b 4b 25 28  50 29 20 8b 20 55 3d 55  | V=V+K%(P) . U=U|
00000a60  2b 4b 25 28 50 29 0d 05  32 16 e7 20 55 3d 2d 34  |+K%(P)..2.. U=-4|
00000a70  20 56 3d 56 2d 36 34 30  3a 55 3d 34 0d 05 3c 16  | V=V-640:U=4..<.|
00000a80  e7 20 55 3d 2b 38 20 56  3d 56 2b 36 34 30 3a 55  |. U=+8 V=V+640:U|
00000a90  3d 30 0d 05 46 15 50 3d  50 2b 31 3a e7 20 50 3d  |=0..F.P=P+1:. P=|
00000aa0  31 30 30 20 50 3d 30 0d  05 50 15 51 3d 51 2b 31  |100 P=0..P.Q=Q+1|
00000ab0  3a e7 20 51 3d 31 30 30  20 51 3d 30 0d 05 5a 11  |:. Q=100 Q=0..Z.|
00000ac0  4b 25 28 51 29 3d 44 3a  e5 8d 74 70 44 0d 05 64  |K%(Q)=D:..tpD..d|
00000ad0  13 59 3d a8 28 28 77 2d  48 49 29 2f 36 34 30 29  |.Y=.((w-HI)/640)|
00000ae0  0d 05 6e 1a 58 3d a8 28  28 77 2d 48 49 2d 28 59  |..n.X=.((w-HI-(Y|
00000af0  2a 36 34 30 29 29 2f 31  36 29 0d 05 78 12 f1 8a  |*640))/16)..x...|
00000b00  58 2c 59 29 3b 3a 41 25  3d 31 33 35 0d 05 82 22  |X,Y);:A%=135..."|
00000b10  49 3d 28 28 ba 28 26 46  46 46 34 29 20 80 20 26  |I=((.(&FFF4) . &|
00000b20  46 46 30 30 29 2f 26 31  30 30 29 2d 34 38 0d 05  |FF00)/&100)-48..|
00000b30  8c 19 e7 20 49 3d 63 25  28 67 6f 29 20 f2 6f 6b  |... I=c%(go) .ok|
00000b40  20 8b 20 f2 6e 6f 6b 0d  05 96 0d f1 8a 58 2c 59  | . .nok......X,Y|
00000b50  29 22 20 22 0d 05 a0 1a  21 28 77 2b 4d 29 3d 26  |)" "....!(w+M)=&|
00000b60  46 30 46 30 46 30 46 30  3a 4e 3d 4e 2d 31 0d 05  |F0F0F0F0:N=N-1..|
00000b70  aa 17 e7 20 4e 3e 30 20  e5 8d 54 54 45 20 8b 20  |... N>0 ..TTE . |
00000b80  e5 8d 74 70 44 0d 05 b4  05 e1 0d 05 be 05 3a 0d  |..tpD.........:.|
00000b90  05 c8 08 dd f2 6f 6b 0d  05 d2 22 d4 31 2c 31 2c  |.....ok...".1,1,|
00000ba0  31 30 30 2b 67 6f 2a 34  2c 31 3a 54 3d 54 2b 31  |100+go*4,1:T=T+1|
00000bb0  30 3a 67 6f 3d 67 6f 2b  31 0d 05 dc 0d f2 73 63  |0:go=go+1.....sc|
00000bc0  6f 72 65 28 49 29 0d 05  e6 05 e1 0d 05 f0 05 3a  |ore(I).........:|
00000bd0  0d 05 fa 0e dd f2 73 63  6f 72 65 28 4e 29 0d 06  |......score(N)..|
00000be0  04 1b 73 63 3d 73 63 2b  35 2a 64 69 66 66 2a 73  |..sc=sc+5*diff*s|
00000bf0  70 3a f2 75 70 64 61 74  65 0d 06 0e 13 fb 31 3a  |p:.update.....1:|
00000c00  f1 8a 33 36 2c 31 29 73  63 3a fb 33 0d 06 18 18  |..36,1)sc:.3....|
00000c10  e7 67 6f 3c 31 30 20 f2  71 75 65 73 74 20 8b 20  |.go<10 .quest . |
00000c20  f2 61 6c 6c 0d 06 22 05  e1 0d 06 2c 05 3a 0d 06  |.all.."....,.:..|
00000c30  36 0c dd f2 75 70 64 61  74 65 0d 06 40 0f 73 63  |6...update..@.sc|
00000c40  25 28 6c 76 25 29 3d 73  63 0d 06 4a 1d e7 20 73  |%(lv%)=sc..J.. s|
00000c50  63 3e 68 69 25 28 6c 76  25 29 20 68 69 25 28 6c  |c>hi%(lv%) hi%(l|
00000c60  76 25 29 3d 73 63 0d 06  54 18 3f 28 26 33 37 46  |v%)=sc..T.?(&37F|
00000c70  2b 6c 76 25 29 3d 73 63  25 28 6c 76 25 29 0d 06  |+lv%)=sc%(lv%)..|
00000c80  5e 18 3f 28 26 33 38 37  2b 6c 76 25 29 3d 68 69  |^.?(&387+lv%)=hi|
00000c90  25 28 6c 76 25 29 0d 06  68 05 e1 0d 06 72 05 3a  |%(lv%)..h....r.:|
00000ca0  0d 06 7c 09 dd f2 61 6c  6c 0d 06 86 1d db 3a 73  |..|...all.....:s|
00000cb0  63 3d 73 63 2b 35 2a 64  69 66 66 2a 73 70 3a f2  |c=sc+5*diff*sp:.|
00000cc0  75 70 64 61 74 65 0d 06  90 43 f2 66 72 28 34 34  |update...C.fr(44|
00000cd0  30 2c 32 34 38 2c 38 36  34 2c 37 31 32 29 3a e6  |0,248,864,712):.|
00000ce0  30 2c 31 33 31 3a ef 32  34 2c 34 34 38 3b 32 35  |0,131:.24,448;25|
00000cf0  36 3b 38 35 36 3b 37 30  34 3b 3a da 3a ef 32 36  |6;856;704;:.:.26|
00000d00  3a 3f 26 44 33 3d 32 35  35 0d 06 9a 19 f1 8a 31  |:?&D3=255......1|
00000d10  35 2c 31 34 29 22 59 6f  75 20 67 6f 74 20 41 4c  |5,14)"You got AL|
00000d20  4c 22 0d 06 a4 15 f1 8a  31 37 2c 31 36 29 22 6f  |L"......17,16)"o|
00000d30  66 20 74 68 65 6d 22 0d  06 ae 0f f1 8a 31 35 2c  |f them"......15,|
00000d40  32 30 29 70 72 24 0d 06  b8 09 e7 20 a5 20 f9 0d  |20)pr$..... . ..|
00000d50  06 c2 05 e1 0d 06 cc 05  3a 0d 06 d6 09 dd f2 6e  |........:......n|
00000d60  6f 6b 0d 06 e0 17 db 3a  d4 30 2c 31 2c 30 2c 32  |ok.....:.0,1,0,2|
00000d70  30 3a f2 75 70 64 61 74  65 0d 06 ea 15 e6 30 2c  |0:.update.....0,|
00000d80  31 3a f2 73 71 3a e6 30  2c 30 3a f2 73 71 0d 06  |1:.sq:.0,0:.sq..|
00000d90  f4 05 f9 0d 06 fe 05 e1  0d 07 08 05 3a 0d 07 12  |............:...|
00000da0  08 dd f2 73 71 0d 07 1c  57 58 6f 3d 36 34 30 3a  |...sq...WXo=640:|
00000db0  59 6f 3d 35 31 32 3a 58  3d 36 36 30 3a 59 3d 35  |Yo=512:X=660:Y=5|
00000dc0  33 32 3a f5 3a f2 66 72  28 58 6f 2c 59 6f 2c 58  |32:.:.fr(Xo,Yo,X|
00000dd0  2c 59 29 3a 58 6f 3d 58  6f 2d 33 32 3a 59 6f 3d  |,Y):Xo=Xo-32:Yo=|
00000de0  59 6f 2d 33 32 3a 58 3d  58 2b 33 32 3a 59 3d 59  |Yo-32:X=X+32:Y=Y|
00000df0  2b 33 32 3a fd 20 58 6f  3d 31 36 30 0d 07 26 05  |+32:. Xo=160..&.|
00000e00  e1 0d 07 30 05 3a 0d 07  3a 0e dd f2 6c 6f 61 64  |...0.:..:...load|
00000e10  28 46 24 29 0d 07 44 54  ee 20 85 3a e7 20 9f 3d  |(F$)..DT. .:. .=|
00000e20  32 31 34 20 f1 8a 32 2c  31 29 63 6c 24 3a f1 8a  |214 ..2,1)cl$:..|
00000e30  32 2c 31 29 22 43 61 6e  27 74 20 66 69 6e 64 20  |2,1)"Can't find |
00000e40  66 69 6c 65 20 22 2b 46  24 3a f1 8a 32 37 2c 31  |file "+F$:..27,1|
00000e50  29 70 72 24 3a e7 20 a5  3a f1 8a 32 2c 31 29 63  |)pr$:. .:..2,1)c|
00000e60  6c 24 3a e5 8d 44 5a 40  0d 07 4e 0c e7 20 4c 25  |l$:..DZ@..N.. L%|
00000e70  3d 31 20 e1 0d 07 58 46  f1 8a 36 2c 31 29 22 4c  |=1 ...XF..6,1)"L|
00000e80  6f 61 64 20 70 72 65 76  69 6f 75 73 20 68 69 73  |oad previous his|
00000e90  63 6f 72 65 73 3f 22 3a  f2 79 6e 3a e7 20 47 24  |cores?":.yn:. G$|
00000ea0  3d 22 59 22 20 ff 28 22  4c 4f 41 44 20 22 2b 46  |="Y" .("LOAD "+F|
00000eb0  24 29 20 8b 20 4c 25 3d  31 20 0d 07 62 05 e1 0d  |$) . L%=1 ..b...|
00000ec0  07 6c 05 3a 0d 07 76 0e  dd f2 73 61 76 65 28 46  |.l.:..v...save(F|
00000ed0  24 29 0d 07 80 4c f1 8a  36 2c 31 29 22 53 61 76  |$)...L..6,1)"Sav|
00000ee0  65 20 74 68 65 20 68 69  73 63 6f 72 65 20 74 61  |e the hiscore ta|
00000ef0  62 6c 65 3f 22 3a f2 79  6e 3a e7 20 47 24 3d 22  |ble?":.yn:. G$="|
00000f00  59 22 20 ff 28 22 53 41  56 45 20 22 2b 46 24 2b  |Y" .("SAVE "+F$+|
00000f10  22 20 22 2b c3 33 38 38  2b 22 2b 38 22 29 0d 07  |" "+.388+"+8")..|
00000f20  8a 05 e1 0d 07 94 05 3a  0d 07 9e 08 dd f2 79 6e  |.......:......yn|
00000f30  0d 07 a8 12 f1 8a 33 30  2c 31 29 22 28 59 2f 4e  |......30,1)"(Y/N|
00000f40  29 22 0d 07 b2 16 f5 3a  47 24 3d be 3a fd 20 a7  |)".....:G$=.:. .|
00000f50  22 59 4e 22 2c 47 24 29  0d 07 bc 1c f2 70 65 65  |"YN",G$).....pee|
00000f60  70 3a e7 20 47 24 3d 22  59 22 3a 46 24 3d a4 69  |p:. G$="Y":F$=.i|
00000f70  6e 28 37 29 0d 07 c6 05  e1 0d 07 d0 05 3a 0d 07  |n(7).........:..|
00000f80  da 1d dd 20 a4 69 6e 28  69 25 29 3a ea 20 61 24  |... .in(i%):. a$|
00000f90  2c 69 24 2c 67 25 2c 6c  65 6e 25 0d 07 e4 36 f1  |,i$,g%,len%...6.|
00000fa0  8a 33 2c 31 29 22 50 6c  65 61 73 65 20 65 6e 74  |.3,1)"Please ent|
00000fb0  65 72 20 74 68 65 20 66  69 6c 65 20 6e 61 6d 65  |er the file name|
00000fc0  22 3a f1 8a 33 30 2c 31  29 c4 69 25 2c 22 2a 22  |":..30,1).i%,"*"|
00000fd0  29 0d 07 ee 36 f5 20 f5  20 67 25 3d a5 3a 61 24  |)...6. . g%=.:a$|
00000fe0  3d bd 67 25 3a 6c 65 6e  25 3d a9 69 24 3a e7 20  |=.g%:len%=.i$:. |
00000ff0  6c 65 6e 25 3d 30 20 80  20 67 25 3d 31 33 20 ef  |len%=0 . g%=13 .|
00001000  37 3a e5 8d 64 6e 47 0d  07 f8 4e fd 20 67 25 3d  |7:..dnG...N. g%=|
00001010  31 33 20 84 20 67 25 3d  31 32 37 20 84 20 28 67  |13 . g%=127 . (g|
00001020  25 3e 34 37 20 80 20 67  25 3c 39 31 29 3a e7 20  |%>47 . g%<91):. |
00001030  67 25 3d 31 33 20 84 20  67 25 3d 31 32 37 20 8b  |g%=13 . g%=127 .|
00001040  20 e7 20 6c 65 6e 25 3d  69 25 20 8b 20 69 24 3d  | . len%=i% . i$=|
00001050  69 24 2b 61 24 0d 08 02  13 f1 8a 33 30 2c 31 29  |i$+a$......30,1)|
00001060  69 24 3a f2 70 65 65 70  0d 08 0c 33 e7 20 67 25  |i$:.peep...3. g%|
00001070  3d 31 32 37 20 e7 20 69  24 3e 22 22 20 f1 8a 32  |=127 . i$>"" ..2|
00001080  39 2b 6c 65 6e 25 2c 31  29 22 2a 22 3a 69 24 3d  |9+len%,1)"*":i$=|
00001090  c0 69 24 2c 6c 65 6e 25  2d 31 29 0d 08 16 19 fd  |.i$,len%-1).....|
000010a0  20 67 25 3d 31 33 20 80  20 6c 65 6e 25 3e 30 3a  | g%=13 . len%>0:|
000010b0  3d 69 24 20 0d ff                                 |=i$ ..|
000010b6