� ><Coll2$Dir>.!RunImage
��Th@
#�K=1�3:�"SDELETE CORNER"+�(K):�
(��T|@
2�"Cache ON"
<�"PLAYPOS 0":�:�
FF�"Run <Coll2$Dir>.Graphix.!Palette1":Ƞ8:�"PlayPos 0":�"PlayStart"
P3�15:�:�63Ȝ255:�"Please wait (calculating) ..."
Z
demo=�
d4EXIT=�:�setup:�gamestart:�"RMKILL TRACKERMODULE"
nm�"IconSprites <Coll2$Dir>.Graphix.!Pointer1":�"Run <Coll2$Dir>.Graphix.!Palette":�'"Missing you already!"
x�
���gamestart
��:�63Ȝ255:�128Ȝ0
�f�0,0Ȝ0:ȓȐ0,0,1279,1023:X=0:Y=0:�"SCHOOSE archiworld":�&ED,50,50:�"SCHOOSE research":�&ED,650,30
�#�23,25,&FF,15,0,0,0,100,100,250
��plot("15enter",420,475)
��plot("collisions",325,750)
��plot("define",50,550)
��plot("info",50,750)
��plot("exit",50,350)
��19Ȝ255
�8�plot("iconbar",685,365):�plot("soundon",306+50,351)
�<�plot("soundoff",386+50,351):�plot("musicon",466+50,351)
� �plot("musicoff",546+50,351)

�63Ȝ255

ȗ�

�"FX 15":�scroll

"G�K=32�K=13�first=�:�clt:�"PlayPos 10":�=0:Levno=1:�playgame:X=0:Y=0

,Y�X>424� X<1100� Y>484� Y<716�first=�:�clt:�"PlayPos 10":�=0:Levno=1:�playgame:X=0:Y=0

6M�X>852� X<1011� Y>365� Y<419�first=�:�clt:�"PlayPos 10":�=0:�demo:X=0:Y=0

@1�X>684� X<843� Y>365� Y<419��password:X=0:Y=0

J3�X>1017� X<1179� Y>365� Y<419��menuload:X=0:Y=0

T3�X>50� X<244� Y>549� Y<741��clt:�editor:X=0:Y=0

^-�X>50� X<244� Y>345� Y<540�X=0:Y=0:EXIT=�

h0�X>50� X<244� Y>51� Y<939��clt:�info:X=0:Y=0

r�EXIT=�

|�:*SNEW

�ȗ�

��

���plot(name$,x,y)

�ș&2E,34,,name$,x,y

��

���scroll

�PA=0:�K=0�63�21:�0,K:�L=1�2:ȓ424-(A*3),248-(A*3),699+(A*6),45+(A*6):A+=1:�:�

��scrollpos<>0��updatetext

�event=�

��

�%�69,23);�(?(textbuf%+scrollpos))

�$�463,258:�1125,291:ș&2E,14,,"s"

��X=457�438�-6
�&ED,X,258
Ȗ
�X
&ȗX,Y,Z
0
K=�(0)
:�K=32�K=13�event=�
D
�Z<>0�
N&�X>52� X<250� Y>344� Y<938�event=�
X(�X>424� X<1100� Y>484� Y<716�event=�
b(�X>685� X<1180� Y>362� Y<419�event=�
l�Y>350� Y<437�
v�X>357� X<432�Ƞ8
��X>432� X<516�Ƞ4
��X>516� X<594��"PlayStart"
��X>594� X<672��"Playpause"
��
��
�.scrollpos+=1:�scrollpos=length�scrollpos=0
��event=�
�(�0,0Ȝ0:ȓȐ391,210,1162-391,321-210
��
�'��clt:�0,0Ȝ0:ȓȐ259,212,759,108:�
���updatetext
�A�:scrollpos+=1:�scrollpos>(length-2)�?(textbuf%+scrollpos)=32
�!�scrollpos=length�scrollpos=0
�63Ȝ255
�
��setup
 6X=�("<Coll2$Dir>.Resources.ScData"):length=�#X:�#X
*�textbuf%length
44�"Load <Coll2$Dir>.Resources.ScData "+�~textbuf%
>scrollpos=0
H+�"SMerge <Coll2$Dir>.Blocks.Biological"
R(�c=1�3:�"SCOPY Corner Corner"+�(c):�
\'�"SflipX Corner1":�"SflipY Corner2"
f'�"SflipX Corner3":�"SflipY Corner3"
pA�grid(21,13),liftx(2,10),lifty(2,10),sprite$(17),ggrid(21,13)
z>�name$(50),byte%(50),mem%32,bl$(6),no(6),blsp$(6),buff%255
�+top%=1:len%=0:dir$="<Coll2$Dir>.Levels"
�8pass$="":stbl=0:fibl=0:bltype$="Biological":etime=10
�)left=1:right=2:down=3:up=4:gotarrow=�
�>bou=10:rev=11:lif=12:cru=13:onlift=�:playlev$="DemoLevels"
�1limit=10:diskno=1:gsp$="reverse":i=10:Levno=1
�K� "Reverse","Reverse","Normal","Block1","Bounce","Bounce","Blanker","#"
�#��tvC:�K=1�4:�bl$(K),blsp$(K):�
��
���editor
�sp$="block1"
�)�0,0Ȝ0:ȓȐ0,0,1279,1023:quit=�:it=�
�*�0,63Ȝ0:ȓ0,0,1279,250:�editordisgrid
�7�0,63Ȝ0:ȓ46,294,1105,689:�plot("Options",1102,33)
�plot("Menu",1102,150)
2� "block1","block2","block3","block4","block5"
,� "corner","corner1","corner2","corner3"
$)� "bounce","reverse","lift","crumble"
.(� "crusher","start","finish","lift2"
8�drawicons
B�0,11Ȝ255:ȓ705,50,50,50
L�0,63Ȝ255:�1075,0,1075,250
V�"Schoose block1"
`,text$="Select: block1":col=46:�edmessage
j%i=0:�:�"FX 15":�:ȗX,Y,B:�B=4�B=1
t�Y<250��choosesp
~&�X>54� X<1138� Y>299� Y<970��place
��quit=�
��
���choosesp
�(�X>1102� X<1255� Y>149� Y<215�quit=�
�3�X>1102� X<1255� Y>35� Y<98��options:X=79:Y=167
�
�l=0�9
�4�X>55+(100*l)� X<55+50+(100*l)� Y>150� Y<200�i=l
��
�
�l=0�7
�8�X>105+(100*l)� X<105+50+(100*l)� Y>50� Y<100�i=l+10
��
�
�i<17�
*�i=16�sp$="invisible"�sp$=sprite$(i+1)

�
$�sp$<>"invisible"�"SCHOOSE "+sp$
*text$="Select: "+sp$:col=46:�edmessage
(�:ȗxm,ym,B:�B=0
2�
<��place
F4Y-=300:nx=X/52:ny=Y/52:nex=nx-�(nx):ney=ny-�(ny)
Pnx=�(nx):ny=�(ny)
Z�B=4� grid(nx-1,ny)=15��
d�B=4� grid(nx-1,ny)=16��
n	�B=4�
x0�grid(nx-1,ny)=17�grid(nx-1,ny)=12�it=��it=�
��
��it=���
�|�sp$="start"� stbl>0� B=4�text$="One Start Block!":col=3:�edmessage:�=0:�:��>25:text$="Select: "+sp$:col=46:�edmessage:�
�~�sp$="finish"� fibl>0� B=4�text$="One Finish Block!":col=3:�edmessage:�=0:�:��>25:text$="Select: "+sp$:col=46:�edmessage:�
��nex>4�nx+=1
��ney>5�ny+=1
�Y=(ny*52)+300:X=nx*52:nx-=1
� �B=4��checklift��inbetween��
��grid(nx,ny)=17��
�?�B=4� sp$<>"lift"�sp$<>"invisible"��&ED,X,Y:grid(nx,ny)=i+1
�@�B=4� sp$="invisible"��0,2Ȝ150:ȓȐX,Y,50,50:grid(nx,ny)=18
�	�B=1�
��grid(nx,ny)=15�stbl=0
�grid(nx,ny)=16�fibl=0
I�grid(nx,ny)<>17� grid(nx,ny)<>12��0,0Ȝ0:ȓȐX,Y,50,50:grid(nx,ny)=0
,�grid(nx,ny)=17�grid(nx,ny)=12��wipelift
"�
,.�sp$="start"� B=4�stbl+=1:�:ȗmx,my,b:�b=0
6�sp$="lift"� B<>1��lift
@/�sp$="finish"� B=4�fibl+=1:�:ȗmx,my,b:�b=0
J�
T
��lift
^�checklift=���7:�
h�ny=12��
r$�plot("lift",X,Y):grid(nx,ny)=12
|X1=X:Y1=Y:nx1=nx:ny1=ny
�lx=nx:ly=ny:�:ȗX,Y,B:�B=0
��:ȗX,Y,B:�B<>0
��B<>4��bla:�
�4Y-=300:nx=X/52:ny=Y/52:nex=nx-�(nx):ney=ny-�(ny)
�nx=�(nx):ny=�(ny):nx-=1
��nex>4�nx+=1
��ney>5�ny+=1
�)�grid(nx,ny)=15�grid(nx,ny)=16��bla:�
��ny=12��bla:�
��nx<>lx��bla:�
��nx=lx� ny=ly��bla:�
�2Y=(ny*52)+300:X=(nx*52)+52:�plot("lift",X1,Y1)
�%�plot("lift2",X,Y):grid(nx,ny)=17
�blankmiddle
�:ȗX,Y,B:�B=0:X=0:Y=0
�
&ݤchecklift
0
lift=�
:�loopy=0�12
D�grid(nx,loopy)=12�lift=�
N�
X	=lift
b	��bla
l�7
v&Y=(ly*52)+300:X=(lx*52)+52:�0,0Ȝ0
�ȓȐX,Y,50,50:grid(lx,ly)=0
��:ȗX,Y,B:�B=0
��
���editordisgrid
�
�0,2Ȝ150
��loopx=0�20:�loopy=0�12
�1�grid(loopx,loopy)<>0� grid(loopx,loopy)<>18�
�B�plot(sprite$(grid(loopx,loopy)),(loopx*52)+52,(loopy*52)+300)
��
�@�grid(loopx,loopy)=18�ȓȐ(loopx*52)+52,(loopy*52)+300,50,50
��:�
��
���wipelift
�0,0Ȝ0:�loopy=0�12
]�grid(nx,loopy)=12�grid(nx,loopy)=17�ȓȐ(nx*52)+52,(loopy*52)+300,50,50:grid(nx,loopy)=0
�
 �
*ݤinbetween
4lift=0:�loopy=ny�0�-1
>0�grid(nx,loopy)=12�grid(nx,loopy)=17�lift+=1
H�
Rs�lift=1� B<>1�text$="Inbetween Lift Path":col=3:�edmessage:�=0:�:��>50:text$="Select "+sp$:col=46:�edmessage:=�
\
�ny>0�
f��grid(nx,ny-1)=12�grid(nx,ny-1)=17�text$="Inbetween Lift Path":col=3:�edmessage:�=0:�:��>50:text$="Select "+sp$:col=46:�edmessage:=�
p�
z=�
���edmessage:�colȜ255
�%�48,29);�19,�(32));�48,29);text$
��
�,��optr(c,u,c1,u1):�21Ȝ100:ȓȐc,u,c1,u1
��63Ȝ100:ȓc,u,c1,u1
��
�
��options
�)text$="Options page":col=3:�edmessage
��0,0Ȝ0:ȓȐ52,302,1094,674
��43Ȝ255
��4,2);"Options Page ..."
�'�l=797�349�-64:�optr(58,l,400,44):�
��128+21Ȝ100
	�� 11,"Clear this level",11,"Enter statistics",11,"No. of Blocks",23,"Delete levels",23,"Load level",23,"Save level",23,"Load Blocks",3,"Return to editor"
		��TFI
	'�y=6�20�2:�c,t$:�cȜ255:�4,y);t$:�
	$�0,63:�500,294,500,983
	.�28,33,21,70,2:�128Ȝ0
	83�15:�0,0);"Collisions - Screen Editor (v1.05)"
	B7�3:�'"Graphix: Dan Clarke"'"Program: Richard Sharp"
	LT�14:�'"Select and option from the menu by"'"clicking over it with the mouse ..."
	V+�0,63:�500,710,1150,710:�28,33,21,70,10
	`<�:ȗ�:�31:�'"Please select an option from the menu"'":";
	j#�:�:ȗx,y,b:�b=0:�:ȗx,y,b:�b=4
	t�:ȗx,y,b:�b=0
	~!a=255:n=0:�l=797�349�-64:n+=1
	�!�x>58� x<458� y>l� y<l+44�a=n
	�)�l:�a<>255:��TFI:�zwe=1�a:�cwe,twe$:�
	�
�19:�twe$
	��a=1��cl
	��a=2��stats
	��a=3��designate
	��a=4��dl
	��a=5��ll
	��a=6��sl
	��a=7��lb
	�$�a=8:�0,0Ȝ0:ȓȐ52,302,1089,674
	�sp$="block1"
�26

,�0Ȝ0:�500,294,500,983:�500,710,1153,710
�63Ȝ0:Ȓ500,294:Ȓ1150,710
�editordisgrid
(�
2��cl
<#�3:�'"Are you sure (Y/N) ? ";:�
F�yesno�
P1�x=0�20:�y=0�12:grid(x,y)=0:�:�:fibl=0:stbl=0
Zpass$=""
d�
nȗ�
x(�confirm=121��45:�'"Level cleared":�
�	�:�31
��
�ݤyesno
�+�"FX 15":�:ȗ�:ș"OS_Confirm"�confirm:�
��confirm=121��"Y":=�
��"N"
�=�
���pa
��45:�:�'"Password: "pass$:�
�Y�(pass$)>10��3:�'"Contains more than 10 letters."'"Password NOT set.":pass$="":�31:�
�.��rev:�43:�'"Number of reverse blocks: "b$
��
�	��ecm
0�45:�:�'"Time: "etime$:�:etime=�(�etime$,3))
�etime>30�etime=30
�etime<1�etime=1
"�31
,�
6
��distext
@�45
J�pass$=""�pass$="None"
TM�'"Password: ";:ș"OS_PrettyPrint",pass$:�''"Time    : ";etime;" seconds"
^�pass$="None"�pass$=""
h�
r��sl
|�distext
��3:�'"Are you sure (Y/N)?";
��yesno��save
�	�31:�
�
��save
��
�H��:�':ș"OS_PrettyPrint","Error saving file: "+�$:�:�saveerror:��:�
�-�:�19:�"Save procedure initialised:":go=�
�$�11:�:�cat("<Coll2$Dir>.Levels")
�@�:�3:�'"Please enter name of level set ..."'">";:�:�""set$:�
��set$=""��:�
�+X=�("<Coll2$Dir>.Levels."+set$):z=X:�#X
��z=0��createset
��z=0� go=���
=X=�("<Coll2$Dir>.Levels."+set$+".leveldata"):�#X,levs:�#X
:�45:�'"Level set '";set$;"' contains:"'levs;" levels."
7�3:�'"Save as level (1-";levs+1;"):";:�:�""saveas:�
&�saveas<1�saveas>levs+1��
0�saveas=levs+1�add=��add=�
:9X=�("<Coll2$Dir>.Levels."+set$+"."+�(saveas)):z=X:�#X
D
�z<>0�
N=�45:�'"This level all ready exists -"'"Overwrite (Y/N)?";
Xa=�yesno
b�
l�z<>0��a��
v1X=�("<Coll2$Dir>.Levels."+set$+"."+�(saveas))
�%�#X,pass$,stbl,fibl,etime,bltype$
��K=1�4:�#X,no(K):�
�5�loopx=0�20:�loopy=0�12:�#X,grid(loopx,loopy):�:�
��#X
�F�add=��X=�("<Coll2$Dir>.Levels."+set$+".leveldata"):�#X,levs+1:�#X
�%�45:�'"Level successfully saved."
���
��
���createset:go=�
�w�11:�'"Level set '"+set$+"' does not exist.":�3:�'"Do you wish to create a new level"'"set under that name (Y/N)?";
��
�笤yesno�go=�:�
��

$�"CDIR <Coll2$Dir>.Levels."+set$

:X=�("<Coll2$Dir>.Levels."+set$+".leveldata"):�#X,0:�#X

�

 ��ll

*J�:��:�':ș"OS_PrettyPrint","Error loading file: "+�$:�"CLOSE":��:�:�

4-�:�19:�"Load procedure initialised."':�45

>"�11:�cat("<Coll2$Dir>.Levels")

H'�15:�:ȗ�:�'"Load from set: "set$:�

R�set$=""��

\+X=�("<Coll2$Dir>.Levels."+set$):z=X:�#X

f$�z=0��3:�'"Not found":z=�(100):�

p,�:�11:�"No. of levels in '"+set$+"' : ";

z=X=�("<Coll2$Dir>.Levels."+set$+".leveldata"):�#X,levs:�#X

�3�42:�'"Load level (1-";levs;") : ";:�:�""load:�

� �load<1�load>levs��invalid:�

�/X=�("<Coll2$Dir>.Levels."+set$+"."+�(load))

�&�#X,pass$,stbl,fibl,etime,bltype1$

��K=1�4:�#X,no(K):�

�5�loopx=0�20:�loopy=0�12:�#X,grid(loopx,loopy):�:�

��#X

�8�bltype$<>bltype1$�bltype$=bltype1$:�lobl(bltype$,�)

�*�45:�'"Level successfully loaded.":ȗ�

���

��

���checkcat(a$):r4%=0:�

�.ș"OS_GBPB",10,a$,mem%,1,r4%,32�,,,r3%,r4%
	�r3%�
<�loopy=20�30:�mem%?loopy>31�name$(top%)+=�(mem%?loopy):�
1�l%=1��(name$(top%)):a%=�(�name$(top%),l%,1))
$1�a%>=�"A"� a%<=�"Z"��name$(top%),l%)=�(a%+32)
./�l%:len%+=mem%!8:byte%(top%)=mem%!8:top%+=1
8
�:�r4%=-1
B�
L3��cat(dir$):�n=0�25:name$(n)="":�:top%=1:len%=0
V/�K=0�50:byte%(K)=0:�:�K=0�32�4:mem%!(K)=0:�
`�checkcat(dir$)
j?�n=1�top%-1�2:�name$(n);�15-�(name$(n)),�(32));name$(n+1):�
t�
~>� 31,"Biological",13,"Technical",24,"Industrial",56,"Mad!"
���lb
��19:�:�"Load Blocks:":��D~N
�)�:�K=1�4:�col,t$:�col:�K;". "+t$:�:�3
�Y�:ș"OS_PrettyPrint","Please press the number corresponding to your choice ...":�:ȗ�
��:c$=�:��(c$)<5��(c$)>0
�(��D~N:�K=1��(c$):�c,t$:�:�lobl(t$,�)
��:ȗ�:�
��
���lobl(t$,redraw):ta$=t$
�	��TPD
��K=1�13
�"�sprite$:�"SDELETE "+sprite$:�
%�"SMERGE <Coll2$Dir>.Blocks."+ta$

bltype$=ta$
(�c=1�3:�"SCOPY Corner Corner"+�(c):�
^�"SflipX Corner1":�"SflipY Corner2":�"SflipX Corner3":�"SflipY Corner3":�redraw��drawicons
(�
2��drawicons
<%��TPD:�read=1�17:�sprite$(read):�
Fsp=0:�x=55�955�100:sp+=1
P�plot(sprite$(sp),x,150)
Z�
d�x=105�605�100:sp+=1
n�plot(sprite$(sp),x,50)
x�
��
���dl
�D�:��:�':ș"OS_PrettyPrint","Error deleting levels: "+�$:��:�:�
�;�:�19:�"Delete levels:"':�11:�cat("<Coll2$Dir>.Levels")
�&�3:�:ȗ�:�'"Levels to delete: "dl$
�	ȗ�:�
�
�dl$=""��
�*X=�("<Coll2$Dir>.Levels."+dl$):z=X:�#X
�$�z=0��'"Level does not exist!":�
�8X=�("<Coll2$Dir>.Levels."+dl$+".LevelData"):�#X,levs
�<�#X:�K=1�levs:�"REMOVE <Coll2$Dir>.Levels."+dl$+"."+�(K)
��
�2�"REMOVE <Coll2$Dir>.Levels."+dl$+".Leveldata"
%�"REMOVE <Coll2$Dir>.Levels."+dl$
�:�3:�"Level deleted."
��
"�
,R� 31,"Enter Password",13,"Enter Time Limit",43,"View text",60,"Return to menu"
6.��stats:�:��TlP:�11:�''"Set level text:"''
@$�K=1�4:�col,t$:�col:�K;". ";t$:�
JT�19:�':ș"OS_PrettyPrint","Press the number corresponding to your choice...":ȗ�
T�:c$=�:�
^�(c$)>4��(c$)<1��DTP
h�
r�c$="1"��pa:c$="0"
|�c$="2"��ecm:c$="0"
��c$="3"��diste:c$="0"
�
�c$="4":�
��
���designate
�%�:�19:�"Set No. of Blocks: "':�11
�4�11:�K=1�3:�;K;". ";bl$(K):�:�14:�;K;". ";bl$(4)
‰�3:�"5. Display no. of blocks"'"6. Return to menu":�15:�':ș"OS_PrettyPrint","Press the number corresponding to your choice...":�:ȗ�
�c$=�
��(c$)>6��(c$)<1��dLP
�%�(c$)>0��(c$)<5��entblock(�(c$))
��c$="5"��disstats
��c$="6":ȗ�:�:�
��
D��entblock(b):�43:�'"Enter number of "+bl$(b)+": ";:�:�""no(b):�
�no(b)>99�no(b)=99
�no(b)<0�no(b)=0
&�
0b��disstats:�:�19:�"No. of Blocks:"':�11:�K=1�3:�bl$(K);": ";no(K):�:�14:�bl$(4);": ";no(4):�43
:B�:ș"OS_PrettyPrint","Press any key to continue...":�:c$=�:�:�
D�
N2��diste:�:�11:�"Text for this level:":�distext
XG�19:�':ș"OS_PrettyPrint","Press any key to continue...":�:c$=�:�:�
b�
l��playgame
v�:�:�plot("panel",0,0)
��gotarrow=��
�"�78,134:�150,218:�"SGET arrow"
��0Ȝ192:ȓȐ75,134,76,84
�gotarrow=�
��
��plot("arrow",75,134)
��gplay:�
���gdrawscreen
�&�first=���"PlayPos 10":�=0�first=�
�
�0,2Ȝ150
��loopx=0�20:�loopy=0�12
�gp=grid(loopx,loopy)
�+�gp<>0� gp<>17� gp<>18� gp<>15� gp<>16�
B�plot(sprite$(grid(loopx,loopy)),(loopx*52)+18,(loopy*52)+290)
�
�:�
 �
*5��gplot(s$,x,y):ș&2E,34,,s$,(x*52)+18,(y*52)+290
4�
>��gplay
H7End=�:Level=�:Lives=3:xl=0:yl=0:onlift=�:arrowpos=1
R�demo=��Lives=1
\�printlives:�getnumber
fn�:�=0:�0,0Ȝ0:ȓȐ0,274,1125,709:�0,63Ȝ255:ȓ0,274,1125,709:�=0:�loadnext:�copygrid:�gdrawscreen:di=right
p�findfinish:ȗ�:�demo=��
z�useralter
��
��Lives=1:�getready:�149Ȝ128:�3Ȝ255:�51,28);�20," ");�51,28);"***  DEMO MODE  ***":�0Ȝ0:�51,30);�20," ");�51,30);"Press 'S' for menu"
��
�
�initball
�'bounce=�:lift=�:crumble=�:crusher=�
�
�check
�"�Level� demo��lostlife:Level=�
�2�Level��levcomplete:Level=��Lives-=1:�lostlife
��Lives=0�Levno>diskno
��Levno>diskno��finished
�j�"Playpos 11":�=0:�:�playsample("Bing",256):Ȗ:Ȗ:Ȗ:Ȗ:�playsample("Bing",4700):Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:��>417
��"PlayPos 0"
��
��initball:ȗ�
�:��>205
8�l=1�3:�gplot("Ball",sx,sy):�playsample("Bing",1000)
$F�=0:�:��>20:�0,0Ȝ0:ȓȐ(sx*52)+18,(sy*52)+290,50,46:�=0:�:��>20:�
.=�gplot("Ball",sx,sy):nx=sx:ny=sy:�playsample("Bing",2000)
8�
B��check
L(die=�:maind=�:Level=�:sui=�:�:old=di
V!bs=ggrid(nx,ny-1):�-82�die=�
`3�bs=cru��playsample("Drop",5000):�crumble:�T^T
jg�bs>14�di=down:�calcdown:�playsample("Drop",1000):�anidown:di=old:�playsample("Collect",1000):�T^T
tf�bs=0�di=down:�calcdown:�playsample("Drop",1000):�anidown:di=old:�playsample("Collect",1000):�T^T
~C�nx=0� di=left� bs<>rev�di=right:�playsample("Bing",1000):�T^T
�D�nx=20� di=right� bs<>rev�di=left:�playsample("Bing",4000):�T^T
�5�bs=rev�di=3-di:onlift=�:�playsample("Bing",3000)
��bs<>lif�bs=lif� onlift=��
�d�di=right� ggrid(nx+1,ny)<>0� bs<>rev� ggrid(nx+1,ny)<>17�di=3-di:�playsample("Bing",4000):�T^T
�it=�:�nx<>0�
�w�di=left� ggrid(nx-1,ny)<>0� bs<>rev� ggrid(nx-1,ny)<>17� ggrid(nx-1,ny)<>16�di=3-di:�playsample("Bing",3000):�T^T
��
��
�2�bs=lif��playsample("Drop",10000):�glift:�T^T
��it=��it=�:�T^T
��maind=��maind=�:�T^T
�5�bs=bou��playsample("Collect",4000):�bounce:�T^T
E�ggrid(nx,ny+1)=14��playsample("Collect",6000):�crush:die=�:�T^T

(�di=right��calcright:�aniright:�T^T
%�di=left��calcleft:�anileft:�T^T
�die�grid(nx,ny)=16
(�grid(nx,ny)=16�Level=�
2�
<��calcright
Fxl=nx-1:�:xl+=1
PC�ggrid(xl+1,ny)=0�ggrid(xl+1,ny)=17�ggrid(xl+1,ny)=16�ri=��ri=�
Z�ggrid(xl,ny)=16�co=��co=�
d;�ggrid(xl,ny-1)=0�ggrid(xl,ny-1)=17� onlift=��be=��be=�
n�be=�� ggrid(xl,ny-1)>9�
x�onlift�be=�:onlift=��be=�
��
� �ggrid(xl,ny+1)=14�po=��po=�
��xl>19�ri�be�po�co
��
���aniright
�y=(ny*52)+290:�0,0Ȝ0
�l=(nx*52)+18:�
�$ș&2E,34,,"ball",l,y:�-82�sui=�
�Ȗ:ȓȐl,y,50,46:l+=4
��l>=(xl*52)+18�sui
�4�sui=��ș&2E,34,,"ball",(xl*52)+18,y:nx=xl�die=�
��
�
��anileft
y=(ny*52)+290:�0,0Ȝ0
l=(nx*52)+18:�
$ș&2E,34,,"ball",l,y:�-82�sui=�
"Ȗ:ȓȐl,y,50,46:l-=4
,�l<=(xl*52)+18�sui
64�sui=��ș&2E,34,,"ball",(xl*52)+18,y:nx=xl�die=�
@�
J��calcleft
Tco=�
^
�nx>1�
hxl=nx+1:�:xl-=1
rC�ggrid(xl-1,ny)=0�ggrid(xl-1,ny)=17�ggrid(xl-1,ny)=16�ri=��ri=�
|�ggrid(xl,ny)=16�co=��co=�
�1�ggrid(xl,ny-1)=0�ggrid(xl,ny-1)=17�be=��be=�
��be=�� ggrid(xl,ny-1)>9�
��onlift�onlift=�:be=��be=�
��
� �ggrid(xl,ny+1)=14�po=��po=�
��xl<2�ri�be�po�co
��
�	�co��
�*�nx=1� di=left� onlift=��xl=0:onlift=�
��nx=1� di=left�
�)�ggrid(1,ny-1)<>0� ggrid(1,ny-1)<>17�
�5�ggrid(0,ny)=0�ggrid(0,ny)=17�ggrid(0,ny)=16�xl=0
��
�
�
��anidown:�"SCHOOSE ball"
&x=(nx*52)+18:�0,0Ȝ0
0l=(ny*52)+290:�
:�&ED,x,l:�-82�sui=�
DȖ:ȓȐx,l,50,46:l-=4
N�l<=(yl*52)+290�sui
X)�sui=��ny=yl:�&ED,x,(ny*52)+290�die=�
b�yl=0�die=�
l�
v��calcdown
�
�ny>1�
�yl=ny:�:yl-=1
��ggrid(nx,yl)=16�co=��co=�
�Z�yl<2�ggrid(nx,yl-1)<>0� ggrid(nx,yl-1)<>15� ggrid(nx,yl-1)<>16� ggrid(nx,yl-1)<>17�co
�,�yl<2� ggrid(nx,0)=0� ggrid(nx,1)=0�yl=0
��
�	�co��
� �yl<2� ggrid(nx,1)=16�yl=1:�
� �yl<2� ggrid(nx,0)=16�yl=0:�
��ny=1� grid(nx,0)=16�yl=0:�
�
�ny=1�
�"�ggrid(nx,1)=17�ggrid(nx,1)=0�
�&�ggrid(nx,0)=17�ggrid(nx,0)=0�yl=0
�
�
�
 ��crush
*F�"SCHOOSE crusher":xp=(nx*52)+18:yp=((ny+1)*52)+290:�l=yp�yp-54�-4
4�&ED,xp,l:Ȗ:�
>(�0,0Ȝ0:�l=yp-54�yp-4�4:�&ED,xp,l:Ȗ
HȓȐxp,l,50,40:�:�&ED,xp,l
R	die=�
\�
fi� "Bad luck, dude!","Try harder next time!","Concentrate on the game!","Nice try!","Maybe next time!"
pN��lostlife:�0,0Ȝ0:ȓȐ(nx*52)+18,(ny*52)+290,50,46:�"Playpos 21":�demo=��
z�=0
�.�16Ȝ255:��DfW:�l=1��(5):�a$:�:�51,28);a$
�r�:�playsample("Collect",2000):Ȗ:Ȗ:Ȗ:Ȗ:�playsample("Collect",5000):Ȗ:Ȗ:Ȗ:Ȗ:��>259:�clnotice:�printlives
��
��
�G��glift:�(nx*52)+18,((ny-1)*52)+290:�((nx+1)*52)+16,((ny+1)*52)+280
�)ș&2E,14,,"li":�"SCHOOSE li":onlift=�
�/�loopy=0�12:�ggrid(nx,loopy)=17�lifty=loopy
��:slifty=ny:�0,0Ȝ0
�x=(nx*52)+18
�$�((ny-1)*52)+290<(lifty*52)+286�
�+�loopy=((ny-1)*52)+290�(lifty*52)+286�4
�$�-82�loopy=(lifty*52)+287:sui=�
�'�&ED,x,loopy:Ȗ:ȓȐx,loopy,50,96:�
�&ED,x,loopy
�playsample("Collect",8000)
��downlift
$�
.�sui=��die=�:�
8�&ED,x,loopy
B,ggrid(nx,slifty-1)=17:ggrid(nx,lifty)=12
L-ny=lifty+1:�di=right��calcright:�aniright
V�di=left��calcleft:�anileft
`�
j��copygrid:�x=0�20:�y=0�12
t6�grid(x,y)<>18� grid(x,y)<>15�ggrid(x,y)=grid(x,y)
~�grid(x,y)=18�ggrid(x,y)=1
�	�:�:�
���downlift
�,�loopy=((ny-1)*52)+290�(lifty*52)+294�-4
�$�-82�loopy=(lifty*52)+293:sui=�
�'�&ED,x,loopy:Ȗ:ȓȐx,loopy,50,96:�
�,�&ED,x,loopy:�playsample("Collect",8000)
��
�9��crumble:ggrid(nx,ny-1)=0:di=down:�calcdown:�anidown
�
di=old
��
���bounce
�y=(ny*52)+290
�di=right�

@a=�:�k=nx+1�nx+3:�ggrid(k,ny)<>0� ggrid(k,ny)<>17�a=k:k=nx+4
�:�a=��xt=nx+3�xt=a-1
�xt>20�xt=20
(�0,0Ȝ0:�"SCHOOSE ball"
2�x=(nx*52)+18�(xt*52)+18�8
<�&ED,x,y:Ȗ:ȓȐx,y,50,42
F�-82�sui=�:x=(xt*52)+19
P�:�&ED,(xt*52)+18,y
Z�
d
�di=left�
na=�:�k=nx�nx-3�-1
x-�k>0��ggrid(k,ny)<>0� ggrid(k,ny)<>17�a=k
��
��a=��xt=nx-3�xt=a+1
��xt<0�xt=0
��0,0Ȝ0:�"SCHOOSE ball"
��x=(nx*52)+18�(xt*52)+18�-8
��-82�sui=�:x=(xt*52)+17
��&ED,x,y:Ȗ:ȓȐx,y,50,42
��:�&ED,(xt*52)+18,y:nx=xt
��
��sui=��die=�
�	nx=xt
��
���gameplot(X,Y)
&�playsample("Collect",�(5000)+300)
�no(nb)=0��
:Y-=290:X-=18:nx=X/52:ny=Y/52:nex=nx-�(nx):ney=ny-�(ny)
"nx=�(nx):ny=�(ny):�glift��
,W�grid(nx,ny)=18��51,28);�20," ");�51,28);"Invisible block here":Ȗ:cltime=�:cl=�:�
6�ggrid(nx,ny)<>0� i<>-1��
@�i=-1� ggrid(nx,ny)=12��
J�i=-1� ggrid(nx,ny)=16��
T�i=-1� ggrid(nx,ny)=14��
^�i=-1� ggrid(nx,ny)=0��
hE�i=-1��0,0Ȝ0:ȓȐ(nx*52)+18,(ny*52)+290,50,48��gplot(gsp$,nx,ny)
r'ggrid(nx,ny)=i+1:no(nb)-=1:�distype
|�
�S��useralter:i=10:gsp$="reverse":nb=1:�clearall:�plot("arrow",75,134):arrowpos=1
�)�distype:�getready:cl=�:cltime=0:it=�
��149Ȝ128:�0Ȝ0
��51,30);"Time:":�=0:�
��"FX 15"
��:ȗxm,ym,B
��149Ȝ128:�0Ȝ0
�+�57,30);"   ";�57,30);limit-(��100):Ȗ
� �cl=���>cltime+120��clnotice
��B<>0�limit-(��100)<1
��B=4� limit-(��100)>0�
�4�xm>25� xm<1110� ym>295� ym<965��gameplot(xm,ym)
�2�xm>55� xm<514� ym>27� ym<131��altsel:�distype
�
��limit-(��100)<1�B=1:�clnotice:�51,30);"Roll 'em !":�"PlayPos 14":�=0:�:�playsample("Collect",�(9000)+300):Ȗ:Ȗ:Ȗ:Ȗ:Ȗ:��>366:�51,30);�20," "):�playlev
�
&Nݤglift:lift=0:�loopy=ny�0�-1:�grid(nx,loopy)=12�grid(nx,loopy)=17�lift+=1
0^�:�lift=1�ggrid(nx,ny)=17��51,28);�20," ");�51,28);"Obstructing lift":Ȗ:cltime=�:cl=�:=�
:
�ny>0�
D2�ggrid(nx,ny-1)=17�ggrid(nx,ny-1)=12�it=��it=�
N�
XJ�it=���51,28);�20," ");�51,28);"Obstructing lift":Ȗ:cltime=�:cl=�:=�
b=�
l��clnotice
v�51,28);�27," "):cl=�
��
���findfinish
�1sx=0:sy=12:fx=20:fy=0:�loopx=0�20:�loopy=0�12
�+�grid(loopx,loopy)=15�sx=loopx:sy=loopy
�+�grid(loopx,loopy)=16�fx=loopx:fy=loopy
��:�:nx=sx:ny=sy
��fx=20� fy=0�grid(fx,fy)=16
��gplot("Finish",fx,fy)
��
ڣ��getready:�149Ȝ128:�63:�clnotice:�55,29);"**  GET READY  **":�57,30);�20," "):pit=0:�:�playsample("Collect",1000+pit):pit+=100:Ȗ:Ȗ:Ȗ:Ȗ:�pit>10000�pit=0
�
��>490
�"�demo=���"PlayPos 12"��playlev
��55,29);�20," "):�
��altsel
oarrow=arrowpos
�xm>57� xm<171�arrowpos=1
 �xm>171� xm<285�arrowpos=2
*�xm>285� xm<399�arrowpos=3
4�xm>400� xm<508�arrowpos=4
>�arrowpos<>oarrow�
H�0Ȝ192
RnȓȐ75+((oarrow-1)*114),134,76,84:�plot("arrow",75+((arrowpos-1)*114),134):�playsample("Bing",�(5000)+300)
\&i=arrowpos:gsp$=blsp$(i):�i=1�i=10
f�i=2�i=0
p�i=3�i=9
z
�i=4�i=-1
��
��
�
��playlev
�'�bltype$="Biological"��"PlayPos 17"
�&�bltype$="Technical"��"PlayPos 22"
�!�bltype$="Mad!"��"PlayPos 15"
�'�bltype$="Industrial"��"PlayPos 19"
��
Ԏ� "Most bodacious dude!","Well done - level complete!","Nice one - level complete!","Absolutely terrific","That's amazing","Awesome dude!"
�-��levcomplete:�"PlayPos 24":�=0:�149Ȝ128
��16Ȝ255:�clnotice
���dT\:�l=1��(6):�a$:�
��51,27);a$
;�89:�51,29);"Password for level ";Levno+1;":";�55,30);
L�Levno+1<=diskno��89:�51,29);"Password for level ";Levno+1;":";�55,30);
BLevno+=1:�Levno<=diskno��loadnext�pass$="Level Set Completed!"
$�0Ȝ0:�pass$:�=0
.i�:�playsample("Drop",5000):Ȗ:Ȗ:Ȗ:Ȗ:�playsample("Drop",10000):Ȗ:Ȗ:Ȗ:Ȗ:��>100:�51,29);�25," ")
8'�51,30);�25," "):�51,27);�27," ")
B�
L��loadnext
V4X=�("<Coll2$Dir>.Levels."+playlev$+"."+�(Levno))
`&�#X,pass$,stbl,fibl,limit,bltype1$
j�K=1�4:�#X,no(K):�
t5�loopx=0�20:�loopy=0�12:�#X,grid(loopx,loopy):�:�
~�#X
��bltype$<>bltype1$�
�bltype$=bltype1$
�{��TPD:�K=1�13:�sprite$:�"SDELETE "+sprite$:�:�"SMERGE <Coll2$Dir>.Blocks."+bltype$:�c=1�3:�"SCOPY Corner Corner"+�(c):�
�K�"SflipX Corner1":�"SflipY Corner2":�"SflipX Corner3":�"SflipY Corner3"
��
�%��TPD:�read=1�17:�sprite$(read):�
��
���getnumber
�4X=�("<Coll2$Dir>.Levels."+playlev$+".leveldata")
��#X,diskno:�#X
��
���finished
�128Ȝ0:�:�:�"PLAYPOS 19"

�plot("collisions",125,800)
�1,9);
$�K=3�21�3:�K:�"WELL DONE! ";:�:�
(&�K=0�1279�56:�plot("Ball",K,100):�
2-�':�19:�'"Congratulations brave warrior:"
<��43:�'"Thanks to your most radical performance, the last spherical object has been     transported through infinity and cloned in Yorkshire."
FM�44:�''"The future of football is safe!"'':�15:�"LONG LIVE LEEDS UNITED!"
Pȗ�
Z�:��(0)<>-1
d�
n
��distype
x�i=10�pr$="Reverse":nb=1
��i=0�pr$="Normal":nb=2
��i=9�pr$="Bounce":nb=3
��i=-1�pr$="Hole":nb=4
�A�128+21Ȝ0:�63Ȝ255:�34,26);"Block: ";�7," ");�41,26);pr$:Ȗ
�&�no(nb)=0�pr$="None"�pr$=�(no(nb))
�+�34,28);"Number: ";�4," ");�42,28);pr$
�Ȗ
��
���clearall
��0Ȝ192
�ȓȐ75,134,420,84
��
���password
�27,23);"Password: ";
>�bc=0�255:buff%!bc=0:�:�:ș"OS_ReadLine",buff%,11,32,128:�
=�3:�27,23);�22," ");�27,23);"Please wait - scanning":�60
"\pa$=$buff%:X=�("<Coll2$Dir>.Levels."+playlev$+".leveldata"):�#X,pnum:�#X:pl=0:�lo=1�pnum
,@X=�("<Coll2$Dir>.Levels."+playlev$+"."+�(lo)):�#X,rpass$:�#X
6�rpass$=pa$�pl=lo:lo=pnum+1
@�
J?�pl=0��27,23);�22," ");�27,23);"Invalid Password":X=�(100)
Tl�pl<>0��27,23);�22," ");�27,23);"Level: ";pl:X=�(100):first=�:�clt:�"PlayPos 10":�=0:Levno=pl:�playgame
^�
h��menuload
rP�:��:�27,23);�22," ");�27,23);"Error loading data":�"CLOSE":X=�(100):��:�
|�27,23);"Filename: ";
�>�bc=0�255:buff%!bc=0:�:�:ș"OS_ReadLine",buff%,11,32,128:�
��($buff%)=0��
�:fi$=$buff%:X=�("<Coll2$Dir>.Levels."+fi$+".leveldata")
�=�X=0��27,23);�22," ");�27,23);"Not found":�#X:X=�(100):�
�
�#X,le
�M�le=0��27,23);�22," ");�27,23);"File contains no levels!":�#X:X=�(100):�
��#X:playlev$=fi$
���
��
���blankmiddle
��ny=ny1+1�ny=ny1-1�
��grid(nx,ny1+1)=15�stbl=0
��grid(nx,ny1+1)=16�fibl=0
 �grid(nx,ny+1)=15�stbl=0
 �grid(nx,ny+1)=16�fibl=0
 H�ny>ny1�grid(nx,ny+1)=0:�0,0Ȝ0:ȓȐ(nx*52)+52,((ny+1)*52)+300,50,50
 &J�ny<ny1�grid(nx,ny1+1)=0:�0,0Ȝ0:ȓȐ(nx*52)+52,((ny1+1)*52)+300,50,50
 0�
 :�ny=ny1+1�ny=ny1-1��
 D�0,0Ȝ0
 N�ny>ny1�
 X�loopy=ny1+1�ny-1
 b�grid(nx,loopy)=15�stbl=0
 l�grid(nx,loopy)=16�fibl=0
 v@grid(nx,loopy)=0:�0,0Ȝ0:ȓȐ(nx*52)+52,(loopy*52)+300,50,50
 ��
 ��grid(nx,ny+1)=15�stbl=0
 ��grid(nx,ny+1)=16�fibl=0
 �@grid(nx,ny+1)=0:�0,0Ȝ0:ȓȐ(nx*52)+52,((ny+1)*52)+300,50,50
 ��
 ��ny<ny1�
 ��loopy=ny1-1�ny+1�-1
 �@grid(nx,loopy)=0:�0,0Ȝ0:ȓȐ(nx*52)+52,(loopy*52)+300,50,50
 ��grid(nx,loopy)=15�stbl=0
 ��grid(nx,loopy)=16�fibl=0
 ��
 ��grid(nx,ny1+1)=15�stbl=0
 ��grid(nx,ny1+1)=16�fibl=0
