� ROVER
� (c) The Micro User
 ��7,4:�2:�:�" at line ";�:�
(t*K.0 MO.7:V.7,7,7:P."Downloading !":A=PA.-&E00:*T.|MPA.=&E00:F.I%=&E00+A TO TOP ST.4:!(I%-A)=!I%:N.|MOLD|MG.70|M
2�=&E00��DF@ �*FX138,0,128
<�
F&sc%=0:hs%=0:�7:�init:�chars:hs%=-1
P:�1:�23;8202;0;0;0;:�vars:�scrn:�food:�tree:�:*FX202,48
Z�23;8202;0;0;0;:a$=�(0)
d*FX21,0
n7�a$="z"�x%>6 �sq(x%/2-3,y%/2-1)<>0 a%=-2:u%=0:�t~@
x7�a$="x"�x%<33 �sq(x%/2-1,y%/2-1)<>0 a%=2:u%=0:�t~@
�7�a$="k"�y%>5 �sq(x%/2-2,y%/2-2)<>0 a%=0:u%=-2:�t~@
�/�a$="m"�y%<28 �sq(x%/2-2,y%/2)<>0 a%=0:u%=2
��a$="K" �scrollup
��a$="M" �scrolldown
��a$="q"�*FX210,1
��a$="w"�*FX210,0
�@�0:�x%,y%);dog$:sq(x%/2-2,y%/2-1)=0:�a%<>0 �u%<>0 �1,1,10,1
�Gx%=x%+a%:y%=y%+u%:a%=0:u%=0:�3:�x%,y%);dog$:mem%=sq(x%/2-2,y%/2-1)
��sheet%>5 df=1 �df=2
�#�ct%/df=�(ct%/df)�sheet%>2 �cat
��mem%=6 �3,3,100,1:�food:sc%=sc%+fly%:fd%=fd%+1:mem%=0:�fd%=fin% fin%=fin%+1:fd%=0:�bonus:fly%=fc%:x%=20:y%=20:�scrn:�food:�tree:sheet%=sheet%+1:�fc%>50 fc%=fc%-10
��mem%=3 �fight:mem%=0
�'�mem%=2 sc%=sc%+10:mem%=0:�3,2,70,1

!�mem%=5 tlt=1000:�0,-15,12,15

2�x%=fx% �y%=fy% sc%=sc%+fly%:scr%=scr%+1:�food

>�update:ct%=ct%+1:tlt=tlt-1:�31,1);tlt;" ":�tlt<1 fly%=-1

"'�cx%=x% � cy%=y% �sheet%>2 fly%=-10

,D�fly%<1 �7:�23;8202;0;0;0;:�end:�init:�1:�vars:�scrn:�tree:�food

6!�0:�17,1);sc%:�2:�17,1);sc%

@��

J
��vars

T��2,1,1,1,1,4,4,4,-1,-1,-1,-1,126,126:�1,1,1,1,1,5,5,5,-5,-1,-1,-1,126,126:�3,1,14,14,14,3,3,3,-1,-1,-1,-1,126,126:�4,5,1,1,1,10,10,10,0,0,0,-1,126,126

^�sc%=0:dog$=�224+�225+�10+�8+�8+�227+�226:bone$=�232+�233+�10+�8+�8+�235+�234:cat$=�236+�237+�8+�8+�10+�239+�238:sk%=1:x%=20:y%=20

hAfood$=�5+�10+�18+�0+�3+�228+�229+�8+�8+�18+�0+�1+�231+�230+�4

rZct%=0:fly%=0:a%=0:u%=0:tlt=1000:fd%=0:fin%=8:fc%=80:cx%=20:cy%=10:sheet%=1:tx%=0:ty%=0

|!�hs%=-1�sq(16,14),t(14):hs%=0

�'tree$=�248+�249+�10+�8+�8+�251+�250

��

�
��scrn

�I�:�0,1:�69,40,1023:�40,1023:�81,1280,0:�81,0,-98:�81,-1280,0:�81,0,98

�I�0,3:�69,120,1003:�120,1003:�81,1080,0:�81,0,-58:�81,-1080,0:�81,0,58

�.�2:�10,1);"SCORE ";sc%;�26,1);"TIME ";tlt

�%�i%=1�15:�j%=1�13:sq(i%,j%)=1:�:�

�5a$=�18+�1+�1+�5+�240+�241+�10+�8+�8+�243+�242+�11

�9block$=a$:Sr%=896:En%=96:Sp%=-64:Xc%=192:St%=10:Ss%=5

�0�i%=Sr%�En%�Sp%:�Xc%,i%:��St%,a$);�Ss%,a$):�

��4

�P�3:�i%=1�fin%-2:x=(�(15)*2)+4:y=(�(12)*2)+2:�x,y);bone$:sq(x/2-2,y/2-1)=2:�

�O�2:�i%=1�fin%-4:x=(�(15)*2)+4:y=(�(12)*2)+2:�x,y);cat$:sq(x/2-2,y/2-1)=3:�
�

��food
Tfly%=fc%:�:fx%=(�(15)*2)+4:fy%=(�(12)*2)+2:�fx%<>x% �fy%<>y% �fx%<>tx% �fx%<>ty%
&*�fx%*32,1024-(fy%*32):�fx%,fy%);food$
0�
:��update
D�ct%/sk%<>�(ct%/sk%) �
N1�2:�fx%,fy%);"  ";�fx%,fy%);fly%:fly%=fly%-1
Xsq(fx%/2-2,fy%/2-1)=6
b�
l
��tree
v7�:tx%=(�(15)*2)+4:ty%=(�(12)*2)+2:�tx%<>x% �ty%<>y%
��2:�tx%,ty%);tree$
�sq(tx%/2-2,ty%/2-1)=5
��
���fight
��i=1��(10)+�(10)
�X�g=1�25:�:�2:�x%,y%);cat$:�g=1�25:�:�3:�x%,y%);dog$:�19,0,�(8)-1;0;0;19,3,0;0;0;  
��fly%> 20fly%=20
��0,-15,10+�(3),5:�:*FX15
�	�20:�
���scrollup
�y%=y%-2:�y%<4 y%=28
�#�cx%=x% cy%=cy%-2:�cy%<4 cy%=28
�#�fx%=x% fy%=fy%-2:�fy%<4 fy%=28
v=sq(x%/2-2,1)
V�h%=12�1�-1:t(h%)=sq(x%/2-2,h%+1):�:�h%=1�12:sq(x%/2-2,h%)=t(h%):�:sq(x%/2-2,13)=v
�28,x%,29,x%+1,4
 �0,24);:�''
*�0,-10,13,5:*FX21,0
4�28,0,31,39,0
>�print(x%,28,1024)
H�
R��print(px,py,y)
\&�v=1 �px*32,y-(py*32):�block$:�4:�
f�v=0 �0:�px,py);dog$:�3:�
p�v=2 �3:�px,py);bone$:�
z�v=3 �2:�px,py);cat$:�
��v=5 �2:�px,py);tree$:�
�+�v=6 �px*32,1023-(py*32):�px,py);food$
��
���scrolldown
�y%=y%+2:�y%>28 y%=4
�#�cx%=x% cy%=cy%+2:�cy%>28 cy%=4
�#�fx%=x% fy%=fy%+2:�fy%>28 fy%=4
�v=sq(x%/2-2,13)
�R�h%=2�13:t(h%)=sq(x%/2-2,h%-1):�:�h%=2�13:sq(x%/2-2,h%)=t(h%):�:sq(x%/2-2,1)=v
��28,x%,29,x%+1,4
��0,0);:�11,11
��0,-10,13,5:*FX21,0
�%�28,0,31,39,0:�print(x%,4,1024):�
��bonus
"a=�(0):�:�1,4,100,1:�2,4,101,1
��22,7:d$=�131+�141+"BONUS stage number "+�sheet%:y=10:�i=1�2:�telex:�:y=y+2:d$=�135+"Press any key to make Rover land ":�telex:d$="on his food.":�telex
$%�=0:�:��>300:�22,1,23;8202;0;0;0;
.Q�i=0�39�2:��(4):�i,28);tree$:�:ac=�(18)*2:�0:�ac,28);dog$:�ac*32,128:�food$
8x=0:y=0
B*�:�0:�x,y);dog$:x=x+2:�x>39 x=0:y=y+2
L�3 
V�x,y);dog$
`�g=1�100:�
jh�y=28 �22,7:a$=�141+�131+�136+"No bonus !!":�0,10):�i=1�2:�(12);a$:�:�0,-15,10,40:a=�(300):�22,1:�
t
��(0)<>-1
~G�i=y � 27:�3:�x,i);dog$:�0:�3,-15,128-i,1:�g=1�100:�:�x,i);dog$:�
��3:�x,i);dog$
���x=ac �2,3,100,1:�3,3,101,1:a=�(200):�22,7:a$=�141+�135+�136+"Bonus "+�((31-y)*10):sc%=sc%+(31-y)*10:�0,10):�0,10):�j=1�2:�(12);a$:�:a=�(300):�22,1:�
��0,-15,2,30:a=�(200):�
�
��init
��23;8202;0;0;0;:*FX21,0
��x,y
�:�i=0�24:�0,i);�157:�
�Fy=4:d$=�141+�132+�157+�131+"ROVER "+�135+�157+�140:�i=1�2:�telex:�
�/y=y+2:d$=�129+"By Graham D. Walkden":�telex
��sc%>hs% hs%=sc%
�wd$=�141+�130+"Last score "+�sc%+" ":y=y+2:�i=1�2:�telex:�:d$=�141+�130+"High score "+�hs%+" ":y=y+1:�i=1�2:�telex:�
�Nd$=�141+�133+�136+"Press any key for another game  ":y=y+2:�i=1�2:�telex:�
	A=�:�

*��telex:x=(40-�d$)/2:�x,y);d$:y=y+1:�
	��end
$�1,4,100,1:�2,4,110,1:�3,4,120,1
(Xy=10:d$=�132+�157+�135+�141+"GAME OVER  "+�156:�i=1�2:�telex:�:�i=1�10000:�i:*FX21,0
2�:�
<	��cat
Fv=sq(cx%/2-2,cy%/2-1)
PG�v=1 �0:�cx%,cy%);dog$:sq(cx%/2-2,cy%/2-1)=0:��print(cx%,cy%,1024)
Z�cx%>30 cx%=cx%-2:�DxE
d�cx%<8 cx%=cx%+2:�DxE
n!cx%=cx%+((�(2)-1)-(�(2)-1))*2
x�cy%>26 cy%=cy%-2:�tVE
��cy%<6 cy%=cy%+2:�tVE
�!cy%=cy%+((�(2)-1)-(�(2)-1))*2
��3:�cx%,cy%);cat$:�
���chars
���23,224,15,127,95,89,31,28,54,121,23,225,224,252,244,52,240,112,216,60,23,226,252,252,236,204,12,12,14,0,23,227,127,127,111,103,96,96,224,0,23,228,127,255,140,165,165,165,140,255,23,229,254,255,33,175,169,169,33,255
���23,230,0,0,222,80,86,86,222,0,23,231,0,0,115,90,90,90,115,0,23,232,0,14,31,15,3,3,3,3,23,233,0,112,248,240,192,192,192,192,23,234,192,192,192,192,240,248,112,0,23,235,3,3,3,3,15,31,14,0,23,236,0,216,216,248,168,169,219,127
���23,237,0,3,3,3,3,243,251,255,23,238,255,255,15,3,3,3,3,7,23,239,127,63,30,24,24,24,24,56,23,240,0,255,255,255,255,255,255,255,23,241,0,252,252,252,252,252,252,252,23,242,252,252,252,252,252,252,0,0,23,243,255,255,255,255,255,255,0
���0,23,244,0,0,63,63,63,63,63,63,23,245,0,0,255,255,255,255,255,255,23,246,255,255,255,255,255,255,255,255,23,247,63,63,63,63,63,63,63,63,23,248,21,42,85,42,85,42,21,1,23,249,84,170,84,170,84,170,84,128
�B�23,250,128,128,128,128,128,128,192,224,23,251,1,1,1,1,1,1,3,7
��
�

00000000  0d 00 0a 0b f4 20 52 4f  56 45 52 0d 00 14 18 f4  |..... ROVER.....|
00000010  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000020  73 65 72 0d 00 1e 20 ee  85 ef 37 2c 34 3a fb 32  |ser... ...7,4:.2|
00000030  3a f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  |:.:." at line ";|
00000040  9e 3a e0 0d 00 28 74 2a  4b 2e 30 20 4d 4f 2e 37  |.:...(t*K.0 MO.7|
00000050  3a 56 2e 37 2c 37 2c 37  3a 50 2e 22 44 6f 77 6e  |:V.7,7,7:P."Down|
00000060  6c 6f 61 64 69 6e 67 20  21 22 3a 41 3d 50 41 2e  |loading !":A=PA.|
00000070  2d 26 45 30 30 3a 2a 54  2e 7c 4d 50 41 2e 3d 26  |-&E00:*T.|MPA.=&|
00000080  45 30 30 3a 46 2e 49 25  3d 26 45 30 30 2b 41 20  |E00:F.I%=&E00+A |
00000090  54 4f 20 54 4f 50 20 53  54 2e 34 3a 21 28 49 25  |TO TOP ST.4:!(I%|
000000a0  2d 41 29 3d 21 49 25 3a  4e 2e 7c 4d 4f 4c 44 7c  |-A)=!I%:N.|MOLD||
000000b0  4d 47 2e 37 30 7c 4d 0d  00 32 1e e7 90 3d 26 45  |MG.70|M..2...=&E|
000000c0  30 30 8c 8d 44 46 40 20  8b 2a 46 58 31 33 38 2c  |00..DF@ .*FX138,|
000000d0  30 2c 31 32 38 0d 00 3c  05 e0 0d 00 46 26 73 63  |0,128..<....F&sc|
000000e0  25 3d 30 3a 68 73 25 3d  30 3a eb 37 3a f2 69 6e  |%=0:hs%=0:.7:.in|
000000f0  69 74 3a f2 63 68 61 72  73 3a 68 73 25 3d 2d 31  |it:.chars:hs%=-1|
00000100  0d 00 50 3a eb 31 3a ef  32 33 3b 38 32 30 32 3b  |..P:.1:.23;8202;|
00000110  30 3b 30 3b 30 3b 3a f2  76 61 72 73 3a f2 73 63  |0;0;0;:.vars:.sc|
00000120  72 6e 3a f2 66 6f 6f 64  3a f2 74 72 65 65 3a f5  |rn:.food:.tree:.|
00000130  3a 2a 46 58 32 30 32 2c  34 38 0d 00 5a 1b ef 32  |:*FX202,48..Z..2|
00000140  33 3b 38 32 30 32 3b 30  3b 30 3b 30 3b 3a 61 24  |3;8202;0;0;0;:a$|
00000150  3d bf 28 30 29 0d 00 64  0b 2a 46 58 32 31 2c 30  |=.(0)..d.*FX21,0|
00000160  0d 00 6e 37 e7 61 24 3d  22 7a 22 80 78 25 3e 36  |..n7.a$="z".x%>6|
00000170  20 80 73 71 28 78 25 2f  32 2d 33 2c 79 25 2f 32  | .sq(x%/2-3,y%/2|
00000180  2d 31 29 3c 3e 30 20 61  25 3d 2d 32 3a 75 25 3d  |-1)<>0 a%=-2:u%=|
00000190  30 3a e5 8d 74 7e 40 0d  00 78 37 e7 61 24 3d 22  |0:..t~@..x7.a$="|
000001a0  78 22 80 78 25 3c 33 33  20 80 73 71 28 78 25 2f  |x".x%<33 .sq(x%/|
000001b0  32 2d 31 2c 79 25 2f 32  2d 31 29 3c 3e 30 20 61  |2-1,y%/2-1)<>0 a|
000001c0  25 3d 32 3a 75 25 3d 30  3a e5 8d 74 7e 40 0d 00  |%=2:u%=0:..t~@..|
000001d0  82 37 e7 61 24 3d 22 6b  22 80 79 25 3e 35 20 80  |.7.a$="k".y%>5 .|
000001e0  73 71 28 78 25 2f 32 2d  32 2c 79 25 2f 32 2d 32  |sq(x%/2-2,y%/2-2|
000001f0  29 3c 3e 30 20 61 25 3d  30 3a 75 25 3d 2d 32 3a  |)<>0 a%=0:u%=-2:|
00000200  e5 8d 74 7e 40 0d 00 8c  2f e7 61 24 3d 22 6d 22  |..t~@.../.a$="m"|
00000210  80 79 25 3c 32 38 20 80  73 71 28 78 25 2f 32 2d  |.y%<28 .sq(x%/2-|
00000220  32 2c 79 25 2f 32 29 3c  3e 30 20 61 25 3d 30 3a  |2,y%/2)<>0 a%=0:|
00000230  75 25 3d 32 0d 00 96 15  e7 61 24 3d 22 4b 22 20  |u%=2.....a$="K" |
00000240  f2 73 63 72 6f 6c 6c 75  70 0d 00 a0 17 e7 61 24  |.scrollup.....a$|
00000250  3d 22 4d 22 20 f2 73 63  72 6f 6c 6c 64 6f 77 6e  |="M" .scrolldown|
00000260  0d 00 aa 14 e7 61 24 3d  22 71 22 8c 2a 46 58 32  |.....a$="q".*FX2|
00000270  31 30 2c 31 0d 00 b4 14  e7 61 24 3d 22 77 22 8c  |10,1.....a$="w".|
00000280  2a 46 58 32 31 30 2c 30  0d 00 be 40 fb 30 3a f1  |*FX210,0...@.0:.|
00000290  8a 78 25 2c 79 25 29 3b  64 6f 67 24 3a 73 71 28  |.x%,y%);dog$:sq(|
000002a0  78 25 2f 32 2d 32 2c 79  25 2f 32 2d 31 29 3d 30  |x%/2-2,y%/2-1)=0|
000002b0  3a e7 61 25 3c 3e 30 20  84 75 25 3c 3e 30 20 d4  |:.a%<>0 .u%<>0 .|
000002c0  31 2c 31 2c 31 30 2c 31  0d 00 c8 47 78 25 3d 78  |1,1,10,1...Gx%=x|
000002d0  25 2b 61 25 3a 79 25 3d  79 25 2b 75 25 3a 61 25  |%+a%:y%=y%+u%:a%|
000002e0  3d 30 3a 75 25 3d 30 3a  fb 33 3a f1 8a 78 25 2c  |=0:u%=0:.3:..x%,|
000002f0  79 25 29 3b 64 6f 67 24  3a 6d 65 6d 25 3d 73 71  |y%);dog$:mem%=sq|
00000300  28 78 25 2f 32 2d 32 2c  79 25 2f 32 2d 31 29 0d  |(x%/2-2,y%/2-1).|
00000310  00 d2 18 e7 73 68 65 65  74 25 3e 35 20 64 66 3d  |....sheet%>5 df=|
00000320  31 20 8b 64 66 3d 32 0d  00 dc 23 e7 63 74 25 2f  |1 .df=2...#.ct%/|
00000330  64 66 3d a8 28 63 74 25  2f 64 66 29 80 73 68 65  |df=.(ct%/df).she|
00000340  65 74 25 3e 32 20 f2 63  61 74 0d 00 e6 a7 e7 6d  |et%>2 .cat.....m|
00000350  65 6d 25 3d 36 20 d4 33  2c 33 2c 31 30 30 2c 31  |em%=6 .3,3,100,1|
00000360  3a f2 66 6f 6f 64 3a 73  63 25 3d 73 63 25 2b 66  |:.food:sc%=sc%+f|
00000370  6c 79 25 3a 66 64 25 3d  66 64 25 2b 31 3a 6d 65  |ly%:fd%=fd%+1:me|
00000380  6d 25 3d 30 3a e7 66 64  25 3d 66 69 6e 25 20 66  |m%=0:.fd%=fin% f|
00000390  69 6e 25 3d 66 69 6e 25  2b 31 3a 66 64 25 3d 30  |in%=fin%+1:fd%=0|
000003a0  3a f2 62 6f 6e 75 73 3a  66 6c 79 25 3d 66 63 25  |:.bonus:fly%=fc%|
000003b0  3a 78 25 3d 32 30 3a 79  25 3d 32 30 3a f2 73 63  |:x%=20:y%=20:.sc|
000003c0  72 6e 3a f2 66 6f 6f 64  3a f2 74 72 65 65 3a 73  |rn:.food:.tree:s|
000003d0  68 65 65 74 25 3d 73 68  65 65 74 25 2b 31 3a e7  |heet%=sheet%+1:.|
000003e0  66 63 25 3e 35 30 20 66  63 25 3d 66 63 25 2d 31  |fc%>50 fc%=fc%-1|
000003f0  30 0d 00 f0 19 e7 6d 65  6d 25 3d 33 20 f2 66 69  |0.....mem%=3 .fi|
00000400  67 68 74 3a 6d 65 6d 25  3d 30 0d 00 fa 27 e7 6d  |ght:mem%=0...'.m|
00000410  65 6d 25 3d 32 20 73 63  25 3d 73 63 25 2b 31 30  |em%=2 sc%=sc%+10|
00000420  3a 6d 65 6d 25 3d 30 3a  d4 33 2c 32 2c 37 30 2c  |:mem%=0:.3,2,70,|
00000430  31 0d 01 04 21 e7 6d 65  6d 25 3d 35 20 74 6c 74  |1...!.mem%=5 tlt|
00000440  3d 31 30 30 30 3a d4 30  2c 2d 31 35 2c 31 32 2c  |=1000:.0,-15,12,|
00000450  31 35 0d 01 0e 32 e7 78  25 3d 66 78 25 20 80 79  |15...2.x%=fx% .y|
00000460  25 3d 66 79 25 20 73 63  25 3d 73 63 25 2b 66 6c  |%=fy% sc%=sc%+fl|
00000470  79 25 3a 73 63 72 25 3d  73 63 72 25 2b 31 3a f2  |y%:scr%=scr%+1:.|
00000480  66 6f 6f 64 0d 01 18 3e  f2 75 70 64 61 74 65 3a  |food...>.update:|
00000490  63 74 25 3d 63 74 25 2b  31 3a 74 6c 74 3d 74 6c  |ct%=ct%+1:tlt=tl|
000004a0  74 2d 31 3a f1 8a 33 31  2c 31 29 3b 74 6c 74 3b  |t-1:..31,1);tlt;|
000004b0  22 20 22 3a e7 74 6c 74  3c 31 20 66 6c 79 25 3d  |" ":.tlt<1 fly%=|
000004c0  2d 31 0d 01 22 27 e7 63  78 25 3d 78 25 20 80 20  |-1.."'.cx%=x% . |
000004d0  63 79 25 3d 79 25 20 80  73 68 65 65 74 25 3e 32  |cy%=y% .sheet%>2|
000004e0  20 66 6c 79 25 3d 2d 31  30 0d 01 2c 44 e7 66 6c  | fly%=-10..,D.fl|
000004f0  79 25 3c 31 20 eb 37 3a  ef 32 33 3b 38 32 30 32  |y%<1 .7:.23;8202|
00000500  3b 30 3b 30 3b 30 3b 3a  f2 65 6e 64 3a f2 69 6e  |;0;0;0;:.end:.in|
00000510  69 74 3a eb 31 3a f2 76  61 72 73 3a f2 73 63 72  |it:.1:.vars:.scr|
00000520  6e 3a f2 74 72 65 65 3a  f2 66 6f 6f 64 0d 01 36  |n:.tree:.food..6|
00000530  21 fb 30 3a f1 8a 31 37  2c 31 29 3b 73 63 25 3a  |!.0:..17,1);sc%:|
00000540  fb 32 3a f1 8a 31 37 2c  31 29 3b 73 63 25 0d 01  |.2:..17,1);sc%..|
00000550  40 06 fd a3 0d 01 4a 0a  dd f2 76 61 72 73 0d 01  |@.....J...vars..|
00000560  54 9a e2 32 2c 31 2c 31  2c 31 2c 31 2c 34 2c 34  |T..2,1,1,1,1,4,4|
00000570  2c 34 2c 2d 31 2c 2d 31  2c 2d 31 2c 2d 31 2c 31  |,4,-1,-1,-1,-1,1|
00000580  32 36 2c 31 32 36 3a e2  31 2c 31 2c 31 2c 31 2c  |26,126:.1,1,1,1,|
00000590  31 2c 35 2c 35 2c 35 2c  2d 35 2c 2d 31 2c 2d 31  |1,5,5,5,-5,-1,-1|
000005a0  2c 2d 31 2c 31 32 36 2c  31 32 36 3a e2 33 2c 31  |,-1,126,126:.3,1|
000005b0  2c 31 34 2c 31 34 2c 31  34 2c 33 2c 33 2c 33 2c  |,14,14,14,3,3,3,|
000005c0  2d 31 2c 2d 31 2c 2d 31  2c 2d 31 2c 31 32 36 2c  |-1,-1,-1,-1,126,|
000005d0  31 32 36 3a e2 34 2c 35  2c 31 2c 31 2c 31 2c 31  |126:.4,5,1,1,1,1|
000005e0  30 2c 31 30 2c 31 30 2c  30 2c 30 2c 30 2c 2d 31  |0,10,10,0,0,0,-1|
000005f0  2c 31 32 36 2c 31 32 36  0d 01 5e 85 73 63 25 3d  |,126,126..^.sc%=|
00000600  30 3a 64 6f 67 24 3d bd  32 32 34 2b bd 32 32 35  |0:dog$=.224+.225|
00000610  2b bd 31 30 2b bd 38 2b  bd 38 2b bd 32 32 37 2b  |+.10+.8+.8+.227+|
00000620  bd 32 32 36 3a 62 6f 6e  65 24 3d bd 32 33 32 2b  |.226:bone$=.232+|
00000630  bd 32 33 33 2b bd 31 30  2b bd 38 2b bd 38 2b bd  |.233+.10+.8+.8+.|
00000640  32 33 35 2b bd 32 33 34  3a 63 61 74 24 3d bd 32  |235+.234:cat$=.2|
00000650  33 36 2b bd 32 33 37 2b  bd 38 2b bd 38 2b bd 31  |36+.237+.8+.8+.1|
00000660  30 2b bd 32 33 39 2b bd  32 33 38 3a 73 6b 25 3d  |0+.239+.238:sk%=|
00000670  31 3a 78 25 3d 32 30 3a  79 25 3d 32 30 0d 01 68  |1:x%=20:y%=20..h|
00000680  41 66 6f 6f 64 24 3d bd  35 2b bd 31 30 2b bd 31  |Afood$=.5+.10+.1|
00000690  38 2b bd 30 2b bd 33 2b  bd 32 32 38 2b bd 32 32  |8+.0+.3+.228+.22|
000006a0  39 2b bd 38 2b bd 38 2b  bd 31 38 2b bd 30 2b bd  |9+.8+.8+.18+.0+.|
000006b0  31 2b bd 32 33 31 2b bd  32 33 30 2b bd 34 0d 01  |1+.231+.230+.4..|
000006c0  72 5a 63 74 25 3d 30 3a  66 6c 79 25 3d 30 3a 61  |rZct%=0:fly%=0:a|
000006d0  25 3d 30 3a 75 25 3d 30  3a 74 6c 74 3d 31 30 30  |%=0:u%=0:tlt=100|
000006e0  30 3a 66 64 25 3d 30 3a  66 69 6e 25 3d 38 3a 66  |0:fd%=0:fin%=8:f|
000006f0  63 25 3d 38 30 3a 63 78  25 3d 32 30 3a 63 79 25  |c%=80:cx%=20:cy%|
00000700  3d 31 30 3a 73 68 65 65  74 25 3d 31 3a 74 78 25  |=10:sheet%=1:tx%|
00000710  3d 30 3a 74 79 25 3d 30  0d 01 7c 21 e7 68 73 25  |=0:ty%=0..|!.hs%|
00000720  3d 2d 31 de 73 71 28 31  36 2c 31 34 29 2c 74 28  |=-1.sq(16,14),t(|
00000730  31 34 29 3a 68 73 25 3d  30 0d 01 86 27 74 72 65  |14):hs%=0...'tre|
00000740  65 24 3d bd 32 34 38 2b  bd 32 34 39 2b bd 31 30  |e$=.248+.249+.10|
00000750  2b bd 38 2b bd 38 2b bd  32 35 31 2b bd 32 35 30  |+.8+.8+.251+.250|
00000760  0d 01 90 05 e1 0d 01 9a  0a dd f2 73 63 72 6e 0d  |...........scrn.|
00000770  01 a4 49 db 3a e6 30 2c  31 3a f0 36 39 2c 34 30  |..I.:.0,1:.69,40|
00000780  2c 31 30 32 33 3a ec 34  30 2c 31 30 32 33 3a f0  |,1023:.40,1023:.|
00000790  38 31 2c 31 32 38 30 2c  30 3a f0 38 31 2c 30 2c  |81,1280,0:.81,0,|
000007a0  2d 39 38 3a f0 38 31 2c  2d 31 32 38 30 2c 30 3a  |-98:.81,-1280,0:|
000007b0  f0 38 31 2c 30 2c 39 38  0d 01 ae 49 e6 30 2c 33  |.81,0,98...I.0,3|
000007c0  3a f0 36 39 2c 31 32 30  2c 31 30 30 33 3a ec 31  |:.69,120,1003:.1|
000007d0  32 30 2c 31 30 30 33 3a  f0 38 31 2c 31 30 38 30  |20,1003:.81,1080|
000007e0  2c 30 3a f0 38 31 2c 30  2c 2d 35 38 3a f0 38 31  |,0:.81,0,-58:.81|
000007f0  2c 2d 31 30 38 30 2c 30  3a f0 38 31 2c 30 2c 35  |,-1080,0:.81,0,5|
00000800  38 0d 01 b8 2e fb 32 3a  f1 8a 31 30 2c 31 29 3b  |8.....2:..10,1);|
00000810  22 53 43 4f 52 45 20 22  3b 73 63 25 3b 8a 32 36  |"SCORE ";sc%;.26|
00000820  2c 31 29 3b 22 54 49 4d  45 20 22 3b 74 6c 74 0d  |,1);"TIME ";tlt.|
00000830  01 c2 25 e3 69 25 3d 31  b8 31 35 3a e3 6a 25 3d  |..%.i%=1.15:.j%=|
00000840  31 b8 31 33 3a 73 71 28  69 25 2c 6a 25 29 3d 31  |1.13:sq(i%,j%)=1|
00000850  3a ed 3a ed 0d 01 cc 35  61 24 3d bd 31 38 2b bd  |:.:....5a$=.18+.|
00000860  31 2b bd 31 2b bd 35 2b  bd 32 34 30 2b bd 32 34  |1+.1+.5+.240+.24|
00000870  31 2b bd 31 30 2b bd 38  2b bd 38 2b bd 32 34 33  |1+.10+.8+.8+.243|
00000880  2b bd 32 34 32 2b bd 31  31 0d 01 d6 39 62 6c 6f  |+.242+.11...9blo|
00000890  63 6b 24 3d 61 24 3a 53  72 25 3d 38 39 36 3a 45  |ck$=a$:Sr%=896:E|
000008a0  6e 25 3d 39 36 3a 53 70  25 3d 2d 36 34 3a 58 63  |n%=96:Sp%=-64:Xc|
000008b0  25 3d 31 39 32 3a 53 74  25 3d 31 30 3a 53 73 25  |%=192:St%=10:Ss%|
000008c0  3d 35 0d 01 e0 30 e3 69  25 3d 53 72 25 b8 45 6e  |=5...0.i%=Sr%.En|
000008d0  25 88 53 70 25 3a ec 58  63 25 2c 69 25 3a f1 c4  |%.Sp%:.Xc%,i%:..|
000008e0  53 74 25 2c 61 24 29 3b  c4 53 73 25 2c 61 24 29  |St%,a$);.Ss%,a$)|
000008f0  3a ed 0d 01 ea 06 ef 34  0d 01 f4 50 fb 33 3a e3  |:......4...P.3:.|
00000900  69 25 3d 31 b8 66 69 6e  25 2d 32 3a 78 3d 28 b3  |i%=1.fin%-2:x=(.|
00000910  28 31 35 29 2a 32 29 2b  34 3a 79 3d 28 b3 28 31  |(15)*2)+4:y=(.(1|
00000920  32 29 2a 32 29 2b 32 3a  f1 8a 78 2c 79 29 3b 62  |2)*2)+2:..x,y);b|
00000930  6f 6e 65 24 3a 73 71 28  78 2f 32 2d 32 2c 79 2f  |one$:sq(x/2-2,y/|
00000940  32 2d 31 29 3d 32 3a ed  0d 01 fe 4f fb 32 3a e3  |2-1)=2:....O.2:.|
00000950  69 25 3d 31 b8 66 69 6e  25 2d 34 3a 78 3d 28 b3  |i%=1.fin%-4:x=(.|
00000960  28 31 35 29 2a 32 29 2b  34 3a 79 3d 28 b3 28 31  |(15)*2)+4:y=(.(1|
00000970  32 29 2a 32 29 2b 32 3a  f1 8a 78 2c 79 29 3b 63  |2)*2)+2:..x,y);c|
00000980  61 74 24 3a 73 71 28 78  2f 32 2d 32 2c 79 2f 32  |at$:sq(x/2-2,y/2|
00000990  2d 31 29 3d 33 3a ed 0d  02 08 05 e1 0d 02 12 0a  |-1)=3:..........|
000009a0  dd f2 66 6f 6f 64 0d 02  1c 54 66 6c 79 25 3d 66  |..food...Tfly%=f|
000009b0  63 25 3a f5 3a 66 78 25  3d 28 b3 28 31 35 29 2a  |c%:.:fx%=(.(15)*|
000009c0  32 29 2b 34 3a 66 79 25  3d 28 b3 28 31 32 29 2a  |2)+4:fy%=(.(12)*|
000009d0  32 29 2b 32 3a fd 66 78  25 3c 3e 78 25 20 80 66  |2)+2:.fx%<>x% .f|
000009e0  79 25 3c 3e 79 25 20 80  66 78 25 3c 3e 74 78 25  |y%<>y% .fx%<>tx%|
000009f0  20 80 66 78 25 3c 3e 74  79 25 0d 02 26 2a ec 66  | .fx%<>ty%..&*.f|
00000a00  78 25 2a 33 32 2c 31 30  32 34 2d 28 66 79 25 2a  |x%*32,1024-(fy%*|
00000a10  33 32 29 3a f1 8a 66 78  25 2c 66 79 25 29 3b 66  |32):..fx%,fy%);f|
00000a20  6f 6f 64 24 0d 02 30 05  e1 0d 02 3a 0c dd f2 75  |ood$..0....:...u|
00000a30  70 64 61 74 65 0d 02 44  1a e7 63 74 25 2f 73 6b  |pdate..D..ct%/sk|
00000a40  25 3c 3e a8 28 63 74 25  2f 73 6b 25 29 20 e1 0d  |%<>.(ct%/sk%) ..|
00000a50  02 4e 31 fb 32 3a f1 8a  66 78 25 2c 66 79 25 29  |.N1.2:..fx%,fy%)|
00000a60  3b 22 20 20 22 3b 8a 66  78 25 2c 66 79 25 29 3b  |;"  ";.fx%,fy%);|
00000a70  66 6c 79 25 3a 66 6c 79  25 3d 66 6c 79 25 2d 31  |fly%:fly%=fly%-1|
00000a80  0d 02 58 19 73 71 28 66  78 25 2f 32 2d 32 2c 66  |..X.sq(fx%/2-2,f|
00000a90  79 25 2f 32 2d 31 29 3d  36 0d 02 62 05 e1 0d 02  |y%/2-1)=6..b....|
00000aa0  6c 0a dd f2 74 72 65 65  0d 02 76 37 f5 3a 74 78  |l...tree..v7.:tx|
00000ab0  25 3d 28 b3 28 31 35 29  2a 32 29 2b 34 3a 74 79  |%=(.(15)*2)+4:ty|
00000ac0  25 3d 28 b3 28 31 32 29  2a 32 29 2b 32 3a fd 74  |%=(.(12)*2)+2:.t|
00000ad0  78 25 3c 3e 78 25 20 80  74 79 25 3c 3e 79 25 0d  |x%<>x% .ty%<>y%.|
00000ae0  02 80 17 fb 32 3a f1 8a  74 78 25 2c 74 79 25 29  |....2:..tx%,ty%)|
00000af0  3b 74 72 65 65 24 0d 02  8a 19 73 71 28 74 78 25  |;tree$....sq(tx%|
00000b00  2f 32 2d 32 2c 74 79 25  2f 32 2d 31 29 3d 35 0d  |/2-2,ty%/2-1)=5.|
00000b10  02 94 05 e1 0d 02 9e 0b  dd f2 66 69 67 68 74 0d  |..........fight.|
00000b20  02 a8 14 e3 69 3d 31 b8  b3 28 31 30 29 2b b3 28  |....i=1..(10)+.(|
00000b30  31 30 29 0d 02 b2 58 e3  67 3d 31 b8 32 35 3a ed  |10)...X.g=1.25:.|
00000b40  3a fb 32 3a f1 8a 78 25  2c 79 25 29 3b 63 61 74  |:.2:..x%,y%);cat|
00000b50  24 3a e3 67 3d 31 b8 32  35 3a ed 3a fb 33 3a f1  |$:.g=1.25:.:.3:.|
00000b60  8a 78 25 2c 79 25 29 3b  64 6f 67 24 3a ef 31 39  |.x%,y%);dog$:.19|
00000b70  2c 30 2c b3 28 38 29 2d  31 3b 30 3b 30 3b 31 39  |,0,.(8)-1;0;0;19|
00000b80  2c 33 2c 30 3b 30 3b 30  3b 20 20 0d 02 bc 14 e7  |,3,0;0;0;  .....|
00000b90  66 6c 79 25 3e 20 32 30  66 6c 79 25 3d 32 30 0d  |fly%> 20fly%=20.|
00000ba0  02 c6 1c d4 30 2c 2d 31  35 2c 31 30 2b b3 28 33  |....0,-15,10+.(3|
00000bb0  29 2c 35 3a ed 3a 2a 46  58 31 35 0d 02 d0 09 ef  |),5:.:*FX15.....|
00000bc0  32 30 3a e1 0d 02 da 0e  dd f2 73 63 72 6f 6c 6c  |20:.......scroll|
00000bd0  75 70 0d 02 e4 17 79 25  3d 79 25 2d 32 3a e7 79  |up....y%=y%-2:.y|
00000be0  25 3c 34 20 79 25 3d 32  38 0d 02 ee 23 e7 63 78  |%<4 y%=28...#.cx|
00000bf0  25 3d 78 25 20 63 79 25  3d 63 79 25 2d 32 3a e7  |%=x% cy%=cy%-2:.|
00000c00  63 79 25 3c 34 20 63 79  25 3d 32 38 0d 02 f8 23  |cy%<4 cy%=28...#|
00000c10  e7 66 78 25 3d 78 25 20  66 79 25 3d 66 79 25 2d  |.fx%=x% fy%=fy%-|
00000c20  32 3a e7 66 79 25 3c 34  20 66 79 25 3d 32 38 0d  |2:.fy%<4 fy%=28.|
00000c30  03 02 12 76 3d 73 71 28  78 25 2f 32 2d 32 2c 31  |...v=sq(x%/2-2,1|
00000c40  29 0d 03 0c 56 e3 68 25  3d 31 32 b8 31 88 2d 31  |)...V.h%=12.1.-1|
00000c50  3a 74 28 68 25 29 3d 73  71 28 78 25 2f 32 2d 32  |:t(h%)=sq(x%/2-2|
00000c60  2c 68 25 2b 31 29 3a ed  3a e3 68 25 3d 31 b8 31  |,h%+1):.:.h%=1.1|
00000c70  32 3a 73 71 28 78 25 2f  32 2d 32 2c 68 25 29 3d  |2:sq(x%/2-2,h%)=|
00000c80  74 28 68 25 29 3a ed 3a  73 71 28 78 25 2f 32 2d  |t(h%):.:sq(x%/2-|
00000c90  32 2c 31 33 29 3d 76 0d  03 16 14 ef 32 38 2c 78  |2,13)=v.....28,x|
00000ca0  25 2c 32 39 2c 78 25 2b  31 2c 34 0d 03 20 10 f1  |%,29,x%+1,4.. ..|
00000cb0  8a 30 2c 32 34 29 3b 3a  f1 27 27 0d 03 2a 17 d4  |.0,24);:.''..*..|
00000cc0  30 2c 2d 31 30 2c 31 33  2c 35 3a 2a 46 58 32 31  |0,-10,13,5:*FX21|
00000cd0  2c 30 0d 03 34 11 ef 32  38 2c 30 2c 33 31 2c 33  |,0..4..28,0,31,3|
00000ce0  39 2c 30 0d 03 3e 16 f2  70 72 69 6e 74 28 78 25  |9,0..>..print(x%|
00000cf0  2c 32 38 2c 31 30 32 34  29 0d 03 48 05 e1 0d 03  |,28,1024)..H....|
00000d00  52 14 dd f2 70 72 69 6e  74 28 70 78 2c 70 79 2c  |R...print(px,py,|
00000d10  79 29 0d 03 5c 26 e7 76  3d 31 20 ec 70 78 2a 33  |y)..\&.v=1 .px*3|
00000d20  32 2c 79 2d 28 70 79 2a  33 32 29 3a f1 62 6c 6f  |2,y-(py*32):.blo|
00000d30  63 6b 24 3a ef 34 3a e1  0d 03 66 1e e7 76 3d 30  |ck$:.4:...f..v=0|
00000d40  20 fb 30 3a f1 8a 70 78  2c 70 79 29 3b 64 6f 67  | .0:..px,py);dog|
00000d50  24 3a fb 33 3a e1 0d 03  70 1c e7 76 3d 32 20 fb  |$:.3:...p..v=2 .|
00000d60  33 3a f1 8a 70 78 2c 70  79 29 3b 62 6f 6e 65 24  |3:..px,py);bone$|
00000d70  3a e1 0d 03 7a 1b e7 76  3d 33 20 fb 32 3a f1 8a  |:...z..v=3 .2:..|
00000d80  70 78 2c 70 79 29 3b 63  61 74 24 3a e1 0d 03 84  |px,py);cat$:....|
00000d90  1c e7 76 3d 35 20 fb 32  3a f1 8a 70 78 2c 70 79  |..v=5 .2:..px,py|
00000da0  29 3b 74 72 65 65 24 3a  e1 0d 03 8e 2b e7 76 3d  |);tree$:....+.v=|
00000db0  36 20 ec 70 78 2a 33 32  2c 31 30 32 33 2d 28 70  |6 .px*32,1023-(p|
00000dc0  79 2a 33 32 29 3a f1 8a  70 78 2c 70 79 29 3b 66  |y*32):..px,py);f|
00000dd0  6f 6f 64 24 0d 03 98 05  e1 0d 03 a2 10 dd f2 73  |ood$...........s|
00000de0  63 72 6f 6c 6c 64 6f 77  6e 0d 03 ac 17 79 25 3d  |crolldown....y%=|
00000df0  79 25 2b 32 3a e7 79 25  3e 32 38 20 79 25 3d 34  |y%+2:.y%>28 y%=4|
00000e00  0d 03 b6 23 e7 63 78 25  3d 78 25 20 63 79 25 3d  |...#.cx%=x% cy%=|
00000e10  63 79 25 2b 32 3a e7 63  79 25 3e 32 38 20 63 79  |cy%+2:.cy%>28 cy|
00000e20  25 3d 34 0d 03 c0 23 e7  66 78 25 3d 78 25 20 66  |%=4...#.fx%=x% f|
00000e30  79 25 3d 66 79 25 2b 32  3a e7 66 79 25 3e 32 38  |y%=fy%+2:.fy%>28|
00000e40  20 66 79 25 3d 34 0d 03  ca 13 76 3d 73 71 28 78  | fy%=4....v=sq(x|
00000e50  25 2f 32 2d 32 2c 31 33  29 0d 03 d4 52 e3 68 25  |%/2-2,13)...R.h%|
00000e60  3d 32 b8 31 33 3a 74 28  68 25 29 3d 73 71 28 78  |=2.13:t(h%)=sq(x|
00000e70  25 2f 32 2d 32 2c 68 25  2d 31 29 3a ed 3a e3 68  |%/2-2,h%-1):.:.h|
00000e80  25 3d 32 b8 31 33 3a 73  71 28 78 25 2f 32 2d 32  |%=2.13:sq(x%/2-2|
00000e90  2c 68 25 29 3d 74 28 68  25 29 3a ed 3a 73 71 28  |,h%)=t(h%):.:sq(|
00000ea0  78 25 2f 32 2d 32 2c 31  29 3d 76 0d 03 de 14 ef  |x%/2-2,1)=v.....|
00000eb0  32 38 2c 78 25 2c 32 39  2c 78 25 2b 31 2c 34 0d  |28,x%,29,x%+1,4.|
00000ec0  03 e8 12 f1 8a 30 2c 30  29 3b 3a ef 31 31 2c 31  |.....0,0);:.11,1|
00000ed0  31 0d 03 f2 17 d4 30 2c  2d 31 30 2c 31 33 2c 35  |1.....0,-10,13,5|
00000ee0  3a 2a 46 58 32 31 2c 30  0d 03 fc 25 ef 32 38 2c  |:*FX21,0...%.28,|
00000ef0  30 2c 33 31 2c 33 39 2c  30 3a f2 70 72 69 6e 74  |0,31,39,0:.print|
00000f00  28 78 25 2c 34 2c 31 30  32 34 29 3a e1 0d 04 06  |(x%,4,1024):....|
00000f10  0b dd f2 62 6f 6e 75 73  0d 04 10 22 61 3d a6 28  |...bonus..."a=.(|
00000f20  30 29 3a db 3a d4 31 2c  34 2c 31 30 30 2c 31 3a  |0):.:.1,4,100,1:|
00000f30  d4 32 2c 34 2c 31 30 31  2c 31 0d 04 1a 9b ef 32  |.2,4,101,1.....2|
00000f40  32 2c 37 3a 64 24 3d bd  31 33 31 2b bd 31 34 31  |2,7:d$=.131+.141|
00000f50  2b 22 42 4f 4e 55 53 20  73 74 61 67 65 20 6e 75  |+"BONUS stage nu|
00000f60  6d 62 65 72 20 22 2b c3  73 68 65 65 74 25 3a 79  |mber "+.sheet%:y|
00000f70  3d 31 30 3a e3 69 3d 31  b8 32 3a f2 74 65 6c 65  |=10:.i=1.2:.tele|
00000f80  78 3a ed 3a 79 3d 79 2b  32 3a 64 24 3d bd 31 33  |x:.:y=y+2:d$=.13|
00000f90  35 2b 22 50 72 65 73 73  20 61 6e 79 20 6b 65 79  |5+"Press any key|
00000fa0  20 74 6f 20 6d 61 6b 65  20 52 6f 76 65 72 20 6c  | to make Rover l|
00000fb0  61 6e 64 20 22 3a f2 74  65 6c 65 78 3a 64 24 3d  |and ":.telex:d$=|
00000fc0  22 6f 6e 20 68 69 73 20  66 6f 6f 64 2e 22 3a f2  |"on his food.":.|
00000fd0  74 65 6c 65 78 0d 04 24  25 d1 3d 30 3a f5 3a fd  |telex..$%.=0:.:.|
00000fe0  91 3e 33 30 30 3a ef 32  32 2c 31 2c 32 33 3b 38  |.>300:.22,1,23;8|
00000ff0  32 30 32 3b 30 3b 30 3b  30 3b 0d 04 2e 51 e3 69  |202;0;0;0;...Q.i|
00001000  3d 30 b8 33 39 88 32 3a  fb b3 28 34 29 3a f1 8a  |=0.39.2:..(4):..|
00001010  69 2c 32 38 29 3b 74 72  65 65 24 3a ed 3a 61 63  |i,28);tree$:.:ac|
00001020  3d b3 28 31 38 29 2a 32  3a fb 30 3a f1 8a 61 63  |=.(18)*2:.0:..ac|
00001030  2c 32 38 29 3b 64 6f 67  24 3a ec 61 63 2a 33 32  |,28);dog$:.ac*32|
00001040  2c 31 32 38 3a f1 66 6f  6f 64 24 0d 04 38 0b 78  |,128:.food$..8.x|
00001050  3d 30 3a 79 3d 30 0d 04  42 2a f5 3a fb 30 3a f1  |=0:y=0..B*.:.0:.|
00001060  8a 78 2c 79 29 3b 64 6f  67 24 3a 78 3d 78 2b 32  |.x,y);dog$:x=x+2|
00001070  3a e7 78 3e 33 39 20 78  3d 30 3a 79 3d 79 2b 32  |:.x>39 x=0:y=y+2|
00001080  0d 04 4c 07 fb 33 20 0d  04 56 0f f1 8a 78 2c 79  |..L..3 ..V...x,y|
00001090  29 3b 64 6f 67 24 0d 04  60 0e e3 67 3d 31 b8 31  |);dog$..`..g=1.1|
000010a0  30 30 3a ed 0d 04 6a 68  e7 79 3d 32 38 20 ef 32  |00:...jh.y=28 .2|
000010b0  32 2c 37 3a 61 24 3d bd  31 34 31 2b bd 31 33 31  |2,7:a$=.141+.131|
000010c0  2b bd 31 33 36 2b 22 4e  6f 20 62 6f 6e 75 73 20  |+.136+"No bonus |
000010d0  21 21 22 3a f1 8a 30 2c  31 30 29 3a e3 69 3d 31  |!!":..0,10):.i=1|
000010e0  b8 32 3a f1 89 28 31 32  29 3b 61 24 3a ed 3a d4  |.2:..(12);a$:.:.|
000010f0  30 2c 2d 31 35 2c 31 30  2c 34 30 3a 61 3d a6 28  |0,-15,10,40:a=.(|
00001100  33 30 30 29 3a ef 32 32  2c 31 3a e1 0d 04 74 0d  |300):.22,1:...t.|
00001110  fd a6 28 30 29 3c 3e 2d  31 0d 04 7e 47 e3 69 3d  |..(0)<>-1..~G.i=|
00001120  79 20 b8 20 32 37 3a fb  33 3a f1 8a 78 2c 69 29  |y . 27:.3:..x,i)|
00001130  3b 64 6f 67 24 3a fb 30  3a d4 33 2c 2d 31 35 2c  |;dog$:.0:.3,-15,|
00001140  31 32 38 2d 69 2c 31 3a  e3 67 3d 31 b8 31 30 30  |128-i,1:.g=1.100|
00001150  3a ed 3a f1 8a 78 2c 69  29 3b 64 6f 67 24 3a ed  |:.:..x,i);dog$:.|
00001160  0d 04 88 12 fb 33 3a f1  8a 78 2c 69 29 3b 64 6f  |.....3:..x,i);do|
00001170  67 24 0d 04 92 9c e7 78  3d 61 63 20 d4 32 2c 33  |g$.....x=ac .2,3|
00001180  2c 31 30 30 2c 31 3a d4  33 2c 33 2c 31 30 31 2c  |,100,1:.3,3,101,|
00001190  31 3a 61 3d a6 28 32 30  30 29 3a ef 32 32 2c 37  |1:a=.(200):.22,7|
000011a0  3a 61 24 3d bd 31 34 31  2b bd 31 33 35 2b bd 31  |:a$=.141+.135+.1|
000011b0  33 36 2b 22 42 6f 6e 75  73 20 22 2b c3 28 28 33  |36+"Bonus "+.((3|
000011c0  31 2d 79 29 2a 31 30 29  3a 73 63 25 3d 73 63 25  |1-y)*10):sc%=sc%|
000011d0  2b 28 33 31 2d 79 29 2a  31 30 3a f1 8a 30 2c 31  |+(31-y)*10:..0,1|
000011e0  30 29 3a f1 8a 30 2c 31  30 29 3a e3 6a 3d 31 b8  |0):..0,10):.j=1.|
000011f0  32 3a f1 89 28 31 32 29  3b 61 24 3a ed 3a 61 3d  |2:..(12);a$:.:a=|
00001200  a6 28 33 30 30 29 3a ef  32 32 2c 31 3a e1 0d 04  |.(300):.22,1:...|
00001210  9c 1a d4 30 2c 2d 31 35  2c 32 2c 33 30 3a 61 3d  |...0,-15,2,30:a=|
00001220  a6 28 32 30 30 29 3a e1  0d 04 a6 0a dd f2 69 6e  |.(200):.......in|
00001230  69 74 0d 04 b0 1b ef 32  33 3b 38 32 30 32 3b 30  |it.....23;8202;0|
00001240  3b 30 3b 30 3b 3a 2a 46  58 32 31 2c 30 0d 04 ba  |;0;0;:*FX21,0...|
00001250  08 ea 78 2c 79 0d 04 c4  1a 3a e3 69 3d 30 b8 32  |..x,y....:.i=0.2|
00001260  34 3a f1 8a 30 2c 69 29  3b bd 31 35 37 3a ed 0d  |4:..0,i);.157:..|
00001270  04 ce 46 79 3d 34 3a 64  24 3d bd 31 34 31 2b bd  |..Fy=4:d$=.141+.|
00001280  31 33 32 2b bd 31 35 37  2b bd 31 33 31 2b 22 52  |132+.157+.131+"R|
00001290  4f 56 45 52 20 22 2b bd  31 33 35 2b bd 31 35 37  |OVER "+.135+.157|
000012a0  2b bd 31 34 30 3a e3 69  3d 31 b8 32 3a f2 74 65  |+.140:.i=1.2:.te|
000012b0  6c 65 78 3a ed 0d 04 d8  2f 79 3d 79 2b 32 3a 64  |lex:..../y=y+2:d|
000012c0  24 3d bd 31 32 39 2b 22  42 79 20 47 72 61 68 61  |$=.129+"By Graha|
000012d0  6d 20 44 2e 20 57 61 6c  6b 64 65 6e 22 3a f2 74  |m D. Walkden":.t|
000012e0  65 6c 65 78 0d 04 e2 14  e7 73 63 25 3e 68 73 25  |elex.....sc%>hs%|
000012f0  20 68 73 25 3d 73 63 25  0d 04 ec 77 64 24 3d bd  | hs%=sc%...wd$=.|
00001300  31 34 31 2b bd 31 33 30  2b 22 4c 61 73 74 20 73  |141+.130+"Last s|
00001310  63 6f 72 65 20 22 2b c3  73 63 25 2b 22 20 22 3a  |core "+.sc%+" ":|
00001320  79 3d 79 2b 32 3a e3 69  3d 31 b8 32 3a f2 74 65  |y=y+2:.i=1.2:.te|
00001330  6c 65 78 3a ed 3a 64 24  3d bd 31 34 31 2b bd 31  |lex:.:d$=.141+.1|
00001340  33 30 2b 22 48 69 67 68  20 73 63 6f 72 65 20 22  |30+"High score "|
00001350  2b c3 68 73 25 2b 22 20  22 3a 79 3d 79 2b 31 3a  |+.hs%+" ":y=y+1:|
00001360  e3 69 3d 31 b8 32 3a f2  74 65 6c 65 78 3a ed 0d  |.i=1.2:.telex:..|
00001370  04 f6 4e 64 24 3d bd 31  34 31 2b bd 31 33 33 2b  |..Nd$=.141+.133+|
00001380  bd 31 33 36 2b 22 50 72  65 73 73 20 61 6e 79 20  |.136+"Press any |
00001390  6b 65 79 20 66 6f 72 20  61 6e 6f 74 68 65 72 20  |key for another |
000013a0  67 61 6d 65 20 20 22 3a  79 3d 79 2b 32 3a e3 69  |game  ":y=y+2:.i|
000013b0  3d 31 b8 32 3a f2 74 65  6c 65 78 3a ed 0d 05 00  |=1.2:.telex:....|
000013c0  09 41 3d a5 3a e1 0d 05  0a 2a dd f2 74 65 6c 65  |.A=.:....*..tele|
000013d0  78 3a 78 3d 28 34 30 2d  a9 64 24 29 2f 32 3a f1  |x:x=(40-.d$)/2:.|
000013e0  8a 78 2c 79 29 3b 64 24  3a 79 3d 79 2b 31 3a e1  |.x,y);d$:y=y+1:.|
000013f0  0d 05 14 09 dd f2 65 6e  64 0d 05 1e 24 d4 31 2c  |......end...$.1,|
00001400  34 2c 31 30 30 2c 31 3a  d4 32 2c 34 2c 31 31 30  |4,100,1:.2,4,110|
00001410  2c 31 3a d4 33 2c 34 2c  31 32 30 2c 31 0d 05 28  |,1:.3,4,120,1..(|
00001420  58 79 3d 31 30 3a 64 24  3d bd 31 33 32 2b bd 31  |Xy=10:d$=.132+.1|
00001430  35 37 2b bd 31 33 35 2b  bd 31 34 31 2b 22 47 41  |57+.135+.141+"GA|
00001440  4d 45 20 4f 56 45 52 20  20 22 2b bd 31 35 36 3a  |ME OVER  "+.156:|
00001450  e3 69 3d 31 b8 32 3a f2  74 65 6c 65 78 3a ed 3a  |.i=1.2:.telex:.:|
00001460  e3 69 3d 31 b8 31 30 30  30 30 3a ed 69 3a 2a 46  |.i=1.10000:.i:*F|
00001470  58 32 31 2c 30 0d 05 32  07 db 3a e1 0d 05 3c 09  |X21,0..2..:...<.|
00001480  dd f2 63 61 74 0d 05 46  19 76 3d 73 71 28 63 78  |..cat..F.v=sq(cx|
00001490  25 2f 32 2d 32 2c 63 79  25 2f 32 2d 31 29 0d 05  |%/2-2,cy%/2-1)..|
000014a0  50 47 e7 76 3d 31 20 fb  30 3a f1 8a 63 78 25 2c  |PG.v=1 .0:..cx%,|
000014b0  63 79 25 29 3b 64 6f 67  24 3a 73 71 28 63 78 25  |cy%);dog$:sq(cx%|
000014c0  2f 32 2d 32 2c 63 79 25  2f 32 2d 31 29 3d 30 3a  |/2-2,cy%/2-1)=0:|
000014d0  8b f2 70 72 69 6e 74 28  63 78 25 2c 63 79 25 2c  |..print(cx%,cy%,|
000014e0  31 30 32 34 29 0d 05 5a  1b e7 63 78 25 3e 33 30  |1024)..Z..cx%>30|
000014f0  20 63 78 25 3d 63 78 25  2d 32 3a e5 8d 44 78 45  | cx%=cx%-2:..DxE|
00001500  0d 05 64 1a e7 63 78 25  3c 38 20 63 78 25 3d 63  |..d..cx%<8 cx%=c|
00001510  78 25 2b 32 3a e5 8d 44  78 45 0d 05 6e 21 63 78  |x%+2:..DxE..n!cx|
00001520  25 3d 63 78 25 2b 28 28  b3 28 32 29 2d 31 29 2d  |%=cx%+((.(2)-1)-|
00001530  28 b3 28 32 29 2d 31 29  29 2a 32 0d 05 78 1b e7  |(.(2)-1))*2..x..|
00001540  63 79 25 3e 32 36 20 63  79 25 3d 63 79 25 2d 32  |cy%>26 cy%=cy%-2|
00001550  3a e5 8d 74 56 45 0d 05  82 1a e7 63 79 25 3c 36  |:..tVE.....cy%<6|
00001560  20 63 79 25 3d 63 79 25  2b 32 3a e5 8d 74 56 45  | cy%=cy%+2:..tVE|
00001570  0d 05 8c 21 63 79 25 3d  63 79 25 2b 28 28 b3 28  |...!cy%=cy%+((.(|
00001580  32 29 2d 31 29 2d 28 b3  28 32 29 2d 31 29 29 2a  |2)-1)-(.(2)-1))*|
00001590  32 0d 05 96 18 fb 33 3a  f1 8a 63 78 25 2c 63 79  |2.....3:..cx%,cy|
000015a0  25 29 3b 63 61 74 24 3a  e1 0d 05 a0 0b dd f2 63  |%);cat$:.......c|
000015b0  68 61 72 73 0d 05 aa db  ef 32 33 2c 32 32 34 2c  |hars.....23,224,|
000015c0  31 35 2c 31 32 37 2c 39  35 2c 38 39 2c 33 31 2c  |15,127,95,89,31,|
000015d0  32 38 2c 35 34 2c 31 32  31 2c 32 33 2c 32 32 35  |28,54,121,23,225|
000015e0  2c 32 32 34 2c 32 35 32  2c 32 34 34 2c 35 32 2c  |,224,252,244,52,|
000015f0  32 34 30 2c 31 31 32 2c  32 31 36 2c 36 30 2c 32  |240,112,216,60,2|
00001600  33 2c 32 32 36 2c 32 35  32 2c 32 35 32 2c 32 33  |3,226,252,252,23|
00001610  36 2c 32 30 34 2c 31 32  2c 31 32 2c 31 34 2c 30  |6,204,12,12,14,0|
00001620  2c 32 33 2c 32 32 37 2c  31 32 37 2c 31 32 37 2c  |,23,227,127,127,|
00001630  31 31 31 2c 31 30 33 2c  39 36 2c 39 36 2c 32 32  |111,103,96,96,22|
00001640  34 2c 30 2c 32 33 2c 32  32 38 2c 31 32 37 2c 32  |4,0,23,228,127,2|
00001650  35 35 2c 31 34 30 2c 31  36 35 2c 31 36 35 2c 31  |55,140,165,165,1|
00001660  36 35 2c 31 34 30 2c 32  35 35 2c 32 33 2c 32 32  |65,140,255,23,22|
00001670  39 2c 32 35 34 2c 32 35  35 2c 33 33 2c 31 37 35  |9,254,255,33,175|
00001680  2c 31 36 39 2c 31 36 39  2c 33 33 2c 32 35 35 0d  |,169,169,33,255.|
00001690  05 b4 e3 ef 32 33 2c 32  33 30 2c 30 2c 30 2c 32  |....23,230,0,0,2|
000016a0  32 32 2c 38 30 2c 38 36  2c 38 36 2c 32 32 32 2c  |22,80,86,86,222,|
000016b0  30 2c 32 33 2c 32 33 31  2c 30 2c 30 2c 31 31 35  |0,23,231,0,0,115|
000016c0  2c 39 30 2c 39 30 2c 39  30 2c 31 31 35 2c 30 2c  |,90,90,90,115,0,|
000016d0  32 33 2c 32 33 32 2c 30  2c 31 34 2c 33 31 2c 31  |23,232,0,14,31,1|
000016e0  35 2c 33 2c 33 2c 33 2c  33 2c 32 33 2c 32 33 33  |5,3,3,3,3,23,233|
000016f0  2c 30 2c 31 31 32 2c 32  34 38 2c 32 34 30 2c 31  |,0,112,248,240,1|
00001700  39 32 2c 31 39 32 2c 31  39 32 2c 31 39 32 2c 32  |92,192,192,192,2|
00001710  33 2c 32 33 34 2c 31 39  32 2c 31 39 32 2c 31 39  |3,234,192,192,19|
00001720  32 2c 31 39 32 2c 32 34  30 2c 32 34 38 2c 31 31  |2,192,240,248,11|
00001730  32 2c 30 2c 32 33 2c 32  33 35 2c 33 2c 33 2c 33  |2,0,23,235,3,3,3|
00001740  2c 33 2c 31 35 2c 33 31  2c 31 34 2c 30 2c 32 33  |,3,15,31,14,0,23|
00001750  2c 32 33 36 2c 30 2c 32  31 36 2c 32 31 36 2c 32  |,236,0,216,216,2|
00001760  34 38 2c 31 36 38 2c 31  36 39 2c 32 31 39 2c 31  |48,168,169,219,1|
00001770  32 37 0d 05 be eb ef 32  33 2c 32 33 37 2c 30 2c  |27.....23,237,0,|
00001780  33 2c 33 2c 33 2c 33 2c  32 34 33 2c 32 35 31 2c  |3,3,3,3,243,251,|
00001790  32 35 35 2c 32 33 2c 32  33 38 2c 32 35 35 2c 32  |255,23,238,255,2|
000017a0  35 35 2c 31 35 2c 33 2c  33 2c 33 2c 33 2c 37 2c  |55,15,3,3,3,3,7,|
000017b0  32 33 2c 32 33 39 2c 31  32 37 2c 36 33 2c 33 30  |23,239,127,63,30|
000017c0  2c 32 34 2c 32 34 2c 32  34 2c 32 34 2c 35 36 2c  |,24,24,24,24,56,|
000017d0  32 33 2c 32 34 30 2c 30  2c 32 35 35 2c 32 35 35  |23,240,0,255,255|
000017e0  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
000017f0  2c 32 35 35 2c 32 33 2c  32 34 31 2c 30 2c 32 35  |,255,23,241,0,25|
00001800  32 2c 32 35 32 2c 32 35  32 2c 32 35 32 2c 32 35  |2,252,252,252,25|
00001810  32 2c 32 35 32 2c 32 35  32 2c 32 33 2c 32 34 32  |2,252,252,23,242|
00001820  2c 32 35 32 2c 32 35 32  2c 32 35 32 2c 32 35 32  |,252,252,252,252|
00001830  2c 32 35 32 2c 32 35 32  2c 30 2c 30 2c 32 33 2c  |,252,252,0,0,23,|
00001840  32 34 33 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |243,255,255,255,|
00001850  32 35 35 2c 32 35 35 2c  32 35 35 2c 30 0d 05 c8  |255,255,255,0...|
00001860  cd ef 30 2c 32 33 2c 32  34 34 2c 30 2c 30 2c 36  |..0,23,244,0,0,6|
00001870  33 2c 36 33 2c 36 33 2c  36 33 2c 36 33 2c 36 33  |3,63,63,63,63,63|
00001880  2c 32 33 2c 32 34 35 2c  30 2c 30 2c 32 35 35 2c  |,23,245,0,0,255,|
00001890  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
000018a0  32 35 35 2c 32 33 2c 32  34 36 2c 32 35 35 2c 32  |255,23,246,255,2|
000018b0  35 35 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |55,255,255,255,2|
000018c0  35 35 2c 32 35 35 2c 32  35 35 2c 32 33 2c 32 34  |55,255,255,23,24|
000018d0  37 2c 36 33 2c 36 33 2c  36 33 2c 36 33 2c 36 33  |7,63,63,63,63,63|
000018e0  2c 36 33 2c 36 33 2c 36  33 2c 32 33 2c 32 34 38  |,63,63,63,23,248|
000018f0  2c 32 31 2c 34 32 2c 38  35 2c 34 32 2c 38 35 2c  |,21,42,85,42,85,|
00001900  34 32 2c 32 31 2c 31 2c  32 33 2c 32 34 39 2c 38  |42,21,1,23,249,8|
00001910  34 2c 31 37 30 2c 38 34  2c 31 37 30 2c 38 34 2c  |4,170,84,170,84,|
00001920  31 37 30 2c 38 34 2c 31  32 38 0d 05 d2 42 ef 32  |170,84,128...B.2|
00001930  33 2c 32 35 30 2c 31 32  38 2c 31 32 38 2c 31 32  |3,250,128,128,12|
00001940  38 2c 31 32 38 2c 31 32  38 2c 31 32 38 2c 31 39  |8,128,128,128,19|
00001950  32 2c 32 32 34 2c 32 33  2c 32 35 31 2c 31 2c 31  |2,224,23,251,1,1|
00001960  2c 31 2c 31 2c 31 2c 31  2c 33 2c 37 0d 05 dc 05  |,1,1,1,1,3,7....|
00001970  e1 0d ff                                          |...|
00001973