!Bgrid(nx,ny1+1)=0:�0,0Ȝ0:ȓȐ(nx*52)+52,((ny1+1)*52)+300,50,50
!�
!�
! 5��invalid:�3:�'"Invalid level number.":k=�(400):�
!*:��printlives:�128+21Ȝ0:�3Ȝ0:�34,30);"Lives: ";Lives
!4�
!>��saveerror
!H�:��:��:�
!R�"CLOSE":��:�
!f(��info:�:�:�plot("Collisions",0,800)
!p�plot("info",1000,800)
!z�0,63Ȝ255:�0,790,1279,790
!�d�0,8);:�11:�'"Collisions 2000 was produced by ARM Research from 24th Dec. 1992 - 6th May 1993"'
!�/�60:�'"Code, music, graphix: Richard Sharp"
!�:�13:�"Additional graphix, additional code: Dan Clarke"
!�,�19Ȝ255:�"Game design: Jonathan Sharp"'
!�"�57:�"From the main menu ..."'
!�;�15:�"  Click on the '??' icon to use the level editor"
!�7�14:�"  Click on the 'Acorn' icon to quit the game"
!�7�13:�"  Click on 'Load' to load in a new level set"
!�4�12:�"  Click on 'Password' to enter a password"
!�P�11:�"  Click on 'Enter the Magic Drainpipe' or press the space bar to play"
!�4�7:�"  Click on 'Demo Mode' for a demonstration"
!�F�30:�"  Use the 'speaker' icons to turn the game SOUND on and off"
!�?�15:�"  Use the 'music' icons to turn the MUSIC on and off"
"O�3Ȝ255:�'"For full instructions please read the !Help file on the AW disc"
"7�45:�'"Press any key / click mouse to continue ..."
"�:ȗX,Y,B:K=�(0):�B=0� K=-1
"$ �:ȗX,Y,B:K=�(0):�B<>0�K<>-1
".�:ȗX,Y,B:K=�(0):�B=0� K=-1
"8�
"L'��playsample(samp$,pitch):�chan=5�6
"V+ș"Sound_AttachNamedVoice",chan,samp$:�
"`#�chan=5�6:�chan,-15,pitch,100:�
"j�
"~� 3,7,9,17
"�
��demo
"�#demo=�:��D~b:�X=1��(4):�Levno:�
"��playgame:demo=�
"��
�

00000000  0d 00 0a 1c f4 20 3e 3c  43 6f 6c 6c 32 24 44 69  |..... ><Coll2$Di|
00000010  72 3e 2e 21 52 75 6e 49  6d 61 67 65 0d 00 14 0b  |r>.!RunImage....|
00000020  ee 85 e5 8d 54 68 40 0d  00 1e 23 e3 4b 3d 31 b8  |....Th@...#.K=1.|
00000030  33 3a ff 22 53 44 45 4c  45 54 45 20 43 4f 52 4e  |3:."SDELETE CORN|
00000040  45 52 22 2b c3 28 4b 29  3a ed 0d 00 28 0b ee 85  |ER"+.(K):...(...|
00000050  e5 8d 54 7c 40 0d 00 32  0f ff 22 43 61 63 68 65  |..T|@..2.."Cache|
00000060  20 4f 4e 22 0d 00 3c 16  ee 85 ff 22 50 4c 41 59  | ON"..<...."PLAY|
00000070  50 4f 53 20 30 22 3a d8  3a f9 0d 00 46 46 ff 22  |POS 0":.:...FF."|
00000080  52 75 6e 20 3c 43 6f 6c  6c 32 24 44 69 72 3e 2e  |Run <Coll2$Dir>.|
00000090  47 72 61 70 68 69 78 2e  21 50 61 6c 65 74 74 65  |Graphix.!Palette|
000000a0  31 22 3a c8 a0 38 3a ff  22 50 6c 61 79 50 6f 73  |1":..8:."PlayPos|
000000b0  20 30 22 3a ff 22 50 6c  61 79 53 74 61 72 74 22  | 0":."PlayStart"|
000000c0  0d 00 50 33 eb 31 35 3a  87 3a fb 36 33 c8 9c 32  |..P3.15:.:.63..2|
000000d0  35 35 3a f1 22 50 6c 65  61 73 65 20 77 61 69 74  |55:."Please wait|
000000e0  20 28 63 61 6c 63 75 6c  61 74 69 6e 67 29 20 2e  | (calculating) .|
000000f0  2e 2e 22 0d 00 5a 0a 64  65 6d 6f 3d a3 0d 00 64  |.."..Z.demo=...d|
00000100  34 45 58 49 54 3d a3 3a  f2 73 65 74 75 70 3a f2  |4EXIT=.:.setup:.|
00000110  67 61 6d 65 73 74 61 72  74 3a ff 22 52 4d 4b 49  |gamestart:."RMKI|
00000120  4c 4c 20 54 52 41 43 4b  45 52 4d 4f 44 55 4c 45  |LL TRACKERMODULE|
00000130  22 0d 00 6e 6d ff 22 49  63 6f 6e 53 70 72 69 74  |"..nm."IconSprit|
00000140  65 73 20 3c 43 6f 6c 6c  32 24 44 69 72 3e 2e 47  |es <Coll2$Dir>.G|
00000150  72 61 70 68 69 78 2e 21  50 6f 69 6e 74 65 72 31  |raphix.!Pointer1|
00000160  22 3a ff 22 52 75 6e 20  3c 43 6f 6c 6c 32 24 44  |":."Run <Coll2$D|
00000170  69 72 3e 2e 47 72 61 70  68 69 78 2e 21 50 61 6c  |ir>.Graphix.!Pal|
00000180  65 74 74 65 22 3a f1 27  22 4d 69 73 73 69 6e 67  |ette":.'"Missing|
00000190  20 79 6f 75 20 61 6c 72  65 61 64 79 21 22 0d 00  | you already!"..|
000001a0  78 05 e0 0d 00 82 0f dd  f2 67 61 6d 65 73 74 61  |x........gamesta|
000001b0  72 74 0d 00 8c 16 f5 3a  fb 36 33 c8 9c 32 35 35  |rt.....:.63..255|
000001c0  3a fb 31 32 38 c8 9c 30  0d 00 96 66 e6 30 2c 30  |:.128..0...f.0,0|
000001d0  c8 9c 30 3a c8 93 c8 90  30 2c 30 2c 31 32 37 39  |..0:....0,0,1279|
000001e0  2c 31 30 32 33 3a 58 3d  30 3a 59 3d 30 3a ff 22  |,1023:X=0:Y=0:."|
000001f0  53 43 48 4f 4f 53 45 20  61 72 63 68 69 77 6f 72  |SCHOOSE archiwor|
00000200  6c 64 22 3a f0 26 45 44  2c 35 30 2c 35 30 3a ff  |ld":.&ED,50,50:.|
00000210  22 53 43 48 4f 4f 53 45  20 72 65 73 65 61 72 63  |"SCHOOSE researc|
00000220  68 22 3a f0 26 45 44 2c  36 35 30 2c 33 30 0d 00  |h":.&ED,650,30..|
00000230  a0 23 ef 32 33 2c 32 35  2c 26 46 46 2c 31 35 2c  |.#.23,25,&FF,15,|
00000240  30 2c 30 2c 30 2c 31 30  30 2c 31 30 30 2c 32 35  |0,0,0,100,100,25|
00000250  30 0d 00 aa 1c f2 70 6c  6f 74 28 22 31 35 65 6e  |0.....plot("15en|
00000260  74 65 72 22 2c 34 32 30  2c 34 37 35 29 0d 00 b4  |ter",420,475)...|
00000270  1f f2 70 6c 6f 74 28 22  63 6f 6c 6c 69 73 69 6f  |..plot("collisio|
00000280  6e 73 22 2c 33 32 35 2c  37 35 30 29 0d 00 be 1a  |ns",325,750)....|
00000290  f2 70 6c 6f 74 28 22 64  65 66 69 6e 65 22 2c 35  |.plot("define",5|
000002a0  30 2c 35 35 30 29 0d 00  c8 18 f2 70 6c 6f 74 28  |0,550).....plot(|
000002b0  22 69 6e 66 6f 22 2c 35  30 2c 37 35 30 29 0d 00  |"info",50,750)..|
000002c0  d2 18 f2 70 6c 6f 74 28  22 65 78 69 74 22 2c 35  |...plot("exit",5|
000002d0  30 2c 33 35 30 29 0d 00  dc 0c fb 31 39 c8 9c 32  |0,350).....19..2|
000002e0  35 35 0d 00 e6 38 f2 70  6c 6f 74 28 22 69 63 6f  |55...8.plot("ico|
000002f0  6e 62 61 72 22 2c 36 38  35 2c 33 36 35 29 3a f2  |nbar",685,365):.|
00000300  70 6c 6f 74 28 22 73 6f  75 6e 64 6f 6e 22 2c 33  |plot("soundon",3|
00000310  30 36 2b 35 30 2c 33 35  31 29 0d 00 f0 3c f2 70  |06+50,351)...<.p|
00000320  6c 6f 74 28 22 73 6f 75  6e 64 6f 66 66 22 2c 33  |lot("soundoff",3|
00000330  38 36 2b 35 30 2c 33 35  31 29 3a f2 70 6c 6f 74  |86+50,351):.plot|
00000340  28 22 6d 75 73 69 63 6f  6e 22 2c 34 36 36 2b 35  |("musicon",466+5|
00000350  30 2c 33 35 31 29 0d 00  fa 20 f2 70 6c 6f 74 28  |0,351)... .plot(|
00000360  22 6d 75 73 69 63 6f 66  66 22 2c 35 34 36 2b 35  |"musicoff",546+5|
00000370  30 2c 33 35 31 29 0d 01  04 0c fb 36 33 c8 9c 32  |0,351).....63..2|
00000380  35 35 0d 01 0e 07 c8 97  ee 0d 01 18 14 ff 22 46  |55............"F|
00000390  58 20 31 35 22 3a f2 73  63 72 6f 6c 6c 0d 01 22  |X 15":.scroll.."|
000003a0  47 e7 4b 3d 33 32 84 4b  3d 31 33 8c 66 69 72 73  |G.K=32.K=13.firs|
000003b0  74 3d b9 3a f2 63 6c 74  3a ff 22 50 6c 61 79 50  |t=.:.clt:."PlayP|
000003c0  6f 73 20 31 30 22 3a d1  3d 30 3a 4c 65 76 6e 6f  |os 10":.=0:Levno|
000003d0  3d 31 3a f2 70 6c 61 79  67 61 6d 65 3a 58 3d 30  |=1:.playgame:X=0|
000003e0  3a 59 3d 30 0d 01 2c 59  e7 58 3e 34 32 34 80 20  |:Y=0..,Y.X>424. |
000003f0  58 3c 31 31 30 30 80 20  59 3e 34 38 34 80 20 59  |X<1100. Y>484. Y|
00000400  3c 37 31 36 8c 66 69 72  73 74 3d b9 3a f2 63 6c  |<716.first=.:.cl|
00000410  74 3a ff 22 50 6c 61 79  50 6f 73 20 31 30 22 3a  |t:."PlayPos 10":|
00000420  d1 3d 30 3a 4c 65 76 6e  6f 3d 31 3a f2 70 6c 61  |.=0:Levno=1:.pla|
00000430  79 67 61 6d 65 3a 58 3d  30 3a 59 3d 30 0d 01 36  |ygame:X=0:Y=0..6|
00000440  4d e7 58 3e 38 35 32 80  20 58 3c 31 30 31 31 80  |M.X>852. X<1011.|
00000450  20 59 3e 33 36 35 80 20  59 3c 34 31 39 8c 66 69  | Y>365. Y<419.fi|
00000460  72 73 74 3d b9 3a f2 63  6c 74 3a ff 22 50 6c 61  |rst=.:.clt:."Pla|
00000470  79 50 6f 73 20 31 30 22  3a d1 3d 30 3a f2 64 65  |yPos 10":.=0:.de|
00000480  6d 6f 3a 58 3d 30 3a 59  3d 30 0d 01 40 31 e7 58  |mo:X=0:Y=0..@1.X|
00000490  3e 36 38 34 80 20 58 3c  38 34 33 80 20 59 3e 33  |>684. X<843. Y>3|
000004a0  36 35 80 20 59 3c 34 31  39 8c f2 70 61 73 73 77  |65. Y<419..passw|
000004b0  6f 72 64 3a 58 3d 30 3a  59 3d 30 0d 01 4a 33 e7  |ord:X=0:Y=0..J3.|
000004c0  58 3e 31 30 31 37 80 20  58 3c 31 31 37 39 80 20  |X>1017. X<1179. |
000004d0  59 3e 33 36 35 80 20 59  3c 34 31 39 8c f2 6d 65  |Y>365. Y<419..me|
000004e0  6e 75 6c 6f 61 64 3a 58  3d 30 3a 59 3d 30 0d 01  |nuload:X=0:Y=0..|
000004f0  54 33 e7 58 3e 35 30 80  20 58 3c 32 34 34 80 20  |T3.X>50. X<244. |
00000500  59 3e 35 34 39 80 20 59  3c 37 34 31 8c f2 63 6c  |Y>549. Y<741..cl|
00000510  74 3a f2 65 64 69 74 6f  72 3a 58 3d 30 3a 59 3d  |t:.editor:X=0:Y=|
00000520  30 0d 01 5e 2d e7 58 3e  35 30 80 20 58 3c 32 34  |0..^-.X>50. X<24|
00000530  34 80 20 59 3e 33 34 35  80 20 59 3c 35 34 30 8c  |4. Y>345. Y<540.|
00000540  58 3d 30 3a 59 3d 30 3a  45 58 49 54 3d b9 0d 01  |X=0:Y=0:EXIT=...|
00000550  68 30 e7 58 3e 35 30 80  20 58 3c 32 34 34 80 20  |h0.X>50. X<244. |
00000560  59 3e 35 31 80 20 59 3c  39 33 39 8c f2 63 6c 74  |Y>51. Y<939..clt|
00000570  3a f2 69 6e 66 6f 3a 58  3d 30 3a 59 3d 30 0d 01  |:.info:X=0:Y=0..|
00000580  72 0b fd 45 58 49 54 3d  b9 0d 01 7c 0b db 3a 2a  |r..EXIT=...|..:*|
00000590  53 4e 45 57 0d 01 86 07  c8 97 87 0d 01 90 05 e1  |SNEW............|
000005a0  0d 01 9a 15 dd f2 70 6c  6f 74 28 6e 61 6d 65 24  |......plot(name$|
000005b0  2c 78 2c 79 29 0d 01 a4  17 c8 99 26 32 45 2c 33  |,x,y)......&2E,3|
000005c0  34 2c 2c 6e 61 6d 65 24  2c 78 2c 79 0d 01 ae 05  |4,,name$,x,y....|
000005d0  e1 0d 01 b8 0c dd f2 73  63 72 6f 6c 6c 0d 01 c2  |.......scroll...|
000005e0  50 41 3d 30 3a e3 4b 3d  30 b8 36 33 88 32 31 3a  |PA=0:.K=0.63.21:|
000005f0  e6 30 2c 4b 3a e3 4c 3d  31 b8 32 3a c8 93 34 32  |.0,K:.L=1.2:..42|
00000600  34 2d 28 41 2a 33 29 2c  32 34 38 2d 28 41 2a 33  |4-(A*3),248-(A*3|
00000610  29 2c 36 39 39 2b 28 41  2a 36 29 2c 34 35 2b 28  |),699+(A*6),45+(|
00000620  41 2a 36 29 3a 41 2b 3d  31 3a ed 3a ed 0d 01 cc  |A*6):A+=1:.:....|
00000630  1d e7 73 63 72 6f 6c 6c  70 6f 73 3c 3e 30 8c f2  |..scrollpos<>0..|
00000640  75 70 64 61 74 65 74 65  78 74 0d 01 d6 0b 65 76  |updatetext....ev|
00000650  65 6e 74 3d a3 0d 01 e0  05 f5 0d 01 ea 25 f1 8a  |ent=.........%..|
00000660  36 39 2c 32 33 29 3b bd  28 3f 28 74 65 78 74 62  |69,23);.(?(textb|
00000670  75 66 25 2b 73 63 72 6f  6c 6c 70 6f 73 29 29 0d  |uf%+scrollpos)).|
00000680  01 f4 24 ec 34 36 33 2c  32 35 38 3a ec 31 31 32  |..$.463,258:.112|
00000690  35 2c 32 39 31 3a c8 99  26 32 45 2c 31 34 2c 2c  |5,291:..&2E,14,,|
000006a0  22 73 22 0d 01 fe 11 e3  58 3d 34 35 37 b8 34 33  |"s".....X=457.43|
000006b0  38 88 2d 36 0d 02 08 0e  f0 26 45 44 2c 58 2c 32  |8.-6.....&ED,X,2|
000006c0  35 38 0d 02 12 06 c8 96  0d 02 1c 06 ed 58 0d 02  |58...........X..|
000006d0  26 0b c8 97 58 2c 59 2c  5a 0d 02 30 0a 4b 3d a6  |&...X,Y,Z..0.K=.|
000006e0  28 30 29 0d 02 3a 16 e7  4b 3d 33 32 84 4b 3d 31  |(0)..:..K=32.K=1|
000006f0  33 8c 65 76 65 6e 74 3d  b9 0d 02 44 0a e7 5a 3c  |3.event=...D..Z<|
00000700  3e 30 8c 0d 02 4e 26 e7  58 3e 35 32 80 20 58 3c  |>0...N&.X>52. X<|
00000710  32 35 30 80 20 59 3e 33  34 34 80 20 59 3c 39 33  |250. Y>344. Y<93|
00000720  38 8c 65 76 65 6e 74 3d  b9 0d 02 58 28 e7 58 3e  |8.event=...X(.X>|
00000730  34 32 34 80 20 58 3c 31  31 30 30 80 20 59 3e 34  |424. X<1100. Y>4|
00000740  38 34 80 20 59 3c 37 31  36 8c 65 76 65 6e 74 3d  |84. Y<716.event=|
00000750  b9 0d 02 62 28 e7 58 3e  36 38 35 80 20 58 3c 31  |...b(.X>685. X<1|
00000760  31 38 30 80 20 59 3e 33  36 32 80 20 59 3c 34 31  |180. Y>362. Y<41|
00000770  39 8c 65 76 65 6e 74 3d  b9 0d 02 6c 12 e7 59 3e  |9.event=...l..Y>|
00000780  33 35 30 80 20 59 3c 34  33 37 8c 0d 02 76 15 e7  |350. Y<437...v..|
00000790  58 3e 33 35 37 80 20 58  3c 34 33 32 8c c8 a0 38  |X>357. X<432...8|
000007a0  0d 02 80 15 e7 58 3e 34  33 32 80 20 58 3c 35 31  |.....X>432. X<51|
000007b0  36 8c c8 a0 34 0d 02 8a  1e e7 58 3e 35 31 36 80  |6...4.....X>516.|
000007c0  20 58 3c 35 39 34 8c ff  22 50 6c 61 79 53 74 61  | X<594.."PlaySta|
000007d0  72 74 22 0d 02 94 1e e7  58 3e 35 39 34 80 20 58  |rt".....X>594. X|
000007e0  3c 36 37 32 8c ff 22 50  6c 61 79 70 61 75 73 65  |<672.."Playpause|
000007f0  22 0d 02 9e 05 cd 0d 02  a8 05 cd 0d 02 b2 2e 73  |"..............s|
00000800  63 72 6f 6c 6c 70 6f 73  2b 3d 31 3a e7 73 63 72  |crollpos+=1:.scr|
00000810  6f 6c 6c 70 6f 73 3d 6c  65 6e 67 74 68 8c 73 63  |ollpos=length.sc|
00000820  72 6f 6c 6c 70 6f 73 3d  30 0d 02 bc 0c fd 65 76  |rollpos=0.....ev|
00000830  65 6e 74 3d b9 0d 02 c6  28 e6 30 2c 30 c8 9c 30  |ent=....(.0,0..0|
00000840  3a c8 93 c8 90 33 39 31  2c 32 31 30 2c 31 31 36  |:....391,210,116|
00000850  32 2d 33 39 31 2c 33 32  31 2d 32 31 30 0d 02 d0  |2-391,321-210...|
00000860  05 e1 0d 02 da 27 dd f2  63 6c 74 3a e6 30 2c 30  |.....'..clt:.0,0|
00000870  c8 9c 30 3a c8 93 c8 90  32 35 39 2c 32 31 32 2c  |..0:....259,212,|
00000880  37 35 39 2c 31 30 38 3a  e1 0d 02 e4 10 dd f2 75  |759,108:.......u|
00000890  70 64 61 74 65 74 65 78  74 0d 02 ee 41 f5 3a 73  |pdatetext...A.:s|
000008a0  63 72 6f 6c 6c 70 6f 73  2b 3d 31 3a fd 73 63 72  |crollpos+=1:.scr|
000008b0  6f 6c 6c 70 6f 73 3e 28  6c 65 6e 67 74 68 2d 32  |ollpos>(length-2|
000008c0  29 84 3f 28 74 65 78 74  62 75 66 25 2b 73 63 72  |).?(textbuf%+scr|
000008d0  6f 6c 6c 70 6f 73 29 3d  33 32 0d 02 f8 21 e7 73  |ollpos)=32...!.s|
000008e0  63 72 6f 6c 6c 70 6f 73  3d 6c 65 6e 67 74 68 8c  |crollpos=length.|
000008f0  73 63 72 6f 6c 6c 70 6f  73 3d 30 0d 03 02 0c fb  |scrollpos=0.....|
00000900  36 33 c8 9c 32 35 35 0d  03 0c 05 e1 0d 03 16 0b  |63..255.........|
00000910  dd f2 73 65 74 75 70 0d  03 20 36 58 3d 8e 28 22  |..setup.. 6X=.("|
00000920  3c 43 6f 6c 6c 32 24 44  69 72 3e 2e 52 65 73 6f  |<Coll2$Dir>.Reso|
00000930  75 72 63 65 73 2e 53 63  44 61 74 61 22 29 3a 6c  |urces.ScData"):l|
00000940  65 6e 67 74 68 3d a2 23  58 3a d9 23 58 0d 03 2a  |ength=.#X:.#X..*|
00000950  13 de 74 65 78 74 62 75  66 25 6c 65 6e 67 74 68  |..textbuf%length|
00000960  0d 03 34 34 ff 22 4c 6f  61 64 20 3c 43 6f 6c 6c  |..44."Load <Coll|
00000970  32 24 44 69 72 3e 2e 52  65 73 6f 75 72 63 65 73  |2$Dir>.Resources|
00000980  2e 53 63 44 61 74 61 20  22 2b c3 7e 74 65 78 74  |.ScData "+.~text|
00000990  62 75 66 25 0d 03 3e 0f  73 63 72 6f 6c 6c 70 6f  |buf%..>.scrollpo|
000009a0  73 3d 30 0d 03 48 2b ff  22 53 4d 65 72 67 65 20  |s=0..H+."SMerge |
000009b0  3c 43 6f 6c 6c 32 24 44  69 72 3e 2e 42 6c 6f 63  |<Coll2$Dir>.Bloc|
000009c0  6b 73 2e 42 69 6f 6c 6f  67 69 63 61 6c 22 0d 03  |ks.Biological"..|
000009d0  52 28 e3 63 3d 31 b8 33  3a ff 22 53 43 4f 50 59  |R(.c=1.3:."SCOPY|
000009e0  20 43 6f 72 6e 65 72 20  43 6f 72 6e 65 72 22 2b  | Corner Corner"+|
000009f0  c3 28 63 29 3a ed 0d 03  5c 27 ff 22 53 66 6c 69  |.(c):...\'."Sfli|
00000a00  70 58 20 43 6f 72 6e 65  72 31 22 3a ff 22 53 66  |pX Corner1":."Sf|
00000a10  6c 69 70 59 20 43 6f 72  6e 65 72 32 22 0d 03 66  |lipY Corner2"..f|
00000a20  27 ff 22 53 66 6c 69 70  58 20 43 6f 72 6e 65 72  |'."SflipX Corner|
00000a30  33 22 3a ff 22 53 66 6c  69 70 59 20 43 6f 72 6e  |3":."SflipY Corn|
00000a40  65 72 33 22 0d 03 70 41  de 67 72 69 64 28 32 31  |er3"..pA.grid(21|
00000a50  2c 31 33 29 2c 6c 69 66  74 78 28 32 2c 31 30 29  |,13),liftx(2,10)|
00000a60  2c 6c 69 66 74 79 28 32  2c 31 30 29 2c 73 70 72  |,lifty(2,10),spr|
00000a70  69 74 65 24 28 31 37 29  2c 67 67 72 69 64 28 32  |ite$(17),ggrid(2|
00000a80  31 2c 31 33 29 0d 03 7a  3e de 6e 61 6d 65 24 28  |1,13)..z>.name$(|
00000a90  35 30 29 2c 62 79 74 65  25 28 35 30 29 2c 6d 65  |50),byte%(50),me|
00000aa0  6d 25 33 32 2c 62 6c 24  28 36 29 2c 6e 6f 28 36  |m%32,bl$(6),no(6|
00000ab0  29 2c 62 6c 73 70 24 28  36 29 2c 62 75 66 66 25  |),blsp$(6),buff%|
00000ac0  32 35 35 0d 03 84 2b 74  6f 70 25 3d 31 3a 6c 65  |255...+top%=1:le|
00000ad0  6e 25 3d 30 3a 64 69 72  24 3d 22 3c 43 6f 6c 6c  |n%=0:dir$="<Coll|
00000ae0  32 24 44 69 72 3e 2e 4c  65 76 65 6c 73 22 0d 03  |2$Dir>.Levels"..|
00000af0  8e 38 70 61 73 73 24 3d  22 22 3a 73 74 62 6c 3d  |.8pass$="":stbl=|
00000b00  30 3a 66 69 62 6c 3d 30  3a 62 6c 74 79 70 65 24  |0:fibl=0:bltype$|
00000b10  3d 22 42 69 6f 6c 6f 67  69 63 61 6c 22 3a 65 74  |="Biological":et|
00000b20  69 6d 65 3d 31 30 0d 03  98 29 6c 65 66 74 3d 31  |ime=10...)left=1|
00000b30  3a 72 69 67 68 74 3d 32  3a 64 6f 77 6e 3d 33 3a  |:right=2:down=3:|
00000b40  75 70 3d 34 3a 67 6f 74  61 72 72 6f 77 3d a3 0d  |up=4:gotarrow=..|
00000b50  03 a2 3e 62 6f 75 3d 31  30 3a 72 65 76 3d 31 31  |..>bou=10:rev=11|
00000b60  3a 6c 69 66 3d 31 32 3a  63 72 75 3d 31 33 3a 6f  |:lif=12:cru=13:o|
00000b70  6e 6c 69 66 74 3d a3 3a  70 6c 61 79 6c 65 76 24  |nlift=.:playlev$|
00000b80  3d 22 44 65 6d 6f 4c 65  76 65 6c 73 22 0d 03 ac  |="DemoLevels"...|
00000b90  31 6c 69 6d 69 74 3d 31  30 3a 64 69 73 6b 6e 6f  |1limit=10:diskno|
00000ba0  3d 31 3a 67 73 70 24 3d  22 72 65 76 65 72 73 65  |=1:gsp$="reverse|
00000bb0  22 3a 69 3d 31 30 3a 4c  65 76 6e 6f 3d 31 0d 03  |":i=10:Levno=1..|
00000bc0  b6 4b dc 20 22 52 65 76  65 72 73 65 22 2c 22 52  |.K. "Reverse","R|
00000bd0  65 76 65 72 73 65 22 2c  22 4e 6f 72 6d 61 6c 22  |everse","Normal"|
00000be0  2c 22 42 6c 6f 63 6b 31  22 2c 22 42 6f 75 6e 63  |,"Block1","Bounc|
00000bf0  65 22 2c 22 42 6f 75 6e  63 65 22 2c 22 42 6c 61  |e","Bounce","Bla|
00000c00  6e 6b 65 72 22 2c 22 23  22 0d 03 c0 23 f7 8d 74  |nker","#"...#..t|
00000c10  76 43 3a e3 4b 3d 31 b8  34 3a f3 62 6c 24 28 4b  |vC:.K=1.4:.bl$(K|
00000c20  29 2c 62 6c 73 70 24 28  4b 29 3a ed 0d 03 ca 05  |),blsp$(K):.....|
00000c30  e1 0d 03 d4 0c dd f2 65  64 69 74 6f 72 0d 03 de  |.......editor...|
00000c40  10 73 70 24 3d 22 62 6c  6f 63 6b 31 22 0d 03 e8  |.sp$="block1"...|
00000c50  29 e6 30 2c 30 c8 9c 30  3a c8 93 c8 90 30 2c 30  |).0,0..0:....0,0|
00000c60  2c 31 32 37 39 2c 31 30  32 33 3a 71 75 69 74 3d  |,1279,1023:quit=|
00000c70  a3 3a 69 74 3d a3 0d 03  f2 2a e6 30 2c 36 33 c8  |.:it=....*.0,63.|
00000c80  9c 30 3a c8 93 30 2c 30  2c 31 32 37 39 2c 32 35  |.0:..0,0,1279,25|
00000c90  30 3a f2 65 64 69 74 6f  72 64 69 73 67 72 69 64  |0:.editordisgrid|
00000ca0  0d 03 fc 37 e6 30 2c 36  33 c8 9c 30 3a c8 93 34  |...7.0,63..0:..4|
00000cb0  36 2c 32 39 34 2c 31 31  30 35 2c 36 38 39 3a f2  |6,294,1105,689:.|
00000cc0  70 6c 6f 74 28 22 4f 70  74 69 6f 6e 73 22 2c 31  |plot("Options",1|
00000cd0  31 30 32 2c 33 33 29 0d  04 06 1a f2 70 6c 6f 74  |102,33).....plot|
00000ce0  28 22 4d 65 6e 75 22 2c  31 31 30 32 2c 31 35 30  |("Menu",1102,150|
00000cf0  29 0d 04 10 32 dc 20 22  62 6c 6f 63 6b 31 22 2c  |)...2. "block1",|
00000d00  22 62 6c 6f 63 6b 32 22  2c 22 62 6c 6f 63 6b 33  |"block2","block3|
00000d10  22 2c 22 62 6c 6f 63 6b  34 22 2c 22 62 6c 6f 63  |","block4","bloc|
00000d20  6b 35 22 0d 04 1a 2c dc  20 22 63 6f 72 6e 65 72  |k5"...,. "corner|
00000d30  22 2c 22 63 6f 72 6e 65  72 31 22 2c 22 63 6f 72  |","corner1","cor|
00000d40  6e 65 72 32 22 2c 22 63  6f 72 6e 65 72 33 22 0d  |ner2","corner3".|
00000d50  04 24 29 dc 20 22 62 6f  75 6e 63 65 22 2c 22 72  |.$). "bounce","r|
00000d60  65 76 65 72 73 65 22 2c  22 6c 69 66 74 22 2c 22  |everse","lift","|
00000d70  63 72 75 6d 62 6c 65 22  0d 04 2e 28 dc 20 22 63  |crumble"...(. "c|
00000d80  72 75 73 68 65 72 22 2c  22 73 74 61 72 74 22 2c  |rusher","start",|
00000d90  22 66 69 6e 69 73 68 22  2c 22 6c 69 66 74 32 22  |"finish","lift2"|
00000da0  0d 04 38 0e f2 64 72 61  77 69 63 6f 6e 73 0d 04  |..8..drawicons..|
00000db0  42 1d e6 30 2c 31 31 c8  9c 32 35 35 3a c8 93 37  |B..0,11..255:..7|
00000dc0  30 35 2c 35 30 2c 35 30  2c 35 30 0d 04 4c 1f e6  |05,50,50,50..L..|
00000dd0  30 2c 36 33 c8 9c 32 35  35 3a 86 31 30 37 35 2c  |0,63..255:.1075,|
00000de0  30 2c 31 30 37 35 2c 32  35 30 0d 04 56 15 ff 22  |0,1075,250..V.."|
00000df0  53 63 68 6f 6f 73 65 20  62 6c 6f 63 6b 31 22 0d  |Schoose block1".|
00000e00  04 60 2c 74 65 78 74 24  3d 22 53 65 6c 65 63 74  |.`,text$="Select|
00000e10  3a 20 62 6c 6f 63 6b 31  22 3a 63 6f 6c 3d 34 36  |: block1":col=46|
00000e20  3a f2 65 64 6d 65 73 73  61 67 65 0d 04 6a 25 69  |:.edmessage..j%i|
00000e30  3d 30 3a f5 3a ff 22 46  58 20 31 35 22 3a f5 3a  |=0:.:."FX 15":.:|
00000e40  c8 97 58 2c 59 2c 42 3a  fd 42 3d 34 84 42 3d 31  |..X,Y,B:.B=4.B=1|
00000e50  0d 04 74 14 e7 59 3c 32  35 30 8c f2 63 68 6f 6f  |..t..Y<250..choo|
00000e60  73 65 73 70 0d 04 7e 26  e7 58 3e 35 34 80 20 58  |sesp..~&.X>54. X|
00000e70  3c 31 31 33 38 80 20 59  3e 32 39 39 80 20 59 3c  |<1138. Y>299. Y<|
00000e80  39 37 30 8c f2 70 6c 61  63 65 0d 04 88 0b fd 71  |970..place.....q|
00000e90  75 69 74 3d b9 0d 04 92  05 e1 0d 04 9c 0e dd f2  |uit=............|
00000ea0  63 68 6f 6f 73 65 73 70  0d 04 a6 28 e7 58 3e 31  |choosesp...(.X>1|
00000eb0  31 30 32 80 20 58 3c 31  32 35 35 80 20 59 3e 31  |102. X<1255. Y>1|
00000ec0  34 39 80 20 59 3c 32 31  35 8c 71 75 69 74 3d b9  |49. Y<215.quit=.|
00000ed0  0d 04 b0 33 e7 58 3e 31  31 30 32 80 20 58 3c 31  |...3.X>1102. X<1|
00000ee0  32 35 35 80 20 59 3e 33  35 80 20 59 3c 39 38 8c  |255. Y>35. Y<98.|
00000ef0  f2 6f 70 74 69 6f 6e 73  3a 58 3d 37 39 3a 59 3d  |.options:X=79:Y=|
00000f00  31 36 37 0d 04 ba 0a e3  6c 3d 30 b8 39 0d 04 c4  |167.....l=0.9...|
00000f10  34 e7 58 3e 35 35 2b 28  31 30 30 2a 6c 29 80 20  |4.X>55+(100*l). |
00000f20  58 3c 35 35 2b 35 30 2b  28 31 30 30 2a 6c 29 80  |X<55+50+(100*l).|
00000f30  20 59 3e 31 35 30 80 20  59 3c 32 30 30 8c 69 3d  | Y>150. Y<200.i=|
00000f40  6c 0d 04 ce 05 ed 0d 04  d8 0a e3 6c 3d 30 b8 37  |l..........l=0.7|
00000f50  0d 04 e2 38 e7 58 3e 31  30 35 2b 28 31 30 30 2a  |...8.X>105+(100*|
00000f60  6c 29 80 20 58 3c 31 30  35 2b 35 30 2b 28 31 30  |l). X<105+50+(10|
00000f70  30 2a 6c 29 80 20 59 3e  35 30 80 20 59 3c 31 30  |0*l). Y>50. Y<10|
00000f80  30 8c 69 3d 6c 2b 31 30  0d 04 ec 05 ed 0d 04 f6  |0.i=l+10........|
00000f90  0a e7 69 3c 31 37 8c 0d  05 00 2a e7 69 3d 31 36  |..i<17....*.i=16|
00000fa0  8c 73 70 24 3d 22 69 6e  76 69 73 69 62 6c 65 22  |.sp$="invisible"|
00000fb0  8b 73 70 24 3d 73 70 72  69 74 65 24 28 69 2b 31  |.sp$=sprite$(i+1|
00000fc0  29 0d 05 0a 05 cd 0d 05  14 24 e7 73 70 24 3c 3e  |)........$.sp$<>|
00000fd0  22 69 6e 76 69 73 69 62  6c 65 22 ff 22 53 43 48  |"invisible"."SCH|
00000fe0  4f 4f 53 45 20 22 2b 73  70 24 0d 05 1e 2a 74 65  |OOSE "+sp$...*te|
00000ff0  78 74 24 3d 22 53 65 6c  65 63 74 3a 20 22 2b 73  |xt$="Select: "+s|
00001000  70 24 3a 63 6f 6c 3d 34  36 3a f2 65 64 6d 65 73  |p$:col=46:.edmes|
00001010  73 61 67 65 0d 05 28 14  f5 3a c8 97 78 6d 2c 79  |sage..(..:..xm,y|
00001020  6d 2c 42 3a fd 42 3d 30  0d 05 32 05 e1 0d 05 3c  |m,B:.B=0..2....<|
00001030  0b dd f2 70 6c 61 63 65  0d 05 46 34 59 2d 3d 33  |...place..F4Y-=3|
00001040  30 30 3a 6e 78 3d 58 2f  35 32 3a 6e 79 3d 59 2f  |00:nx=X/52:ny=Y/|
00001050  35 32 3a 6e 65 78 3d 6e  78 2d a8 28 6e 78 29 3a  |52:nex=nx-.(nx):|
00001060  6e 65 79 3d 6e 79 2d a8  28 6e 79 29 0d 05 50 15  |ney=ny-.(ny)..P.|
00001070  6e 78 3d a8 28 6e 78 29  3a 6e 79 3d a8 28 6e 79  |nx=.(nx):ny=.(ny|
00001080  29 0d 05 5a 1c e7 42 3d  34 80 20 67 72 69 64 28  |)..Z..B=4. grid(|
00001090  6e 78 2d 31 2c 6e 79 29  3d 31 35 8c e1 0d 05 64  |nx-1,ny)=15....d|
000010a0  1c e7 42 3d 34 80 20 67  72 69 64 28 6e 78 2d 31  |..B=4. grid(nx-1|
000010b0  2c 6e 79 29 3d 31 36 8c  e1 0d 05 6e 09 e7 42 3d  |,ny)=16....n..B=|
000010c0  34 8c 0d 05 78 30 e7 67  72 69 64 28 6e 78 2d 31  |4...x0.grid(nx-1|
000010d0  2c 6e 79 29 3d 31 37 84  67 72 69 64 28 6e 78 2d  |,ny)=17.grid(nx-|
000010e0  31 2c 6e 79 29 3d 31 32  8c 69 74 3d b9 8b 69 74  |1,ny)=12.it=..it|
000010f0  3d a3 0d 05 82 05 cd 0d  05 8c 0b e7 69 74 3d b9  |=...........it=.|
00001100  8c e1 0d 05 96 7c e7 73  70 24 3d 22 73 74 61 72  |.....|.sp$="star|
00001110  74 22 80 20 73 74 62 6c  3e 30 80 20 42 3d 34 8c  |t". stbl>0. B=4.|
00001120  74 65 78 74 24 3d 22 4f  6e 65 20 53 74 61 72 74  |text$="One Start|
00001130  20 42 6c 6f 63 6b 21 22  3a 63 6f 6c 3d 33 3a f2  | Block!":col=3:.|
00001140  65 64 6d 65 73 73 61 67  65 3a d1 3d 30 3a f5 3a  |edmessage:.=0:.:|
00001150  fd 91 3e 32 35 3a 74 65  78 74 24 3d 22 53 65 6c  |..>25:text$="Sel|
00001160  65 63 74 3a 20 22 2b 73  70 24 3a 63 6f 6c 3d 34  |ect: "+sp$:col=4|
00001170  36 3a f2 65 64 6d 65 73  73 61 67 65 3a e1 0d 05  |6:.edmessage:...|
00001180  a0 7e e7 73 70 24 3d 22  66 69 6e 69 73 68 22 80  |.~.sp$="finish".|
00001190  20 66 69 62 6c 3e 30 80  20 42 3d 34 8c 74 65 78  | fibl>0. B=4.tex|
000011a0  74 24 3d 22 4f 6e 65 20  46 69 6e 69 73 68 20 42  |t$="One Finish B|
000011b0  6c 6f 63 6b 21 22 3a 63  6f 6c 3d 33 3a f2 65 64  |lock!":col=3:.ed|
000011c0  6d 65 73 73 61 67 65 3a  d1 3d 30 3a f5 3a fd 91  |message:.=0:.:..|
000011d0  3e 32 35 3a 74 65 78 74  24 3d 22 53 65 6c 65 63  |>25:text$="Selec|
000011e0  74 3a 20 22 2b 73 70 24  3a 63 6f 6c 3d 34 36 3a  |t: "+sp$:col=46:|
000011f0  f2 65 64 6d 65 73 73 61  67 65 3a e1 0d 05 aa 10  |.edmessage:.....|
00001200  e7 6e 65 78 3e 34 8c 6e  78 2b 3d 31 0d 05 b4 10  |.nex>4.nx+=1....|
00001210  e7 6e 65 79 3e 35 8c 6e  79 2b 3d 31 0d 05 be 1f  |.ney>5.ny+=1....|
00001220  59 3d 28 6e 79 2a 35 32  29 2b 33 30 30 3a 58 3d  |Y=(ny*52)+300:X=|
00001230  6e 78 2a 35 32 3a 6e 78  2d 3d 31 0d 05 c8 20 e7  |nx*52:nx-=1... .|
00001240  42 3d 34 80 a4 63 68 65  63 6b 6c 69 66 74 80 a4  |B=4..checklift..|
00001250  69 6e 62 65 74 77 65 65  6e 8c e1 0d 05 d2 15 e7  |inbetween.......|
00001260  67 72 69 64 28 6e 78 2c  6e 79 29 3d 31 37 8c e1  |grid(nx,ny)=17..|
00001270  0d 05 dc 3f e7 42 3d 34  80 20 73 70 24 3c 3e 22  |...?.B=4. sp$<>"|
00001280  6c 69 66 74 22 80 73 70  24 3c 3e 22 69 6e 76 69  |lift".sp$<>"invi|
00001290  73 69 62 6c 65 22 8c f0  26 45 44 2c 58 2c 59 3a  |sible"..&ED,X,Y:|
000012a0  67 72 69 64 28 6e 78 2c  6e 79 29 3d 69 2b 31 0d  |grid(nx,ny)=i+1.|
000012b0  05 e6 40 e7 42 3d 34 80  20 73 70 24 3d 22 69 6e  |..@.B=4. sp$="in|
000012c0  76 69 73 69 62 6c 65 22  8c e6 30 2c 32 c8 9c 31  |visible"..0,2..1|
000012d0  35 30 3a c8 93 c8 90 58  2c 59 2c 35 30 2c 35 30  |50:....X,Y,50,50|
000012e0  3a 67 72 69 64 28 6e 78  2c 6e 79 29 3d 31 38 0d  |:grid(nx,ny)=18.|
000012f0  05 f0 09 e7 42 3d 31 8c  0d 05 fa 1a e7 67 72 69  |....B=1......gri|
00001300  64 28 6e 78 2c 6e 79 29  3d 31 35 8c 73 74 62 6c  |d(nx,ny)=15.stbl|
00001310  3d 30 0d 06 04 1a e7 67  72 69 64 28 6e 78 2c 6e  |=0.....grid(nx,n|
00001320  79 29 3d 31 36 8c 66 69  62 6c 3d 30 0d 06 0e 49  |y)=16.fibl=0...I|
00001330  e7 67 72 69 64 28 6e 78  2c 6e 79 29 3c 3e 31 37  |.grid(nx,ny)<>17|
00001340  80 20 67 72 69 64 28 6e  78 2c 6e 79 29 3c 3e 31  |. grid(nx,ny)<>1|
00001350  32 8c e6 30 2c 30 c8 9c  30 3a c8 93 c8 90 58 2c  |2..0,0..0:....X,|
00001360  59 2c 35 30 2c 35 30 3a  67 72 69 64 28 6e 78 2c  |Y,50,50:grid(nx,|
00001370  6e 79 29 3d 30 0d 06 18  2c e7 67 72 69 64 28 6e  |ny)=0...,.grid(n|
00001380  78 2c 6e 79 29 3d 31 37  84 67 72 69 64 28 6e 78  |x,ny)=17.grid(nx|
00001390  2c 6e 79 29 3d 31 32 8c  f2 77 69 70 65 6c 69 66  |,ny)=12..wipelif|
000013a0  74 0d 06 22 05 cd 0d 06  2c 2e e7 73 70 24 3d 22  |t.."....,..sp$="|
000013b0  73 74 61 72 74 22 80 20  42 3d 34 8c 73 74 62 6c  |start". B=4.stbl|
000013c0  2b 3d 31 3a f5 3a c8 97  6d 78 2c 6d 79 2c 62 3a  |+=1:.:..mx,my,b:|
000013d0  fd 62 3d 30 0d 06 36 1b  e7 73 70 24 3d 22 6c 69  |.b=0..6..sp$="li|
000013e0  66 74 22 80 20 42 3c 3e  31 8c f2 6c 69 66 74 0d  |ft". B<>1..lift.|
000013f0  06 40 2f e7 73 70 24 3d  22 66 69 6e 69 73 68 22  |.@/.sp$="finish"|
00001400  80 20 42 3d 34 8c 66 69  62 6c 2b 3d 31 3a f5 3a  |. B=4.fibl+=1:.:|
00001410  c8 97 6d 78 2c 6d 79 2c  62 3a fd 62 3d 30 0d 06  |..mx,my,b:.b=0..|
00001420  4a 05 e1 0d 06 54 0a dd  f2 6c 69 66 74 0d 06 5e  |J....T...lift..^|
00001430  16 e7 a4 63 68 65 63 6b  6c 69 66 74 3d b9 8c ef  |...checklift=...|
00001440  37 3a e1 0d 06 68 0c e7  6e 79 3d 31 32 8c e1 0d  |7:...h..ny=12...|
00001450  06 72 24 f2 70 6c 6f 74  28 22 6c 69 66 74 22 2c  |.r$.plot("lift",|
00001460  58 2c 59 29 3a 67 72 69  64 28 6e 78 2c 6e 79 29  |X,Y):grid(nx,ny)|
00001470  3d 31 32 0d 06 7c 1b 58  31 3d 58 3a 59 31 3d 59  |=12..|.X1=X:Y1=Y|
00001480  3a 6e 78 31 3d 6e 78 3a  6e 79 31 3d 6e 79 0d 06  |:nx1=nx:ny1=ny..|
00001490  86 1e 6c 78 3d 6e 78 3a  6c 79 3d 6e 79 3a f5 3a  |..lx=nx:ly=ny:.:|
000014a0  c8 97 58 2c 59 2c 42 3a  fd 42 3d 30 0d 06 90 13  |..X,Y,B:.B=0....|
000014b0  f5 3a c8 97 58 2c 59 2c  42 3a fd 42 3c 3e 30 0d  |.:..X,Y,B:.B<>0.|
000014c0  06 9a 10 e7 42 3c 3e 34  8c f2 62 6c 61 3a e1 0d  |....B<>4..bla:..|
000014d0  06 a4 34 59 2d 3d 33 30  30 3a 6e 78 3d 58 2f 35  |..4Y-=300:nx=X/5|
000014e0  32 3a 6e 79 3d 59 2f 35  32 3a 6e 65 78 3d 6e 78  |2:ny=Y/52:nex=nx|
000014f0  2d a8 28 6e 78 29 3a 6e  65 79 3d 6e 79 2d a8 28  |-.(nx):ney=ny-.(|
00001500  6e 79 29 0d 06 ae 1b 6e  78 3d a8 28 6e 78 29 3a  |ny)....nx=.(nx):|
00001510  6e 79 3d a8 28 6e 79 29  3a 6e 78 2d 3d 31 0d 06  |ny=.(ny):nx-=1..|
00001520  b8 10 e7 6e 65 78 3e 34  8c 6e 78 2b 3d 31 0d 06  |...nex>4.nx+=1..|
00001530  c2 10 e7 6e 65 79 3e 35  8c 6e 79 2b 3d 31 0d 06  |...ney>5.ny+=1..|
00001540  cc 29 e7 67 72 69 64 28  6e 78 2c 6e 79 29 3d 31  |.).grid(nx,ny)=1|
00001550  35 84 67 72 69 64 28 6e  78 2c 6e 79 29 3d 31 36  |5.grid(nx,ny)=16|
00001560  8c f2 62 6c 61 3a e1 0d  06 d6 11 e7 6e 79 3d 31  |..bla:......ny=1|
00001570  32 8c f2 62 6c 61 3a e1  0d 06 e0 12 e7 6e 78 3c  |2..bla:......nx<|
00001580  3e 6c 78 8c f2 62 6c 61  3a e1 0d 06 ea 18 e7 6e  |>lx..bla:......n|
00001590  78 3d 6c 78 80 20 6e 79  3d 6c 79 8c f2 62 6c 61  |x=lx. ny=ly..bla|
000015a0  3a e1 0d 06 f4 32 59 3d  28 6e 79 2a 35 32 29 2b  |:....2Y=(ny*52)+|
000015b0  33 30 30 3a 58 3d 28 6e  78 2a 35 32 29 2b 35 32  |300:X=(nx*52)+52|
000015c0  3a f2 70 6c 6f 74 28 22  6c 69 66 74 22 2c 58 31  |:.plot("lift",X1|
000015d0  2c 59 31 29 0d 06 fe 25  f2 70 6c 6f 74 28 22 6c  |,Y1)...%.plot("l|
000015e0  69 66 74 32 22 2c 58 2c  59 29 3a 67 72 69 64 28  |ift2",X,Y):grid(|
000015f0  6e 78 2c 6e 79 29 3d 31  37 0d 07 08 10 f2 62 6c  |nx,ny)=17.....bl|
00001600  61 6e 6b 6d 69 64 64 6c  65 0d 07 12 1a f5 3a c8  |ankmiddle.....:.|
00001610  97 58 2c 59 2c 42 3a fd  42 3d 30 3a 58 3d 30 3a  |.X,Y,B:.B=0:X=0:|
00001620  59 3d 30 0d 07 1c 05 e1  0d 07 26 0f dd a4 63 68  |Y=0.......&...ch|
00001630  65 63 6b 6c 69 66 74 0d  07 30 0a 6c 69 66 74 3d  |ecklift..0.lift=|
00001640  a3 0d 07 3a 0f e3 6c 6f  6f 70 79 3d 30 b8 31 32  |...:..loopy=0.12|
00001650  0d 07 44 1d e7 67 72 69  64 28 6e 78 2c 6c 6f 6f  |..D..grid(nx,loo|
00001660  70 79 29 3d 31 32 8c 6c  69 66 74 3d b9 0d 07 4e  |py)=12.lift=...N|
00001670  05 ed 0d 07 58 09 3d 6c  69 66 74 0d 07 62 09 dd  |....X.=lift..b..|
00001680  f2 62 6c 61 0d 07 6c 06  ef 37 0d 07 76 26 59 3d  |.bla..l..7..v&Y=|
00001690  28 6c 79 2a 35 32 29 2b  33 30 30 3a 58 3d 28 6c  |(ly*52)+300:X=(l|
000016a0  78 2a 35 32 29 2b 35 32  3a e6 30 2c 30 c8 9c 30  |x*52)+52:.0,0..0|
000016b0  0d 07 80 1f c8 93 c8 90  58 2c 59 2c 35 30 2c 35  |........X,Y,50,5|
000016c0  30 3a 67 72 69 64 28 6c  78 2c 6c 79 29 3d 30 0d  |0:grid(lx,ly)=0.|
000016d0  07 8a 12 f5 3a c8 97 58  2c 59 2c 42 3a fd 42 3d  |....:..X,Y,B:.B=|
000016e0  30 0d 07 94 05 e1 0d 07  9e 13 dd f2 65 64 69 74  |0...........edit|
000016f0  6f 72 64 69 73 67 72 69  64 0d 07 a8 0d e6 30 2c  |ordisgrid.....0,|
00001700  32 c8 9c 31 35 30 0d 07  b2 1b e3 6c 6f 6f 70 78  |2..150.....loopx|
00001710  3d 30 b8 32 30 3a e3 6c  6f 6f 70 79 3d 30 b8 31  |=0.20:.loopy=0.1|
00001720  32 0d 07 bc 31 e7 67 72  69 64 28 6c 6f 6f 70 78  |2...1.grid(loopx|
00001730  2c 6c 6f 6f 70 79 29 3c  3e 30 80 20 67 72 69 64  |,loopy)<>0. grid|
00001740  28 6c 6f 6f 70 78 2c 6c  6f 6f 70 79 29 3c 3e 31  |(loopx,loopy)<>1|
00001750  38 8c 0d 07 c6 42 f2 70  6c 6f 74 28 73 70 72 69  |8....B.plot(spri|
00001760  74 65 24 28 67 72 69 64  28 6c 6f 6f 70 78 2c 6c  |te$(grid(loopx,l|
00001770  6f 6f 70 79 29 29 2c 28  6c 6f 6f 70 78 2a 35 32  |oopy)),(loopx*52|
00001780  29 2b 35 32 2c 28 6c 6f  6f 70 79 2a 35 32 29 2b  |)+52,(loopy*52)+|
00001790  33 30 30 29 0d 07 d0 05  cd 0d 07 da 40 e7 67 72  |300)........@.gr|
000017a0  69 64 28 6c 6f 6f 70 78  2c 6c 6f 6f 70 79 29 3d  |id(loopx,loopy)=|
000017b0  31 38 8c c8 93 c8 90 28  6c 6f 6f 70 78 2a 35 32  |18.....(loopx*52|
000017c0  29 2b 35 32 2c 28 6c 6f  6f 70 79 2a 35 32 29 2b  |)+52,(loopy*52)+|
000017d0  33 30 30 2c 35 30 2c 35  30 0d 07 e4 07 ed 3a ed  |300,50,50.....:.|
000017e0  0d 07 ee 05 e1 0d 07 f8  0e dd f2 77 69 70 65 6c  |...........wipel|
000017f0  69 66 74 0d 08 02 17 e6  30 2c 30 c8 9c 30 3a e3  |ift.....0,0..0:.|
00001800  6c 6f 6f 70 79 3d 30 b8  31 32 0d 08 0c 5d e7 67  |loopy=0.12...].g|
00001810  72 69 64 28 6e 78 2c 6c  6f 6f 70 79 29 3d 31 32  |rid(nx,loopy)=12|
00001820  84 67 72 69 64 28 6e 78  2c 6c 6f 6f 70 79 29 3d  |.grid(nx,loopy)=|
00001830  31 37 8c c8 93 c8 90 28  6e 78 2a 35 32 29 2b 35  |17.....(nx*52)+5|
00001840  32 2c 28 6c 6f 6f 70 79  2a 35 32 29 2b 33 30 30  |2,(loopy*52)+300|
00001850  2c 35 30 2c 35 30 3a 67  72 69 64 28 6e 78 2c 6c  |,50,50:grid(nx,l|
00001860  6f 6f 70 79 29 3d 30 0d  08 16 05 ed 0d 08 20 05  |oopy)=0....... .|
00001870  e1 0d 08 2a 0f dd a4 69  6e 62 65 74 77 65 65 6e  |...*...inbetween|
00001880  0d 08 34 19 6c 69 66 74  3d 30 3a e3 6c 6f 6f 70  |..4.lift=0:.loop|
00001890  79 3d 6e 79 b8 30 88 2d  31 0d 08 3e 30 e7 67 72  |y=ny.0.-1..>0.gr|
000018a0  69 64 28 6e 78 2c 6c 6f  6f 70 79 29 3d 31 32 84  |id(nx,loopy)=12.|
000018b0  67 72 69 64 28 6e 78 2c  6c 6f 6f 70 79 29 3d 31  |grid(nx,loopy)=1|
000018c0  37 8c 6c 69 66 74 2b 3d  31 0d 08 48 05 ed 0d 08  |7.lift+=1..H....|
000018d0  52 73 e7 6c 69 66 74 3d  31 80 20 42 3c 3e 31 8c  |Rs.lift=1. B<>1.|
000018e0  74 65 78 74 24 3d 22 49  6e 62 65 74 77 65 65 6e  |text$="Inbetween|
000018f0  20 4c 69 66 74 20 50 61  74 68 22 3a 63 6f 6c 3d  | Lift Path":col=|
00001900  33 3a f2 65 64 6d 65 73  73 61 67 65 3a d1 3d 30  |3:.edmessage:.=0|
00001910  3a f5 3a fd 91 3e 35 30  3a 74 65 78 74 24 3d 22  |:.:..>50:text$="|
00001920  53 65 6c 65 63 74 20 22  2b 73 70 24 3a 63 6f 6c  |Select "+sp$:col|
00001930  3d 34 36 3a f2 65 64 6d  65 73 73 61 67 65 3a 3d  |=46:.edmessage:=|
00001940  b9 0d 08 5c 0a e7 6e 79  3e 30 8c 0d 08 66 88 e7  |...\..ny>0...f..|
00001950  67 72 69 64 28 6e 78 2c  6e 79 2d 31 29 3d 31 32  |grid(nx,ny-1)=12|
00001960  84 67 72 69 64 28 6e 78  2c 6e 79 2d 31 29 3d 31  |.grid(nx,ny-1)=1|
00001970  37 8c 74 65 78 74 24 3d  22 49 6e 62 65 74 77 65  |7.text$="Inbetwe|
00001980  65 6e 20 4c 69 66 74 20  50 61 74 68 22 3a 63 6f  |en Lift Path":co|
00001990  6c 3d 33 3a f2 65 64 6d  65 73 73 61 67 65 3a d1  |l=3:.edmessage:.|
000019a0  3d 30 3a f5 3a fd 91 3e  35 30 3a 74 65 78 74 24  |=0:.:..>50:text$|
000019b0  3d 22 53 65 6c 65 63 74  20 22 2b 73 70 24 3a 63  |="Select "+sp$:c|
000019c0  6f 6c 3d 34 36 3a f2 65  64 6d 65 73 73 61 67 65  |ol=46:.edmessage|
000019d0  3a 3d b9 0d 08 70 05 cd  0d 08 7a 06 3d a3 0d 08  |:=...p....z.=...|
000019e0  84 19 dd f2 65 64 6d 65  73 73 61 67 65 3a fb 63  |....edmessage:.c|
000019f0  6f 6c c8 9c 32 35 35 0d  08 8e 25 f1 8a 34 38 2c  |ol..255...%..48,|
00001a00  32 39 29 3b c4 31 39 2c  bd 28 33 32 29 29 3b 8a  |29);.19,.(32));.|
00001a10  34 38 2c 32 39 29 3b 74  65 78 74 24 0d 08 98 05  |48,29);text$....|
00001a20  e1 0d 08 a2 2c dd f2 6f  70 74 72 28 63 2c 75 2c  |....,..optr(c,u,|
00001a30  63 31 2c 75 31 29 3a e6  32 31 c8 9c 31 30 30 3a  |c1,u1):.21..100:|
00001a40  c8 93 c8 90 63 2c 75 2c  63 31 2c 75 31 0d 08 ac  |....c,u,c1,u1...|
00001a50  18 e6 36 33 c8 9c 31 30  30 3a c8 93 63 2c 75 2c  |..63..100:..c,u,|
00001a60  63 31 2c 75 31 0d 08 b6  05 e1 0d 08 c0 0d dd f2  |c1,u1...........|
00001a70  6f 70 74 69 6f 6e 73 0d  08 ca 29 74 65 78 74 24  |options...)text$|
00001a80  3d 22 4f 70 74 69 6f 6e  73 20 70 61 67 65 22 3a  |="Options page":|
00001a90  63 6f 6c 3d 33 3a f2 65  64 6d 65 73 73 61 67 65  |col=3:.edmessage|
00001aa0  0d 08 d4 1f e6 30 2c 30  c8 9c 30 3a c8 93 c8 90  |.....0,0..0:....|
00001ab0  35 32 2c 33 30 32 2c 31  30 39 34 2c 36 37 34 0d  |52,302,1094,674.|
00001ac0  08 de 0c fb 34 33 c8 9c  32 35 35 0d 08 e8 1d f1  |....43..255.....|
00001ad0  8a 34 2c 32 29 3b 22 4f  70 74 69 6f 6e 73 20 50  |.4,2);"Options P|
00001ae0  61 67 65 20 2e 2e 2e 22  0d 08 f2 27 e3 6c 3d 37  |age ..."...'.l=7|
00001af0  39 37 b8 33 34 39 88 2d  36 34 3a f2 6f 70 74 72  |97.349.-64:.optr|
00001b00  28 35 38 2c 6c 2c 34 30  30 2c 34 34 29 3a ed 0d  |(58,l,400,44):..|
00001b10  08 fc 10 fb 31 32 38 2b  32 31 c8 9c 31 30 30 0d  |....128+21..100.|
00001b20  09 06 9d dc 20 31 31 2c  22 43 6c 65 61 72 20 74  |.... 11,"Clear t|
00001b30  68 69 73 20 6c 65 76 65  6c 22 2c 31 31 2c 22 45  |his level",11,"E|
00001b40  6e 74 65 72 20 73 74 61  74 69 73 74 69 63 73 22  |nter statistics"|
00001b50  2c 31 31 2c 22 4e 6f 2e  20 6f 66 20 42 6c 6f 63  |,11,"No. of Bloc|
00001b60  6b 73 22 2c 32 33 2c 22  44 65 6c 65 74 65 20 6c  |ks",23,"Delete l|
00001b70  65 76 65 6c 73 22 2c 32  33 2c 22 4c 6f 61 64 20  |evels",23,"Load |
00001b80  6c 65 76 65 6c 22 2c 32  33 2c 22 53 61 76 65 20  |level",23,"Save |
00001b90  6c 65 76 65 6c 22 2c 32  33 2c 22 4c 6f 61 64 20  |level",23,"Load |
00001ba0  42 6c 6f 63 6b 73 22 2c  33 2c 22 52 65 74 75 72  |Blocks",3,"Retur|
00001bb0  6e 20 74 6f 20 65 64 69  74 6f 72 22 0d 09 10 09  |n to editor"....|
00001bc0  f7 8d 54 46 49 0d 09 1a  27 e3 79 3d 36 b8 32 30  |..TFI...'.y=6.20|
00001bd0  88 32 3a f3 63 2c 74 24  3a fb 63 c8 9c 32 35 35  |.2:.c,t$:.c..255|
00001be0  3a f1 8a 34 2c 79 29 3b  74 24 3a ed 0d 09 24 1a  |:..4,y);t$:...$.|
00001bf0  e6 30 2c 36 33 3a 86 35  30 30 2c 32 39 34 2c 35  |.0,63:.500,294,5|
00001c00  30 30 2c 39 38 33 0d 09  2e 1a ef 32 38 2c 33 33  |00,983.....28,33|
00001c10  2c 32 31 2c 37 30 2c 32  3a fb 31 32 38 c8 9c 30  |,21,70,2:.128..0|
00001c20  0d 09 38 33 fb 31 35 3a  f1 8a 30 2c 30 29 3b 22  |..83.15:..0,0);"|
00001c30  43 6f 6c 6c 69 73 69 6f  6e 73 20 2d 20 53 63 72  |Collisions - Scr|
00001c40  65 65 6e 20 45 64 69 74  6f 72 20 28 76 31 2e 30  |een Editor (v1.0|
00001c50  35 29 22 0d 09 42 37 fb  33 3a f1 27 22 47 72 61  |5)"..B7.3:.'"Gra|
00001c60  70 68 69 78 3a 20 44 61  6e 20 43 6c 61 72 6b 65  |phix: Dan Clarke|
00001c70  22 27 22 50 72 6f 67 72  61 6d 3a 20 52 69 63 68  |"'"Program: Rich|
00001c80  61 72 64 20 53 68 61 72  70 22 0d 09 4c 54 fb 31  |ard Sharp"..LT.1|
00001c90  34 3a f1 27 22 53 65 6c  65 63 74 20 61 6e 64 20  |4:.'"Select and |
00001ca0  6f 70 74 69 6f 6e 20 66  72 6f 6d 20 74 68 65 20  |option from the |
00001cb0  6d 65 6e 75 20 62 79 22  27 22 63 6c 69 63 6b 69  |menu by"'"clicki|
00001cc0  6e 67 20 6f 76 65 72 20  69 74 20 77 69 74 68 20  |ng over it with |
00001cd0  74 68 65 20 6d 6f 75 73  65 20 2e 2e 2e 22 0d 09  |the mouse ..."..|
00001ce0  56 2b e6 30 2c 36 33 3a  86 35 30 30 2c 37 31 30  |V+.0,63:.500,710|
00001cf0  2c 31 31 35 30 2c 37 31  30 3a ef 32 38 2c 33 33  |,1150,710:.28,33|
00001d00  2c 32 31 2c 37 30 2c 31  30 0d 09 60 3c f5 3a c8  |,21,70,10..`<.:.|
00001d10  97 ee 3a fb 33 31 3a f1  27 22 50 6c 65 61 73 65  |..:.31:.'"Please|
00001d20  20 73 65 6c 65 63 74 20  61 6e 20 6f 70 74 69 6f  | select an optio|
00001d30  6e 20 66 72 6f 6d 20 74  68 65 20 6d 65 6e 75 22  |n from the menu"|
00001d40  27 22 3a 22 3b 0d 09 6a  23 f5 3a f5 3a c8 97 78  |'":";..j#.:.:..x|
00001d50  2c 79 2c 62 3a fd 62 3d  30 3a f5 3a c8 97 78 2c  |,y,b:.b=0:.:..x,|
00001d60  79 2c 62 3a fd 62 3d 34  0d 09 74 12 f5 3a c8 97  |y,b:.b=4..t..:..|
00001d70  78 2c 79 2c 62 3a fd 62  3d 30 0d 09 7e 21 61 3d  |x,y,b:.b=0..~!a=|
00001d80  32 35 35 3a 6e 3d 30 3a  e3 6c 3d 37 39 37 b8 33  |255:n=0:.l=797.3|
00001d90  34 39 88 2d 36 34 3a 6e  2b 3d 31 0d 09 88 21 e7  |49.-64:n+=1...!.|
00001da0  78 3e 35 38 80 20 78 3c  34 35 38 80 20 79 3e 6c  |x>58. x<458. y>l|
00001db0  80 20 79 3c 6c 2b 34 34  8c 61 3d 6e 0d 09 92 29  |. y<l+44.a=n...)|
00001dc0  ed 6c 3a fd 61 3c 3e 32  35 35 3a f7 8d 54 46 49  |.l:.a<>255:..TFI|
00001dd0  3a e3 7a 77 65 3d 31 b8  61 3a f3 63 77 65 2c 74  |:.zwe=1.a:.cwe,t|
00001de0  77 65 24 3a ed 0d 09 9c  0d fb 31 39 3a f1 74 77  |we$:......19:.tw|
00001df0  65 24 0d 09 a6 0c e7 61  3d 31 8c f2 63 6c 0d 09  |e$.....a=1..cl..|
00001e00  b0 0f e7 61 3d 32 8c f2  73 74 61 74 73 0d 09 ba  |...a=2..stats...|
00001e10  13 e7 61 3d 33 8c f2 64  65 73 69 67 6e 61 74 65  |..a=3..designate|
00001e20  0d 09 c4 0c e7 61 3d 34  8c f2 64 6c 0d 09 ce 0c  |.....a=4..dl....|
00001e30  e7 61 3d 35 8c f2 6c 6c  0d 09 d8 0c e7 61 3d 36  |.a=5..ll.....a=6|
00001e40  8c f2 73 6c 0d 09 e2 0c  e7 61 3d 37 8c f2 6c 62  |..sl.....a=7..lb|
00001e50  0d 09 ec 24 fd 61 3d 38  3a e6 30 2c 30 c8 9c 30  |...$.a=8:.0,0..0|
00001e60  3a c8 93 c8 90 35 32 2c  33 30 32 2c 31 30 38 39  |:....52,302,1089|
00001e70  2c 36 37 34 0d 09 f6 10  73 70 24 3d 22 62 6c 6f  |,674....sp$="blo|
00001e80  63 6b 31 22 0d 0a 00 07  ef 32 36 0d 0a 0a 2c e6  |ck1".....26...,.|
00001e90  30 c8 9c 30 3a 86 35 30  30 2c 32 39 34 2c 35 30  |0..0:.500,294,50|
00001ea0  30 2c 39 38 33 3a 86 35  30 30 2c 37 31 30 2c 31  |0,983:.500,710,1|
00001eb0  31 35 33 2c 37 31 30 0d  0a 14 1f e6 36 33 c8 9c  |153,710.....63..|
00001ec0  30 3a c8 92 35 30 30 2c  32 39 34 3a c8 92 31 31  |0:..500,294:..11|
00001ed0  35 30 2c 37 31 30 0d 0a  1e 12 f2 65 64 69 74 6f  |50,710.....edito|
00001ee0  72 64 69 73 67 72 69 64  0d 0a 28 05 e1 0d 0a 32  |rdisgrid..(....2|
00001ef0  08 dd f2 63 6c 0d 0a 3c  23 fb 33 3a f1 27 22 41  |...cl..<#.3:.'"A|
00001f00  72 65 20 79 6f 75 20 73  75 72 65 20 28 59 2f 4e  |re you sure (Y/N|
00001f10  29 20 3f 20 22 3b 3a ee  0d 0a 46 0c e7 a4 79 65  |) ? ";:...F...ye|
00001f20  73 6e 6f 8c 0d 0a 50 31  e3 78 3d 30 b8 32 30 3a  |sno...P1.x=0.20:|
00001f30  e3 79 3d 30 b8 31 32 3a  67 72 69 64 28 78 2c 79  |.y=0.12:grid(x,y|
00001f40  29 3d 30 3a ed 3a ed 3a  66 69 62 6c 3d 30 3a 73  |)=0:.:.:fibl=0:s|
00001f50  74 62 6c 3d 30 0d 0a 5a  0c 70 61 73 73 24 3d 22  |tbl=0..Z.pass$="|
00001f60  22 0d 0a 64 05 cd 0d 0a  6e 07 c8 97 87 0d 0a 78  |"..d....n......x|
00001f70  28 e7 63 6f 6e 66 69 72  6d 3d 31 32 31 8c fb 34  |(.confirm=121..4|
00001f80  35 3a f1 27 22 4c 65 76  65 6c 20 63 6c 65 61 72  |5:.'"Level clear|
00001f90  65 64 22 3a 87 0d 0a 82  09 87 3a fb 33 31 0d 0a  |ed":......:.31..|
00001fa0  8c 05 e1 0d 0a 96 0b dd  a4 79 65 73 6e 6f 0d 0a  |.........yesno..|
00001fb0  a0 2b ff 22 46 58 20 31  35 22 3a ee 3a c8 97 ee  |.+."FX 15":.:...|
00001fc0  3a c8 99 22 4f 53 5f 43  6f 6e 66 69 72 6d 22 b8  |:.."OS_Confirm".|
00001fd0  63 6f 6e 66 69 72 6d 3a  87 0d 0a aa 18 e7 63 6f  |confirm:......co|
00001fe0  6e 66 69 72 6d 3d 31 32  31 8c f1 22 59 22 3a 3d  |nfirm=121.."Y":=|
00001ff0  b9 0d 0a b4 08 f1 22 4e  22 0d 0a be 06 3d a3 0d  |......"N"....=..|
00002000  0a c8 08 dd f2 70 61 0d  0a d2 1f fb 34 35 3a ee  |.....pa.....45:.|
00002010  3a e8 27 22 50 61 73 73  77 6f 72 64 3a 20 22 70  |:.'"Password: "p|
00002020  61 73 73 24 3a 87 0d 0a  dc 59 e7 a9 28 70 61 73  |ass$:....Y..(pas|
00002030  73 24 29 3e 31 30 8c fb  33 3a f1 27 22 43 6f 6e  |s$)>10..3:.'"Con|
00002040  74 61 69 6e 73 20 6d 6f  72 65 20 74 68 61 6e 20  |tains more than |
00002050  31 30 20 6c 65 74 74 65  72 73 2e 22 27 22 50 61  |10 letters."'"Pa|
00002060  73 73 77 6f 72 64 20 4e  4f 54 20 73 65 74 2e 22  |ssword NOT set."|
00002070  3a 70 61 73 73 24 3d 22  22 3a fb 33 31 3a e1 0d  |:pass$="":.31:..|
00002080  0a e6 2e dd f2 72 65 76  3a fb 34 33 3a e8 27 22  |.....rev:.43:.'"|
00002090  4e 75 6d 62 65 72 20 6f  66 20 72 65 76 65 72 73  |Number of revers|
000020a0  65 20 62 6c 6f 63 6b 73  3a 20 22 62 24 0d 0a f0  |e blocks: "b$...|
000020b0  05 e1 0d 0a fa 09 dd f2  65 63 6d 0d 0b 04 30 fb  |........ecm...0.|
000020c0  34 35 3a ee 3a e8 27 22  54 69 6d 65 3a 20 22 65  |45:.:.'"Time: "e|
000020d0  74 69 6d 65 24 3a 87 3a  65 74 69 6d 65 3d bb 28  |time$:.:etime=.(|
000020e0  c0 65 74 69 6d 65 24 2c  33 29 29 0d 0b 0e 16 e7  |.etime$,3)).....|
000020f0  65 74 69 6d 65 3e 33 30  8c 65 74 69 6d 65 3d 33  |etime>30.etime=3|
00002100  30 0d 0b 18 14 e7 65 74  69 6d 65 3c 31 8c 65 74  |0.....etime<1.et|
00002110  69 6d 65 3d 31 0d 0b 22  07 fb 33 31 0d 0b 2c 05  |ime=1.."..31..,.|
00002120  e1 0d 0b 36 0d dd f2 64  69 73 74 65 78 74 0d 0b  |...6...distext..|
00002130  40 07 fb 34 35 0d 0b 4a  1a e7 70 61 73 73 24 3d  |@..45..J..pass$=|
00002140  22 22 8c 70 61 73 73 24  3d 22 4e 6f 6e 65 22 0d  |"".pass$="None".|
00002150  0b 54 4d f1 27 22 50 61  73 73 77 6f 72 64 3a 20  |.TM.'"Password: |
00002160  22 3b 3a c8 99 22 4f 53  5f 50 72 65 74 74 79 50  |";:.."OS_PrettyP|
00002170  72 69 6e 74 22 2c 70 61  73 73 24 3a f1 27 27 22  |rint",pass$:.''"|
00002180  54 69 6d 65 20 20 20 20  3a 20 22 3b 65 74 69 6d  |Time    : ";etim|
00002190  65 3b 22 20 73 65 63 6f  6e 64 73 22 0d 0b 5e 1a  |e;" seconds"..^.|
000021a0  e7 70 61 73 73 24 3d 22  4e 6f 6e 65 22 8c 70 61  |.pass$="None".pa|
000021b0  73 73 24 3d 22 22 0d 0b  68 05 e1 0d 0b 72 08 dd  |ss$=""..h....r..|
000021c0  f2 73 6c 0d 0b 7c 0c f2  64 69 73 74 65 78 74 0d  |.sl..|..distext.|
000021d0  0b 86 1f fb 33 3a f1 27  22 41 72 65 20 79 6f 75  |....3:.'"Are you|
000021e0  20 73 75 72 65 20 28 59  2f 4e 29 3f 22 3b 0d 0b  | sure (Y/N)?";..|
000021f0  90 11 e7 a4 79 65 73 6e  6f 8c f2 73 61 76 65 0d  |....yesno..save.|
00002200  0b 9a 09 fb 33 31 3a e1  0d 0b a4 0a dd f2 73 61  |....31:.......sa|
00002210  76 65 0d 0b ae 06 ea 85  0d 0b b8 48 ee 85 ea 3a  |ve.........H...:|
00002220  f1 27 3a c8 99 22 4f 53  5f 50 72 65 74 74 79 50  |.':.."OS_PrettyP|
00002230  72 69 6e 74 22 2c 22 45  72 72 6f 72 20 73 61 76  |rint","Error sav|
00002240  69 6e 67 20 66 69 6c 65  3a 20 22 2b f6 24 3a f1  |ing file: "+.$:.|
00002250  3a f2 73 61 76 65 65 72  72 6f 72 3a f7 85 3a e1  |:.saveerror:..:.|
00002260  0d 0b c2 2d db 3a fb 31  39 3a f1 22 53 61 76 65  |...-.:.19:."Save|
00002270  20 70 72 6f 63 65 64 75  72 65 20 69 6e 69 74 69  | procedure initi|
00002280  61 6c 69 73 65 64 3a 22  3a 67 6f 3d b9 0d 0b cc  |alised:":go=....|
00002290  24 fb 31 31 3a f1 3a f2  63 61 74 28 22 3c 43 6f  |$.11:.:.cat("<Co|
000022a0  6c 6c 32 24 44 69 72 3e  2e 4c 65 76 65 6c 73 22  |ll2$Dir>.Levels"|
000022b0  29 0d 0b d6 40 ee 3a fb  33 3a f1 27 22 50 6c 65  |)...@.:.3:.'"Ple|
000022c0  61 73 65 20 65 6e 74 65  72 20 6e 61 6d 65 20 6f  |ase enter name o|
000022d0  66 20 6c 65 76 65 6c 20  73 65 74 20 2e 2e 2e 22  |f level set ..."|
000022e0  27 22 3e 22 3b 3a ee 3a  e8 22 22 73 65 74 24 3a  |'">";:.:.""set$:|
000022f0  87 0d 0b e0 10 e7 73 65  74 24 3d 22 22 8c db 3a  |......set$=""..:|
00002300  e1 0d 0b ea 2b 58 3d 8e  28 22 3c 43 6f 6c 6c 32  |....+X=.("<Coll2|
00002310  24 44 69 72 3e 2e 4c 65  76 65 6c 73 2e 22 2b 73  |$Dir>.Levels."+s|
00002320  65 74 24 29 3a 7a 3d 58  3a d9 23 58 0d 0b f4 13  |et$):z=X:.#X....|
00002330  e7 7a 3d 30 8c f2 63 72  65 61 74 65 73 65 74 0d  |.z=0..createset.|
00002340  0b fe 10 e7 7a 3d 30 80  20 67 6f 3d a3 8c e1 0d  |....z=0. go=....|
00002350  0c 08 3d 58 3d 8e 28 22  3c 43 6f 6c 6c 32 24 44  |..=X=.("<Coll2$D|
00002360  69 72 3e 2e 4c 65 76 65  6c 73 2e 22 2b 73 65 74  |ir>.Levels."+set|
00002370  24 2b 22 2e 6c 65 76 65  6c 64 61 74 61 22 29 3a  |$+".leveldata"):|
00002380  e8 23 58 2c 6c 65 76 73  3a d9 23 58 0d 0c 12 3a  |.#X,levs:.#X...:|
00002390  fb 34 35 3a f1 27 22 4c  65 76 65 6c 20 73 65 74  |.45:.'"Level set|
000023a0  20 27 22 3b 73 65 74 24  3b 22 27 20 63 6f 6e 74  | '";set$;"' cont|
000023b0  61 69 6e 73 3a 22 27 6c  65 76 73 3b 22 20 6c 65  |ains:"'levs;" le|
000023c0  76 65 6c 73 2e 22 0d 0c  1c 37 fb 33 3a f1 27 22  |vels."...7.3:.'"|
000023d0  53 61 76 65 20 61 73 20  6c 65 76 65 6c 20 28 31  |Save as level (1|
000023e0  2d 22 3b 6c 65 76 73 2b  31 3b 22 29 3a 22 3b 3a  |-";levs+1;"):";:|
000023f0  ee 3a e8 22 22 73 61 76  65 61 73 3a 87 0d 0c 26  |.:.""saveas:...&|
00002400  1d e7 73 61 76 65 61 73  3c 31 84 73 61 76 65 61  |..saveas<1.savea|
00002410  73 3e 6c 65 76 73 2b 31  8c e1 0d 0c 30 1e e7 73  |s>levs+1....0..s|
00002420  61 76 65 61 73 3d 6c 65  76 73 2b 31 8c 61 64 64  |aveas=levs+1.add|
00002430  3d b9 8b 61 64 64 3d a3  0d 0c 3a 39 58 3d 8e 28  |=..add=...:9X=.(|
00002440  22 3c 43 6f 6c 6c 32 24  44 69 72 3e 2e 4c 65 76  |"<Coll2$Dir>.Lev|
00002450  65 6c 73 2e 22 2b 73 65  74 24 2b 22 2e 22 2b c3  |els."+set$+"."+.|
00002460  28 73 61 76 65 61 73 29  29 3a 7a 3d 58 3a d9 23  |(saveas)):z=X:.#|
00002470  58 0d 0c 44 0a e7 7a 3c  3e 30 8c 0d 0c 4e 3d fb  |X..D..z<>0...N=.|
00002480  34 35 3a f1 27 22 54 68  69 73 20 6c 65 76 65 6c  |45:.'"This level|
00002490  20 61 6c 6c 20 72 65 61  64 79 20 65 78 69 73 74  | all ready exist|
000024a0  73 20 2d 22 27 22 4f 76  65 72 77 72 69 74 65 20  |s -"'"Overwrite |
000024b0  28 59 2f 4e 29 3f 22 3b  0d 0c 58 0c 61 3d a4 79  |(Y/N)?";..X.a=.y|
000024c0  65 73 6e 6f 0d 0c 62 05  cd 0d 0c 6c 0e e7 7a 3c  |esno..b....l..z<|
000024d0  3e 30 80 ac 61 8c e1 0d  0c 76 31 58 3d ae 28 22  |>0..a....v1X=.("|
000024e0  3c 43 6f 6c 6c 32 24 44  69 72 3e 2e 4c 65 76 65  |<Coll2$Dir>.Leve|
000024f0  6c 73 2e 22 2b 73 65 74  24 2b 22 2e 22 2b c3 28  |ls."+set$+"."+.(|
00002500  73 61 76 65 61 73 29 29  0d 0c 80 25 f1 23 58 2c  |saveas))...%.#X,|
00002510  70 61 73 73 24 2c 73 74  62 6c 2c 66 69 62 6c 2c  |pass$,stbl,fibl,|
00002520  65 74 69 6d 65 2c 62 6c  74 79 70 65 24 0d 0c 8a  |etime,bltype$...|
00002530  16 e3 4b 3d 31 b8 34 3a  f1 23 58 2c 6e 6f 28 4b  |..K=1.4:.#X,no(K|
00002540  29 3a ed 0d 0c 94 35 e3  6c 6f 6f 70 78 3d 30 b8  |):....5.loopx=0.|
00002550  32 30 3a e3 6c 6f 6f 70  79 3d 30 b8 31 32 3a f1  |20:.loopy=0.12:.|
00002560  23 58 2c 67 72 69 64 28  6c 6f 6f 70 78 2c 6c 6f  |#X,grid(loopx,lo|
00002570  6f 70 79 29 3a ed 3a ed  0d 0c 9e 07 d9 23 58 0d  |opy):.:......#X.|
00002580  0c a8 46 e7 61 64 64 3d  b9 8c 58 3d ae 28 22 3c  |..F.add=..X=.("<|
00002590  43 6f 6c 6c 32 24 44 69  72 3e 2e 4c 65 76 65 6c  |Coll2$Dir>.Level|
000025a0  73 2e 22 2b 73 65 74 24  2b 22 2e 6c 65 76 65 6c  |s."+set$+".level|
000025b0  64 61 74 61 22 29 3a f1  23 58 2c 6c 65 76 73 2b  |data"):.#X,levs+|
000025c0  31 3a d9 23 58 0d 0c b2  25 fb 34 35 3a f1 27 22  |1:.#X...%.45:.'"|
000025d0  4c 65 76 65 6c 20 73 75  63 63 65 73 73 66 75 6c  |Level successful|
000025e0  6c 79 20 73 61 76 65 64  2e 22 0d 0c bc 06 f7 85  |ly saved."......|
000025f0  0d 0c c6 05 e1 0d 0c d0  14 dd f2 63 72 65 61 74  |...........creat|
00002600  65 73 65 74 3a 67 6f 3d  b9 0d 0c da 77 fb 31 31  |eset:go=....w.11|
00002610  3a f1 27 22 4c 65 76 65  6c 20 73 65 74 20 27 22  |:.'"Level set '"|
00002620  2b 73 65 74 24 2b 22 27  20 64 6f 65 73 20 6e 6f  |+set$+"' does no|
00002630  74 20 65 78 69 73 74 2e  22 3a fb 33 3a f1 27 22  |t exist.":.3:.'"|
00002640  44 6f 20 79 6f 75 20 77  69 73 68 20 74 6f 20 63  |Do you wish to c|
00002650  72 65 61 74 65 20 61 20  6e 65 77 20 6c 65 76 65  |reate a new leve|
00002660  6c 22 27 22 73 65 74 20  75 6e 64 65 72 20 74 68  |l"'"set under th|
00002670  61 74 20 6e 61 6d 65 20  28 59 2f 4e 29 3f 22 3b  |at name (Y/N)?";|
00002680  0d 0c e4 05 ee 0d 0c ee  13 e7 ac a4 79 65 73 6e  |............yesn|
00002690  6f 8c 67 6f 3d a3 3a e1  0d 0c f8 05 87 0d 0d 02  |o.go=.:.........|
000026a0  24 ff 22 43 44 49 52 20  3c 43 6f 6c 6c 32 24 44  |$."CDIR <Coll2$D|
000026b0  69 72 3e 2e 4c 65 76 65  6c 73 2e 22 2b 73 65 74  |ir>.Levels."+set|
000026c0  24 0d 0d 0c 3a 58 3d ae  28 22 3c 43 6f 6c 6c 32  |$...:X=.("<Coll2|
000026d0  24 44 69 72 3e 2e 4c 65  76 65 6c 73 2e 22 2b 73  |$Dir>.Levels."+s|
000026e0  65 74 24 2b 22 2e 6c 65  76 65 6c 64 61 74 61 22  |et$+".leveldata"|
000026f0  29 3a f1 23 58 2c 30 3a  d9 23 58 0d 0d 16 05 e1  |):.#X,0:.#X.....|
00002700  0d 0d 20 08 dd f2 6c 6c  0d 0d 2a 4a ea 85 3a ee  |.. ...ll..*J..:.|
00002710  85 ea 3a f1 27 3a c8 99  22 4f 53 5f 50 72 65 74  |..:.':.."OS_Pret|
00002720  74 79 50 72 69 6e 74 22  2c 22 45 72 72 6f 72 20  |tyPrint","Error |
00002730  6c 6f 61 64 69 6e 67 20  66 69 6c 65 3a 20 22 2b  |loading file: "+|
00002740  f6 24 3a ff 22 43 4c 4f  53 45 22 3a f7 85 3a f1  |.$:."CLOSE":..:.|
00002750  3a e1 0d 0d 34 2d db 3a  fb 31 39 3a f1 22 4c 6f  |:...4-.:.19:."Lo|
00002760  61 64 20 70 72 6f 63 65  64 75 72 65 20 69 6e 69  |ad procedure ini|
00002770  74 69 61 6c 69 73 65 64  2e 22 27 3a fb 34 35 0d  |tialised."':.45.|
00002780  0d 3e 22 fb 31 31 3a f2  63 61 74 28 22 3c 43 6f  |.>".11:.cat("<Co|
00002790  6c 6c 32 24 44 69 72 3e  2e 4c 65 76 65 6c 73 22  |ll2$Dir>.Levels"|
000027a0  29 0d 0d 48 27 fb 31 35  3a ee 3a c8 97 87 3a e8  |)..H'.15:.:...:.|
000027b0  27 22 4c 6f 61 64 20 66  72 6f 6d 20 73 65 74 3a  |'"Load from set:|
000027c0  20 22 73 65 74 24 3a 87  0d 0d 52 0e e7 73 65 74  | "set$:...R..set|
000027d0  24 3d 22 22 8c e1 0d 0d  5c 2b 58 3d 8e 28 22 3c  |$=""....\+X=.("<|
000027e0  43 6f 6c 6c 32 24 44 69  72 3e 2e 4c 65 76 65 6c  |Coll2$Dir>.Level|
000027f0  73 2e 22 2b 73 65 74 24  29 3a 7a 3d 58 3a d9 23  |s."+set$):z=X:.#|
00002800  58 0d 0d 66 24 e7 7a 3d  30 8c fb 33 3a f1 27 22  |X..f$.z=0..3:.'"|
00002810  4e 6f 74 20 66 6f 75 6e  64 22 3a 7a 3d a6 28 31  |Not found":z=.(1|
00002820  30 30 29 3a e1 0d 0d 70  2c db 3a fb 31 31 3a f1  |00):...p,.:.11:.|
00002830  22 4e 6f 2e 20 6f 66 20  6c 65 76 65 6c 73 20 69  |"No. of levels i|
00002840  6e 20 27 22 2b 73 65 74  24 2b 22 27 20 3a 20 22  |n '"+set$+"' : "|
00002850  3b 0d 0d 7a 3d 58 3d 8e  28 22 3c 43 6f 6c 6c 32  |;..z=X=.("<Coll2|
00002860  24 44 69 72 3e 2e 4c 65  76 65 6c 73 2e 22 2b 73  |$Dir>.Levels."+s|
00002870  65 74 24 2b 22 2e 6c 65  76 65 6c 64 61 74 61 22  |et$+".leveldata"|
00002880  29 3a e8 23 58 2c 6c 65  76 73 3a d9 23 58 0d 0d  |):.#X,levs:.#X..|
00002890  84 33 fb 34 32 3a f1 27  22 4c 6f 61 64 20 6c 65  |.3.42:.'"Load le|
000028a0  76 65 6c 20 28 31 2d 22  3b 6c 65 76 73 3b 22 29  |vel (1-";levs;")|
000028b0  20 3a 20 22 3b 3a ee 3a  e8 22 22 6c 6f 61 64 3a  | : ";:.:.""load:|
000028c0  87 0d 0d 8e 20 e7 6c 6f  61 64 3c 31 84 6c 6f 61  |.... .load<1.loa|
000028d0  64 3e 6c 65 76 73 8c f2  69 6e 76 61 6c 69 64 3a  |d>levs..invalid:|
000028e0  e1 0d 0d 98 2f 58 3d 8e  28 22 3c 43 6f 6c 6c 32  |..../X=.("<Coll2|
000028f0  24 44 69 72 3e 2e 4c 65  76 65 6c 73 2e 22 2b 73  |$Dir>.Levels."+s|
00002900  65 74 24 2b 22 2e 22 2b  c3 28 6c 6f 61 64 29 29  |et$+"."+.(load))|
00002910  0d 0d a2 26 e8 23 58 2c  70 61 73 73 24 2c 73 74  |...&.#X,pass$,st|
00002920  62 6c 2c 66 69 62 6c 2c  65 74 69 6d 65 2c 62 6c  |bl,fibl,etime,bl|
00002930  74 79 70 65 31 24 0d 0d  ac 16 e3 4b 3d 31 b8 34  |type1$.....K=1.4|
00002940  3a e8 23 58 2c 6e 6f 28  4b 29 3a ed 0d 0d b6 35  |:.#X,no(K):....5|
00002950  e3 6c 6f 6f 70 78 3d 30  b8 32 30 3a e3 6c 6f 6f  |.loopx=0.20:.loo|
00002960  70 79 3d 30 b8 31 32 3a  e8 23 58 2c 67 72 69 64  |py=0.12:.#X,grid|
00002970  28 6c 6f 6f 70 78 2c 6c  6f 6f 70 79 29 3a ed 3a  |(loopx,loopy):.:|
00002980  ed 0d 0d c0 07 d9 23 58  0d 0d ca 38 e7 62 6c 74  |......#X...8.blt|
00002990  79 70 65 24 3c 3e 62 6c  74 79 70 65 31 24 8c 62  |ype$<>bltype1$.b|
000029a0  6c 74 79 70 65 24 3d 62  6c 74 79 70 65 31 24 3a  |ltype$=bltype1$:|
000029b0  f2 6c 6f 62 6c 28 62 6c  74 79 70 65 24 2c b9 29  |.lobl(bltype$,.)|
000029c0  0d 0d d4 2a fb 34 35 3a  f1 27 22 4c 65 76 65 6c  |...*.45:.'"Level|
000029d0  20 73 75 63 63 65 73 73  66 75 6c 6c 79 20 6c 6f  | successfully lo|
000029e0  61 64 65 64 2e 22 3a c8  97 ee 0d 0d de 06 f7 85  |aded.":.........|
000029f0  0d 0d e8 05 e1 0d 0d f2  1a dd f2 63 68 65 63 6b  |...........check|
00002a00  63 61 74 28 61 24 29 3a  72 34 25 3d 30 3a f5 0d  |cat(a$):r4%=0:..|
00002a10  0d fc 2e c8 99 22 4f 53  5f 47 42 50 42 22 2c 31  |....."OS_GBPB",1|
00002a20  30 2c 61 24 2c 6d 65 6d  25 2c 31 2c 72 34 25 2c  |0,a$,mem%,1,r4%,|
00002a30  33 32 b8 2c 2c 2c 72 33  25 2c 72 34 25 0d 0e 06  |32.,,,r3%,r4%...|
00002a40  09 e7 72 33 25 8c 0d 0e  10 3c e3 6c 6f 6f 70 79  |..r3%....<.loopy|
00002a50  3d 32 30 b8 33 30 3a e7  6d 65 6d 25 3f 6c 6f 6f  |=20.30:.mem%?loo|
00002a60  70 79 3e 33 31 8c 6e 61  6d 65 24 28 74 6f 70 25  |py>31.name$(top%|
00002a70  29 2b 3d bd 28 6d 65 6d  25 3f 6c 6f 6f 70 79 29  |)+=.(mem%?loopy)|
00002a80  3a ed 0d 0e 1a 31 e3 6c  25 3d 31 b8 a9 28 6e 61  |:....1.l%=1..(na|
00002a90  6d 65 24 28 74 6f 70 25  29 29 3a 61 25 3d 97 28  |me$(top%)):a%=.(|
00002aa0  c1 6e 61 6d 65 24 28 74  6f 70 25 29 2c 6c 25 2c  |.name$(top%),l%,|
00002ab0  31 29 29 0d 0e 24 31 e7  61 25 3e 3d 97 22 41 22  |1))..$1.a%>=."A"|
00002ac0  80 20 61 25 3c 3d 97 22  5a 22 8c c1 6e 61 6d 65  |. a%<=."Z"..name|
00002ad0  24 28 74 6f 70 25 29 2c  6c 25 29 3d bd 28 61 25  |$(top%),l%)=.(a%|
00002ae0  2b 33 32 29 0d 0e 2e 2f  ed 6c 25 3a 6c 65 6e 25  |+32).../.l%:len%|
00002af0  2b 3d 6d 65 6d 25 21 38  3a 62 79 74 65 25 28 74  |+=mem%!8:byte%(t|
00002b00  6f 70 25 29 3d 6d 65 6d  25 21 38 3a 74 6f 70 25  |op%)=mem%!8:top%|
00002b10  2b 3d 31 0d 0e 38 0d cd  3a fd 72 34 25 3d 2d 31  |+=1..8..:.r4%=-1|
00002b20  0d 0e 42 05 e1 0d 0e 4c  33 dd f2 63 61 74 28 64  |..B....L3..cat(d|
00002b30  69 72 24 29 3a e3 6e 3d  30 b8 32 35 3a 6e 61 6d  |ir$):.n=0.25:nam|
00002b40  65 24 28 6e 29 3d 22 22  3a ed 3a 74 6f 70 25 3d  |e$(n)="":.:top%=|
00002b50  31 3a 6c 65 6e 25 3d 30  0d 0e 56 2f e3 4b 3d 30  |1:len%=0..V/.K=0|
00002b60  b8 35 30 3a 62 79 74 65  25 28 4b 29 3d 30 3a ed  |.50:byte%(K)=0:.|
00002b70  3a e3 4b 3d 30 b8 33 32  88 34 3a 6d 65 6d 25 21  |:.K=0.32.4:mem%!|
00002b80  28 4b 29 3d 30 3a ed 0d  0e 60 13 f2 63 68 65 63  |(K)=0:...`..chec|
00002b90  6b 63 61 74 28 64 69 72  24 29 0d 0e 6a 3f e3 6e  |kcat(dir$)..j?.n|
00002ba0  3d 31 b8 74 6f 70 25 2d  31 88 32 3a f1 6e 61 6d  |=1.top%-1.2:.nam|
00002bb0  65 24 28 6e 29 3b c4 31  35 2d a9 28 6e 61 6d 65  |e$(n);.15-.(name|
00002bc0  24 28 6e 29 29 2c bd 28  33 32 29 29 3b 6e 61 6d  |$(n)),.(32));nam|
00002bd0  65 24 28 6e 2b 31 29 3a  ed 0d 0e 74 05 e1 0d 0e  |e$(n+1):...t....|
00002be0  7e 3e dc 20 33 31 2c 22  42 69 6f 6c 6f 67 69 63  |~>. 31,"Biologic|
00002bf0  61 6c 22 2c 31 33 2c 22  54 65 63 68 6e 69 63 61  |al",13,"Technica|
00002c00  6c 22 2c 32 34 2c 22 49  6e 64 75 73 74 72 69 61  |l",24,"Industria|
00002c10  6c 22 2c 35 36 2c 22 4d  61 64 21 22 0d 0e 88 08  |l",56,"Mad!"....|
00002c20  dd f2 6c 62 0d 0e 92 1f  fb 31 39 3a db 3a f1 22  |..lb.....19:.:."|
00002c30  4c 6f 61 64 20 42 6c 6f  63 6b 73 3a 22 3a f7 8d  |Load Blocks:":..|
00002c40  44 7e 4e 0d 0e 9c 29 f1  3a e3 4b 3d 31 b8 34 3a  |D~N...).:.K=1.4:|
00002c50  f3 63 6f 6c 2c 74 24 3a  fb 63 6f 6c 3a f1 4b 3b  |.col,t$:.col:.K;|
00002c60  22 2e 20 22 2b 74 24 3a  ed 3a fb 33 0d 0e a6 59  |". "+t$:.:.3...Y|
00002c70  f1 3a c8 99 22 4f 53 5f  50 72 65 74 74 79 50 72  |.:.."OS_PrettyPr|
00002c80  69 6e 74 22 2c 22 50 6c  65 61 73 65 20 70 72 65  |int","Please pre|
00002c90  73 73 20 74 68 65 20 6e  75 6d 62 65 72 20 63 6f  |ss the number co|
00002ca0  72 72 65 73 70 6f 6e 64  69 6e 67 20 74 6f 20 79  |rresponding to y|
00002cb0  6f 75 72 20 63 68 6f 69  63 65 20 2e 2e 2e 22 3a  |our choice ...":|
00002cc0  ee 3a c8 97 87 0d 0e b0  1b f5 3a 63 24 3d be 3a  |.:........:c$=.:|
00002cd0  fd bb 28 63 24 29 3c 35  80 bb 28 63 24 29 3e 30  |..(c$)<5..(c$)>0|
00002ce0  0d 0e ba 28 f7 8d 44 7e  4e 3a e3 4b 3d 31 b8 bb  |...(..D~N:.K=1..|
00002cf0  28 63 24 29 3a f3 63 2c  74 24 3a ed 3a f2 6c 6f  |(c$):.c,t$:.:.lo|
00002d00  62 6c 28 74 24 2c b9 29  0d 0e c4 0b 87 3a c8 97  |bl(t$,.).....:..|
00002d10  ee 3a db 0d 0e ce 05 e1  0d 0e d8 1c dd f2 6c 6f  |.:............lo|
00002d20  62 6c 28 74 24 2c 72 65  64 72 61 77 29 3a 74 61  |bl(t$,redraw):ta|
00002d30  24 3d 74 24 0d 0e e2 09  f7 8d 54 50 44 0d 0e ec  |$=t$......TPD...|
00002d40  0b e3 4b 3d 31 b8 31 33  0d 0e f6 22 f3 73 70 72  |..K=1.13...".spr|
00002d50  69 74 65 24 3a ff 22 53  44 45 4c 45 54 45 20 22  |ite$:."SDELETE "|
00002d60  2b 73 70 72 69 74 65 24  3a ed 0d 0f 00 25 ff 22  |+sprite$:....%."|
00002d70  53 4d 45 52 47 45 20 3c  43 6f 6c 6c 32 24 44 69  |SMERGE <Coll2$Di|
00002d80  72 3e 2e 42 6c 6f 63 6b  73 2e 22 2b 74 61 24 0d  |r>.Blocks."+ta$.|
00002d90  0f 0a 0f 62 6c 74 79 70  65 24 3d 74 61 24 0d 0f  |...bltype$=ta$..|
00002da0  14 28 e3 63 3d 31 b8 33  3a ff 22 53 43 4f 50 59  |.(.c=1.3:."SCOPY|
00002db0  20 43 6f 72 6e 65 72 20  43 6f 72 6e 65 72 22 2b  | Corner Corner"+|
00002dc0  c3 28 63 29 3a ed 0d 0f  1e 5e ff 22 53 66 6c 69  |.(c):....^."Sfli|
00002dd0  70 58 20 43 6f 72 6e 65  72 31 22 3a ff 22 53 66  |pX Corner1":."Sf|
00002de0  6c 69 70 59 20 43 6f 72  6e 65 72 32 22 3a ff 22  |lipY Corner2":."|
00002df0  53 66 6c 69 70 58 20 43  6f 72 6e 65 72 33 22 3a  |SflipX Corner3":|
00002e00  ff 22 53 66 6c 69 70 59  20 43 6f 72 6e 65 72 33  |."SflipY Corner3|
00002e10  22 3a e7 72 65 64 72 61  77 8c f2 64 72 61 77 69  |":.redraw..drawi|
00002e20  63 6f 6e 73 0d 0f 28 05  e1 0d 0f 32 0f dd f2 64  |cons..(....2...d|
00002e30  72 61 77 69 63 6f 6e 73  0d 0f 3c 25 f7 8d 54 50  |rawicons..<%..TP|
00002e40  44 3a e3 72 65 61 64 3d  31 b8 31 37 3a f3 73 70  |D:.read=1.17:.sp|
00002e50  72 69 74 65 24 28 72 65  61 64 29 3a ed 0d 0f 46  |rite$(read):...F|
00002e60  1c 73 70 3d 30 3a e3 78  3d 35 35 b8 39 35 35 88  |.sp=0:.x=55.955.|
00002e70  31 30 30 3a 73 70 2b 3d  31 0d 0f 50 1c f2 70 6c  |100:sp+=1..P..pl|
00002e80  6f 74 28 73 70 72 69 74  65 24 28 73 70 29 2c 78  |ot(sprite$(sp),x|
00002e90  2c 31 35 30 29 0d 0f 5a  05 ed 0d 0f 64 18 e3 78  |,150)..Z....d..x|
00002ea0  3d 31 30 35 b8 36 30 35  88 31 30 30 3a 73 70 2b  |=105.605.100:sp+|
00002eb0  3d 31 0d 0f 6e 1b f2 70  6c 6f 74 28 73 70 72 69  |=1..n..plot(spri|
00002ec0  74 65 24 28 73 70 29 2c  78 2c 35 30 29 0d 0f 78  |te$(sp),x,50)..x|
00002ed0  05 ed 0d 0f 82 05 e1 0d  0f 8c 08 dd f2 64 6c 0d  |.............dl.|
00002ee0  0f 96 44 ea 85 3a ee 85  ea 3a f1 27 3a c8 99 22  |..D..:...:.':.."|
00002ef0  4f 53 5f 50 72 65 74 74  79 50 72 69 6e 74 22 2c  |OS_PrettyPrint",|
00002f00  22 45 72 72 6f 72 20 64  65 6c 65 74 69 6e 67 20  |"Error deleting |
00002f10  6c 65 76 65 6c 73 3a 20  22 2b f6 24 3a f7 85 3a  |levels: "+.$:..:|
00002f20  f1 3a e1 0d 0f a0 3b db  3a fb 31 39 3a f1 22 44  |.:....;.:.19:."D|
00002f30  65 6c 65 74 65 20 6c 65  76 65 6c 73 3a 22 27 3a  |elete levels:"':|
00002f40  fb 31 31 3a f2 63 61 74  28 22 3c 43 6f 6c 6c 32  |.11:.cat("<Coll2|
00002f50  24 44 69 72 3e 2e 4c 65  76 65 6c 73 22 29 0d 0f  |$Dir>.Levels")..|
00002f60  aa 26 fb 33 3a ee 3a c8  97 87 3a e8 27 22 4c 65  |.&.3:.:...:.'"Le|
00002f70  76 65 6c 73 20 74 6f 20  64 65 6c 65 74 65 3a 20  |vels to delete: |
00002f80  22 64 6c 24 0d 0f b4 09  c8 97 ee 3a 87 0d 0f be  |"dl$.......:....|
00002f90  0d e7 64 6c 24 3d 22 22  8c e1 0d 0f c8 2a 58 3d  |..dl$="".....*X=|
00002fa0  8e 28 22 3c 43 6f 6c 6c  32 24 44 69 72 3e 2e 4c  |.("<Coll2$Dir>.L|
00002fb0  65 76 65 6c 73 2e 22 2b  64 6c 24 29 3a 7a 3d 58  |evels."+dl$):z=X|
00002fc0  3a d9 23 58 0d 0f d2 24  e7 7a 3d 30 8c f1 27 22  |:.#X...$.z=0..'"|
00002fd0  4c 65 76 65 6c 20 64 6f  65 73 20 6e 6f 74 20 65  |Level does not e|
00002fe0  78 69 73 74 21 22 3a e1  0d 0f dc 38 58 3d 8e 28  |xist!":....8X=.(|
00002ff0  22 3c 43 6f 6c 6c 32 24  44 69 72 3e 2e 4c 65 76  |"<Coll2$Dir>.Lev|
00003000  65 6c 73 2e 22 2b 64 6c  24 2b 22 2e 4c 65 76 65  |els."+dl$+".Leve|
00003010  6c 44 61 74 61 22 29 3a  e8 23 58 2c 6c 65 76 73  |lData"):.#X,levs|
00003020  0d 0f e6 3c d9 23 58 3a  e3 4b 3d 31 b8 6c 65 76  |...<.#X:.K=1.lev|
00003030  73 3a ff 22 52 45 4d 4f  56 45 20 3c 43 6f 6c 6c  |s:."REMOVE <Coll|
00003040  32 24 44 69 72 3e 2e 4c  65 76 65 6c 73 2e 22 2b  |2$Dir>.Levels."+|
00003050  64 6c 24 2b 22 2e 22 2b  c3 28 4b 29 0d 0f f0 05  |dl$+"."+.(K)....|
00003060  ed 0d 0f fa 32 ff 22 52  45 4d 4f 56 45 20 3c 43  |....2."REMOVE <C|
00003070  6f 6c 6c 32 24 44 69 72  3e 2e 4c 65 76 65 6c 73  |oll2$Dir>.Levels|
00003080  2e 22 2b 64 6c 24 2b 22  2e 4c 65 76 65 6c 64 61  |."+dl$+".Levelda|
00003090  74 61 22 0d 10 04 25 ff  22 52 45 4d 4f 56 45 20  |ta"...%."REMOVE |
000030a0  3c 43 6f 6c 6c 32 24 44  69 72 3e 2e 4c 65 76 65  |<Coll2$Dir>.Leve|
000030b0  6c 73 2e 22 2b 64 6c 24  0d 10 0e 1a db 3a fb 33  |ls."+dl$.....:.3|
000030c0  3a f1 22 4c 65 76 65 6c  20 64 65 6c 65 74 65 64  |:."Level deleted|
000030d0  2e 22 0d 10 18 06 f7 85  0d 10 22 05 e1 0d 10 2c  |."........"....,|
000030e0  52 dc 20 33 31 2c 22 45  6e 74 65 72 20 50 61 73  |R. 31,"Enter Pas|
000030f0  73 77 6f 72 64 22 2c 31  33 2c 22 45 6e 74 65 72  |sword",13,"Enter|
00003100  20 54 69 6d 65 20 4c 69  6d 69 74 22 2c 34 33 2c  | Time Limit",43,|
00003110  22 56 69 65 77 20 74 65  78 74 22 2c 36 30 2c 22  |"View text",60,"|
00003120  52 65 74 75 72 6e 20 74  6f 20 6d 65 6e 75 22 0d  |Return to menu".|
00003130  10 36 2e dd f2 73 74 61  74 73 3a f5 3a f7 8d 54  |.6...stats:.:..T|
00003140  6c 50 3a fb 31 31 3a f1  27 27 22 53 65 74 20 6c  |lP:.11:.''"Set l|
00003150  65 76 65 6c 20 74 65 78  74 3a 22 27 27 0d 10 40  |evel text:"''..@|
00003160  24 e3 4b 3d 31 b8 34 3a  f3 63 6f 6c 2c 74 24 3a  |$.K=1.4:.col,t$:|
00003170  fb 63 6f 6c 3a f1 4b 3b  22 2e 20 22 3b 74 24 3a  |.col:.K;". ";t$:|
00003180  ed 0d 10 4a 54 fb 31 39  3a f1 27 3a c8 99 22 4f  |...JT.19:.':.."O|
00003190  53 5f 50 72 65 74 74 79  50 72 69 6e 74 22 2c 22  |S_PrettyPrint","|
000031a0  50 72 65 73 73 20 74 68  65 20 6e 75 6d 62 65 72  |Press the number|
000031b0  20 63 6f 72 72 65 73 70  6f 6e 64 69 6e 67 20 74  | corresponding t|
000031c0  6f 20 79 6f 75 72 20 63  68 6f 69 63 65 2e 2e 2e  |o your choice...|
000031d0  22 3a c8 97 87 0d 10 54  0c ee 3a 63 24 3d be 3a  |":.....T..:c$=.:|
000031e0  87 0d 10 5e 1a e7 bb 28  63 24 29 3e 34 84 bb 28  |...^...(c$)>4..(|
000031f0  63 24 29 3c 31 8c e5 8d  44 54 50 0d 10 68 05 f1  |c$)<1...DTP..h..|
00003200  0d 10 72 16 e7 63 24 3d  22 31 22 8c f2 70 61 3a  |..r..c$="1"..pa:|
00003210  63 24 3d 22 30 22 0d 10  7c 17 e7 63 24 3d 22 32  |c$="0"..|..c$="2|
00003220  22 8c f2 65 63 6d 3a 63  24 3d 22 30 22 0d 10 86  |"..ecm:c$="0"...|
00003230  19 e7 63 24 3d 22 33 22  8c f2 64 69 73 74 65 3a  |..c$="3"..diste:|
00003240  63 24 3d 22 30 22 0d 10  90 0d fd 63 24 3d 22 34  |c$="0".....c$="4|
00003250  22 3a db 0d 10 9a 05 e1  0d 10 a4 0f dd f2 64 65  |":............de|
00003260  73 69 67 6e 61 74 65 0d  10 ae 25 f5 3a fb 31 39  |signate...%.:.19|
00003270  3a f1 22 53 65 74 20 4e  6f 2e 20 6f 66 20 42 6c  |:."Set No. of Bl|
00003280  6f 63 6b 73 3a 20 22 27  3a fb 31 31 0d 10 b8 34  |ocks: "':.11...4|
00003290  fb 31 31 3a e3 4b 3d 31  b8 33 3a f1 3b 4b 3b 22  |.11:.K=1.3:.;K;"|
000032a0  2e 20 22 3b 62 6c 24 28  4b 29 3a ed 3a fb 31 34  |. ";bl$(K):.:.14|
000032b0  3a f1 3b 4b 3b 22 2e 20  22 3b 62 6c 24 28 34 29  |:.;K;". ";bl$(4)|
000032c0  0d 10 c2 89 fb 33 3a f1  22 35 2e 20 44 69 73 70  |.....3:."5. Disp|
000032d0  6c 61 79 20 6e 6f 2e 20  6f 66 20 62 6c 6f 63 6b  |lay no. of block|
000032e0  73 22 27 22 36 2e 20 52  65 74 75 72 6e 20 74 6f  |s"'"6. Return to|
000032f0  20 6d 65 6e 75 22 3a fb  31 35 3a f1 27 3a c8 99  | menu":.15:.':..|
00003300  22 4f 53 5f 50 72 65 74  74 79 50 72 69 6e 74 22  |"OS_PrettyPrint"|
00003310  2c 22 50 72 65 73 73 20  74 68 65 20 6e 75 6d 62  |,"Press the numb|
00003320  65 72 20 63 6f 72 72 65  73 70 6f 6e 64 69 6e 67  |er corresponding|
00003330  20 74 6f 20 79 6f 75 72  20 63 68 6f 69 63 65 2e  | to your choice.|
00003340  2e 2e 22 3a ee 3a c8 97  87 0d 10 cc 08 63 24 3d  |..":.:.......c$=|
00003350  be 0d 10 d6 1a e7 bb 28  63 24 29 3e 36 84 bb 28  |.......(c$)>6..(|
00003360  63 24 29 3c 31 8c e5 8d  64 4c 50 0d 10 e0 25 e7  |c$)<1...dLP...%.|
00003370  bb 28 63 24 29 3e 30 80  bb 28 63 24 29 3c 35 8c  |.(c$)>0..(c$)<5.|
00003380  f2 65 6e 74 62 6c 6f 63  6b 28 bb 28 63 24 29 29  |.entblock(.(c$))|
00003390  0d 10 ea 15 e7 63 24 3d  22 35 22 8c f2 64 69 73  |.....c$="5"..dis|
000033a0  73 74 61 74 73 0d 10 f4  13 fd 63 24 3d 22 36 22  |stats.....c$="6"|
000033b0  3a c8 97 ee 3a 87 3a db  0d 10 fe 05 e1 0d 11 08  |:...:.:.........|
000033c0  44 dd f2 65 6e 74 62 6c  6f 63 6b 28 62 29 3a fb  |D..entblock(b):.|
000033d0  34 33 3a f1 27 22 45 6e  74 65 72 20 6e 75 6d 62  |43:.'"Enter numb|
000033e0  65 72 20 6f 66 20 22 2b  62 6c 24 28 62 29 2b 22  |er of "+bl$(b)+"|
000033f0  3a 20 22 3b 3a ee 3a e8  22 22 6e 6f 28 62 29 3a  |: ";:.:.""no(b):|
00003400  87 0d 11 12 16 e7 6e 6f  28 62 29 3e 39 39 8c 6e  |......no(b)>99.n|
00003410  6f 28 62 29 3d 39 39 0d  11 1c 14 e7 6e 6f 28 62  |o(b)=99.....no(b|
00003420  29 3c 30 8c 6e 6f 28 62  29 3d 30 0d 11 26 05 e1  |)<0.no(b)=0..&..|
00003430  0d 11 30 62 dd f2 64 69  73 73 74 61 74 73 3a db  |..0b..disstats:.|
00003440  3a fb 31 39 3a f1 22 4e  6f 2e 20 6f 66 20 42 6c  |:.19:."No. of Bl|
00003450  6f 63 6b 73 3a 22 27 3a  fb 31 31 3a e3 4b 3d 31  |ocks:"':.11:.K=1|
00003460  b8 33 3a f1 62 6c 24 28  4b 29 3b 22 3a 20 22 3b  |.3:.bl$(K);": ";|
00003470  6e 6f 28 4b 29 3a ed 3a  fb 31 34 3a f1 62 6c 24  |no(K):.:.14:.bl$|
00003480  28 34 29 3b 22 3a 20 22  3b 6e 6f 28 34 29 3a fb  |(4);": ";no(4):.|
00003490  34 33 0d 11 3a 42 f1 3a  c8 99 22 4f 53 5f 50 72  |43..:B.:.."OS_Pr|
000034a0  65 74 74 79 50 72 69 6e  74 22 2c 22 50 72 65 73  |ettyPrint","Pres|
000034b0  73 20 61 6e 79 20 6b 65  79 20 74 6f 20 63 6f 6e  |s any key to con|
000034c0  74 69 6e 75 65 2e 2e 2e  22 3a ee 3a 63 24 3d be  |tinue...":.:c$=.|
000034d0  3a f1 3a 87 0d 11 44 05  e1 0d 11 4e 32 dd f2 64  |:.:...D....N2..d|
000034e0  69 73 74 65 3a db 3a fb  31 31 3a f1 22 54 65 78  |iste:.:.11:."Tex|
000034f0  74 20 66 6f 72 20 74 68  69 73 20 6c 65 76 65 6c  |t for this level|
00003500  3a 22 3a f2 64 69 73 74  65 78 74 0d 11 58 47 fb  |:":.distext..XG.|
00003510  31 39 3a f1 27 3a c8 99  22 4f 53 5f 50 72 65 74  |19:.':.."OS_Pret|
00003520  74 79 50 72 69 6e 74 22  2c 22 50 72 65 73 73 20  |tyPrint","Press |
00003530  61 6e 79 20 6b 65 79 20  74 6f 20 63 6f 6e 74 69  |any key to conti|
00003540  6e 75 65 2e 2e 2e 22 3a  ee 3a 63 24 3d be 3a f1  |nue...":.:c$=.:.|
00003550  3a 87 0d 11 62 05 e1 0d  11 6c 0e dd f2 70 6c 61  |:...b....l...pla|
00003560  79 67 61 6d 65 0d 11 76  1a db 3a 87 3a f2 70 6c  |ygame..v..:.:.pl|
00003570  6f 74 28 22 70 61 6e 65  6c 22 2c 30 2c 30 29 0d  |ot("panel",0,0).|
00003580  11 80 10 e7 67 6f 74 61  72 72 6f 77 3d a3 8c 0d  |....gotarrow=...|
00003590  11 8a 22 ec 37 38 2c 31  33 34 3a ec 31 35 30 2c  |..".78,134:.150,|
000035a0  32 31 38 3a ff 22 53 47  45 54 20 61 72 72 6f 77  |218:."SGET arrow|
000035b0  22 0d 11 94 1c e6 30 c8  9c 31 39 32 3a c8 93 c8  |".....0..192:...|
000035c0  90 37 35 2c 31 33 34 2c  37 36 2c 38 34 0d 11 9e  |.75,134,76,84...|
000035d0  0e 67 6f 74 61 72 72 6f  77 3d b9 0d 11 a8 05 cd  |.gotarrow=......|
000035e0  0d 11 b2 19 f2 70 6c 6f  74 28 22 61 72 72 6f 77  |.....plot("arrow|
000035f0  22 2c 37 35 2c 31 33 34  29 0d 11 bc 0c f2 67 70  |",75,134).....gp|
00003600  6c 61 79 3a e1 0d 11 c6  11 dd f2 67 64 72 61 77  |lay:.......gdraw|
00003610  73 63 72 65 65 6e 0d 11  d0 26 e7 66 69 72 73 74  |screen...&.first|
00003620  3d a3 8c ff 22 50 6c 61  79 50 6f 73 20 31 30 22  |=..."PlayPos 10"|
00003630  3a d1 3d 30 8b 66 69 72  73 74 3d a3 0d 11 da 0d  |:.=0.first=.....|
00003640  e6 30 2c 32 c8 9c 31 35  30 0d 11 e4 1b e3 6c 6f  |.0,2..150.....lo|
00003650  6f 70 78 3d 30 b8 32 30  3a e3 6c 6f 6f 70 79 3d  |opx=0.20:.loopy=|
00003660  30 b8 31 32 0d 11 ee 18  67 70 3d 67 72 69 64 28  |0.12....gp=grid(|
00003670  6c 6f 6f 70 78 2c 6c 6f  6f 70 79 29 0d 11 f8 2b  |loopx,loopy)...+|
00003680  e7 67 70 3c 3e 30 80 20  67 70 3c 3e 31 37 80 20  |.gp<>0. gp<>17. |
00003690  67 70 3c 3e 31 38 80 20  67 70 3c 3e 31 35 80 20  |gp<>18. gp<>15. |
000036a0  67 70 3c 3e 31 36 8c 0d  12 02 42 f2 70 6c 6f 74  |gp<>16....B.plot|
000036b0  28 73 70 72 69 74 65 24  28 67 72 69 64 28 6c 6f  |(sprite$(grid(lo|
000036c0  6f 70 78 2c 6c 6f 6f 70  79 29 29 2c 28 6c 6f 6f  |opx,loopy)),(loo|
000036d0  70 78 2a 35 32 29 2b 31  38 2c 28 6c 6f 6f 70 79  |px*52)+18,(loopy|
000036e0  2a 35 32 29 2b 32 39 30  29 0d 12 0c 05 cd 0d 12  |*52)+290).......|
000036f0  16 07 ed 3a ed 0d 12 20  05 e1 0d 12 2a 35 dd f2  |...:... ....*5..|
00003700  67 70 6c 6f 74 28 73 24  2c 78 2c 79 29 3a c8 99  |gplot(s$,x,y):..|
00003710  26 32 45 2c 33 34 2c 2c  73 24 2c 28 78 2a 35 32  |&2E,34,,s$,(x*52|
00003720  29 2b 31 38 2c 28 79 2a  35 32 29 2b 32 39 30 0d  |)+18,(y*52)+290.|
00003730  12 34 05 e1 0d 12 3e 0b  dd f2 67 70 6c 61 79 0d  |.4....>...gplay.|
00003740  12 48 37 45 6e 64 3d a3  3a 4c 65 76 65 6c 3d a3  |.H7End=.:Level=.|
00003750  3a 4c 69 76 65 73 3d 33  3a 78 6c 3d 30 3a 79 6c  |:Lives=3:xl=0:yl|
00003760  3d 30 3a 6f 6e 6c 69 66  74 3d a3 3a 61 72 72 6f  |=0:onlift=.:arro|
00003770  77 70 6f 73 3d 31 0d 12  52 13 e7 64 65 6d 6f 3d  |wpos=1..R..demo=|
00003780  b9 8c 4c 69 76 65 73 3d  31 0d 12 5c 1a f2 70 72  |..Lives=1..\..pr|
00003790  69 6e 74 6c 69 76 65 73  3a f2 67 65 74 6e 75 6d  |intlives:.getnum|
000037a0  62 65 72 0d 12 66 6e f5  3a d1 3d 30 3a e6 30 2c  |ber..fn.:.=0:.0,|
000037b0  30 c8 9c 30 3a c8 93 c8  90 30 2c 32 37 34 2c 31  |0..0:....0,274,1|
000037c0  31 32 35 2c 37 30 39 3a  e6 30 2c 36 33 c8 9c 32  |125,709:.0,63..2|
000037d0  35 35 3a c8 93 30 2c 32  37 34 2c 31 31 32 35 2c  |55:..0,274,1125,|
000037e0  37 30 39 3a d1 3d 30 3a  f2 6c 6f 61 64 6e 65 78  |709:.=0:.loadnex|
000037f0  74 3a f2 63 6f 70 79 67  72 69 64 3a f2 67 64 72  |t:.copygrid:.gdr|
00003800  61 77 73 63 72 65 65 6e  3a 64 69 3d 72 69 67 68  |awscreen:di=righ|
00003810  74 0d 12 70 1c f2 66 69  6e 64 66 69 6e 69 73 68  |t..p..findfinish|
00003820  3a c8 97 ee 3a e7 64 65  6d 6f 3d a3 8c 0d 12 7a  |:...:.demo=....z|
00003830  0e f2 75 73 65 72 61 6c  74 65 72 0d 12 84 05 cc  |..useralter.....|
00003840  0d 12 8e 8c 4c 69 76 65  73 3d 31 3a f2 67 65 74  |....Lives=1:.get|
00003850  72 65 61 64 79 3a fb 31  34 39 c8 9c 31 32 38 3a  |ready:.149..128:|
00003860  fb 33 c8 9c 32 35 35 3a  f1 8a 35 31 2c 32 38 29  |.3..255:..51,28)|
00003870  3b c4 32 30 2c 22 20 22  29 3b 8a 35 31 2c 32 38  |;.20," ");.51,28|
00003880  29 3b 22 2a 2a 2a 20 20  44 45 4d 4f 20 4d 4f 44  |);"***  DEMO MOD|
00003890  45 20 20 2a 2a 2a 22 3a  fb 30 c8 9c 30 3a f1 8a  |E  ***":.0..0:..|
000038a0  35 31 2c 33 30 29 3b c4  32 30 2c 22 20 22 29 3b  |51,30);.20," ");|
000038b0  8a 35 31 2c 33 30 29 3b  22 50 72 65 73 73 20 27  |.51,30);"Press '|
000038c0  53 27 20 66 6f 72 20 6d  65 6e 75 22 0d 12 98 05  |S' for menu"....|
000038d0  cd 0d 12 a2 0d f2 69 6e  69 74 62 61 6c 6c 0d 12  |......initball..|
000038e0  ac 27 62 6f 75 6e 63 65  3d a3 3a 6c 69 66 74 3d  |.'bounce=.:lift=|
000038f0  a3 3a 63 72 75 6d 62 6c  65 3d a3 3a 63 72 75 73  |.:crumble=.:crus|
00003900  68 65 72 3d a3 0d 12 b6  0a f2 63 68 65 63 6b 0d  |her=......check.|
00003910  12 c0 22 e7 4c 65 76 65  6c 80 20 64 65 6d 6f 8c  |..".Level. demo.|
00003920  f2 6c 6f 73 74 6c 69 66  65 3a 4c 65 76 65 6c 3d  |.lostlife:Level=|
00003930  a3 0d 12 ca 32 e7 4c 65  76 65 6c 8c f2 6c 65 76  |....2.Level..lev|
00003940  63 6f 6d 70 6c 65 74 65  3a 4c 65 76 65 6c 3d a3  |complete:Level=.|
00003950  8b 4c 69 76 65 73 2d 3d  31 3a f2 6c 6f 73 74 6c  |.Lives-=1:.lostl|
00003960  69 66 65 0d 12 d4 19 fd  4c 69 76 65 73 3d 30 84  |ife.....Lives=0.|
00003970  4c 65 76 6e 6f 3e 64 69  73 6b 6e 6f 0d 12 de 1b  |Levno>diskno....|
00003980  e7 4c 65 76 6e 6f 3e 64  69 73 6b 6e 6f 8c f2 66  |.Levno>diskno..f|
00003990  69 6e 69 73 68 65 64 0d  12 e8 6a ff 22 50 6c 61  |inished...j."Pla|
000039a0  79 70 6f 73 20 31 31 22  3a d1 3d 30 3a f5 3a f2  |ypos 11":.=0:.:.|
000039b0  70 6c 61 79 73 61 6d 70  6c 65 28 22 42 69 6e 67  |playsample("Bing|
000039c0  22 2c 32 35 36 29 3a c8  96 3a c8 96 3a c8 96 3a  |",256):..:..:..:|
000039d0  c8 96 3a f2 70 6c 61 79  73 61 6d 70 6c 65 28 22  |..:.playsample("|
000039e0  42 69 6e 67 22 2c 34 37  30 30 29 3a c8 96 3a c8  |Bing",4700):..:.|
000039f0  96 3a c8 96 3a c8 96 3a  c8 96 3a fd 91 3e 34 31  |.:..:..:..:..>41|
00003a00  37 0d 12 f2 10 ff 22 50  6c 61 79 50 6f 73 20 30  |7....."PlayPos 0|
00003a10  22 0d 12 fc 05 e1 0d 13  06 12 dd f2 69 6e 69 74  |"...........init|
00003a20  62 61 6c 6c 3a c8 97 87  0d 13 10 0c f5 3a fd 91  |ball:........:..|
00003a30  3e 32 30 35 0d 13 1a 38  e3 6c 3d 31 b8 33 3a f2  |>205...8.l=1.3:.|
00003a40  67 70 6c 6f 74 28 22 42  61 6c 6c 22 2c 73 78 2c  |gplot("Ball",sx,|
00003a50  73 79 29 3a f2 70 6c 61  79 73 61 6d 70 6c 65 28  |sy):.playsample(|
00003a60  22 42 69 6e 67 22 2c 31  30 30 30 29 0d 13 24 46  |"Bing",1000)..$F|
00003a70  d1 3d 30 3a f5 3a fd 91  3e 32 30 3a e6 30 2c 30  |.=0:.:..>20:.0,0|
00003a80  c8 9c 30 3a c8 93 c8 90  28 73 78 2a 35 32 29 2b  |..0:....(sx*52)+|
00003a90  31 38 2c 28 73 79 2a 35  32 29 2b 32 39 30 2c 35  |18,(sy*52)+290,5|
00003aa0  30 2c 34 36 3a d1 3d 30  3a f5 3a fd 91 3e 32 30  |0,46:.=0:.:..>20|
00003ab0  3a ed 0d 13 2e 3d f2 67  70 6c 6f 74 28 22 42 61  |:....=.gplot("Ba|
00003ac0  6c 6c 22 2c 73 78 2c 73  79 29 3a 6e 78 3d 73 78  |ll",sx,sy):nx=sx|
00003ad0  3a 6e 79 3d 73 79 3a f2  70 6c 61 79 73 61 6d 70  |:ny=sy:.playsamp|
00003ae0  6c 65 28 22 42 69 6e 67  22 2c 32 30 30 30 29 0d  |le("Bing",2000).|
00003af0  13 38 05 e1 0d 13 42 0b  dd f2 63 68 65 63 6b 0d  |.8....B...check.|
00003b00  13 4c 28 64 69 65 3d a3  3a 6d 61 69 6e 64 3d a3  |.L(die=.:maind=.|
00003b10  3a 4c 65 76 65 6c 3d a3  3a 73 75 69 3d a3 3a f5  |:Level=.:sui=.:.|
00003b20  3a 6f 6c 64 3d 64 69 0d  13 56 21 62 73 3d 67 67  |:old=di..V!bs=gg|
00003b30  72 69 64 28 6e 78 2c 6e  79 2d 31 29 3a e7 a6 2d  |rid(nx,ny-1):..-|
00003b40  38 32 8c 64 69 65 3d b9  0d 13 60 33 e7 62 73 3d  |82.die=...`3.bs=|
00003b50  63 72 75 8c f2 70 6c 61  79 73 61 6d 70 6c 65 28  |cru..playsample(|
00003b60  22 44 72 6f 70 22 2c 35  30 30 30 29 3a f2 63 72  |"Drop",5000):.cr|
00003b70  75 6d 62 6c 65 3a e5 8d  54 5e 54 0d 13 6a 67 e7  |umble:..T^T..jg.|
00003b80  62 73 3e 31 34 8c 64 69  3d 64 6f 77 6e 3a f2 63  |bs>14.di=down:.c|
00003b90  61 6c 63 64 6f 77 6e 3a  f2 70 6c 61 79 73 61 6d  |alcdown:.playsam|
00003ba0  70 6c 65 28 22 44 72 6f  70 22 2c 31 30 30 30 29  |ple("Drop",1000)|
00003bb0  3a f2 61 6e 69 64 6f 77  6e 3a 64 69 3d 6f 6c 64  |:.anidown:di=old|
00003bc0  3a f2 70 6c 61 79 73 61  6d 70 6c 65 28 22 43 6f  |:.playsample("Co|
00003bd0  6c 6c 65 63 74 22 2c 31  30 30 30 29 3a e5 8d 54  |llect",1000):..T|
00003be0  5e 54 0d 13 74 66 e7 62  73 3d 30 8c 64 69 3d 64  |^T..tf.bs=0.di=d|
00003bf0  6f 77 6e 3a f2 63 61 6c  63 64 6f 77 6e 3a f2 70  |own:.calcdown:.p|
00003c00  6c 61 79 73 61 6d 70 6c  65 28 22 44 72 6f 70 22  |laysample("Drop"|
00003c10  2c 31 30 30 30 29 3a f2  61 6e 69 64 6f 77 6e 3a  |,1000):.anidown:|
00003c20  64 69 3d 6f 6c 64 3a f2  70 6c 61 79 73 61 6d 70  |di=old:.playsamp|
00003c30  6c 65 28 22 43 6f 6c 6c  65 63 74 22 2c 31 30 30  |le("Collect",100|
00003c40  30 29 3a e5 8d 54 5e 54  0d 13 7e 43 e7 6e 78 3d  |0):..T^T..~C.nx=|
00003c50  30 80 20 64 69 3d 6c 65  66 74 80 20 62 73 3c 3e  |0. di=left. bs<>|
00003c60  72 65 76 8c 64 69 3d 72  69 67 68 74 3a f2 70 6c  |rev.di=right:.pl|
00003c70  61 79 73 61 6d 70 6c 65  28 22 42 69 6e 67 22 2c  |aysample("Bing",|
00003c80  31 30 30 30 29 3a e5 8d  54 5e 54 0d 13 88 44 e7  |1000):..T^T...D.|
00003c90  6e 78 3d 32 30 80 20 64  69 3d 72 69 67 68 74 80  |nx=20. di=right.|
00003ca0  20 62 73 3c 3e 72 65 76  8c 64 69 3d 6c 65 66 74  | bs<>rev.di=left|
00003cb0  3a f2 70 6c 61 79 73 61  6d 70 6c 65 28 22 42 69  |:.playsample("Bi|
00003cc0  6e 67 22 2c 34 30 30 30  29 3a e5 8d 54 5e 54 0d  |ng",4000):..T^T.|
00003cd0  13 92 35 e7 62 73 3d 72  65 76 8c 64 69 3d 33 2d  |..5.bs=rev.di=3-|
00003ce0  64 69 3a 6f 6e 6c 69 66  74 3d b9 3a f2 70 6c 61  |di:onlift=.:.pla|
00003cf0  79 73 61 6d 70 6c 65 28  22 42 69 6e 67 22 2c 33  |ysample("Bing",3|
00003d00  30 30 30 29 0d 13 9c 1e  e7 62 73 3c 3e 6c 69 66  |000).....bs<>lif|
00003d10  84 62 73 3d 6c 69 66 80  20 6f 6e 6c 69 66 74 3d  |.bs=lif. onlift=|
00003d20  b9 8c 0d 13 a6 64 e7 64  69 3d 72 69 67 68 74 80  |.....d.di=right.|
00003d30  20 67 67 72 69 64 28 6e  78 2b 31 2c 6e 79 29 3c  | ggrid(nx+1,ny)<|
00003d40  3e 30 80 20 62 73 3c 3e  72 65 76 80 20 67 67 72  |>0. bs<>rev. ggr|
00003d50  69 64 28 6e 78 2b 31 2c  6e 79 29 3c 3e 31 37 8c  |id(nx+1,ny)<>17.|
00003d60  64 69 3d 33 2d 64 69 3a  f2 70 6c 61 79 73 61 6d  |di=3-di:.playsam|
00003d70  70 6c 65 28 22 42 69 6e  67 22 2c 34 30 30 30 29  |ple("Bing",4000)|
00003d80  3a e5 8d 54 5e 54 0d 13  b0 10 69 74 3d a3 3a e7  |:..T^T....it=.:.|
00003d90  6e 78 3c 3e 30 8c 0d 13  ba 77 e7 64 69 3d 6c 65  |nx<>0....w.di=le|
00003da0  66 74 80 20 67 67 72 69  64 28 6e 78 2d 31 2c 6e  |ft. ggrid(nx-1,n|
00003db0  79 29 3c 3e 30 80 20 62  73 3c 3e 72 65 76 80 20  |y)<>0. bs<>rev. |
00003dc0  67 67 72 69 64 28 6e 78  2d 31 2c 6e 79 29 3c 3e  |ggrid(nx-1,ny)<>|
00003dd0  31 37 80 20 67 67 72 69  64 28 6e 78 2d 31 2c 6e  |17. ggrid(nx-1,n|
00003de0  79 29 3c 3e 31 36 8c 64  69 3d 33 2d 64 69 3a f2  |y)<>16.di=3-di:.|
00003df0  70 6c 61 79 73 61 6d 70  6c 65 28 22 42 69 6e 67  |playsample("Bing|
00003e00  22 2c 33 30 30 30 29 3a  e5 8d 54 5e 54 0d 13 c4  |",3000):..T^T...|
00003e10  05 cd 0d 13 ce 05 cd 0d  13 d8 32 e7 62 73 3d 6c  |..........2.bs=l|
00003e20  69 66 8c f2 70 6c 61 79  73 61 6d 70 6c 65 28 22  |if..playsample("|
00003e30  44 72 6f 70 22 2c 31 30  30 30 30 29 3a f2 67 6c  |Drop",10000):.gl|
00003e40  69 66 74 3a e5 8d 54 5e  54 0d 13 e2 14 e7 69 74  |ift:..T^T.....it|
00003e50  3d b9 8c 69 74 3d a3 3a  e5 8d 54 5e 54 0d 13 ec  |=..it=.:..T^T...|
00003e60  1a e7 6d 61 69 6e 64 3d  b9 8c 6d 61 69 6e 64 3d  |..maind=..maind=|
00003e70  a3 3a e5 8d 54 5e 54 0d  13 f6 35 e7 62 73 3d 62  |.:..T^T...5.bs=b|
00003e80  6f 75 8c f2 70 6c 61 79  73 61 6d 70 6c 65 28 22  |ou..playsample("|
00003e90  43 6f 6c 6c 65 63 74 22  2c 34 30 30 30 29 3a f2  |Collect",4000):.|
00003ea0  62 6f 75 6e 63 65 3a e5  8d 54 5e 54 0d 14 00 45  |bounce:..T^T...E|
00003eb0  e7 67 67 72 69 64 28 6e  78 2c 6e 79 2b 31 29 3d  |.ggrid(nx,ny+1)=|
00003ec0  31 34 8c f2 70 6c 61 79  73 61 6d 70 6c 65 28 22  |14..playsample("|
00003ed0  43 6f 6c 6c 65 63 74 22  2c 36 30 30 30 29 3a f2  |Collect",6000):.|
00003ee0  63 72 75 73 68 3a 64 69  65 3d b9 3a e5 8d 54 5e  |crush:die=.:..T^|
00003ef0  54 0d 14 0a 28 e7 64 69  3d 72 69 67 68 74 8c f2  |T...(.di=right..|
00003f00  63 61 6c 63 72 69 67 68  74 3a f2 61 6e 69 72 69  |calcright:.aniri|
00003f10  67 68 74 3a e5 8d 54 5e  54 0d 14 14 25 e7 64 69  |ght:..T^T...%.di|
00003f20  3d 6c 65 66 74 8c f2 63  61 6c 63 6c 65 66 74 3a  |=left..calcleft:|
00003f30  f2 61 6e 69 6c 65 66 74  3a e5 8d 54 5e 54 0d 14  |.anileft:..T^T..|
00003f40  1e 17 fd 64 69 65 84 67  72 69 64 28 6e 78 2c 6e  |...die.grid(nx,n|
00003f50  79 29 3d 31 36 0d 14 28  1b e7 67 72 69 64 28 6e  |y)=16..(..grid(n|
00003f60  78 2c 6e 79 29 3d 31 36  8c 4c 65 76 65 6c 3d b9  |x,ny)=16.Level=.|
00003f70  0d 14 32 05 e1 0d 14 3c  0f dd f2 63 61 6c 63 72  |..2....<...calcr|
00003f80  69 67 68 74 0d 14 46 13  78 6c 3d 6e 78 2d 31 3a  |ight..F.xl=nx-1:|
00003f90  f5 3a 78 6c 2b 3d 31 0d  14 50 43 e7 67 67 72 69  |.:xl+=1..PC.ggri|
00003fa0  64 28 78 6c 2b 31 2c 6e  79 29 3d 30 84 67 67 72  |d(xl+1,ny)=0.ggr|
00003fb0  69 64 28 78 6c 2b 31 2c  6e 79 29 3d 31 37 84 67  |id(xl+1,ny)=17.g|
00003fc0  67 72 69 64 28 78 6c 2b  31 2c 6e 79 29 3d 31 36  |grid(xl+1,ny)=16|
00003fd0  8c 72 69 3d a3 8b 72 69  3d b9 0d 14 5a 1e e7 67  |.ri=..ri=...Z..g|
00003fe0  67 72 69 64 28 78 6c 2c  6e 79 29 3d 31 36 8c 63  |grid(xl,ny)=16.c|
00003ff0  6f 3d b9 8b 63 6f 3d a3  0d 14 64 3b e7 67 67 72  |o=..co=...d;.ggr|
00004000  69 64 28 78 6c 2c 6e 79  2d 31 29 3d 30 84 67 67  |id(xl,ny-1)=0.gg|
00004010  72 69 64 28 78 6c 2c 6e  79 2d 31 29 3d 31 37 80  |rid(xl,ny-1)=17.|
00004020  20 6f 6e 6c 69 66 74 3d  a3 8c 62 65 3d b9 8b 62  | onlift=..be=..b|
00004030  65 3d a3 0d 14 6e 1c e7  62 65 3d a3 80 20 67 67  |e=...n..be=.. gg|
00004040  72 69 64 28 78 6c 2c 6e  79 2d 31 29 3e 39 8c 0d  |rid(xl,ny-1)>9..|
00004050  14 78 1e e7 6f 6e 6c 69  66 74 8c 62 65 3d a3 3a  |.x..onlift.be=.:|
00004060  6f 6e 6c 69 66 74 3d a3  8b 62 65 3d b9 0d 14 82  |onlift=..be=....|
00004070  05 cd 0d 14 8c 20 e7 67  67 72 69 64 28 78 6c 2c  |..... .ggrid(xl,|
00004080  6e 79 2b 31 29 3d 31 34  8c 70 6f 3d b9 8b 70 6f  |ny+1)=14.po=..po|
00004090  3d a3 0d 14 96 16 fd 78  6c 3e 31 39 84 72 69 84  |=......xl>19.ri.|
000040a0  62 65 84 70 6f 84 63 6f  0d 14 a0 05 e1 0d 14 aa  |be.po.co........|
000040b0  0e dd f2 61 6e 69 72 69  67 68 74 0d 14 b4 19 79  |...aniright....y|
000040c0  3d 28 6e 79 2a 35 32 29  2b 32 39 30 3a e6 30 2c  |=(ny*52)+290:.0,|
000040d0  30 c8 9c 30 0d 14 be 12  6c 3d 28 6e 78 2a 35 32  |0..0....l=(nx*52|
000040e0  29 2b 31 38 3a f5 0d 14  c8 24 c8 99 26 32 45 2c  |)+18:....$..&2E,|
000040f0  33 34 2c 2c 22 62 61 6c  6c 22 2c 6c 2c 79 3a e7  |34,,"ball",l,y:.|
00004100  a6 2d 38 32 8c 73 75 69  3d b9 0d 14 d2 19 c8 96  |.-82.sui=.......|
00004110  3a c8 93 c8 90 6c 2c 79  2c 35 30 2c 34 36 3a 6c  |:....l,y,50,46:l|
00004120  2b 3d 34 0d 14 dc 16 fd  6c 3e 3d 28 78 6c 2a 35  |+=4.....l>=(xl*5|
00004130  32 29 2b 31 38 84 73 75  69 0d 14 e6 34 e7 73 75  |2)+18.sui...4.su|
00004140  69 3d a3 8c c8 99 26 32  45 2c 33 34 2c 2c 22 62  |i=....&2E,34,,"b|
00004150  61 6c 6c 22 2c 28 78 6c  2a 35 32 29 2b 31 38 2c  |all",(xl*52)+18,|
00004160  79 3a 6e 78 3d 78 6c 8b  64 69 65 3d b9 0d 14 f0  |y:nx=xl.die=....|
00004170  05 e1 0d 14 fa 0d dd f2  61 6e 69 6c 65 66 74 0d  |........anileft.|
00004180  15 04 19 79 3d 28 6e 79  2a 35 32 29 2b 32 39 30  |...y=(ny*52)+290|
00004190  3a e6 30 2c 30 c8 9c 30  0d 15 0e 12 6c 3d 28 6e  |:.0,0..0....l=(n|
000041a0  78 2a 35 32 29 2b 31 38  3a f5 0d 15 18 24 c8 99  |x*52)+18:....$..|
000041b0  26 32 45 2c 33 34 2c 2c  22 62 61 6c 6c 22 2c 6c  |&2E,34,,"ball",l|
000041c0  2c 79 3a e7 a6 2d 38 32  8c 73 75 69 3d b9 0d 15  |,y:..-82.sui=...|
000041d0  22 19 c8 96 3a c8 93 c8  90 6c 2c 79 2c 35 30 2c  |"...:....l,y,50,|
000041e0  34 36 3a 6c 2d 3d 34 0d  15 2c 16 fd 6c 3c 3d 28  |46:l-=4..,..l<=(|
000041f0  78 6c 2a 35 32 29 2b 31  38 84 73 75 69 0d 15 36  |xl*52)+18.sui..6|
00004200  34 e7 73 75 69 3d a3 8c  c8 99 26 32 45 2c 33 34  |4.sui=....&2E,34|
00004210  2c 2c 22 62 61 6c 6c 22  2c 28 78 6c 2a 35 32 29  |,,"ball",(xl*52)|
00004220  2b 31 38 2c 79 3a 6e 78  3d 78 6c 8b 64 69 65 3d  |+18,y:nx=xl.die=|
00004230  b9 0d 15 40 05 e1 0d 15  4a 0e dd f2 63 61 6c 63  |...@....J...calc|
00004240  6c 65 66 74 0d 15 54 08  63 6f 3d a3 0d 15 5e 0a  |left..T.co=...^.|
00004250  e7 6e 78 3e 31 8c 0d 15  68 13 78 6c 3d 6e 78 2b  |.nx>1...h.xl=nx+|
00004260  31 3a f5 3a 78 6c 2d 3d  31 0d 15 72 43 e7 67 67  |1:.:xl-=1..rC.gg|
00004270  72 69 64 28 78 6c 2d 31  2c 6e 79 29 3d 30 84 67  |rid(xl-1,ny)=0.g|
00004280  67 72 69 64 28 78 6c 2d  31 2c 6e 79 29 3d 31 37  |grid(xl-1,ny)=17|
00004290  84 67 67 72 69 64 28 78  6c 2d 31 2c 6e 79 29 3d  |.ggrid(xl-1,ny)=|
000042a0  31 36 8c 72 69 3d a3 8b  72 69 3d b9 0d 15 7c 1e  |16.ri=..ri=...|.|
000042b0  e7 67 67 72 69 64 28 78  6c 2c 6e 79 29 3d 31 36  |.ggrid(xl,ny)=16|
000042c0  8c 63 6f 3d b9 8b 63 6f  3d a3 0d 15 86 31 e7 67  |.co=..co=....1.g|
000042d0  67 72 69 64 28 78 6c 2c  6e 79 2d 31 29 3d 30 84  |grid(xl,ny-1)=0.|
000042e0  67 67 72 69 64 28 78 6c  2c 6e 79 2d 31 29 3d 31  |ggrid(xl,ny-1)=1|
000042f0  37 8c 62 65 3d b9 8b 62  65 3d a3 0d 15 90 1c e7  |7.be=..be=......|
00004300  62 65 3d a3 80 20 67 67  72 69 64 28 78 6c 2c 6e  |be=.. ggrid(xl,n|
00004310  79 2d 31 29 3e 39 8c 0d  15 9a 1e e7 6f 6e 6c 69  |y-1)>9......onli|
00004320  66 74 8c 6f 6e 6c 69 66  74 3d a3 3a 62 65 3d a3  |ft.onlift=.:be=.|
00004330  8b 62 65 3d b9 0d 15 a4  05 cd 0d 15 ae 20 e7 67  |.be=......... .g|
00004340  67 72 69 64 28 78 6c 2c  6e 79 2b 31 29 3d 31 34  |grid(xl,ny+1)=14|
00004350  8c 70 6f 3d b9 8b 70 6f  3d a3 0d 15 b8 15 fd 78  |.po=..po=......x|
00004360  6c 3c 32 84 72 69 84 62  65 84 70 6f 84 63 6f 0d  |l<2.ri.be.po.co.|
00004370  15 c2 05 cd 0d 15 cc 09  e7 63 6f 8c e1 0d 15 d6  |.........co.....|
00004380  2a e7 6e 78 3d 31 80 20  64 69 3d 6c 65 66 74 80  |*.nx=1. di=left.|
00004390  20 6f 6e 6c 69 66 74 3d  b9 8c 78 6c 3d 30 3a 6f  | onlift=..xl=0:o|
000043a0  6e 6c 69 66 74 3d a3 0d  15 e0 13 e7 6e 78 3d 31  |nlift=......nx=1|
000043b0  80 20 64 69 3d 6c 65 66  74 8c 0d 15 ea 29 e7 67  |. di=left....).g|
000043c0  67 72 69 64 28 31 2c 6e  79 2d 31 29 3c 3e 30 80  |grid(1,ny-1)<>0.|
000043d0  20 67 67 72 69 64 28 31  2c 6e 79 2d 31 29 3c 3e  | ggrid(1,ny-1)<>|
000043e0  31 37 8c 0d 15 f4 35 e7  67 67 72 69 64 28 30 2c  |17....5.ggrid(0,|
000043f0  6e 79 29 3d 30 84 67 67  72 69 64 28 30 2c 6e 79  |ny)=0.ggrid(0,ny|
00004400  29 3d 31 37 84 67 67 72  69 64 28 30 2c 6e 79 29  |)=17.ggrid(0,ny)|
00004410  3d 31 36 8c 78 6c 3d 30  0d 15 fe 05 cd 0d 16 08  |=16.xl=0........|
00004420  05 cd 0d 16 12 05 e1 0d  16 1c 1d dd f2 61 6e 69  |.............ani|
00004430  64 6f 77 6e 3a ff 22 53  43 48 4f 4f 53 45 20 62  |down:."SCHOOSE b|
00004440  61 6c 6c 22 0d 16 26 18  78 3d 28 6e 78 2a 35 32  |all"..&.x=(nx*52|
00004450  29 2b 31 38 3a e6 30 2c  30 c8 9c 30 0d 16 30 13  |)+18:.0,0..0..0.|
00004460  6c 3d 28 6e 79 2a 35 32  29 2b 32 39 30 3a f5 0d  |l=(ny*52)+290:..|
00004470  16 3a 18 f0 26 45 44 2c  78 2c 6c 3a e7 a6 2d 38  |.:..&ED,x,l:..-8|
00004480  32 8c 73 75 69 3d b9 0d  16 44 19 c8 96 3a c8 93  |2.sui=...D...:..|
00004490  c8 90 78 2c 6c 2c 35 30  2c 34 36 3a 6c 2d 3d 34  |..x,l,50,46:l-=4|
000044a0  0d 16 4e 17 fd 6c 3c 3d  28 79 6c 2a 35 32 29 2b  |..N..l<=(yl*52)+|
000044b0  32 39 30 84 73 75 69 0d  16 58 29 e7 73 75 69 3d  |290.sui..X).sui=|
000044c0  a3 8c 6e 79 3d 79 6c 3a  f0 26 45 44 2c 78 2c 28  |..ny=yl:.&ED,x,(|
000044d0  6e 79 2a 35 32 29 2b 32  39 30 8b 64 69 65 3d b9  |ny*52)+290.die=.|
000044e0  0d 16 62 0f e7 79 6c 3d  30 8c 64 69 65 3d b9 0d  |..b..yl=0.die=..|
000044f0  16 6c 05 e1 0d 16 76 0e  dd f2 63 61 6c 63 64 6f  |.l....v...calcdo|
00004500  77 6e 0d 16 80 0a e7 6e  79 3e 31 8c 0d 16 8a 11  |wn.....ny>1.....|
00004510  79 6c 3d 6e 79 3a f5 3a  79 6c 2d 3d 31 0d 16 94  |yl=ny:.:yl-=1...|
00004520  1e e7 67 67 72 69 64 28  6e 78 2c 79 6c 29 3d 31  |..ggrid(nx,yl)=1|
00004530  36 8c 63 6f 3d b9 8b 63  6f 3d a3 0d 16 9e 5a fd  |6.co=..co=....Z.|
00004540  79 6c 3c 32 84 67 67 72  69 64 28 6e 78 2c 79 6c  |yl<2.ggrid(nx,yl|
00004550  2d 31 29 3c 3e 30 80 20  67 67 72 69 64 28 6e 78  |-1)<>0. ggrid(nx|
00004560  2c 79 6c 2d 31 29 3c 3e  31 35 80 20 67 67 72 69  |,yl-1)<>15. ggri|
00004570  64 28 6e 78 2c 79 6c 2d  31 29 3c 3e 31 36 80 20  |d(nx,yl-1)<>16. |
00004580  67 67 72 69 64 28 6e 78  2c 79 6c 2d 31 29 3c 3e  |ggrid(nx,yl-1)<>|
00004590  31 37 84 63 6f 0d 16 a8  2c e7 79 6c 3c 32 80 20  |17.co...,.yl<2. |
000045a0  67 67 72 69 64 28 6e 78  2c 30 29 3d 30 80 20 67  |ggrid(nx,0)=0. g|
000045b0  67 72 69 64 28 6e 78 2c  31 29 3d 30 8c 79 6c 3d  |grid(nx,1)=0.yl=|
000045c0  30 0d 16 b2 05 cd 0d 16  bc 09 e7 63 6f 8c e1 0d  |0..........co...|
000045d0  16 c6 20 e7 79 6c 3c 32  80 20 67 67 72 69 64 28  |.. .yl<2. ggrid(|
000045e0  6e 78 2c 31 29 3d 31 36  8c 79 6c 3d 31 3a e1 0d  |nx,1)=16.yl=1:..|
000045f0  16 d0 20 e7 79 6c 3c 32  80 20 67 67 72 69 64 28  |.. .yl<2. ggrid(|
00004600  6e 78 2c 30 29 3d 31 36  8c 79 6c 3d 30 3a e1 0d  |nx,0)=16.yl=0:..|
00004610  16 da 1f e7 6e 79 3d 31  80 20 67 72 69 64 28 6e  |....ny=1. grid(n|
00004620  78 2c 30 29 3d 31 36 8c  79 6c 3d 30 3a e1 0d 16  |x,0)=16.yl=0:...|
00004630  e4 0a e7 6e 79 3d 31 8c  0d 16 ee 22 e7 67 67 72  |...ny=1....".ggr|
00004640  69 64 28 6e 78 2c 31 29  3d 31 37 84 67 67 72 69  |id(nx,1)=17.ggri|
00004650  64 28 6e 78 2c 31 29 3d  30 8c 0d 16 f8 26 e7 67  |d(nx,1)=0....&.g|
00004660  67 72 69 64 28 6e 78 2c  30 29 3d 31 37 84 67 67  |grid(nx,0)=17.gg|
00004670  72 69 64 28 6e 78 2c 30  29 3d 30 8c 79 6c 3d 30  |rid(nx,0)=0.yl=0|
00004680  0d 17 02 05 cd 0d 17 0c  05 cd 0d 17 16 05 e1 0d  |................|
00004690  17 20 0b dd f2 63 72 75  73 68 0d 17 2a 46 ff 22  |. ...crush..*F."|
000046a0  53 43 48 4f 4f 53 45 20  63 72 75 73 68 65 72 22  |SCHOOSE crusher"|
000046b0  3a 78 70 3d 28 6e 78 2a  35 32 29 2b 31 38 3a 79  |:xp=(nx*52)+18:y|
000046c0  70 3d 28 28 6e 79 2b 31  29 2a 35 32 29 2b 32 39  |p=((ny+1)*52)+29|
000046d0  30 3a e3 6c 3d 79 70 b8  79 70 2d 35 34 88 2d 34  |0:.l=yp.yp-54.-4|
000046e0  0d 17 34 12 f0 26 45 44  2c 78 70 2c 6c 3a c8 96  |..4..&ED,xp,l:..|
000046f0  3a ed 0d 17 3e 28 e6 30  2c 30 c8 9c 30 3a e3 6c  |:...>(.0,0..0:.l|
00004700  3d 79 70 2d 35 34 b8 79  70 2d 34 88 34 3a f0 26  |=yp-54.yp-4.4:.&|
00004710  45 44 2c 78 70 2c 6c 3a  c8 96 0d 17 48 1e c8 93  |ED,xp,l:....H...|
00004720  c8 90 78 70 2c 6c 2c 35  30 2c 34 30 3a ed 3a f0  |..xp,l,50,40:.:.|
00004730  26 45 44 2c 78 70 2c 6c  0d 17 52 09 64 69 65 3d  |&ED,xp,l..R.die=|
00004740  b9 0d 17 5c 05 e1 0d 17  66 69 dc 20 22 42 61 64  |...\....fi. "Bad|
00004750  20 6c 75 63 6b 2c 20 64  75 64 65 21 22 2c 22 54  | luck, dude!","T|
00004760  72 79 20 68 61 72 64 65  72 20 6e 65 78 74 20 74  |ry harder next t|
00004770  69 6d 65 21 22 2c 22 43  6f 6e 63 65 6e 74 72 61  |ime!","Concentra|
00004780  74 65 20 6f 6e 20 74 68  65 20 67 61 6d 65 21 22  |te on the game!"|
00004790  2c 22 4e 69 63 65 20 74  72 79 21 22 2c 22 4d 61  |,"Nice try!","Ma|
000047a0  79 62 65 20 6e 65 78 74  20 74 69 6d 65 21 22 0d  |ybe next time!".|
000047b0  17 70 4e dd f2 6c 6f 73  74 6c 69 66 65 3a e6 30  |.pN..lostlife:.0|
000047c0  2c 30 c8 9c 30 3a c8 93  c8 90 28 6e 78 2a 35 32  |,0..0:....(nx*52|
000047d0  29 2b 31 38 2c 28 6e 79  2a 35 32 29 2b 32 39 30  |)+18,(ny*52)+290|
000047e0  2c 35 30 2c 34 36 3a ff  22 50 6c 61 79 70 6f 73  |,50,46:."Playpos|
000047f0  20 32 31 22 3a e7 64 65  6d 6f 3d a3 8c 0d 17 7a  | 21":.demo=....z|
00004800  07 d1 3d 30 0d 17 84 2e  fb 31 36 c8 9c 32 35 35  |..=0.....16..255|
00004810  3a f7 8d 44 66 57 3a e3  6c 3d 31 b8 b3 28 35 29  |:..DfW:.l=1..(5)|
00004820  3a f3 61 24 3a ed 3a f1  8a 35 31 2c 32 38 29 3b  |:.a$:.:..51,28);|
00004830  61 24 0d 17 8e 72 f5 3a  f2 70 6c 61 79 73 61 6d  |a$...r.:.playsam|
00004840  70 6c 65 28 22 43 6f 6c  6c 65 63 74 22 2c 32 30  |ple("Collect",20|
00004850  30 30 29 3a c8 96 3a c8  96 3a c8 96 3a c8 96 3a  |00):..:..:..:..:|
00004860  f2 70 6c 61 79 73 61 6d  70 6c 65 28 22 43 6f 6c  |.playsample("Col|
00004870  6c 65 63 74 22 2c 35 30  30 30 29 3a c8 96 3a c8  |lect",5000):..:.|
00004880  96 3a c8 96 3a c8 96 3a  fd 91 3e 32 35 39 3a f2  |.:..:..:..>259:.|
00004890  63 6c 6e 6f 74 69 63 65  3a f2 70 72 69 6e 74 6c  |clnotice:.printl|
000048a0  69 76 65 73 0d 17 98 05  cd 0d 17 a2 05 e1 0d 17  |ives............|
000048b0  ac 47 dd f2 67 6c 69 66  74 3a ec 28 6e 78 2a 35  |.G..glift:.(nx*5|
000048c0  32 29 2b 31 38 2c 28 28  6e 79 2d 31 29 2a 35 32  |2)+18,((ny-1)*52|
000048d0  29 2b 32 39 30 3a ec 28  28 6e 78 2b 31 29 2a 35  |)+290:.((nx+1)*5|
000048e0  32 29 2b 31 36 2c 28 28  6e 79 2b 31 29 2a 35 32  |2)+16,((ny+1)*52|
000048f0  29 2b 32 38 30 0d 17 b6  29 c8 99 26 32 45 2c 31  |)+280...)..&2E,1|
00004900  34 2c 2c 22 6c 69 22 3a  ff 22 53 43 48 4f 4f 53  |4,,"li":."SCHOOS|
00004910  45 20 6c 69 22 3a 6f 6e  6c 69 66 74 3d b9 0d 17  |E li":onlift=...|
00004920  c0 2f e3 6c 6f 6f 70 79  3d 30 b8 31 32 3a e7 67  |./.loopy=0.12:.g|
00004930  67 72 69 64 28 6e 78 2c  6c 6f 6f 70 79 29 3d 31  |grid(nx,loopy)=1|
00004940  37 8c 6c 69 66 74 79 3d  6c 6f 6f 70 79 0d 17 ca  |7.lifty=loopy...|
00004950  17 ed 3a 73 6c 69 66 74  79 3d 6e 79 3a e6 30 2c  |..:slifty=ny:.0,|
00004960  30 c8 9c 30 0d 17 d4 10  78 3d 28 6e 78 2a 35 32  |0..0....x=(nx*52|
00004970  29 2b 31 38 0d 17 de 24  e7 28 28 6e 79 2d 31 29  |)+18...$.((ny-1)|
00004980  2a 35 32 29 2b 32 39 30  3c 28 6c 69 66 74 79 2a  |*52)+290<(lifty*|
00004990  35 32 29 2b 32 38 36 8c  0d 17 e8 2b e3 6c 6f 6f  |52)+286....+.loo|
000049a0  70 79 3d 28 28 6e 79 2d  31 29 2a 35 32 29 2b 32  |py=((ny-1)*52)+2|
000049b0  39 30 b8 28 6c 69 66 74  79 2a 35 32 29 2b 32 38  |90.(lifty*52)+28|
000049c0  36 88 34 0d 17 f2 24 e7  a6 2d 38 32 8c 6c 6f 6f  |6.4...$..-82.loo|
000049d0  70 79 3d 28 6c 69 66 74  79 2a 35 32 29 2b 32 38  |py=(lifty*52)+28|
000049e0  37 3a 73 75 69 3d b9 0d  17 fc 27 f0 26 45 44 2c  |7:sui=....'.&ED,|
000049f0  78 2c 6c 6f 6f 70 79 3a  c8 96 3a c8 93 c8 90 78  |x,loopy:..:....x|
00004a00  2c 6c 6f 6f 70 79 2c 35  30 2c 39 36 3a ed 0d 18  |,loopy,50,96:...|
00004a10  06 10 f0 26 45 44 2c 78  2c 6c 6f 6f 70 79 0d 18  |...&ED,x,loopy..|
00004a20  10 1f f2 70 6c 61 79 73  61 6d 70 6c 65 28 22 43  |...playsample("C|
00004a30  6f 6c 6c 65 63 74 22 2c  38 30 30 30 29 0d 18 1a  |ollect",8000)...|
00004a40  0e cc f2 64 6f 77 6e 6c  69 66 74 0d 18 24 05 cd  |...downlift..$..|
00004a50  0d 18 2e 12 e7 73 75 69  3d b9 8c 64 69 65 3d b9  |.....sui=..die=.|
00004a60  3a e1 0d 18 38 10 f0 26  45 44 2c 78 2c 6c 6f 6f  |:...8..&ED,x,loo|
00004a70  70 79 0d 18 42 2c 67 67  72 69 64 28 6e 78 2c 73  |py..B,ggrid(nx,s|
00004a80  6c 69 66 74 79 2d 31 29  3d 31 37 3a 67 67 72 69  |lifty-1)=17:ggri|
00004a90  64 28 6e 78 2c 6c 69 66  74 79 29 3d 31 32 0d 18  |d(nx,lifty)=12..|
00004aa0  4c 2d 6e 79 3d 6c 69 66  74 79 2b 31 3a e7 64 69  |L-ny=lifty+1:.di|
00004ab0  3d 72 69 67 68 74 8c f2  63 61 6c 63 72 69 67 68  |=right..calcrigh|
00004ac0  74 3a f2 61 6e 69 72 69  67 68 74 0d 18 56 1f e7  |t:.aniright..V..|
00004ad0  64 69 3d 6c 65 66 74 8c  f2 63 61 6c 63 6c 65 66  |di=left..calclef|
00004ae0  74 3a f2 61 6e 69 6c 65  66 74 0d 18 60 05 e1 0d  |t:.anileft..`...|
00004af0  18 6a 1e dd f2 63 6f 70  79 67 72 69 64 3a e3 78  |.j...copygrid:.x|
00004b00  3d 30 b8 32 30 3a e3 79  3d 30 b8 31 32 0d 18 74  |=0.20:.y=0.12..t|
00004b10  36 e7 67 72 69 64 28 78  2c 79 29 3c 3e 31 38 80  |6.grid(x,y)<>18.|
00004b20  20 67 72 69 64 28 78 2c  79 29 3c 3e 31 35 8c 67  | grid(x,y)<>15.g|
00004b30  67 72 69 64 28 78 2c 79  29 3d 67 72 69 64 28 78  |grid(x,y)=grid(x|
00004b40  2c 79 29 0d 18 7e 1e e7  67 72 69 64 28 78 2c 79  |,y)..~..grid(x,y|
00004b50  29 3d 31 38 8c 67 67 72  69 64 28 78 2c 79 29 3d  |)=18.ggrid(x,y)=|
00004b60  31 0d 18 88 09 ed 3a ed  3a e1 0d 18 92 0e dd f2  |1.....:.:.......|
00004b70  64 6f 77 6e 6c 69 66 74  0d 18 9c 2c e3 6c 6f 6f  |downlift...,.loo|
00004b80  70 79 3d 28 28 6e 79 2d  31 29 2a 35 32 29 2b 32  |py=((ny-1)*52)+2|
00004b90  39 30 b8 28 6c 69 66 74  79 2a 35 32 29 2b 32 39  |90.(lifty*52)+29|
00004ba0  34 88 2d 34 0d 18 a6 24  e7 a6 2d 38 32 8c 6c 6f  |4.-4...$..-82.lo|
00004bb0  6f 70 79 3d 28 6c 69 66  74 79 2a 35 32 29 2b 32  |opy=(lifty*52)+2|
00004bc0  39 33 3a 73 75 69 3d b9  0d 18 b0 27 f0 26 45 44  |93:sui=....'.&ED|
00004bd0  2c 78 2c 6c 6f 6f 70 79  3a c8 96 3a c8 93 c8 90  |,x,loopy:..:....|
00004be0  78 2c 6c 6f 6f 70 79 2c  35 30 2c 39 36 3a ed 0d  |x,loopy,50,96:..|
00004bf0  18 ba 2c f0 26 45 44 2c  78 2c 6c 6f 6f 70 79 3a  |..,.&ED,x,loopy:|
00004c00  f2 70 6c 61 79 73 61 6d  70 6c 65 28 22 43 6f 6c  |.playsample("Col|
00004c10  6c 65 63 74 22 2c 38 30  30 30 29 0d 18 c4 05 e1  |lect",8000).....|
00004c20  0d 18 ce 39 dd f2 63 72  75 6d 62 6c 65 3a 67 67  |...9..crumble:gg|
00004c30  72 69 64 28 6e 78 2c 6e  79 2d 31 29 3d 30 3a 64  |rid(nx,ny-1)=0:d|
00004c40  69 3d 64 6f 77 6e 3a f2  63 61 6c 63 64 6f 77 6e  |i=down:.calcdown|
00004c50  3a f2 61 6e 69 64 6f 77  6e 0d 18 d8 0a 64 69 3d  |:.anidown....di=|
00004c60  6f 6c 64 0d 18 e2 05 e1  0d 18 ec 0c dd f2 62 6f  |old...........bo|
00004c70  75 6e 63 65 0d 18 f6 11  79 3d 28 6e 79 2a 35 32  |unce....y=(ny*52|
00004c80  29 2b 32 39 30 0d 19 00  0e e7 64 69 3d 72 69 67  |)+290.....di=rig|
00004c90  68 74 8c 0d 19 0a 40 61  3d a3 3a e3 6b 3d 6e 78  |ht....@a=.:.k=nx|
00004ca0  2b 31 b8 6e 78 2b 33 3a  e7 67 67 72 69 64 28 6b  |+1.nx+3:.ggrid(k|
00004cb0  2c 6e 79 29 3c 3e 30 80  20 67 67 72 69 64 28 6b  |,ny)<>0. ggrid(k|
00004cc0  2c 6e 79 29 3c 3e 31 37  8c 61 3d 6b 3a 6b 3d 6e  |,ny)<>17.a=k:k=n|
00004cd0  78 2b 34 0d 19 14 19 ed  3a e7 61 3d a3 8c 78 74  |x+4.....:.a=..xt|
00004ce0  3d 6e 78 2b 33 8b 78 74  3d 61 2d 31 0d 19 1e 10  |=nx+3.xt=a-1....|
00004cf0  e7 78 74 3e 32 30 8c 78  74 3d 32 30 0d 19 28 1b  |.xt>20.xt=20..(.|
00004d00  e6 30 2c 30 c8 9c 30 3a  ff 22 53 43 48 4f 4f 53  |.0,0..0:."SCHOOS|
00004d10  45 20 62 61 6c 6c 22 0d  19 32 1e e3 78 3d 28 6e  |E ball"..2..x=(n|
00004d20  78 2a 35 32 29 2b 31 38  b8 28 78 74 2a 35 32 29  |x*52)+18.(xt*52)|
00004d30  2b 31 38 88 38 0d 19 3c  1d f0 26 45 44 2c 78 2c  |+18.8..<..&ED,x,|
00004d40  79 3a c8 96 3a c8 93 c8  90 78 2c 79 2c 35 30 2c  |y:..:....x,y,50,|
00004d50  34 32 0d 19 46 1c e7 a6  2d 38 32 8c 73 75 69 3d  |42..F...-82.sui=|
00004d60  b9 3a 78 3d 28 78 74 2a  35 32 29 2b 31 39 0d 19  |.:x=(xt*52)+19..|
00004d70  50 17 ed 3a f0 26 45 44  2c 28 78 74 2a 35 32 29  |P..:.&ED,(xt*52)|
00004d80  2b 31 38 2c 79 0d 19 5a  05 cd 0d 19 64 0d e7 64  |+18,y..Z....d..d|
00004d90  69 3d 6c 65 66 74 8c 0d  19 6e 15 61 3d a3 3a e3  |i=left...n.a=.:.|
00004da0  6b 3d 6e 78 b8 6e 78 2d  33 88 2d 31 0d 19 78 2d  |k=nx.nx-3.-1..x-|
00004db0  e7 6b 3e 30 8c e7 67 67  72 69 64 28 6b 2c 6e 79  |.k>0..ggrid(k,ny|
00004dc0  29 3c 3e 30 80 20 67 67  72 69 64 28 6b 2c 6e 79  |)<>0. ggrid(k,ny|
00004dd0  29 3c 3e 31 37 8c 61 3d  6b 0d 19 82 05 ed 0d 19  |)<>17.a=k.......|
00004de0  8c 17 e7 61 3d a3 8c 78  74 3d 6e 78 2d 33 8b 78  |...a=..xt=nx-3.x|
00004df0  74 3d 61 2b 31 0d 19 96  0e e7 78 74 3c 30 8c 78  |t=a+1.....xt<0.x|
00004e00  74 3d 30 0d 19 a0 1b e6  30 2c 30 c8 9c 30 3a ff  |t=0.....0,0..0:.|
00004e10  22 53 43 48 4f 4f 53 45  20 62 61 6c 6c 22 0d 19  |"SCHOOSE ball"..|
00004e20  aa 1f e3 78 3d 28 6e 78  2a 35 32 29 2b 31 38 b8  |...x=(nx*52)+18.|
00004e30  28 78 74 2a 35 32 29 2b  31 38 88 2d 38 0d 19 b4  |(xt*52)+18.-8...|
00004e40  1c e7 a6 2d 38 32 8c 73  75 69 3d b9 3a 78 3d 28  |...-82.sui=.:x=(|
00004e50  78 74 2a 35 32 29 2b 31  37 0d 19 be 1d f0 26 45  |xt*52)+17.....&E|
00004e60  44 2c 78 2c 79 3a c8 96  3a c8 93 c8 90 78 2c 79  |D,x,y:..:....x,y|
00004e70  2c 35 30 2c 34 32 0d 19  c8 1d ed 3a f0 26 45 44  |,50,42.....:.&ED|
00004e80  2c 28 78 74 2a 35 32 29  2b 31 38 2c 79 3a 6e 78  |,(xt*52)+18,y:nx|
00004e90  3d 78 74 0d 19 d2 05 cd  0d 19 dc 10 e7 73 75 69  |=xt..........sui|
00004ea0  3d b9 8c 64 69 65 3d b9  0d 19 e6 09 6e 78 3d 78  |=..die=.....nx=x|
00004eb0  74 0d 19 f0 05 e1 0d 19  fa 13 dd f2 67 61 6d 65  |t...........game|
00004ec0  70 6c 6f 74 28 58 2c 59  29 0d 1a 04 26 f2 70 6c  |plot(X,Y)...&.pl|
00004ed0  61 79 73 61 6d 70 6c 65  28 22 43 6f 6c 6c 65 63  |aysample("Collec|
00004ee0  74 22 2c b3 28 35 30 30  30 29 2b 33 30 30 29 0d  |t",.(5000)+300).|
00004ef0  1a 0e 0f e7 6e 6f 28 6e  62 29 3d 30 8c e1 0d 1a  |....no(nb)=0....|
00004f00  18 3a 59 2d 3d 32 39 30  3a 58 2d 3d 31 38 3a 6e  |.:Y-=290:X-=18:n|
00004f10  78 3d 58 2f 35 32 3a 6e  79 3d 59 2f 35 32 3a 6e  |x=X/52:ny=Y/52:n|
00004f20  65 78 3d 6e 78 2d a8 28  6e 78 29 3a 6e 65 79 3d  |ex=nx-.(nx):ney=|
00004f30  6e 79 2d a8 28 6e 79 29  0d 1a 22 1f 6e 78 3d a8  |ny-.(ny)..".nx=.|
00004f40  28 6e 78 29 3a 6e 79 3d  a8 28 6e 79 29 3a e7 a4  |(nx):ny=.(ny):..|
00004f50  67 6c 69 66 74 8c e1 0d  1a 2c 57 e7 67 72 69 64  |glift....,W.grid|
00004f60  28 6e 78 2c 6e 79 29 3d  31 38 8c f1 8a 35 31 2c  |(nx,ny)=18...51,|
00004f70  32 38 29 3b c4 32 30 2c  22 20 22 29 3b 8a 35 31  |28);.20," ");.51|
00004f80  2c 32 38 29 3b 22 49 6e  76 69 73 69 62 6c 65 20  |,28);"Invisible |
00004f90  62 6c 6f 63 6b 20 68 65  72 65 22 3a c8 96 3a 63  |block here":..:c|
00004fa0  6c 74 69 6d 65 3d 91 3a  63 6c 3d b9 3a e1 0d 1a  |ltime=.:cl=.:...|
00004fb0  36 1d e7 67 67 72 69 64  28 6e 78 2c 6e 79 29 3c  |6..ggrid(nx,ny)<|
00004fc0  3e 30 80 20 69 3c 3e 2d  31 8c e1 0d 1a 40 1c e7  |>0. i<>-1....@..|
00004fd0  69 3d 2d 31 80 20 67 67  72 69 64 28 6e 78 2c 6e  |i=-1. ggrid(nx,n|
00004fe0  79 29 3d 31 32 8c e1 0d  1a 4a 1c e7 69 3d 2d 31  |y)=12....J..i=-1|
00004ff0  80 20 67 67 72 69 64 28  6e 78 2c 6e 79 29 3d 31  |. ggrid(nx,ny)=1|
00005000  36 8c e1 0d 1a 54 1c e7  69 3d 2d 31 80 20 67 67  |6....T..i=-1. gg|
00005010  72 69 64 28 6e 78 2c 6e  79 29 3d 31 34 8c e1 0d  |rid(nx,ny)=14...|
00005020  1a 5e 1b e7 69 3d 2d 31  80 20 67 67 72 69 64 28  |.^..i=-1. ggrid(|
00005030  6e 78 2c 6e 79 29 3d 30  8c e1 0d 1a 68 45 e7 69  |nx,ny)=0....hE.i|
00005040  3d 2d 31 8c e6 30 2c 30  c8 9c 30 3a c8 93 c8 90  |=-1..0,0..0:....|
00005050  28 6e 78 2a 35 32 29 2b  31 38 2c 28 6e 79 2a 35  |(nx*52)+18,(ny*5|
00005060  32 29 2b 32 39 30 2c 35  30 2c 34 38 8b f2 67 70  |2)+290,50,48..gp|
00005070  6c 6f 74 28 67 73 70 24  2c 6e 78 2c 6e 79 29 0d  |lot(gsp$,nx,ny).|
00005080  1a 72 27 67 67 72 69 64  28 6e 78 2c 6e 79 29 3d  |.r'ggrid(nx,ny)=|
00005090  69 2b 31 3a 6e 6f 28 6e  62 29 2d 3d 31 3a f2 64  |i+1:no(nb)-=1:.d|
000050a0  69 73 74 79 70 65 0d 1a  7c 05 e1 0d 1a 86 53 dd  |istype..|.....S.|
000050b0  f2 75 73 65 72 61 6c 74  65 72 3a 69 3d 31 30 3a  |.useralter:i=10:|
000050c0  67 73 70 24 3d 22 72 65  76 65 72 73 65 22 3a 6e  |gsp$="reverse":n|
000050d0  62 3d 31 3a f2 63 6c 65  61 72 61 6c 6c 3a f2 70  |b=1:.clearall:.p|
000050e0  6c 6f 74 28 22 61 72 72  6f 77 22 2c 37 35 2c 31  |lot("arrow",75,1|
000050f0  33 34 29 3a 61 72 72 6f  77 70 6f 73 3d 31 0d 1a  |34):arrowpos=1..|
00005100  90 29 f2 64 69 73 74 79  70 65 3a f2 67 65 74 72  |.).distype:.getr|
00005110  65 61 64 79 3a 63 6c 3d  a3 3a 63 6c 74 69 6d 65  |eady:cl=.:cltime|
00005120  3d 30 3a 69 74 3d a3 0d  1a 9a 13 fb 31 34 39 c8  |=0:it=......149.|
00005130  9c 31 32 38 3a fb 30 c8  9c 30 0d 1a a4 1a f1 8a  |.128:.0..0......|
00005140  35 31 2c 33 30 29 3b 22  54 69 6d 65 3a 22 3a d1  |51,30);"Time:":.|
00005150  3d 30 3a f5 0d 1a ae 0c  ff 22 46 58 20 31 35 22  |=0:......"FX 15"|
00005160  0d 1a b8 0f f5 3a c8 97  78 6d 2c 79 6d 2c 42 0d  |.....:..xm,ym,B.|
00005170  1a c2 13 fb 31 34 39 c8  9c 31 32 38 3a fb 30 c8  |....149..128:.0.|
00005180  9c 30 0d 1a cc 2b f1 8a  35 37 2c 33 30 29 3b 22  |.0...+..57,30);"|
00005190  20 20 20 22 3b 8a 35 37  2c 33 30 29 3b 6c 69 6d  |   ";.57,30);lim|
000051a0  69 74 2d 28 91 81 31 30  30 29 3a c8 96 0d 1a d6  |it-(..100):.....|
000051b0  20 e7 63 6c 3d b9 80 91  3e 63 6c 74 69 6d 65 2b  | .cl=...>cltime+|
000051c0  31 32 30 8c f2 63 6c 6e  6f 74 69 63 65 0d 1a e0  |120..clnotice...|
000051d0  19 fd 42 3c 3e 30 84 6c  69 6d 69 74 2d 28 91 81  |..B<>0.limit-(..|
000051e0  31 30 30 29 3c 31 0d 1a  ea 1a e7 42 3d 34 80 20  |100)<1.....B=4. |
000051f0  6c 69 6d 69 74 2d 28 91  81 31 30 30 29 3e 30 8c  |limit-(..100)>0.|
00005200  0d 1a f4 34 e7 78 6d 3e  32 35 80 20 78 6d 3c 31  |...4.xm>25. xm<1|
00005210  31 31 30 80 20 79 6d 3e  32 39 35 80 20 79 6d 3c  |110. ym>295. ym<|
00005220  39 36 35 8c f2 67 61 6d  65 70 6c 6f 74 28 78 6d  |965..gameplot(xm|
00005230  2c 79 6d 29 0d 1a fe 32  e7 78 6d 3e 35 35 80 20  |,ym)...2.xm>55. |
00005240  78 6d 3c 35 31 34 80 20  79 6d 3e 32 37 80 20 79  |xm<514. ym>27. y|
00005250  6d 3c 31 33 31 8c f2 61  6c 74 73 65 6c 3a f2 64  |m<131..altsel:.d|
00005260  69 73 74 79 70 65 0d 1b  08 05 cd 0d 1b 12 a0 fd  |istype..........|
00005270  6c 69 6d 69 74 2d 28 91  81 31 30 30 29 3c 31 84  |limit-(..100)<1.|
00005280  42 3d 31 3a f2 63 6c 6e  6f 74 69 63 65 3a f1 8a  |B=1:.clnotice:..|
00005290  35 31 2c 33 30 29 3b 22  52 6f 6c 6c 20 27 65 6d  |51,30);"Roll 'em|
000052a0  20 21 22 3a ff 22 50 6c  61 79 50 6f 73 20 31 34  | !":."PlayPos 14|
000052b0  22 3a d1 3d 30 3a f5 3a  f2 70 6c 61 79 73 61 6d  |":.=0:.:.playsam|
000052c0  70 6c 65 28 22 43 6f 6c  6c 65 63 74 22 2c b3 28  |ple("Collect",.(|
000052d0  39 30 30 30 29 2b 33 30  30 29 3a c8 96 3a c8 96  |9000)+300):..:..|
000052e0  3a c8 96 3a c8 96 3a c8  96 3a fd 91 3e 33 36 36  |:..:..:..:..>366|
000052f0  3a f1 8a 35 31 2c 33 30  29 3b c4 32 30 2c 22 20  |:..51,30);.20," |
00005300  22 29 3a f2 70 6c 61 79  6c 65 76 0d 1b 1c 05 e1  |"):.playlev.....|
00005310  0d 1b 26 4e dd a4 67 6c  69 66 74 3a 6c 69 66 74  |..&N..glift:lift|
00005320  3d 30 3a e3 6c 6f 6f 70  79 3d 6e 79 b8 30 88 2d  |=0:.loopy=ny.0.-|
00005330  31 3a e7 67 72 69 64 28  6e 78 2c 6c 6f 6f 70 79  |1:.grid(nx,loopy|
00005340  29 3d 31 32 84 67 72 69  64 28 6e 78 2c 6c 6f 6f  |)=12.grid(nx,loo|
00005350  70 79 29 3d 31 37 8c 6c  69 66 74 2b 3d 31 0d 1b  |py)=17.lift+=1..|
00005360  30 5e ed 3a e7 6c 69 66  74 3d 31 84 67 67 72 69  |0^.:.lift=1.ggri|
00005370  64 28 6e 78 2c 6e 79 29  3d 31 37 8c f1 8a 35 31  |d(nx,ny)=17...51|
00005380  2c 32 38 29 3b c4 32 30  2c 22 20 22 29 3b 8a 35  |,28);.20," ");.5|
00005390  31 2c 32 38 29 3b 22 4f  62 73 74 72 75 63 74 69  |1,28);"Obstructi|
000053a0  6e 67 20 6c 69 66 74 22  3a c8 96 3a 63 6c 74 69  |ng lift":..:clti|
000053b0  6d 65 3d 91 3a 63 6c 3d  b9 3a 3d b9 0d 1b 3a 0a  |me=.:cl=.:=...:.|
000053c0  e7 6e 79 3e 30 8c 0d 1b  44 32 e7 67 67 72 69 64  |.ny>0...D2.ggrid|
000053d0  28 6e 78 2c 6e 79 2d 31  29 3d 31 37 84 67 67 72  |(nx,ny-1)=17.ggr|
000053e0  69 64 28 6e 78 2c 6e 79  2d 31 29 3d 31 32 8c 69  |id(nx,ny-1)=12.i|
000053f0  74 3d b9 8b 69 74 3d a3  0d 1b 4e 05 cd 0d 1b 58  |t=..it=...N....X|
00005400  4a e7 69 74 3d b9 8c f1  8a 35 31 2c 32 38 29 3b  |J.it=....51,28);|
00005410  c4 32 30 2c 22 20 22 29  3b 8a 35 31 2c 32 38 29  |.20," ");.51,28)|
00005420  3b 22 4f 62 73 74 72 75  63 74 69 6e 67 20 6c 69  |;"Obstructing li|
00005430  66 74 22 3a c8 96 3a 63  6c 74 69 6d 65 3d 91 3a  |ft":..:cltime=.:|
00005440  63 6c 3d b9 3a 3d b9 0d  1b 62 06 3d a3 0d 1b 6c  |cl=.:=...b.=...l|
00005450  0e dd f2 63 6c 6e 6f 74  69 63 65 0d 1b 76 1a f1  |...clnotice..v..|
00005460  8a 35 31 2c 32 38 29 3b  c4 32 37 2c 22 20 22 29  |.51,28);.27," ")|
00005470  3a 63 6c 3d a3 0d 1b 80  05 e1 0d 1b 8a 10 dd f2  |:cl=............|
00005480  66 69 6e 64 66 69 6e 69  73 68 0d 1b 94 31 73 78  |findfinish...1sx|
00005490  3d 30 3a 73 79 3d 31 32  3a 66 78 3d 32 30 3a 66  |=0:sy=12:fx=20:f|
000054a0  79 3d 30 3a e3 6c 6f 6f  70 78 3d 30 b8 32 30 3a  |y=0:.loopx=0.20:|
000054b0  e3 6c 6f 6f 70 79 3d 30  b8 31 32 0d 1b 9e 2b e7  |.loopy=0.12...+.|
000054c0  67 72 69 64 28 6c 6f 6f  70 78 2c 6c 6f 6f 70 79  |grid(loopx,loopy|
000054d0  29 3d 31 35 8c 73 78 3d  6c 6f 6f 70 78 3a 73 79  |)=15.sx=loopx:sy|
000054e0  3d 6c 6f 6f 70 79 0d 1b  a8 2b e7 67 72 69 64 28  |=loopy...+.grid(|
000054f0  6c 6f 6f 70 78 2c 6c 6f  6f 70 79 29 3d 31 36 8c  |loopx,loopy)=16.|
00005500  66 78 3d 6c 6f 6f 70 78  3a 66 79 3d 6c 6f 6f 70  |fx=loopx:fy=loop|
00005510  79 0d 1b b2 13 ed 3a ed  3a 6e 78 3d 73 78 3a 6e  |y.....:.:nx=sx:n|
00005520  79 3d 73 79 0d 1b bc 1f  e7 66 78 3d 32 30 80 20  |y=sy.....fx=20. |
00005530  66 79 3d 30 8c 67 72 69  64 28 66 78 2c 66 79 29  |fy=0.grid(fx,fy)|
00005540  3d 31 36 0d 1b c6 1a f2  67 70 6c 6f 74 28 22 46  |=16.....gplot("F|
00005550  69 6e 69 73 68 22 2c 66  78 2c 66 79 29 0d 1b d0  |inish",fx,fy)...|
00005560  05 e1 0d 1b da a3 dd f2  67 65 74 72 65 61 64 79  |........getready|
00005570  3a fb 31 34 39 c8 9c 31  32 38 3a fb 36 33 3a f2  |:.149..128:.63:.|
00005580  63 6c 6e 6f 74 69 63 65  3a f1 8a 35 35 2c 32 39  |clnotice:..55,29|
00005590  29 3b 22 2a 2a 20 20 47  45 54 20 52 45 41 44 59  |);"**  GET READY|
000055a0  20 20 2a 2a 22 3a f1 8a  35 37 2c 33 30 29 3b c4  |  **":..57,30);.|
000055b0  32 30 2c 22 20 22 29 3a  70 69 74 3d 30 3a f5 3a  |20," "):pit=0:.:|
000055c0  f2 70 6c 61 79 73 61 6d  70 6c 65 28 22 43 6f 6c  |.playsample("Col|
000055d0  6c 65 63 74 22 2c 31 30  30 30 2b 70 69 74 29 3a  |lect",1000+pit):|
000055e0  70 69 74 2b 3d 31 30 30  3a c8 96 3a c8 96 3a c8  |pit+=100:..:..:.|
000055f0  96 3a c8 96 3a e7 70 69  74 3e 31 30 30 30 30 8c  |.:..:.pit>10000.|
00005600  70 69 74 3d 30 0d 1b e4  0a fd 91 3e 34 39 30 0d  |pit=0......>490.|
00005610  1b ee 22 e7 64 65 6d 6f  3d a3 8c ff 22 50 6c 61  |..".demo=..."Pla|
00005620  79 50 6f 73 20 31 32 22  8b f2 70 6c 61 79 6c 65  |yPos 12"..playle|
00005630  76 0d 1b f8 17 f1 8a 35  35 2c 32 39 29 3b c4 32  |v......55,29);.2|
00005640  30 2c 22 20 22 29 3a e1  0d 1c 02 0c dd f2 61 6c  |0," "):.......al|
00005650  74 73 65 6c 0d 1c 0c 13  6f 61 72 72 6f 77 3d 61  |tsel....oarrow=a|
00005660  72 72 6f 77 70 6f 73 0d  1c 16 1d e7 78 6d 3e 35  |rrowpos.....xm>5|
00005670  37 80 20 78 6d 3c 31 37  31 8c 61 72 72 6f 77 70  |7. xm<171.arrowp|
00005680  6f 73 3d 31 0d 1c 20 1e  e7 78 6d 3e 31 37 31 80  |os=1.. ..xm>171.|
00005690  20 78 6d 3c 32 38 35 8c  61 72 72 6f 77 70 6f 73  | xm<285.arrowpos|
000056a0  3d 32 0d 1c 2a 1e e7 78  6d 3e 32 38 35 80 20 78  |=2..*..xm>285. x|
000056b0  6d 3c 33 39 39 8c 61 72  72 6f 77 70 6f 73 3d 33  |m<399.arrowpos=3|
000056c0  0d 1c 34 1e e7 78 6d 3e  34 30 30 80 20 78 6d 3c  |..4..xm>400. xm<|
000056d0  35 30 38 8c 61 72 72 6f  77 70 6f 73 3d 34 0d 1c  |508.arrowpos=4..|
000056e0  3e 16 e7 61 72 72 6f 77  70 6f 73 3c 3e 6f 61 72  |>..arrowpos<>oar|
000056f0  72 6f 77 8c 0d 1c 48 0b  e6 30 c8 9c 31 39 32 0d  |row...H..0..192.|
00005700  1c 52 6e c8 93 c8 90 37  35 2b 28 28 6f 61 72 72  |.Rn....75+((oarr|
00005710  6f 77 2d 31 29 2a 31 31  34 29 2c 31 33 34 2c 37  |ow-1)*114),134,7|
00005720  36 2c 38 34 3a f2 70 6c  6f 74 28 22 61 72 72 6f  |6,84:.plot("arro|
00005730  77 22 2c 37 35 2b 28 28  61 72 72 6f 77 70 6f 73  |w",75+((arrowpos|
00005740  2d 31 29 2a 31 31 34 29  2c 31 33 34 29 3a f2 70  |-1)*114),134):.p|
00005750  6c 61 79 73 61 6d 70 6c  65 28 22 42 69 6e 67 22  |laysample("Bing"|
00005760  2c b3 28 35 30 30 30 29  2b 33 30 30 29 0d 1c 5c  |,.(5000)+300)..\|
00005770  26 69 3d 61 72 72 6f 77  70 6f 73 3a 67 73 70 24  |&i=arrowpos:gsp$|
00005780  3d 62 6c 73 70 24 28 69  29 3a e7 69 3d 31 8c 69  |=blsp$(i):.i=1.i|
00005790  3d 31 30 0d 1c 66 0c e7  69 3d 32 8c 69 3d 30 0d  |=10..f..i=2.i=0.|
000057a0  1c 70 0c e7 69 3d 33 8c  69 3d 39 0d 1c 7a 0d e7  |.p..i=3.i=9..z..|
000057b0  69 3d 34 8c 69 3d 2d 31  0d 1c 84 05 cd 0d 1c 8e  |i=4.i=-1........|
000057c0  05 e1 0d 1c 98 0d dd f2  70 6c 61 79 6c 65 76 0d  |........playlev.|
000057d0  1c a2 27 e7 62 6c 74 79  70 65 24 3d 22 42 69 6f  |..'.bltype$="Bio|
000057e0  6c 6f 67 69 63 61 6c 22  8c ff 22 50 6c 61 79 50  |logical".."PlayP|
000057f0  6f 73 20 31 37 22 0d 1c  ac 26 e7 62 6c 74 79 70  |os 17"...&.bltyp|
00005800  65 24 3d 22 54 65 63 68  6e 69 63 61 6c 22 8c ff  |e$="Technical"..|
00005810  22 50 6c 61 79 50 6f 73  20 32 32 22 0d 1c b6 21  |"PlayPos 22"...!|
00005820  e7 62 6c 74 79 70 65 24  3d 22 4d 61 64 21 22 8c  |.bltype$="Mad!".|
00005830  ff 22 50 6c 61 79 50 6f  73 20 31 35 22 0d 1c c0  |."PlayPos 15"...|
00005840  27 e7 62 6c 74 79 70 65  24 3d 22 49 6e 64 75 73  |'.bltype$="Indus|
00005850  74 72 69 61 6c 22 8c ff  22 50 6c 61 79 50 6f 73  |trial".."PlayPos|
00005860  20 31 39 22 0d 1c ca 05  e1 0d 1c d4 8e dc 20 22  | 19".......... "|
00005870  4d 6f 73 74 20 62 6f 64  61 63 69 6f 75 73 20 64  |Most bodacious d|
00005880  75 64 65 21 22 2c 22 57  65 6c 6c 20 64 6f 6e 65  |ude!","Well done|
00005890  20 2d 20 6c 65 76 65 6c  20 63 6f 6d 70 6c 65 74  | - level complet|
000058a0  65 21 22 2c 22 4e 69 63  65 20 6f 6e 65 20 2d 20  |e!","Nice one - |
000058b0  6c 65 76 65 6c 20 63 6f  6d 70 6c 65 74 65 21 22  |level complete!"|
000058c0  2c 22 41 62 73 6f 6c 75  74 65 6c 79 20 74 65 72  |,"Absolutely ter|
000058d0  72 69 66 69 63 22 2c 22  54 68 61 74 27 73 20 61  |rific","That's a|
000058e0  6d 61 7a 69 6e 67 22 2c  22 41 77 65 73 6f 6d 65  |mazing","Awesome|
000058f0  20 64 75 64 65 21 22 0d  1c de 2d dd f2 6c 65 76  | dude!"...-..lev|
00005900  63 6f 6d 70 6c 65 74 65  3a ff 22 50 6c 61 79 50  |complete:."PlayP|
00005910  6f 73 20 32 34 22 3a d1  3d 30 3a fb 31 34 39 c8  |os 24":.=0:.149.|
00005920  9c 31 32 38 0d 1c e8 16  fb 31 36 c8 9c 32 35 35  |.128.....16..255|
00005930  3a f2 63 6c 6e 6f 74 69  63 65 0d 1c f2 19 f7 8d  |:.clnotice......|
00005940  64 54 5c 3a e3 6c 3d 31  b8 b3 28 36 29 3a f3 61  |dT\:.l=1..(6):.a|
00005950  24 3a ed 0d 1c fc 0f f1  8a 35 31 2c 32 37 29 3b  |$:.......51,27);|
00005960  61 24 0d 1d 06 3b fb 38  39 3a f1 8a 35 31 2c 32  |a$...;.89:..51,2|
00005970  39 29 3b 22 50 61 73 73  77 6f 72 64 20 66 6f 72  |9);"Password for|
00005980  20 6c 65 76 65 6c 20 22  3b 4c 65 76 6e 6f 2b 31  | level ";Levno+1|
00005990  3b 22 3a 22 3b 8a 35 35  2c 33 30 29 3b 0d 1d 10  |;":";.55,30);...|
000059a0  4c e7 4c 65 76 6e 6f 2b  31 3c 3d 64 69 73 6b 6e  |L.Levno+1<=diskn|
000059b0  6f 8c fb 38 39 3a f1 8a  35 31 2c 32 39 29 3b 22  |o..89:..51,29);"|
000059c0  50 61 73 73 77 6f 72 64  20 66 6f 72 20 6c 65 76  |Password for lev|
000059d0  65 6c 20 22 3b 4c 65 76  6e 6f 2b 31 3b 22 3a 22  |el ";Levno+1;":"|
000059e0  3b 8a 35 35 2c 33 30 29  3b 0d 1d 1a 42 4c 65 76  |;.55,30);...BLev|
000059f0  6e 6f 2b 3d 31 3a e7 4c  65 76 6e 6f 3c 3d 64 69  |no+=1:.Levno<=di|
00005a00  73 6b 6e 6f 8c f2 6c 6f  61 64 6e 65 78 74 8b 70  |skno..loadnext.p|
00005a10  61 73 73 24 3d 22 4c 65  76 65 6c 20 53 65 74 20  |ass$="Level Set |
00005a20  43 6f 6d 70 6c 65 74 65  64 21 22 0d 1d 24 14 fb  |Completed!"..$..|
00005a30  30 c8 9c 30 3a f1 70 61  73 73 24 3a d1 3d 30 0d  |0..0:.pass$:.=0.|
00005a40  1d 2e 69 f5 3a f2 70 6c  61 79 73 61 6d 70 6c 65  |..i.:.playsample|
00005a50  28 22 44 72 6f 70 22 2c  35 30 30 30 29 3a c8 96  |("Drop",5000):..|
00005a60  3a c8 96 3a c8 96 3a c8  96 3a f2 70 6c 61 79 73  |:..:..:..:.plays|
00005a70  61 6d 70 6c 65 28 22 44  72 6f 70 22 2c 31 30 30  |ample("Drop",100|
00005a80  30 30 29 3a c8 96 3a c8  96 3a c8 96 3a c8 96 3a  |00):..:..:..:..:|
00005a90  fd 91 3e 31 30 30 3a f1  8a 35 31 2c 32 39 29 3b  |..>100:..51,29);|
00005aa0  c4 32 35 2c 22 20 22 29  0d 1d 38 27 f1 8a 35 31  |.25," ")..8'..51|
00005ab0  2c 33 30 29 3b c4 32 35  2c 22 20 22 29 3a f1 8a  |,30);.25," "):..|
00005ac0  35 31 2c 32 37 29 3b c4  32 37 2c 22 20 22 29 0d  |51,27);.27," ").|
00005ad0  1d 42 05 e1 0d 1d 4c 0e  dd f2 6c 6f 61 64 6e 65  |.B....L...loadne|
00005ae0  78 74 0d 1d 56 34 58 3d  8e 28 22 3c 43 6f 6c 6c  |xt..V4X=.("<Coll|
00005af0  32 24 44 69 72 3e 2e 4c  65 76 65 6c 73 2e 22 2b  |2$Dir>.Levels."+|
00005b00  70 6c 61 79 6c 65 76 24  2b 22 2e 22 2b c3 28 4c  |playlev$+"."+.(L|
00005b10  65 76 6e 6f 29 29 0d 1d  60 26 e8 23 58 2c 70 61  |evno))..`&.#X,pa|
00005b20  73 73 24 2c 73 74 62 6c  2c 66 69 62 6c 2c 6c 69  |ss$,stbl,fibl,li|
00005b30  6d 69 74 2c 62 6c 74 79  70 65 31 24 0d 1d 6a 16  |mit,bltype1$..j.|
00005b40  e3 4b 3d 31 b8 34 3a e8  23 58 2c 6e 6f 28 4b 29  |.K=1.4:.#X,no(K)|
00005b50  3a ed 0d 1d 74 35 e3 6c  6f 6f 70 78 3d 30 b8 32  |:...t5.loopx=0.2|
00005b60  30 3a e3 6c 6f 6f 70 79  3d 30 b8 31 32 3a e8 23  |0:.loopy=0.12:.#|
00005b70  58 2c 67 72 69 64 28 6c  6f 6f 70 78 2c 6c 6f 6f  |X,grid(loopx,loo|
00005b80  70 79 29 3a ed 3a ed 0d  1d 7e 07 d9 23 58 0d 1d  |py):.:...~..#X..|
00005b90  88 17 e7 62 6c 74 79 70  65 24 3c 3e 62 6c 74 79  |...bltype$<>blty|
00005ba0  70 65 31 24 8c 0d 1d 92  14 62 6c 74 79 70 65 24  |pe1$.....bltype$|
00005bb0  3d 62 6c 74 79 70 65 31  24 0d 1d 9c 7b f7 8d 54  |=bltype1$...{..T|
00005bc0  50 44 3a e3 4b 3d 31 b8  31 33 3a f3 73 70 72 69  |PD:.K=1.13:.spri|
00005bd0  74 65 24 3a ff 22 53 44  45 4c 45 54 45 20 22 2b  |te$:."SDELETE "+|
00005be0  73 70 72 69 74 65 24 3a  ed 3a ff 22 53 4d 45 52  |sprite$:.:."SMER|
00005bf0  47 45 20 3c 43 6f 6c 6c  32 24 44 69 72 3e 2e 42  |GE <Coll2$Dir>.B|
00005c00  6c 6f 63 6b 73 2e 22 2b  62 6c 74 79 70 65 24 3a  |locks."+bltype$:|
00005c10  e3 63 3d 31 b8 33 3a ff  22 53 43 4f 50 59 20 43  |.c=1.3:."SCOPY C|
00005c20  6f 72 6e 65 72 20 43 6f  72 6e 65 72 22 2b c3 28  |orner Corner"+.(|
00005c30  63 29 3a ed 0d 1d a6 4b  ff 22 53 66 6c 69 70 58  |c):....K."SflipX|
00005c40  20 43 6f 72 6e 65 72 31  22 3a ff 22 53 66 6c 69  | Corner1":."Sfli|
00005c50  70 59 20 43 6f 72 6e 65  72 32 22 3a ff 22 53 66  |pY Corner2":."Sf|
00005c60  6c 69 70 58 20 43 6f 72  6e 65 72 33 22 3a ff 22  |lipX Corner3":."|
00005c70  53 66 6c 69 70 59 20 43  6f 72 6e 65 72 33 22 0d  |SflipY Corner3".|
00005c80  1d b0 05 cd 0d 1d ba 25  f7 8d 54 50 44 3a e3 72  |.......%..TPD:.r|
00005c90  65 61 64 3d 31 b8 31 37  3a f3 73 70 72 69 74 65  |ead=1.17:.sprite|
00005ca0  24 28 72 65 61 64 29 3a  ed 0d 1d c4 05 e1 0d 1d  |$(read):........|
00005cb0  ce 0f dd f2 67 65 74 6e  75 6d 62 65 72 0d 1d d8  |....getnumber...|
00005cc0  34 58 3d 8e 28 22 3c 43  6f 6c 6c 32 24 44 69 72  |4X=.("<Coll2$Dir|
00005cd0  3e 2e 4c 65 76 65 6c 73  2e 22 2b 70 6c 61 79 6c  |>.Levels."+playl|
00005ce0  65 76 24 2b 22 2e 6c 65  76 65 6c 64 61 74 61 22  |ev$+".leveldata"|
00005cf0  29 0d 1d e2 12 e8 23 58  2c 64 69 73 6b 6e 6f 3a  |).....#X,diskno:|
00005d00  d9 23 58 0d 1d ec 05 e1  0d 1d f6 0e dd f2 66 69  |.#X...........fi|
00005d10  6e 69 73 68 65 64 0d 1e  00 1d fb 31 32 38 c8 9c  |nished.....128..|
00005d20  30 3a db 3a 87 3a ff 22  50 4c 41 59 50 4f 53 20  |0:.:.:."PLAYPOS |
00005d30  31 39 22 0d 1e 0a 1f f2  70 6c 6f 74 28 22 63 6f  |19".....plot("co|
00005d40  6c 6c 69 73 69 6f 6e 73  22 2c 31 32 35 2c 38 30  |llisions",125,80|
00005d50  30 29 0d 1e 14 0b f1 8a  31 2c 39 29 3b 0d 1e 1e  |0)......1,9);...|
00005d60  24 e3 4b 3d 33 b8 32 31  88 33 3a fb 4b 3a f1 22  |$.K=3.21.3:.K:."|
00005d70  57 45 4c 4c 20 44 4f 4e  45 21 20 22 3b 3a ed 3a  |WELL DONE! ";:.:|
00005d80  f1 0d 1e 28 26 e3 4b 3d  30 b8 31 32 37 39 88 35  |...(&.K=0.1279.5|
00005d90  36 3a f2 70 6c 6f 74 28  22 42 61 6c 6c 22 2c 4b  |6:.plot("Ball",K|
00005da0  2c 31 30 30 29 3a ed 0d  1e 32 2d f1 27 3a fb 31  |,100):...2-.':.1|
00005db0  39 3a f1 27 22 43 6f 6e  67 72 61 74 75 6c 61 74  |9:.'"Congratulat|
00005dc0  69 6f 6e 73 20 62 72 61  76 65 20 77 61 72 72 69  |ions brave warri|
00005dd0  6f 72 3a 22 0d 1e 3c 91  fb 34 33 3a f1 27 22 54  |or:"..<..43:.'"T|
00005de0  68 61 6e 6b 73 20 74 6f  20 79 6f 75 72 20 6d 6f  |hanks to your mo|
00005df0  73 74 20 72 61 64 69 63  61 6c 20 70 65 72 66 6f  |st radical perfo|
00005e00  72 6d 61 6e 63 65 2c 20  74 68 65 20 6c 61 73 74  |rmance, the last|
00005e10  20 73 70 68 65 72 69 63  61 6c 20 6f 62 6a 65 63  | spherical objec|
00005e20  74 20 68 61 73 20 62 65  65 6e 20 20 20 20 20 74  |t has been     t|
00005e30  72 61 6e 73 70 6f 72 74  65 64 20 74 68 72 6f 75  |ransported throu|
00005e40  67 68 20 69 6e 66 69 6e  69 74 79 20 61 6e 64 20  |gh infinity and |
00005e50  63 6c 6f 6e 65 64 20 69  6e 20 59 6f 72 6b 73 68  |cloned in Yorksh|
00005e60  69 72 65 2e 22 0d 1e 46  4d fb 34 34 3a f1 27 27  |ire."..FM.44:.''|
00005e70  22 54 68 65 20 66 75 74  75 72 65 20 6f 66 20 66  |"The future of f|
00005e80  6f 6f 74 62 61 6c 6c 20  69 73 20 73 61 66 65 21  |ootball is safe!|
00005e90  22 27 27 3a fb 31 35 3a  f1 22 4c 4f 4e 47 20 4c  |"'':.15:."LONG L|
00005ea0  49 56 45 20 4c 45 45 44  53 20 55 4e 49 54 45 44  |IVE LEEDS UNITED|
00005eb0  21 22 0d 1e 50 07 c8 97  87 0d 1e 5a 0f f5 3a fd  |!"..P......Z..:.|
00005ec0  a6 28 30 29 3c 3e 2d 31  0d 1e 64 05 e1 0d 1e 6e  |.(0)<>-1..d....n|
00005ed0  0d dd f2 64 69 73 74 79  70 65 0d 1e 78 1c e7 69  |...distype..x..i|
00005ee0  3d 31 30 8c 70 72 24 3d  22 52 65 76 65 72 73 65  |=10.pr$="Reverse|
00005ef0  22 3a 6e 62 3d 31 0d 1e  82 1a e7 69 3d 30 8c 70  |":nb=1.....i=0.p|
00005f00  72 24 3d 22 4e 6f 72 6d  61 6c 22 3a 6e 62 3d 32  |r$="Normal":nb=2|
00005f10  0d 1e 8c 1a e7 69 3d 39  8c 70 72 24 3d 22 42 6f  |.....i=9.pr$="Bo|
00005f20  75 6e 63 65 22 3a 6e 62  3d 33 0d 1e 96 19 e7 69  |unce":nb=3.....i|
00005f30  3d 2d 31 8c 70 72 24 3d  22 48 6f 6c 65 22 3a 6e  |=-1.pr$="Hole":n|
00005f40  62 3d 34 0d 1e a0 41 fb  31 32 38 2b 32 31 c8 9c  |b=4...A.128+21..|
00005f50  30 3a fb 36 33 c8 9c 32  35 35 3a f1 8a 33 34 2c  |0:.63..255:..34,|
00005f60  32 36 29 3b 22 42 6c 6f  63 6b 3a 20 22 3b c4 37  |26);"Block: ";.7|
00005f70  2c 22 20 22 29 3b 8a 34  31 2c 32 36 29 3b 70 72  |," ");.41,26);pr|
00005f80  24 3a c8 96 0d 1e aa 26  e7 6e 6f 28 6e 62 29 3d  |$:.....&.no(nb)=|
00005f90  30 8c 70 72 24 3d 22 4e  6f 6e 65 22 8b 70 72 24  |0.pr$="None".pr$|
00005fa0  3d c3 28 6e 6f 28 6e 62  29 29 0d 1e b4 2b f1 8a  |=.(no(nb))...+..|
00005fb0  33 34 2c 32 38 29 3b 22  4e 75 6d 62 65 72 3a 20  |34,28);"Number: |
00005fc0  22 3b c4 34 2c 22 20 22  29 3b 8a 34 32 2c 32 38  |";.4," ");.42,28|
00005fd0  29 3b 70 72 24 0d 1e be  06 c8 96 0d 1e c8 05 e1  |);pr$...........|
00005fe0  0d 1e d2 0e dd f2 63 6c  65 61 72 61 6c 6c 0d 1e  |......clearall..|
00005ff0  dc 0b e6 30 c8 9c 31 39  32 0d 1e e6 15 c8 93 c8  |...0..192.......|
00006000  90 37 35 2c 31 33 34 2c  34 32 30 2c 38 34 0d 1e  |.75,134,420,84..|
00006010  f0 05 e1 0d 1e fa 0e dd  f2 70 61 73 73 77 6f 72  |.........passwor|
00006020  64 0d 1f 04 1a f1 8a 32  37 2c 32 33 29 3b 22 50  |d......27,23);"P|
00006030  61 73 73 77 6f 72 64 3a  20 22 3b 0d 1f 0e 3e e3  |assword: ";...>.|
00006040  62 63 3d 30 b8 32 35 35  3a 62 75 66 66 25 21 62  |bc=0.255:buff%!b|
00006050  63 3d 30 3a ed 3a ee 3a  c8 99 22 4f 53 5f 52 65  |c=0:.:.:.."OS_Re|
00006060  61 64 4c 69 6e 65 22 2c  62 75 66 66 25 2c 31 31  |adLine",buff%,11|
00006070  2c 33 32 2c 31 32 38 3a  87 0d 1f 18 3d fb 33 3a  |,32,128:....=.3:|
00006080  f1 8a 32 37 2c 32 33 29  3b c4 32 32 2c 22 20 22  |..27,23);.22," "|
00006090  29 3b 8a 32 37 2c 32 33  29 3b 22 50 6c 65 61 73  |);.27,23);"Pleas|
000060a0  65 20 77 61 69 74 20 2d  20 73 63 61 6e 6e 69 6e  |e wait - scannin|
000060b0  67 22 3a fb 36 30 0d 1f  22 5c 70 61 24 3d 24 62  |g":.60.."\pa$=$b|
000060c0  75 66 66 25 3a 58 3d 8e  28 22 3c 43 6f 6c 6c 32  |uff%:X=.("<Coll2|
000060d0  24 44 69 72 3e 2e 4c 65  76 65 6c 73 2e 22 2b 70  |$Dir>.Levels."+p|
000060e0  6c 61 79 6c 65 76 24 2b  22 2e 6c 65 76 65 6c 64  |laylev$+".leveld|
000060f0  61 74 61 22 29 3a e8 23  58 2c 70 6e 75 6d 3a d9  |ata"):.#X,pnum:.|
00006100  23 58 3a 70 6c 3d 30 3a  e3 6c 6f 3d 31 b8 70 6e  |#X:pl=0:.lo=1.pn|
00006110  75 6d 0d 1f 2c 40 58 3d  8e 28 22 3c 43 6f 6c 6c  |um..,@X=.("<Coll|
00006120  32 24 44 69 72 3e 2e 4c  65 76 65 6c 73 2e 22 2b  |2$Dir>.Levels."+|
00006130  70 6c 61 79 6c 65 76 24  2b 22 2e 22 2b c3 28 6c  |playlev$+"."+.(l|
00006140  6f 29 29 3a e8 23 58 2c  72 70 61 73 73 24 3a d9  |o)):.#X,rpass$:.|
00006150  23 58 0d 1f 36 1f e7 72  70 61 73 73 24 3d 70 61  |#X..6..rpass$=pa|
00006160  24 8c 70 6c 3d 6c 6f 3a  6c 6f 3d 70 6e 75 6d 2b  |$.pl=lo:lo=pnum+|
00006170  31 0d 1f 40 05 ed 0d 1f  4a 3f e7 70 6c 3d 30 8c  |1..@....J?.pl=0.|
00006180  f1 8a 32 37 2c 32 33 29  3b c4 32 32 2c 22 20 22  |..27,23);.22," "|
00006190  29 3b 8a 32 37 2c 32 33  29 3b 22 49 6e 76 61 6c  |);.27,23);"Inval|
000061a0  69 64 20 50 61 73 73 77  6f 72 64 22 3a 58 3d a6  |id Password":X=.|
000061b0  28 31 30 30 29 0d 1f 54  6c e7 70 6c 3c 3e 30 8c  |(100)..Tl.pl<>0.|
000061c0  f1 8a 32 37 2c 32 33 29  3b c4 32 32 2c 22 20 22  |..27,23);.22," "|
000061d0  29 3b 8a 32 37 2c 32 33  29 3b 22 4c 65 76 65 6c  |);.27,23);"Level|
000061e0  3a 20 22 3b 70 6c 3a 58  3d a6 28 31 30 30 29 3a  |: ";pl:X=.(100):|
000061f0  66 69 72 73 74 3d b9 3a  f2 63 6c 74 3a ff 22 50  |first=.:.clt:."P|
00006200  6c 61 79 50 6f 73 20 31  30 22 3a d1 3d 30 3a 4c  |layPos 10":.=0:L|
00006210  65 76 6e 6f 3d 70 6c 3a  f2 70 6c 61 79 67 61 6d  |evno=pl:.playgam|
00006220  65 0d 1f 5e 05 e1 0d 1f  68 0e dd f2 6d 65 6e 75  |e..^....h...menu|
00006230  6c 6f 61 64 0d 1f 72 50  ea 85 3a ee 85 ea 3a f1  |load..rP..:...:.|
00006240  8a 32 37 2c 32 33 29 3b  c4 32 32 2c 22 20 22 29  |.27,23);.22," ")|
00006250  3b 8a 32 37 2c 32 33 29  3b 22 45 72 72 6f 72 20  |;.27,23);"Error |
00006260  6c 6f 61 64 69 6e 67 20  64 61 74 61 22 3a ff 22  |loading data":."|
00006270  43 4c 4f 53 45 22 3a 58  3d a6 28 31 30 30 29 3a  |CLOSE":X=.(100):|
00006280  f7 85 3a e1 0d 1f 7c 1a  f1 8a 32 37 2c 32 33 29  |..:...|...27,23)|
00006290  3b 22 46 69 6c 65 6e 61  6d 65 3a 20 22 3b 0d 1f  |;"Filename: ";..|
000062a0  86 3e e3 62 63 3d 30 b8  32 35 35 3a 62 75 66 66  |.>.bc=0.255:buff|
000062b0  25 21 62 63 3d 30 3a ed  3a ee 3a c8 99 22 4f 53  |%!bc=0:.:.:.."OS|
000062c0  5f 52 65 61 64 4c 69 6e  65 22 2c 62 75 66 66 25  |_ReadLine",buff%|
000062d0  2c 31 31 2c 33 32 2c 31  32 38 3a 87 0d 1f 90 12  |,11,32,128:.....|
000062e0  e7 a9 28 24 62 75 66 66  25 29 3d 30 8c e1 0d 1f  |..($buff%)=0....|
000062f0  9a 3a 66 69 24 3d 24 62  75 66 66 25 3a 58 3d 8e  |.:fi$=$buff%:X=.|
00006300  28 22 3c 43 6f 6c 6c 32  24 44 69 72 3e 2e 4c 65  |("<Coll2$Dir>.Le|
00006310  76 65 6c 73 2e 22 2b 66  69 24 2b 22 2e 6c 65 76  |vels."+fi$+".lev|
00006320  65 6c 64 61 74 61 22 29  0d 1f a4 3d e7 58 3d 30  |eldata")...=.X=0|
00006330  8c f1 8a 32 37 2c 32 33  29 3b c4 32 32 2c 22 20  |...27,23);.22," |
00006340  22 29 3b 8a 32 37 2c 32  33 29 3b 22 4e 6f 74 20  |");.27,23);"Not |
00006350  66 6f 75 6e 64 22 3a d9  23 58 3a 58 3d a6 28 31  |found":.#X:X=.(1|
00006360  30 30 29 3a e1 0d 1f ae  0a e8 23 58 2c 6c 65 0d  |00):......#X,le.|
00006370  1f b8 4d e7 6c 65 3d 30  8c f1 8a 32 37 2c 32 33  |..M.le=0...27,23|
00006380  29 3b c4 32 32 2c 22 20  22 29 3b 8a 32 37 2c 32  |);.22," ");.27,2|
00006390  33 29 3b 22 46 69 6c 65  20 63 6f 6e 74 61 69 6e  |3);"File contain|
000063a0  73 20 6e 6f 20 6c 65 76  65 6c 73 21 22 3a d9 23  |s no levels!":.#|
000063b0  58 3a 58 3d a6 28 31 30  30 29 3a e1 0d 1f c2 14  |X:X=.(100):.....|
000063c0  d9 23 58 3a 70 6c 61 79  6c 65 76 24 3d 66 69 24  |.#X:playlev$=fi$|
000063d0  0d 1f cc 06 f7 85 0d 1f  d6 05 e1 0d 1f e0 11 dd  |................|
000063e0  f2 62 6c 61 6e 6b 6d 69  64 64 6c 65 0d 1f ea 17  |.blankmiddle....|
000063f0  e7 6e 79 3d 6e 79 31 2b  31 84 6e 79 3d 6e 79 31  |.ny=ny1+1.ny=ny1|
00006400  2d 31 8c 0d 1f f4 1d e7  67 72 69 64 28 6e 78 2c  |-1......grid(nx,|
00006410  6e 79 31 2b 31 29 3d 31  35 8c 73 74 62 6c 3d 30  |ny1+1)=15.stbl=0|
00006420  0d 1f fe 1d e7 67 72 69  64 28 6e 78 2c 6e 79 31  |.....grid(nx,ny1|
00006430  2b 31 29 3d 31 36 8c 66  69 62 6c 3d 30 0d 20 08  |+1)=16.fibl=0. .|
00006440  1c e7 67 72 69 64 28 6e  78 2c 6e 79 2b 31 29 3d  |..grid(nx,ny+1)=|
00006450  31 35 8c 73 74 62 6c 3d  30 0d 20 12 1c e7 67 72  |15.stbl=0. ...gr|
00006460  69 64 28 6e 78 2c 6e 79  2b 31 29 3d 31 36 8c 66  |id(nx,ny+1)=16.f|
00006470  69 62 6c 3d 30 0d 20 1c  48 e7 6e 79 3e 6e 79 31  |ibl=0. .H.ny>ny1|
00006480  8c 67 72 69 64 28 6e 78  2c 6e 79 2b 31 29 3d 30  |.grid(nx,ny+1)=0|
00006490  3a e6 30 2c 30 c8 9c 30  3a c8 93 c8 90 28 6e 78  |:.0,0..0:....(nx|
000064a0  2a 35 32 29 2b 35 32 2c  28 28 6e 79 2b 31 29 2a  |*52)+52,((ny+1)*|
000064b0  35 32 29 2b 33 30 30 2c  35 30 2c 35 30 0d 20 26  |52)+300,50,50. &|
000064c0  4a e7 6e 79 3c 6e 79 31  8c 67 72 69 64 28 6e 78  |J.ny<ny1.grid(nx|
000064d0  2c 6e 79 31 2b 31 29 3d  30 3a e6 30 2c 30 c8 9c  |,ny1+1)=0:.0,0..|
000064e0  30 3a c8 93 c8 90 28 6e  78 2a 35 32 29 2b 35 32  |0:....(nx*52)+52|
000064f0  2c 28 28 6e 79 31 2b 31  29 2a 35 32 29 2b 33 30  |,((ny1+1)*52)+30|
00006500  30 2c 35 30 2c 35 30 0d  20 30 05 cd 0d 20 3a 18  |0,50,50. 0... :.|
00006510  e7 6e 79 3d 6e 79 31 2b  31 84 6e 79 3d 6e 79 31  |.ny=ny1+1.ny=ny1|
00006520  2d 31 8c e1 0d 20 44 0b  e6 30 2c 30 c8 9c 30 0d  |-1... D..0,0..0.|
00006530  20 4e 0c e7 6e 79 3e 6e  79 31 8c 0d 20 58 15 e3  | N..ny>ny1.. X..|
00006540  6c 6f 6f 70 79 3d 6e 79  31 2b 31 b8 6e 79 2d 31  |loopy=ny1+1.ny-1|
00006550  0d 20 62 1d e7 67 72 69  64 28 6e 78 2c 6c 6f 6f  |. b..grid(nx,loo|
00006560  70 79 29 3d 31 35 8c 73  74 62 6c 3d 30 0d 20 6c  |py)=15.stbl=0. l|
00006570  1d e7 67 72 69 64 28 6e  78 2c 6c 6f 6f 70 79 29  |..grid(nx,loopy)|
00006580  3d 31 36 8c 66 69 62 6c  3d 30 0d 20 76 40 67 72  |=16.fibl=0. v@gr|
00006590  69 64 28 6e 78 2c 6c 6f  6f 70 79 29 3d 30 3a e6  |id(nx,loopy)=0:.|
000065a0  30 2c 30 c8 9c 30 3a c8  93 c8 90 28 6e 78 2a 35  |0,0..0:....(nx*5|
000065b0  32 29 2b 35 32 2c 28 6c  6f 6f 70 79 2a 35 32 29  |2)+52,(loopy*52)|
000065c0  2b 33 30 30 2c 35 30 2c  35 30 0d 20 80 05 ed 0d  |+300,50,50. ....|
000065d0  20 8a 1c e7 67 72 69 64  28 6e 78 2c 6e 79 2b 31  | ...grid(nx,ny+1|
000065e0  29 3d 31 35 8c 73 74 62  6c 3d 30 0d 20 94 1c e7  |)=15.stbl=0. ...|
000065f0  67 72 69 64 28 6e 78 2c  6e 79 2b 31 29 3d 31 36  |grid(nx,ny+1)=16|
00006600  8c 66 69 62 6c 3d 30 0d  20 9e 40 67 72 69 64 28  |.fibl=0. .@grid(|
00006610  6e 78 2c 6e 79 2b 31 29  3d 30 3a e6 30 2c 30 c8  |nx,ny+1)=0:.0,0.|
00006620  9c 30 3a c8 93 c8 90 28  6e 78 2a 35 32 29 2b 35  |.0:....(nx*52)+5|
00006630  32 2c 28 28 6e 79 2b 31  29 2a 35 32 29 2b 33 30  |2,((ny+1)*52)+30|
00006640  30 2c 35 30 2c 35 30 0d  20 a8 05 cd 0d 20 b2 0c  |0,50,50. .... ..|
00006650  e7 6e 79 3c 6e 79 31 8c  0d 20 bc 18 e3 6c 6f 6f  |.ny<ny1.. ...loo|
00006660  70 79 3d 6e 79 31 2d 31  b8 6e 79 2b 31 88 2d 31  |py=ny1-1.ny+1.-1|
00006670  0d 20 c6 40 67 72 69 64  28 6e 78 2c 6c 6f 6f 70  |. .@grid(nx,loop|
00006680  79 29 3d 30 3a e6 30 2c  30 c8 9c 30 3a c8 93 c8  |y)=0:.0,0..0:...|
00006690  90 28 6e 78 2a 35 32 29  2b 35 32 2c 28 6c 6f 6f  |.(nx*52)+52,(loo|
000066a0  70 79 2a 35 32 29 2b 33  30 30 2c 35 30 2c 35 30  |py*52)+300,50,50|
000066b0  0d 20 d0 1d e7 67 72 69  64 28 6e 78 2c 6c 6f 6f  |. ...grid(nx,loo|
000066c0  70 79 29 3d 31 35 8c 73  74 62 6c 3d 30 0d 20 da  |py)=15.stbl=0. .|
000066d0  1d e7 67 72 69 64 28 6e  78 2c 6c 6f 6f 70 79 29  |..grid(nx,loopy)|
000066e0  3d 31 36 8c 66 69 62 6c  3d 30 0d 20 e4 05 ed 0d  |=16.fibl=0. ....|
000066f0  20 ee 1d e7 67 72 69 64  28 6e 78 2c 6e 79 31 2b  | ...grid(nx,ny1+|
00006700  31 29 3d 31 35 8c 73 74  62 6c 3d 30 0d 20 f8 1d  |1)=15.stbl=0. ..|
00006710  e7 67 72 69 64 28 6e 78  2c 6e 79 31 2b 31 29 3d  |.grid(nx,ny1+1)=|
00006720  31 36 8c 66 69 62 6c 3d  30 0d 21 02 42 67 72 69  |16.fibl=0.!.Bgri|
00006730  64 28 6e 78 2c 6e 79 31  2b 31 29 3d 30 3a e6 30  |d(nx,ny1+1)=0:.0|
00006740  2c 30 c8 9c 30 3a c8 93  c8 90 28 6e 78 2a 35 32  |,0..0:....(nx*52|
00006750  29 2b 35 32 2c 28 28 6e  79 31 2b 31 29 2a 35 32  |)+52,((ny1+1)*52|
00006760  29 2b 33 30 30 2c 35 30  2c 35 30 0d 21 0c 05 cd  |)+300,50,50.!...|
00006770  0d 21 16 05 e1 0d 21 20  35 dd f2 69 6e 76 61 6c  |.!....! 5..inval|
00006780  69 64 3a fb 33 3a f1 27  22 49 6e 76 61 6c 69 64  |id:.3:.'"Invalid|
00006790  20 6c 65 76 65 6c 20 6e  75 6d 62 65 72 2e 22 3a  | level number.":|
000067a0  6b 3d a6 28 34 30 30 29  3a e1 0d 21 2a 3a dd f2  |k=.(400):..!*:..|
000067b0  70 72 69 6e 74 6c 69 76  65 73 3a fb 31 32 38 2b  |printlives:.128+|
000067c0  32 31 c8 9c 30 3a fb 33  c8 9c 30 3a f1 8a 33 34  |21..0:.3..0:..34|
000067d0  2c 33 30 29 3b 22 4c 69  76 65 73 3a 20 22 3b 4c  |,30);"Lives: ";L|
000067e0  69 76 65 73 0d 21 34 05  e1 0d 21 3e 0f dd f2 73  |ives.!4...!>...s|
000067f0  61 76 65 65 72 72 6f 72  0d 21 48 0f ea 85 3a ee  |aveerror.!H...:.|
00006800  85 ea 3a f7 85 3a e1 0d  21 52 11 ff 22 43 4c 4f  |..:..:..!R.."CLO|
00006810  53 45 22 3a f7 85 3a e1  0d 21 66 28 dd f2 69 6e  |SE":..:..!f(..in|
00006820  66 6f 3a db 3a 87 3a f2  70 6c 6f 74 28 22 43 6f  |fo:.:.:.plot("Co|
00006830  6c 6c 69 73 69 6f 6e 73  22 2c 30 2c 38 30 30 29  |llisions",0,800)|
00006840  0d 21 70 1a f2 70 6c 6f  74 28 22 69 6e 66 6f 22  |.!p..plot("info"|
00006850  2c 31 30 30 30 2c 38 30  30 29 0d 21 7a 1e e6 30  |,1000,800).!z..0|
00006860  2c 36 33 c8 9c 32 35 35  3a 86 30 2c 37 39 30 2c  |,63..255:.0,790,|
00006870  31 32 37 39 2c 37 39 30  0d 21 84 64 f1 8a 30 2c  |1279,790.!.d..0,|
00006880  38 29 3b 3a fb 31 31 3a  f1 27 22 43 6f 6c 6c 69  |8);:.11:.'"Colli|
00006890  73 69 6f 6e 73 20 32 30  30 30 20 77 61 73 20 70  |sions 2000 was p|
000068a0  72 6f 64 75 63 65 64 20  62 79 20 41 52 4d 20 52  |roduced by ARM R|
000068b0  65 73 65 61 72 63 68 20  66 72 6f 6d 20 32 34 74  |esearch from 24t|
000068c0  68 20 44 65 63 2e 20 31  39 39 32 20 2d 20 36 74  |h Dec. 1992 - 6t|
000068d0  68 20 4d 61 79 20 31 39  39 33 22 27 0d 21 8e 2f  |h May 1993"'.!./|
000068e0  fb 36 30 3a f1 27 22 43  6f 64 65 2c 20 6d 75 73  |.60:.'"Code, mus|
000068f0  69 63 2c 20 67 72 61 70  68 69 78 3a 20 52 69 63  |ic, graphix: Ric|
00006900  68 61 72 64 20 53 68 61  72 70 22 0d 21 98 3a fb  |hard Sharp".!.:.|
00006910  31 33 3a f1 22 41 64 64  69 74 69 6f 6e 61 6c 20  |13:."Additional |
00006920  67 72 61 70 68 69 78 2c  20 61 64 64 69 74 69 6f  |graphix, additio|
00006930  6e 61 6c 20 63 6f 64 65  3a 20 44 61 6e 20 43 6c  |nal code: Dan Cl|
00006940  61 72 6b 65 22 0d 21 a2  2c fb 31 39 c8 9c 32 35  |arke".!.,.19..25|
00006950  35 3a f1 22 47 61 6d 65  20 64 65 73 69 67 6e 3a  |5:."Game design:|
00006960  20 4a 6f 6e 61 74 68 61  6e 20 53 68 61 72 70 22  | Jonathan Sharp"|
00006970  27 0d 21 ac 22 fb 35 37  3a f1 22 46 72 6f 6d 20  |'.!.".57:."From |
00006980  74 68 65 20 6d 61 69 6e  20 6d 65 6e 75 20 2e 2e  |the main menu ..|
00006990  2e 22 27 0d 21 b6 3b fb  31 35 3a f1 22 20 20 43  |."'.!.;.15:."  C|
000069a0  6c 69 63 6b 20 6f 6e 20  74 68 65 20 27 3f 3f 27  |lick on the '??'|
000069b0  20 69 63 6f 6e 20 74 6f  20 75 73 65 20 74 68 65  | icon to use the|
000069c0  20 6c 65 76 65 6c 20 65  64 69 74 6f 72 22 0d 21  | level editor".!|
000069d0  c0 37 fb 31 34 3a f1 22  20 20 43 6c 69 63 6b 20  |.7.14:."  Click |
000069e0  6f 6e 20 74 68 65 20 27  41 63 6f 72 6e 27 20 69  |on the 'Acorn' i|
000069f0  63 6f 6e 20 74 6f 20 71  75 69 74 20 74 68 65 20  |con to quit the |
00006a00  67 61 6d 65 22 0d 21 ca  37 fb 31 33 3a f1 22 20  |game".!.7.13:." |
00006a10  20 43 6c 69 63 6b 20 6f  6e 20 27 4c 6f 61 64 27  | Click on 'Load'|
00006a20  20 74 6f 20 6c 6f 61 64  20 69 6e 20 61 20 6e 65  | to load in a ne|
00006a30  77 20 6c 65 76 65 6c 20  73 65 74 22 0d 21 d4 34  |w level set".!.4|
00006a40  fb 31 32 3a f1 22 20 20  43 6c 69 63 6b 20 6f 6e  |.12:."  Click on|
00006a50  20 27 50 61 73 73 77 6f  72 64 27 20 74 6f 20 65  | 'Password' to e|
00006a60  6e 74 65 72 20 61 20 70  61 73 73 77 6f 72 64 22  |nter a password"|
00006a70  0d 21 de 50 fb 31 31 3a  f1 22 20 20 43 6c 69 63  |.!.P.11:."  Clic|
00006a80  6b 20 6f 6e 20 27 45 6e  74 65 72 20 74 68 65 20  |k on 'Enter the |
00006a90  4d 61 67 69 63 20 44 72  61 69 6e 70 69 70 65 27  |Magic Drainpipe'|
00006aa0  20 6f 72 20 70 72 65 73  73 20 74 68 65 20 73 70  | or press the sp|
00006ab0  61 63 65 20 62 61 72 20  74 6f 20 70 6c 61 79 22  |ace bar to play"|
00006ac0  0d 21 e8 34 fb 37 3a f1  22 20 20 43 6c 69 63 6b  |.!.4.7:."  Click|
00006ad0  20 6f 6e 20 27 44 65 6d  6f 20 4d 6f 64 65 27 20  | on 'Demo Mode' |
00006ae0  66 6f 72 20 61 20 64 65  6d 6f 6e 73 74 72 61 74  |for a demonstrat|
00006af0  69 6f 6e 22 0d 21 f2 46  fb 33 30 3a f1 22 20 20  |ion".!.F.30:."  |
00006b00  55 73 65 20 74 68 65 20  27 73 70 65 61 6b 65 72  |Use the 'speaker|
00006b10  27 20 69 63 6f 6e 73 20  74 6f 20 74 75 72 6e 20  |' icons to turn |
00006b20  74 68 65 20 67 61 6d 65  20 53 4f 55 4e 44 20 6f  |the game SOUND o|
00006b30  6e 20 61 6e 64 20 6f 66  66 22 0d 21 fc 3f fb 31  |n and off".!.?.1|
00006b40  35 3a f1 22 20 20 55 73  65 20 74 68 65 20 27 6d  |5:."  Use the 'm|
00006b50  75 73 69 63 27 20 69 63  6f 6e 73 20 74 6f 20 74  |usic' icons to t|
00006b60  75 72 6e 20 74 68 65 20  4d 55 53 49 43 20 6f 6e  |urn the MUSIC on|
00006b70  20 61 6e 64 20 6f 66 66  22 0d 22 06 4f fb 33 c8  | and off".".O.3.|
00006b80  9c 32 35 35 3a f1 27 22  46 6f 72 20 66 75 6c 6c  |.255:.'"For full|
00006b90  20 69 6e 73 74 72 75 63  74 69 6f 6e 73 20 70 6c  | instructions pl|
00006ba0  65 61 73 65 20 72 65 61  64 20 74 68 65 20 21 48  |ease read the !H|
00006bb0  65 6c 70 20 66 69 6c 65  20 6f 6e 20 74 68 65 20  |elp file on the |
00006bc0  41 57 20 64 69 73 63 22  0d 22 10 37 fb 34 35 3a  |AW disc".".7.45:|
00006bd0  f1 27 22 50 72 65 73 73  20 61 6e 79 20 6b 65 79  |.'"Press any key|
00006be0  20 2f 20 63 6c 69 63 6b  20 6d 6f 75 73 65 20 74  | / click mouse t|
00006bf0  6f 20 63 6f 6e 74 69 6e  75 65 20 2e 2e 2e 22 0d  |o continue ...".|
00006c00  22 1a 1f f5 3a c8 97 58  2c 59 2c 42 3a 4b 3d a6  |"...:..X,Y,B:K=.|
00006c10  28 30 29 3a fd 42 3d 30  80 20 4b 3d 2d 31 0d 22  |(0):.B=0. K=-1."|
00006c20  24 20 f5 3a c8 97 58 2c  59 2c 42 3a 4b 3d a6 28  |$ .:..X,Y,B:K=.(|
00006c30  30 29 3a fd 42 3c 3e 30  84 4b 3c 3e 2d 31 0d 22  |0):.B<>0.K<>-1."|
00006c40  2e 1f f5 3a c8 97 58 2c  59 2c 42 3a 4b 3d a6 28  |...:..X,Y,B:K=.(|
00006c50  30 29 3a fd 42 3d 30 80  20 4b 3d 2d 31 0d 22 38  |0):.B=0. K=-1."8|
00006c60  05 e1 0d 22 4c 27 dd f2  70 6c 61 79 73 61 6d 70  |..."L'..playsamp|
00006c70  6c 65 28 73 61 6d 70 24  2c 70 69 74 63 68 29 3a  |le(samp$,pitch):|
00006c80  e3 63 68 61 6e 3d 35 b8  36 0d 22 56 2b c8 99 22  |.chan=5.6."V+.."|
00006c90  53 6f 75 6e 64 5f 41 74  74 61 63 68 4e 61 6d 65  |Sound_AttachName|
00006ca0  64 56 6f 69 63 65 22 2c  63 68 61 6e 2c 73 61 6d  |dVoice",chan,sam|
00006cb0  70 24 3a ed 0d 22 60 23  e3 63 68 61 6e 3d 35 b8  |p$:.."`#.chan=5.|
00006cc0  36 3a d4 63 68 61 6e 2c  2d 31 35 2c 70 69 74 63  |6:.chan,-15,pitc|
00006cd0  68 2c 31 30 30 3a ed 0d  22 6a 05 e1 0d 22 7e 0e  |h,100:.."j..."~.|
00006ce0  dc 20 33 2c 37 2c 39 2c  31 37 0d 22 92 0a dd f2  |. 3,7,9,17."....|
00006cf0  64 65 6d 6f 0d 22 9c 23  64 65 6d 6f 3d b9 3a f7  |demo.".#demo=.:.|
00006d00  8d 44 7e 62 3a e3 58 3d  31 b8 b3 28 34 29 3a f3  |.D~b:.X=1..(4):.|
00006d10  4c 65 76 6e 6f 3a ed 0d  22 a6 14 f2 70 6c 61 79  |Levno:.."...play|
00006d20  67 61 6d 65 3a 64 65 6d  6f 3d a3 0d 22 b0 05 e1  |game:demo=.."...|
00006d30  0d ff                                             |..|
00006d32