Arachno

Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape32a_acorn_eu_1992_march.wav » Arachno

Arachno

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape32a_acorn_eu_1992_march.wav
Filename:	Arachno
Read OK:	✔
File size:	1A19 bytes
Load address:	FFFFFB43
Exec address:	FFFF2F30

Duplicates

There are 2 duplicate copies of this file in the archive:

AEW website » mu » mu_5_25_discs_Micro_User_10_01_D-MU10_01.ssd » Arachno
Personal collection » Acorn tapes » Electron_User » Electron_User_tape32a_acorn_eu_1992_march.wav » Arachno
Personal collection » Acorn tapes » Electron_User » Electron_User_tape32b_acorn_eu_1992_march.wav » Arachno

File contents

   10REM > <basicsave$dir>.Arachnoid
   20REM by Steve Turnbull
   30REM (c) The Micro User
   40MODE4:PROCi:ONERRORPROCer
   50REPEATPROCht(KT%):REPEATPROCig:REPEATIFTIME>!FNj(I%)PROCdo(I%)
   60I%=(I%+1)MODN%:UNTIL(G%=0)OR(me%!E%<=0):PROCw(100)
   70UNTILG%>0:PROCrd:UNTILFALSE
   80DEFPROCi:VDU23,1,0;0;0;0;:Z%=RND(-TIME):*FX4,1
   90hs%=10:DIMhs%(hs%),hs$(hs%):KT%=TRUE
  100FORH%=1TOhs%:hs%(H%)=H%*10:hs$(H%)="The Micro User":NEXT
  110lx%=0:wx%=39:ty%=0:hy%=24:my%=31:X%=lx%+1:Y%=ty%+1:oX%=-1:oY%=-1:ww%=wx%
  120hw%=my%:op%=1:oe%=2:ow%=3:ot%=4:og%=5:om%=6:of%=7:ob%=8:or%=9:B%=128
  130VDU&8017;-1;-1;-1;-1;&8117;&7E18;&FF7E;&7EFF;&187E;
  140VDU&8217;&0603;&1E0C;&180C;&6030;&8317;&B800;&FFFE;&B8FE;0;
  150VDU&8417;&81FF;&BDBD;&9999;&FF81;&8517;&3E00;&6E7E;&6E56;&7C;
  160VDU&8617;&3C42;&7EDB;&7E3C;&8142;&8717;&320C;&566C;&5C3A;&3068;
  170VDU&8817;&55AA;&55AA;&55AA;&55AA;&8917;0;&1800;&18;0;
  180mo%=30:T%=0:X%=4:Y%=8:E%=16:J%=20:D%=24:S%=28:H%=ASC".":DIMO%mo%*(S%+4)
  190nx%=126-H%:mu%=-88:md%=-104:ml%=-98:mr%=-67:fr%=-74:IFPAGE<&8000md%=-105
  200nL%=1:ENDPROC
  210DEFPROCer:IFERR=17IFNOTINKEY-1KT%=TRUE:ENDPROC
  220ONERROROFF:VDU23,1,1;0;0;0;26,12:*FX15
  230REPORT:PRINT" at ";ERL:END
  240DEFPROCcls(X%,Y%,U%,V%,C%)VDU28X%Y%+V%X%+U%Y%:ww%=U%:hw%=V%
  250IFC%>-1VDU17C%+128,17,1-C%,12:ELSEVDU26,17,128,17,1:ww%=wx%:hw%=my%
  260ENDPROC
  270DEFPROCht(T%)REPEATIFT%PROCin:ELSEPROChs
  280PROCcn("Press SPACE to play",30)
  290T%=NOTT%:K%=FNkp(" ",500):UNTILK%:L%=0:sc%=0:cs%=5:fs%=10:ff%=0:ENDPROC
  300DEFFNkp(k$,T%)LOCALK%:T%=T%+TIME:REPEATK%=INSTR(CHR$255+k$,INKEY$0)-1:UNTILK%ORTIME>T%:=K%
  310DEFPROCin:PROCh("Instructions",0):PROCcn("Destroy all generators on each level",5)
  320PROCci(128,"Wall"):PROCci(129,"You"):PROCci(130,"Energy")
  330PROCci(131,"Weapon"):PROCci(132,"Teleport"):PROCci(133,"Generator")
  340PROCci(134,"Monster"):PROCci(135,"Fungus"):PROCci(136,"Barrier"):ENDPROC
  350DEFPROCci(C%,s$)PROCcn(CHR$C%+STRING$(20-LENs$,".")+s$,9+(C%-128)):ENDPROC
  360DEFPROChs:LOCALQ%,R%:PROCh("High scores",0):FORQ%=1TOhs%:R%=20-LENhs$(Q%)
  370PRINTTAB(5,7+hs%-Q%)hs$(Q%)STRING$(R%,".")FNn(hs%(Q%)):NEXT:ENDPROC
  380DEFFNn(N%)=RIGHT$("......."+STR$N%,8)
  390DEFPROCh(k$,Y%)VDU26:CLS:PROCcn(k$,Y%):ENDPROC
  400DEFPROCig:VDU26,12:I%=0:L%=L%+1:IF(L%-1)MODnL%=0RESTORE:READnL%
  410PROCh("Level "+STR$L%,13):PROCw(50):PROCcn("Get Ready...",16):PROCw(200)
  420PROCdl(L%):PRINTTAB(5,26)"Energy:"TAB(6,28)"Score:";:ENDPROC
  430DEFPROCw(T%)T%=T%+TIME:REPEATUNTILTIME>T%:ENDPROC
  440DEFPROCdl(L%):PROCcls(lx%,ty%,wx%,hy%,1)
  450PROCcls(lx%+1,ty%+1,wx%-2,hy%-2,0):PROCds(L%):ENDPROC
  460DEFPROCds(L%)LOCALF%,Q%,o$:VDU26:READF%,o$:K%=B%:FORQ%=1TOF%-1:PROCdd:NEXT:PROCdob(o$):ENDPROC
  470DEFPROCdd:LOCALP%,s$:READs$:FORP%=1TOLENs$
  480PRINTSTRING$(ASCMID$(s$,P%)-H%,CHR$K%);:K%=ABS(K%-B%-32):NEXT:ENDPROC
  490DEFPROCdob(s$)LOCALP%:N%=0:G%=0:REPEATPROCno(FNv,FNv,FNv,FNv,TIME,FNv,FNv):UNTILP%>=LENs$:ENDPROC
  500DEFFNv:P%=P%+1:LOCALc$:c$=MID$(s$,P%,1):IFc$<>"!"=ASCc$-H%
  510P%=P%+2:=nx%*(ASCMID$(s$,P%-1)-H%)+ASCMID$(s$,P%)-H%
  520DEFPROCno(t%,x%,y%,e%,j%,d%,s%)IFN%=mo%ENDPROC:ELSEIFt%=og%G%=G%+1ELSEIFt%=op%me%=FNao(N%)
  530PROCso(N%):PROCpo(N%):N%=N%+1:ENDPROC
  540DEFPROCko(I%)PROCgo(N%-1):PROCso(I%):N%=N%-1:ENDPROC
  550DEFPROCgo(N%)LOCALZ%:Z%=FNao(N%):t%=Z%!T%:x%=Z%!X%:y%=Z%!Y%:e%=Z%!E%:j%=Z%!J%:d%=Z%!D%:s%=Z%!S%:ENDPROC
  560DEFPROCso(N%)LOCALZ%:Z%=FNao(N%):Z%!T%=t%:Z%!X%=x%:Z%!Y%=y%:Z%!E%=e%:Z%!J%=j%:Z%!D%=d%:Z%!S%=s%:ENDPROC
  570DEFPROCpo(N%)LOCALZ%:Z%=FNao(N%):VDU31Z%!X%Z%!Y%Z%!T%+B%:ENDPROC
  580DEFFNao(N%)=O%+N%*(S%+4)
  590DEFFNj(N%)=J%+FNao(N%)
  600DEFPROCdo(I%)PROCgo(I%):PROCe:IFt%=0ENDPROC:ELSEj%=TIME+ABSs%*cs%
  610IFt%=op%PROCop(INKEYml%-INKEYmr%,INKEYmu%-INKEYmd%,INKEYfr%)ELSEIFt%=og%PROCog:ELSEIFt%=om%PROCom(SGN(U%-x%),SGN(V%-y%)):ELSEIFt%=of%PROCof:ELSEIFt%=or%PROCor
  620PROCso(I%):ENDPROC
  630DEFPROCe:IFe%>0ENDPROC
  640VDU31x%y%32:IFt%=om%PROCnf(x%,y%,5,30)ELSEIFt%=og%G%=G%-1
  650t%=0:PROCko(I%):ENDPROC
  660DEFPROCop(u%,v%,F%)PROCdt:IFff%ff%=ff%-1ELSE*FX21
  670IFF%PROCf:ELSEPROChop
  680U%=x%:V%=y%:ENDPROC
  690DEFPROCdt:PRINTTAB(13,26);e%SPC2TAB(13,28);sc%;:ENDPROC
  700DEFPROCf:IFu%=0IFv%=0ENDPROC:ELSEIFff%ENDPROC
  710LOCALC%:C%=FNc(x%+u%,y%+v%):IFC%=32PROCno(or%,x%+u%,y%+v%,e%,TIME,(u%*&10000)+(v%AND&FFFF),1)ELSEPROChor(C%,x%+u%,y%+v%)
  720ff%=fs%:e%=e%-1:ENDPROC
  730DEFPROChop:IFu%=0IFv%=0ENDPROC:ELSELOCALC%,Z%:u%=x%+u%:v%=y%+v%
  740C%=FNc(u%,v%):IFC%=32VDU31x%y%32,31u%v%t%+B%:x%=u%:y%=v%:ENDPROC
  750C%=C%-B%:IFC%=0ENDPROC:ELSEZ%=FNao(FNf(C%,u%,v%))
  760IFC%=ot%PROCtp(Z%,u%,v%):ENDPROC
  770IFC%=oe%PROCze(-Z%!E%):PROCzk(Z%):ENDPROC
  780IFC%=of%PROCze(Z%!E%):PROCde(Z%,1):ENDPROC
  790IFC%=ow%PROCwp:ENDPROC:ELSEIFC%=ob%PROCde(Z%,1):PROCze(2):ENDPROC
  800IFC%<>t%IFC%=om%ORC%=op%PROCde(Z%,2):PROCze(1)
  810ENDPROC
  820DEFFNf(C%,x%,y%)LOCALL%,K%:K%=-1
  830FORL%=0TON%-1:Z%=FNao(L%):IFZ%!T%=C%IFZ%!X%=x%IFZ%!Y%=y%K%=L%:L%=N%
  840NEXT:=K%
  850DEFPROCde(I%,V%)V%=I%!E%-V%:IFV%<0V%=0
  860I%!E%=V%:IFI%!T%=om%I%!J%=I%!J%+I%!S%ELSEI%!J%=TIME
  870ENDPROC
  880DEFPROCze(Z%)e%=e%-Z%:ENDPROC
  890DEFPROCzk(Z%)Z%!E%=0:Z%!J%=TIME:ENDPROC
  900DEFPROCwp:PROCzk(Z%):IFt%=op%IFfs%>2fs%=fs%-1:ELSEIFt%=om%IFs%>1s%=s%-1
  910ENDPROC
  920DEFPROCtp(Z%,P%,Q%)LOCALu%,v%:u%=Z%!D%DIV64:v%=Z%!D%MOD64
  930VDU31x%y%32,31u%v%t%+B%:x%=u%:y%=v%:Z%!E%=Z%!E%-1:ENDPROC
  940DEFPROCog:IFd%IFRND(300)=1IFFNr(x%,y%)=32PROCnm(x%+u%,y%+v%,e%/2,s%+RND(3)):d%=d%-1:IFd%<1d%=0
  950ENDPROC
  960DEFPROCnm(x%,y%,e%,s%)PROCno(om%,x%,y%,e%,TIME+s%*2,0,s%):ENDPROC
  970DEFPROCom(u%,v%)IFABSu%EORABSv%ELSEIFRND(2)=1u%=0ELSEv%=0
  980PROChop:ENDPROC
  990DEFPROCof:IFRND(50)=1IFFNr(x%,y%)=32PROCnf(x%+u%,y%+v%,e%-1,s%+RND(3)-1)
 1000ENDPROC
 1010DEFFNr(x%,y%)LOCALK%:u%=0:v%=0:K%=RND(4):IFK%=1u%=1:v%=0ELSEIFK%=2u%=-1:v%=0ELSEIFK%=3u%=0:v%=1ELSEIFK%=4u%=0:v%=-1
 1020=FNc(x%+u%,y%+v%)
 1030DEFPROCnf(x%,y%,e%,s%)PROCno(of%,x%,y%,e%,TIME+s%*2,0,s%):ENDPROC
 1040DEFPROCor:LOCALu%,v%:v%=d%AND&FFFF:u%=d%DIV&10000:IFv%>1v%=-1
 1050C%=FNc(x%+u%,y%+v%):VDU31x%y%32:IFC%=32u%=x%+u%:v%=y%+v%:VDU31u%v%t%+B%:x%=u%:y%=v%ELSEPROChor(C%,x%+u%,y%+v%):t%=0
 1060ENDPROC
 1070DEFPROChor(C%,x%,y%)C%=C%-B%:IFC%=0ENDPROC
 1080LOCALK%:K%=FNf(C%,x%,y%):IFK%>-1PROCde(FNao(K%),e%):sc%=sc%+5
 1090ENDPROC
 1100DEFFNc(X%,Y%)LOCALA%:A%=135:VDU31X%Y%:=(USR(&FFF4)AND&FF00)DIV256
 1110DEFPROCm(k$)PROCcls(lx%,my%,wx%,0,0):PROCcn(k$,0):ENDPROC
 1120DEFPROCcn(k$,Y%)PRINTTAB((ww%-LENk$)/2,Y%)k$;:ENDPROC
 1130DEFFNm(t$,m$)LOCALo$,M%,X%:m$=m$+d$:PROCt(t$):X%=(ww%-LENt$)/2:REPEAT
 1140o$=o$+CHR$ASCm$:P%=INSTR(m$,d$):PRINTTAB(X%,M%)LEFT$(m$,P%-1);
 1150m$=MID$(m$,P%+1):M%=M%+1:UNTILm$="":=o$
 1160DEFPROCt(t$)PROCm(""):PROCcls(lx%,my%-6,wx%/3,0,0):PROCcn(t$,0):PROCcls(lx%,my%-5,wx%/3,5,1):ENDPROC
 1170DEFPROCrd:sc%=sc%+me%!E%:VDU26,12:PROCcn("Game Over",7):PROCw(200):*FX15
 1180KT%=FALSE:IFsc%<hs%(1)PROCw(200):ENDPROC:ELSELOCALA%,B%
 1190CLS:PROCcn("Well done!",8):PROCcn("You've made a new high score",10)
 1200PROCcn("Enter your name",12):INPUTTAB(15,14)".........."TAB(15,14)n$
 1210A%=2:REPEATB%=A%-1:IFsc%>hs%(A%)hs%(B%)=hs%(A%):hs$(B%)=hs$(A%)
 1220A%=A%+1:UNTILsc%<hs%(A%)ORA%=hs%:hs%(A%)=sc%:hs$(A%)=LEFT$(n$,10):ENDPROC
 1230=============================
 1240DATA4
 1250DATA2
 1260DATA4A@8.36A8V.B6B4V.B6@4V.B3A2`0B1M28.80;2B.B2E@8!J282E28!:282228!@Z8/AD=.04=:8.5
 1270DATAWT0/R/0//</1/=//0//</1/=//0//</1/=//0/>///?/0//</1/=//0//</1/=//0//</1/=//0//84/49//0//8/9/9//0//8/9/9//0//8/9/9//0//8;9//0//P//0//83139//0//8/9/9//0//8/9/9//0//8/9/9//0//8;9//0//P//0/>1?/0TW
 1280DATA3
 1290DATA3S:`0/4O48.54O@8.5//::.061:8.>63:8.?65:8.@67:8.A69:8.B0I:`.B3B:`.V2T:8!>480348.B1338.813A8.803@8.B2:?0!>082:50!>D86;:8.B6H:3.B
 1300DATAWF/;0/<7/;0//:/7/;0///8///5//;0////6/////3///;0////6/////3/=0///6//////3///;0//8/////3///;0/:////3///;0<///3///;?//3//>>/3/=?//3//><///3///;0/:////3///;0//8/////3///;0///6//////3///;0////6/////3/=0////
 1310DATA6/////3///;0///8///5//;0//:/7/;0/<7/;0F/;W
 1320DATA3
 1330DATA/A:5./4;48.34;@8.34G@8.34G48.36A3/.B6AA/.B6H:/.B6::/.B67:/.B6K:/.B3N:/BV34:/BV
 1340DATAWT0T0T0T095/5:09/;/:09/151/:0050/;/05100/3/0////1/1////0/3/100/3/0/////3/////0/3/100/3/0/////3/////0/3/100/8/7/8/100/3/0/////3/////0/3/100/3/0/////3/////0/3/100/3/0////1/1////0/3/10050/;/05109/151/:09/
 1350DATA;/:095/5:0T0T0T0TW
 1360DATA2
 1370DATA//9/./6L9V.B6K9V.B6J9V.B6I9V.B6H9V.B1C38.81B38.805?`.B06?`.B6G9V.B6F9V.B3S7`B/3S;`B/
 1380DATAWT0/E<0//C/<0///A//<0////?///<0/////?//<0////A/84///C8/10//N/10/P10T0/P10//N/10///C8/10////A/84/////?//<0//////=///<0/////=////<0////?///<0///A//<0//C/<0/E<0TW
 1390=============================


!� > <basicsave$dir>.Arachnoid
� by Steve Turnbull
� (c) The Micro User
(�4:�i:��er
2%��ht(KT%):��ig:��>!�j(I%)�do(I%)
<,I%=(I%+1)�N%:�(G%=0)�(me%!E%<=0):�w(100)
F�G%>0:�rd:��
P&��i:�23,1,0;0;0;0;:Z%=�(-�):*FX4,1
Z#hs%=10:�hs%(hs%),hs$(hs%):KT%=�
d6�H%=1�hs%:hs%(H%)=H%*10:hs$(H%)="The Micro User":�
nLlx%=0:wx%=39:ty%=0:hy%=24:my%=31:X%=lx%+1:Y%=ty%+1:oX%=-1:oY%=-1:ww%=wx%
xHhw%=my%:op%=1:oe%=2:ow%=3:ot%=4:og%=5:om%=6:of%=7:ob%=8:or%=9:B%=128
�5�&8017;-1;-1;-1;-1;&8117;&7E18;&FF7E;&7EFF;&187E;
�=�&8217;&0603;&1E0C;&180C;&6030;&8317;&B800;&FFFE;&B8FE;0;
�?�&8417;&81FF;&BDBD;&9999;&FF81;&8517;&3E00;&6E7E;&6E56;&7C;
�A�&8617;&3C42;&7EDB;&7E3C;&8142;&8717;&320C;&566C;&5C3A;&3068;
�7�&8817;&55AA;&55AA;&55AA;&55AA;&8917;0;&1800;&18;0;
�Gmo%=30:T%=0:X%=4:Y%=8:E%=16:J%=20:D%=24:S%=28:H%=�".":�O%mo%*(S%+4)
�Hnx%=126-H%:mu%=-88:md%=-104:ml%=-98:mr%=-67:fr%=-74:�<&8000md%=-105
�nL%=1:�
���er:�=17符-1KT%=�:�
�!:�23,1,1;0;0;0;26,12:*FX15
��:�" at ";�:�
�8��cls(X%,Y%,U%,V%,C%)�28X%Y%+V%X%+U%Y%:ww%=U%:hw%=V%
�?�C%>-1�17C%+128,17,1-C%,12:��26,17,128,17,1:ww%=wx%:hw%=my%
�
��ht(T%)��T%�in:��hs
!�cn("Press SPACE to play",30)
">T%=�T%:K%=�kp(" ",500):�K%:L%=0:sc%=0:cs%=5:fs%=10:ff%=0:�
,:ݤkp(k$,T%)�K%:T%=T%+�:�K%=��255+k$,�0)-1:�K%��>T%:=K%
6K��in:�h("Instructions",0):�cn("Destroy all generators on each level",5)
@4�ci(128,"Wall"):�ci(129,"You"):�ci(130,"Energy")
J>�ci(131,"Weapon"):�ci(132,"Teleport"):�ci(133,"Generator")
T=�ci(134,"Monster"):�ci(135,"Fungus"):�ci(136,"Barrier"):�
^4��ci(C%,s$)�cn(�C%+�20-�s$,".")+s$,9+(C%-128)):�
h<��hs:�Q%,R%:�h("High scores",0):�Q%=1�hs%:R%=20-�hs$(Q%)
r/�5,7+hs%-Q%)hs$(Q%)�R%,".")�n(hs%(Q%)):�:�
|ݤn(N%)=�"......."+�N%,8)
� ��h(k$,Y%)�26:�:�cn(k$,Y%):�
�0��ig:�26,12:I%=0:L%=L%+1:�(L%-1)�nL%=0�:�nL%
�=�h("Level "+�L%,13):�w(50):�cn("Get Ready...",16):�w(200)
�-�dl(L%):�5,26)"Energy:"�6,28)"Score:";:�
���w(T%)T%=T%+�:���>T%:�
�$��dl(L%):�cls(lx%,ty%,wx%,hy%,1)
�-�cls(lx%+1,ty%+1,wx%-2,hy%-2,0):�ds(L%):�
�B��ds(L%)�F%,Q%,o$:�26:�F%,o$:K%=B%:�Q%=1�F%-1:�dd:�:�dob(o$):�
���dd:�P%,s$:�s$:�P%=1��s$
�*�ė�s$,P%)-H%,�K%);:K%=�(K%-B%-32):�:�
�?��dob(s$)�P%:N%=0:G%=0:��no(�v,�v,�v,�v,�,�v,�v):�P%>=�s$:�
�0ݤv:P%=P%+1:�c$:c$=�s$,P%,1):�c$<>"!"=�c$-H%
�,P%=P%+2:=nx%*(��s$,P%-1)-H%)+��s$,P%)-H%
I��no(t%,x%,y%,e%,j%,d%,s%)�N%=mo%�:��t%=og%G%=G%+1��t%=op%me%=�ao(N%)
�so(N%):�po(N%):N%=N%+1:�
'��ko(I%)�go(N%-1):�so(I%):N%=N%-1:�
&[��go(N%)�Z%:Z%=�ao(N%):t%=Z%!T%:x%=Z%!X%:y%=Z%!Y%:e%=Z%!E%:j%=Z%!J%:d%=Z%!D%:s%=Z%!S%:�
0[��so(N%)�Z%:Z%=�ao(N%):Z%!T%=t%:Z%!X%=x%:Z%!Y%=y%:Z%!E%=e%:Z%!J%=j%:Z%!D%=d%:Z%!S%=s%:�
:2��po(N%)�Z%:Z%=�ao(N%):�31Z%!X%Z%!Y%Z%!T%+B%:�
Dݤao(N%)=O%+N%*(S%+4)
Nݤj(N%)=J%+�ao(N%)
X+��do(I%)�go(I%):�e:�t%=0�:�j%=�+�s%*cs%
bj�t%=op%�op(�ml%-�mr%,�mu%-�md%,�fr%)��t%=og%�og:��t%=om%�om(�(U%-x%),�(V%-y%)):��t%=of%�of:��t%=or%�or
l
�so(I%):�
v��e:�e%>0�
�3�31x%y%32:�t%=om%�nf(x%,y%,5,30)��t%=og%G%=G%-1
�t%=0:�ko(I%):�
�)��op(u%,v%,F%)�dt:�ff%ff%=ff%-1�*FX21
��F%�f:��hop
�U%=x%:V%=y%:�
�$��dt:�13,26);e%�2�13,28);sc%;:�
���f:�u%=0�v%=0�:��ff%�
�h�C%:C%=�c(x%+u%,y%+v%):�C%=32�no(or%,x%+u%,y%+v%,e%,�,(u%*&10000)+(v%�&FFFF),1)��hor(C%,x%+u%,y%+v%)
�ff%=fs%:e%=e%-1:�
�/��hop:�u%=0�v%=0�:��C%,Z%:u%=x%+u%:v%=y%+v%
�:C%=�c(u%,v%):�C%=32�31x%y%32,31u%v%t%+B%:x%=u%:y%=v%:�
�)C%=C%-B%:�C%=0�:�Z%=�ao(�f(C%,u%,v%))
��C%=ot%�tp(Z%,u%,v%):�
 �C%=oe%�ze(-Z%!E%):�zk(Z%):�
!�C%=of%�ze(Z%!E%):�de(Z%,1):�
+�C%=ow%�wp:�:��C%=ob%�de(Z%,1):�ze(2):�
 )�C%<>t%�C%=om%�C%=op%�de(Z%,2):�ze(1)
*�
4ݤf(C%,x%,y%)�L%,K%:K%=-1
>@�L%=0�N%-1:Z%=�ao(L%):�Z%!T%=C%�Z%!X%=x%�Z%!Y%=y%K%=L%:L%=N%
H	�:=K%
R$��de(I%,V%)V%=I%!E%-V%:�V%<0V%=0
\0I%!E%=V%:�I%!T%=om%I%!J%=I%!J%+I%!S%�I%!J%=�
f�
p��ze(Z%)e%=e%-Z%:�
z��zk(Z%)Z%!E%=0:Z%!J%=�:�
�<��wp:�zk(Z%):�t%=op%�fs%>2fs%=fs%-1:��t%=om%�s%>1s%=s%-1
��
�0��tp(Z%,P%,Q%)�u%,v%:u%=Z%!D%�64:v%=Z%!D%�64
�5�31x%y%32,31u%v%t%+B%:x%=u%:y%=v%:Z%!E%=Z%!E%-1:�
�Q��og:�d%�(300)=1�r(x%,y%)=32�nm(x%+u%,y%+v%,e%/2,s%+�(3)):d%=d%-1:�d%<1d%=0
��
�4��nm(x%,y%,e%,s%)�no(om%,x%,y%,e%,�+s%*2,0,s%):�
�(��om(u%,v%)�u%��v%��(2)=1u%=0�v%=0
�
�hop:�
�=��of:�(50)=1�r(x%,y%)=32�nf(x%+u%,y%+v%,e%-1,s%+�(3)-1)
��
�aݤr(x%,y%)�K%:u%=0:v%=0:K%=�(4):�K%=1u%=1:v%=0��K%=2u%=-1:v%=0��K%=3u%=0:v%=1��K%=4u%=0:v%=-1
�=�c(x%+u%,y%+v%)
4��nf(x%,y%,e%,s%)�no(of%,x%,y%,e%,�+s%*2,0,s%):�
3��or:�u%,v%:v%=d%�&FFFF:u%=d%�&10000:�v%>1v%=-1
kC%=�c(x%+u%,y%+v%):�31x%y%32:�C%=32u%=x%+u%:v%=y%+v%:�31u%v%t%+B%:x%=u%:y%=v%��hor(C%,x%+u%,y%+v%):t%=0
$�
."��hor(C%,x%,y%)C%=C%-B%:�C%=0�
87�K%:K%=�f(C%,x%,y%):�K%>-1�de(�ao(K%),e%):sc%=sc%+5
B�
L6ݤc(X%,Y%)�A%:A%=135:�31X%Y%:=(�(&FFF4)�&FF00)�256
V,��m(k$)�cls(lx%,my%,wx%,0,0):�cn(k$,0):�
`%��cn(k$,Y%)�(ww%-�k$)/2,Y%)k$;:�
j8ݤm(t$,m$)�o$,M%,X%:m$=m$+d$:�t(t$):X%=(ww%-�t$)/2:�
t,o$=o$+��m$:P%=�m$,d$):�X%,M%)�m$,P%-1);
~#m$=�m$,P%+1):M%=M%+1:�m$="":=o$
�Q��t(t$)�m(""):�cls(lx%,my%-6,wx%/3,0,0):�cn(t$,0):�cls(lx%,my%-5,wx%/3,5,1):�
�?��rd:sc%=sc%+me%!E%:�26,12:�cn("Game Over",7):�w(200):*FX15
�&KT%=�:�sc%<hs%(1)�w(200):�:��A%,B%
�@�:�cn("Well done!",8):�cn("You've made a new high score",10)
�;�cn("Enter your name",12):�15,14)".........."�15,14)n$
�=A%=2:�B%=A%-1:�sc%>hs%(A%)hs%(B%)=hs%(A%):hs$(B%)=hs$(A%)
�=A%=A%+1:�sc%<hs%(A%)�A%=hs%:hs%(A%)=sc%:hs$(A%)=�n$,10):�
�!=============================
��4
��2
�S�4A@8.36A8V.B6B4V.B6@4V.B3A2`0B1M28.80;2B.B2E@8!J282E28!:282228!@Z8/AD=.04=:8.5
���WT0/R/0//</1/=//0//</1/=//0//</1/=//0/>///?/0//</1/=//0//</1/=//0//</1/=//0//84/49//0//8/9/9//0//8/9/9//0//8/9/9//0//8;9//0//P//0//83139//0//8/9/9//0//8/9/9//0//8/9/9//0//8;9//0//P//0/>1?/0TW
�3

��3S:`0/4O48.54O@8.5//::.061:8.>63:8.?65:8.@67:8.A69:8.B0I:`.B3B:`.V2T:8!>480348.B1338.813A8.803@8.B2:?0!>082:50!>D86;:8.B6H:3.B
��WF/;0/<7/;0//:/7/;0///8///5//;0////6/////3///;0////6/////3/=0///6//////3///;0//8/////3///;0/:////3///;0<///3///;?//3//>>/3/=?//3//><///3///;0/:////3///;0//8/////3///;0///6//////3///;0////6/////3/=0////
/�6/////3///;0///8///5//;0//:/7/;0/<7/;0F/;W
(�3
2S�/A:5./4;48.34;@8.34G@8.34G48.36A3/.B6AA/.B6H:/.B6::/.B67:/.B6K:/.B3N:/BV34:/BV
<��WT0T0T0T095/5:09/;/:09/151/:0050/;/05100/3/0////1/1////0/3/100/3/0/////3/////0/3/100/3/0/////3/////0/3/100/8/7/8/100/3/0/////3/////0/3/100/3/0/////3/////0/3/100/3/0////1/1////0/3/10050/;/05109/151/:09/
F�;/:095/5:0T0T0T0TW
P�2
ZY�//9/./6L9V.B6K9V.B6J9V.B6I9V.B6H9V.B1C38.81B38.805?`.B06?`.B6G9V.B6F9V.B3S7`B/3S;`B/
d��WT0/E<0//C/<0///A//<0////?///<0/////?//<0////A/84///C8/10//N/10/P10T0/P10//N/10///C8/10////A/84/////?//<0//////=///<0/////=////<0////?///<0///A//<0//C/<0/E<0TW
n!=============================
�

00000000  0d 00 0a 21 f4 20 3e 20  3c 62 61 73 69 63 73 61  |...!. > <basicsa|
00000010  76 65 24 64 69 72 3e 2e  41 72 61 63 68 6e 6f 69  |ve$dir>.Arachnoi|
00000020  64 0d 00 14 17 f4 20 62  79 20 53 74 65 76 65 20  |d..... by Steve |
00000030  54 75 72 6e 62 75 6c 6c  0d 00 1e 18 f4 20 28 63  |Turnbull..... (c|
00000040  29 20 54 68 65 20 4d 69  63 72 6f 20 55 73 65 72  |) The Micro User|
00000050  0d 00 28 0f eb 34 3a f2  69 3a ee 85 f2 65 72 0d  |..(..4:.i:...er.|
00000060  00 32 25 f5 f2 68 74 28  4b 54 25 29 3a f5 f2 69  |.2%..ht(KT%):..i|
00000070  67 3a f5 e7 91 3e 21 a4  6a 28 49 25 29 f2 64 6f  |g:...>!.j(I%).do|
00000080  28 49 25 29 0d 00 3c 2c  49 25 3d 28 49 25 2b 31  |(I%)..<,I%=(I%+1|
00000090  29 83 4e 25 3a fd 28 47  25 3d 30 29 84 28 6d 65  |).N%:.(G%=0).(me|
000000a0  25 21 45 25 3c 3d 30 29  3a f2 77 28 31 30 30 29  |%!E%<=0):.w(100)|
000000b0  0d 00 46 10 fd 47 25 3e  30 3a f2 72 64 3a fd a3  |..F..G%>0:.rd:..|
000000c0  0d 00 50 26 dd f2 69 3a  ef 32 33 2c 31 2c 30 3b  |..P&..i:.23,1,0;|
000000d0  30 3b 30 3b 30 3b 3a 5a  25 3d b3 28 2d 91 29 3a  |0;0;0;:Z%=.(-.):|
000000e0  2a 46 58 34 2c 31 0d 00  5a 23 68 73 25 3d 31 30  |*FX4,1..Z#hs%=10|
000000f0  3a de 68 73 25 28 68 73  25 29 2c 68 73 24 28 68  |:.hs%(hs%),hs$(h|
00000100  73 25 29 3a 4b 54 25 3d  b9 0d 00 64 36 e3 48 25  |s%):KT%=...d6.H%|
00000110  3d 31 b8 68 73 25 3a 68  73 25 28 48 25 29 3d 48  |=1.hs%:hs%(H%)=H|
00000120  25 2a 31 30 3a 68 73 24  28 48 25 29 3d 22 54 68  |%*10:hs$(H%)="Th|
00000130  65 20 4d 69 63 72 6f 20  55 73 65 72 22 3a ed 0d  |e Micro User":..|
00000140  00 6e 4c 6c 78 25 3d 30  3a 77 78 25 3d 33 39 3a  |.nLlx%=0:wx%=39:|
00000150  74 79 25 3d 30 3a 68 79  25 3d 32 34 3a 6d 79 25  |ty%=0:hy%=24:my%|
00000160  3d 33 31 3a 58 25 3d 6c  78 25 2b 31 3a 59 25 3d  |=31:X%=lx%+1:Y%=|
00000170  74 79 25 2b 31 3a 6f 58  25 3d 2d 31 3a 6f 59 25  |ty%+1:oX%=-1:oY%|
00000180  3d 2d 31 3a 77 77 25 3d  77 78 25 0d 00 78 48 68  |=-1:ww%=wx%..xHh|
00000190  77 25 3d 6d 79 25 3a 6f  70 25 3d 31 3a 6f 65 25  |w%=my%:op%=1:oe%|
000001a0  3d 32 3a 6f 77 25 3d 33  3a 6f 74 25 3d 34 3a 6f  |=2:ow%=3:ot%=4:o|
000001b0  67 25 3d 35 3a 6f 6d 25  3d 36 3a 6f 66 25 3d 37  |g%=5:om%=6:of%=7|
000001c0  3a 6f 62 25 3d 38 3a 6f  72 25 3d 39 3a 42 25 3d  |:ob%=8:or%=9:B%=|
000001d0  31 32 38 0d 00 82 35 ef  26 38 30 31 37 3b 2d 31  |128...5.&8017;-1|
000001e0  3b 2d 31 3b 2d 31 3b 2d  31 3b 26 38 31 31 37 3b  |;-1;-1;-1;&8117;|
000001f0  26 37 45 31 38 3b 26 46  46 37 45 3b 26 37 45 46  |&7E18;&FF7E;&7EF|
00000200  46 3b 26 31 38 37 45 3b  0d 00 8c 3d ef 26 38 32  |F;&187E;...=.&82|
00000210  31 37 3b 26 30 36 30 33  3b 26 31 45 30 43 3b 26  |17;&0603;&1E0C;&|
00000220  31 38 30 43 3b 26 36 30  33 30 3b 26 38 33 31 37  |180C;&6030;&8317|
00000230  3b 26 42 38 30 30 3b 26  46 46 46 45 3b 26 42 38  |;&B800;&FFFE;&B8|
00000240  46 45 3b 30 3b 0d 00 96  3f ef 26 38 34 31 37 3b  |FE;0;...?.&8417;|
00000250  26 38 31 46 46 3b 26 42  44 42 44 3b 26 39 39 39  |&81FF;&BDBD;&999|
00000260  39 3b 26 46 46 38 31 3b  26 38 35 31 37 3b 26 33  |9;&FF81;&8517;&3|
00000270  45 30 30 3b 26 36 45 37  45 3b 26 36 45 35 36 3b  |E00;&6E7E;&6E56;|
00000280  26 37 43 3b 0d 00 a0 41  ef 26 38 36 31 37 3b 26  |&7C;...A.&8617;&|
00000290  33 43 34 32 3b 26 37 45  44 42 3b 26 37 45 33 43  |3C42;&7EDB;&7E3C|
000002a0  3b 26 38 31 34 32 3b 26  38 37 31 37 3b 26 33 32  |;&8142;&8717;&32|
000002b0  30 43 3b 26 35 36 36 43  3b 26 35 43 33 41 3b 26  |0C;&566C;&5C3A;&|
000002c0  33 30 36 38 3b 0d 00 aa  37 ef 26 38 38 31 37 3b  |3068;...7.&8817;|
000002d0  26 35 35 41 41 3b 26 35  35 41 41 3b 26 35 35 41  |&55AA;&55AA;&55A|
000002e0  41 3b 26 35 35 41 41 3b  26 38 39 31 37 3b 30 3b  |A;&55AA;&8917;0;|
000002f0  26 31 38 30 30 3b 26 31  38 3b 30 3b 0d 00 b4 47  |&1800;&18;0;...G|
00000300  6d 6f 25 3d 33 30 3a 54  25 3d 30 3a 58 25 3d 34  |mo%=30:T%=0:X%=4|
00000310  3a 59 25 3d 38 3a 45 25  3d 31 36 3a 4a 25 3d 32  |:Y%=8:E%=16:J%=2|
00000320  30 3a 44 25 3d 32 34 3a  53 25 3d 32 38 3a 48 25  |0:D%=24:S%=28:H%|
00000330  3d 97 22 2e 22 3a de 4f  25 6d 6f 25 2a 28 53 25  |=.".":.O%mo%*(S%|
00000340  2b 34 29 0d 00 be 48 6e  78 25 3d 31 32 36 2d 48  |+4)...Hnx%=126-H|
00000350  25 3a 6d 75 25 3d 2d 38  38 3a 6d 64 25 3d 2d 31  |%:mu%=-88:md%=-1|
00000360  30 34 3a 6d 6c 25 3d 2d  39 38 3a 6d 72 25 3d 2d  |04:ml%=-98:mr%=-|
00000370  36 37 3a 66 72 25 3d 2d  37 34 3a e7 90 3c 26 38  |67:fr%=-74:..<&8|
00000380  30 30 30 6d 64 25 3d 2d  31 30 35 0d 00 c8 0b 6e  |000md%=-105....n|
00000390  4c 25 3d 31 3a e1 0d 00  d2 1a dd f2 65 72 3a e7  |L%=1:.......er:.|
000003a0  9f 3d 31 37 e7 ac a6 2d  31 4b 54 25 3d b9 3a e1  |.=17...-1KT%=.:.|
000003b0  0d 00 dc 21 ee 85 87 3a  ef 32 33 2c 31 2c 31 3b  |...!...:.23,1,1;|
000003c0  30 3b 30 3b 30 3b 32 36  2c 31 32 3a 2a 46 58 31  |0;0;0;26,12:*FX1|
000003d0  35 0d 00 e6 11 f6 3a f1  22 20 61 74 20 22 3b 9e  |5.....:." at ";.|
000003e0  3a e0 0d 00 f0 38 dd f2  63 6c 73 28 58 25 2c 59  |:....8..cls(X%,Y|
000003f0  25 2c 55 25 2c 56 25 2c  43 25 29 ef 32 38 58 25  |%,U%,V%,C%).28X%|
00000400  59 25 2b 56 25 58 25 2b  55 25 59 25 3a 77 77 25  |Y%+V%X%+U%Y%:ww%|
00000410  3d 55 25 3a 68 77 25 3d  56 25 0d 00 fa 3f e7 43  |=U%:hw%=V%...?.C|
00000420  25 3e 2d 31 ef 31 37 43  25 2b 31 32 38 2c 31 37  |%>-1.17C%+128,17|
00000430  2c 31 2d 43 25 2c 31 32  3a 8b ef 32 36 2c 31 37  |,1-C%,12:..26,17|
00000440  2c 31 32 38 2c 31 37 2c  31 3a 77 77 25 3d 77 78  |,128,17,1:ww%=wx|
00000450  25 3a 68 77 25 3d 6d 79  25 0d 01 04 05 e1 0d 01  |%:hw%=my%.......|
00000460  0e 18 dd f2 68 74 28 54  25 29 f5 e7 54 25 f2 69  |....ht(T%)..T%.i|
00000470  6e 3a 8b f2 68 73 0d 01  18 21 f2 63 6e 28 22 50  |n:..hs...!.cn("P|
00000480  72 65 73 73 20 53 50 41  43 45 20 74 6f 20 70 6c  |ress SPACE to pl|
00000490  61 79 22 2c 33 30 29 0d  01 22 3e 54 25 3d ac 54  |ay",30)..">T%=.T|
000004a0  25 3a 4b 25 3d a4 6b 70  28 22 20 22 2c 35 30 30  |%:K%=.kp(" ",500|
000004b0  29 3a fd 4b 25 3a 4c 25  3d 30 3a 73 63 25 3d 30  |):.K%:L%=0:sc%=0|
000004c0  3a 63 73 25 3d 35 3a 66  73 25 3d 31 30 3a 66 66  |:cs%=5:fs%=10:ff|
000004d0  25 3d 30 3a e1 0d 01 2c  3a dd a4 6b 70 28 6b 24  |%=0:...,:..kp(k$|
000004e0  2c 54 25 29 ea 4b 25 3a  54 25 3d 54 25 2b 91 3a  |,T%).K%:T%=T%+.:|
000004f0  f5 4b 25 3d a7 bd 32 35  35 2b 6b 24 2c bf 30 29  |.K%=..255+k$,.0)|
00000500  2d 31 3a fd 4b 25 84 91  3e 54 25 3a 3d 4b 25 0d  |-1:.K%..>T%:=K%.|
00000510  01 36 4b dd f2 69 6e 3a  f2 68 28 22 49 6e 73 74  |.6K..in:.h("Inst|
00000520  72 75 63 74 69 6f 6e 73  22 2c 30 29 3a f2 63 6e  |ructions",0):.cn|
00000530  28 22 44 65 73 74 72 6f  79 20 61 6c 6c 20 67 65  |("Destroy all ge|
00000540  6e 65 72 61 74 6f 72 73  20 6f 6e 20 65 61 63 68  |nerators on each|
00000550  20 6c 65 76 65 6c 22 2c  35 29 0d 01 40 34 f2 63  | level",5)..@4.c|
00000560  69 28 31 32 38 2c 22 57  61 6c 6c 22 29 3a f2 63  |i(128,"Wall"):.c|
00000570  69 28 31 32 39 2c 22 59  6f 75 22 29 3a f2 63 69  |i(129,"You"):.ci|
00000580  28 31 33 30 2c 22 45 6e  65 72 67 79 22 29 0d 01  |(130,"Energy")..|
00000590  4a 3e f2 63 69 28 31 33  31 2c 22 57 65 61 70 6f  |J>.ci(131,"Weapo|
000005a0  6e 22 29 3a f2 63 69 28  31 33 32 2c 22 54 65 6c  |n"):.ci(132,"Tel|
000005b0  65 70 6f 72 74 22 29 3a  f2 63 69 28 31 33 33 2c  |eport"):.ci(133,|
000005c0  22 47 65 6e 65 72 61 74  6f 72 22 29 0d 01 54 3d  |"Generator")..T=|
000005d0  f2 63 69 28 31 33 34 2c  22 4d 6f 6e 73 74 65 72  |.ci(134,"Monster|
000005e0  22 29 3a f2 63 69 28 31  33 35 2c 22 46 75 6e 67  |"):.ci(135,"Fung|
000005f0  75 73 22 29 3a f2 63 69  28 31 33 36 2c 22 42 61  |us"):.ci(136,"Ba|
00000600  72 72 69 65 72 22 29 3a  e1 0d 01 5e 34 dd f2 63  |rrier"):...^4..c|
00000610  69 28 43 25 2c 73 24 29  f2 63 6e 28 bd 43 25 2b  |i(C%,s$).cn(.C%+|
00000620  c4 32 30 2d a9 73 24 2c  22 2e 22 29 2b 73 24 2c  |.20-.s$,".")+s$,|
00000630  39 2b 28 43 25 2d 31 32  38 29 29 3a e1 0d 01 68  |9+(C%-128)):...h|
00000640  3c dd f2 68 73 3a ea 51  25 2c 52 25 3a f2 68 28  |<..hs:.Q%,R%:.h(|
00000650  22 48 69 67 68 20 73 63  6f 72 65 73 22 2c 30 29  |"High scores",0)|
00000660  3a e3 51 25 3d 31 b8 68  73 25 3a 52 25 3d 32 30  |:.Q%=1.hs%:R%=20|
00000670  2d a9 68 73 24 28 51 25  29 0d 01 72 2f f1 8a 35  |-.hs$(Q%)..r/..5|
00000680  2c 37 2b 68 73 25 2d 51  25 29 68 73 24 28 51 25  |,7+hs%-Q%)hs$(Q%|
00000690  29 c4 52 25 2c 22 2e 22  29 a4 6e 28 68 73 25 28  |).R%,".").n(hs%(|
000006a0  51 25 29 29 3a ed 3a e1  0d 01 7c 1d dd a4 6e 28  |Q%)):.:...|...n(|
000006b0  4e 25 29 3d c2 22 2e 2e  2e 2e 2e 2e 2e 22 2b c3  |N%)=."......."+.|
000006c0  4e 25 2c 38 29 0d 01 86  20 dd f2 68 28 6b 24 2c  |N%,8)... ..h(k$,|
000006d0  59 25 29 ef 32 36 3a db  3a f2 63 6e 28 6b 24 2c  |Y%).26:.:.cn(k$,|
000006e0  59 25 29 3a e1 0d 01 90  30 dd f2 69 67 3a ef 32  |Y%):....0..ig:.2|
000006f0  36 2c 31 32 3a 49 25 3d  30 3a 4c 25 3d 4c 25 2b  |6,12:I%=0:L%=L%+|
00000700  31 3a e7 28 4c 25 2d 31  29 83 6e 4c 25 3d 30 f7  |1:.(L%-1).nL%=0.|
00000710  3a f3 6e 4c 25 0d 01 9a  3d f2 68 28 22 4c 65 76  |:.nL%...=.h("Lev|
00000720  65 6c 20 22 2b c3 4c 25  2c 31 33 29 3a f2 77 28  |el "+.L%,13):.w(|
00000730  35 30 29 3a f2 63 6e 28  22 47 65 74 20 52 65 61  |50):.cn("Get Rea|
00000740  64 79 2e 2e 2e 22 2c 31  36 29 3a f2 77 28 32 30  |dy...",16):.w(20|
00000750  30 29 0d 01 a4 2d f2 64  6c 28 4c 25 29 3a f1 8a  |0)...-.dl(L%):..|
00000760  35 2c 32 36 29 22 45 6e  65 72 67 79 3a 22 8a 36  |5,26)"Energy:".6|
00000770  2c 32 38 29 22 53 63 6f  72 65 3a 22 3b 3a e1 0d  |,28)"Score:";:..|
00000780  01 ae 1b dd f2 77 28 54  25 29 54 25 3d 54 25 2b  |.....w(T%)T%=T%+|
00000790  91 3a f5 fd 91 3e 54 25  3a e1 0d 01 b8 24 dd f2  |.:...>T%:....$..|
000007a0  64 6c 28 4c 25 29 3a f2  63 6c 73 28 6c 78 25 2c  |dl(L%):.cls(lx%,|
000007b0  74 79 25 2c 77 78 25 2c  68 79 25 2c 31 29 0d 01  |ty%,wx%,hy%,1)..|
000007c0  c2 2d f2 63 6c 73 28 6c  78 25 2b 31 2c 74 79 25  |.-.cls(lx%+1,ty%|
000007d0  2b 31 2c 77 78 25 2d 32  2c 68 79 25 2d 32 2c 30  |+1,wx%-2,hy%-2,0|
000007e0  29 3a f2 64 73 28 4c 25  29 3a e1 0d 01 cc 42 dd  |):.ds(L%):....B.|
000007f0  f2 64 73 28 4c 25 29 ea  46 25 2c 51 25 2c 6f 24  |.ds(L%).F%,Q%,o$|
00000800  3a ef 32 36 3a f3 46 25  2c 6f 24 3a 4b 25 3d 42  |:.26:.F%,o$:K%=B|
00000810  25 3a e3 51 25 3d 31 b8  46 25 2d 31 3a f2 64 64  |%:.Q%=1.F%-1:.dd|
00000820  3a ed 3a f2 64 6f 62 28  6f 24 29 3a e1 0d 01 d6  |:.:.dob(o$):....|
00000830  1d dd f2 64 64 3a ea 50  25 2c 73 24 3a f3 73 24  |...dd:.P%,s$:.s$|
00000840  3a e3 50 25 3d 31 b8 a9  73 24 0d 01 e0 2a f1 c4  |:.P%=1..s$...*..|
00000850  97 c1 73 24 2c 50 25 29  2d 48 25 2c bd 4b 25 29  |..s$,P%)-H%,.K%)|
00000860  3b 3a 4b 25 3d 94 28 4b  25 2d 42 25 2d 33 32 29  |;:K%=.(K%-B%-32)|
00000870  3a ed 3a e1 0d 01 ea 3f  dd f2 64 6f 62 28 73 24  |:.:....?..dob(s$|
00000880  29 ea 50 25 3a 4e 25 3d  30 3a 47 25 3d 30 3a f5  |).P%:N%=0:G%=0:.|
00000890  f2 6e 6f 28 a4 76 2c a4  76 2c a4 76 2c a4 76 2c  |.no(.v,.v,.v,.v,|
000008a0  91 2c a4 76 2c a4 76 29  3a fd 50 25 3e 3d a9 73  |.,.v,.v):.P%>=.s|
000008b0  24 3a e1 0d 01 f4 30 dd  a4 76 3a 50 25 3d 50 25  |$:....0..v:P%=P%|
000008c0  2b 31 3a ea 63 24 3a 63  24 3d c1 73 24 2c 50 25  |+1:.c$:c$=.s$,P%|
000008d0  2c 31 29 3a e7 63 24 3c  3e 22 21 22 3d 97 63 24  |,1):.c$<>"!"=.c$|
000008e0  2d 48 25 0d 01 fe 2c 50  25 3d 50 25 2b 32 3a 3d  |-H%...,P%=P%+2:=|
000008f0  6e 78 25 2a 28 97 c1 73  24 2c 50 25 2d 31 29 2d  |nx%*(..s$,P%-1)-|
00000900  48 25 29 2b 97 c1 73 24  2c 50 25 29 2d 48 25 0d  |H%)+..s$,P%)-H%.|
00000910  02 08 49 dd f2 6e 6f 28  74 25 2c 78 25 2c 79 25  |..I..no(t%,x%,y%|
00000920  2c 65 25 2c 6a 25 2c 64  25 2c 73 25 29 e7 4e 25  |,e%,j%,d%,s%).N%|
00000930  3d 6d 6f 25 e1 3a 8b e7  74 25 3d 6f 67 25 47 25  |=mo%.:..t%=og%G%|
00000940  3d 47 25 2b 31 8b e7 74  25 3d 6f 70 25 6d 65 25  |=G%+1..t%=op%me%|
00000950  3d a4 61 6f 28 4e 25 29  0d 02 12 1d f2 73 6f 28  |=.ao(N%).....so(|
00000960  4e 25 29 3a f2 70 6f 28  4e 25 29 3a 4e 25 3d 4e  |N%):.po(N%):N%=N|
00000970  25 2b 31 3a e1 0d 02 1c  27 dd f2 6b 6f 28 49 25  |%+1:....'..ko(I%|
00000980  29 f2 67 6f 28 4e 25 2d  31 29 3a f2 73 6f 28 49  |).go(N%-1):.so(I|
00000990  25 29 3a 4e 25 3d 4e 25  2d 31 3a e1 0d 02 26 5b  |%):N%=N%-1:...&[|
000009a0  dd f2 67 6f 28 4e 25 29  ea 5a 25 3a 5a 25 3d a4  |..go(N%).Z%:Z%=.|
000009b0  61 6f 28 4e 25 29 3a 74  25 3d 5a 25 21 54 25 3a  |ao(N%):t%=Z%!T%:|
000009c0  78 25 3d 5a 25 21 58 25  3a 79 25 3d 5a 25 21 59  |x%=Z%!X%:y%=Z%!Y|
000009d0  25 3a 65 25 3d 5a 25 21  45 25 3a 6a 25 3d 5a 25  |%:e%=Z%!E%:j%=Z%|
000009e0  21 4a 25 3a 64 25 3d 5a  25 21 44 25 3a 73 25 3d  |!J%:d%=Z%!D%:s%=|
000009f0  5a 25 21 53 25 3a e1 0d  02 30 5b dd f2 73 6f 28  |Z%!S%:...0[..so(|
00000a00  4e 25 29 ea 5a 25 3a 5a  25 3d a4 61 6f 28 4e 25  |N%).Z%:Z%=.ao(N%|
00000a10  29 3a 5a 25 21 54 25 3d  74 25 3a 5a 25 21 58 25  |):Z%!T%=t%:Z%!X%|
00000a20  3d 78 25 3a 5a 25 21 59  25 3d 79 25 3a 5a 25 21  |=x%:Z%!Y%=y%:Z%!|
00000a30  45 25 3d 65 25 3a 5a 25  21 4a 25 3d 6a 25 3a 5a  |E%=e%:Z%!J%=j%:Z|
00000a40  25 21 44 25 3d 64 25 3a  5a 25 21 53 25 3d 73 25  |%!D%=d%:Z%!S%=s%|
00000a50  3a e1 0d 02 3a 32 dd f2  70 6f 28 4e 25 29 ea 5a  |:...:2..po(N%).Z|
00000a60  25 3a 5a 25 3d a4 61 6f  28 4e 25 29 3a ef 33 31  |%:Z%=.ao(N%):.31|
00000a70  5a 25 21 58 25 5a 25 21  59 25 5a 25 21 54 25 2b  |Z%!X%Z%!Y%Z%!T%+|
00000a80  42 25 3a e1 0d 02 44 19  dd a4 61 6f 28 4e 25 29  |B%:...D...ao(N%)|
00000a90  3d 4f 25 2b 4e 25 2a 28  53 25 2b 34 29 0d 02 4e  |=O%+N%*(S%+4)..N|
00000aa0  16 dd a4 6a 28 4e 25 29  3d 4a 25 2b a4 61 6f 28  |...j(N%)=J%+.ao(|
00000ab0  4e 25 29 0d 02 58 2b dd  f2 64 6f 28 49 25 29 f2  |N%)..X+..do(I%).|
00000ac0  67 6f 28 49 25 29 3a f2  65 3a e7 74 25 3d 30 e1  |go(I%):.e:.t%=0.|
00000ad0  3a 8b 6a 25 3d 91 2b 94  73 25 2a 63 73 25 0d 02  |:.j%=.+.s%*cs%..|
00000ae0  62 6a e7 74 25 3d 6f 70  25 f2 6f 70 28 a6 6d 6c  |bj.t%=op%.op(.ml|
00000af0  25 2d a6 6d 72 25 2c a6  6d 75 25 2d a6 6d 64 25  |%-.mr%,.mu%-.md%|
00000b00  2c a6 66 72 25 29 8b e7  74 25 3d 6f 67 25 f2 6f  |,.fr%)..t%=og%.o|
00000b10  67 3a 8b e7 74 25 3d 6f  6d 25 f2 6f 6d 28 b4 28  |g:..t%=om%.om(.(|
00000b20  55 25 2d 78 25 29 2c b4  28 56 25 2d 79 25 29 29  |U%-x%),.(V%-y%))|
00000b30  3a 8b e7 74 25 3d 6f 66  25 f2 6f 66 3a 8b e7 74  |:..t%=of%.of:..t|
00000b40  25 3d 6f 72 25 f2 6f 72  0d 02 6c 0d f2 73 6f 28  |%=or%.or..l..so(|
00000b50  49 25 29 3a e1 0d 02 76  0e dd f2 65 3a e7 65 25  |I%):...v...e:.e%|
00000b60  3e 30 e1 0d 02 80 33 ef  33 31 78 25 79 25 33 32  |>0....3.31x%y%32|
00000b70  3a e7 74 25 3d 6f 6d 25  f2 6e 66 28 78 25 2c 79  |:.t%=om%.nf(x%,y|
00000b80  25 2c 35 2c 33 30 29 8b  e7 74 25 3d 6f 67 25 47  |%,5,30)..t%=og%G|
00000b90  25 3d 47 25 2d 31 0d 02  8a 12 74 25 3d 30 3a f2  |%=G%-1....t%=0:.|
00000ba0  6b 6f 28 49 25 29 3a e1  0d 02 94 29 dd f2 6f 70  |ko(I%):....)..op|
00000bb0  28 75 25 2c 76 25 2c 46  25 29 f2 64 74 3a e7 66  |(u%,v%,F%).dt:.f|
00000bc0  66 25 66 66 25 3d 66 66  25 2d 31 8b 2a 46 58 32  |f%ff%=ff%-1.*FX2|
00000bd0  31 0d 02 9e 0f e7 46 25  f2 66 3a 8b f2 68 6f 70  |1.....F%.f:..hop|
00000be0  0d 02 a8 11 55 25 3d 78  25 3a 56 25 3d 79 25 3a  |....U%=x%:V%=y%:|
00000bf0  e1 0d 02 b2 24 dd f2 64  74 3a f1 8a 31 33 2c 32  |....$..dt:..13,2|
00000c00  36 29 3b 65 25 89 32 8a  31 33 2c 32 38 29 3b 73  |6);e%.2.13,28);s|
00000c10  63 25 3b 3a e1 0d 02 bc  1a dd f2 66 3a e7 75 25  |c%;:.......f:.u%|
00000c20  3d 30 e7 76 25 3d 30 e1  3a 8b e7 66 66 25 e1 0d  |=0.v%=0.:..ff%..|
00000c30  02 c6 68 ea 43 25 3a 43  25 3d a4 63 28 78 25 2b  |..h.C%:C%=.c(x%+|
00000c40  75 25 2c 79 25 2b 76 25  29 3a e7 43 25 3d 33 32  |u%,y%+v%):.C%=32|
00000c50  f2 6e 6f 28 6f 72 25 2c  78 25 2b 75 25 2c 79 25  |.no(or%,x%+u%,y%|
00000c60  2b 76 25 2c 65 25 2c 91  2c 28 75 25 2a 26 31 30  |+v%,e%,.,(u%*&10|
00000c70  30 30 30 29 2b 28 76 25  80 26 46 46 46 46 29 2c  |000)+(v%.&FFFF),|
00000c80  31 29 8b f2 68 6f 72 28  43 25 2c 78 25 2b 75 25  |1)..hor(C%,x%+u%|
00000c90  2c 79 25 2b 76 25 29 0d  02 d0 15 66 66 25 3d 66  |,y%+v%)....ff%=f|
00000ca0  73 25 3a 65 25 3d 65 25  2d 31 3a e1 0d 02 da 2f  |s%:e%=e%-1:..../|
00000cb0  dd f2 68 6f 70 3a e7 75  25 3d 30 e7 76 25 3d 30  |..hop:.u%=0.v%=0|
00000cc0  e1 3a 8b ea 43 25 2c 5a  25 3a 75 25 3d 78 25 2b  |.:..C%,Z%:u%=x%+|
00000cd0  75 25 3a 76 25 3d 79 25  2b 76 25 0d 02 e4 3a 43  |u%:v%=y%+v%...:C|
00000ce0  25 3d a4 63 28 75 25 2c  76 25 29 3a e7 43 25 3d  |%=.c(u%,v%):.C%=|
00000cf0  33 32 ef 33 31 78 25 79  25 33 32 2c 33 31 75 25  |32.31x%y%32,31u%|
00000d00  76 25 74 25 2b 42 25 3a  78 25 3d 75 25 3a 79 25  |v%t%+B%:x%=u%:y%|
00000d10  3d 76 25 3a e1 0d 02 ee  29 43 25 3d 43 25 2d 42  |=v%:....)C%=C%-B|
00000d20  25 3a e7 43 25 3d 30 e1  3a 8b 5a 25 3d a4 61 6f  |%:.C%=0.:.Z%=.ao|
00000d30  28 a4 66 28 43 25 2c 75  25 2c 76 25 29 29 0d 02  |(.f(C%,u%,v%))..|
00000d40  f8 1a e7 43 25 3d 6f 74  25 f2 74 70 28 5a 25 2c  |...C%=ot%.tp(Z%,|
00000d50  75 25 2c 76 25 29 3a e1  0d 03 02 20 e7 43 25 3d  |u%,v%):.... .C%=|
00000d60  6f 65 25 f2 7a 65 28 2d  5a 25 21 45 25 29 3a f2  |oe%.ze(-Z%!E%):.|
00000d70  7a 6b 28 5a 25 29 3a e1  0d 03 0c 21 e7 43 25 3d  |zk(Z%):....!.C%=|
00000d80  6f 66 25 f2 7a 65 28 5a  25 21 45 25 29 3a f2 64  |of%.ze(Z%!E%):.d|
00000d90  65 28 5a 25 2c 31 29 3a  e1 0d 03 16 2b e7 43 25  |e(Z%,1):....+.C%|
00000da0  3d 6f 77 25 f2 77 70 3a  e1 3a 8b e7 43 25 3d 6f  |=ow%.wp:.:..C%=o|
00000db0  62 25 f2 64 65 28 5a 25  2c 31 29 3a f2 7a 65 28  |b%.de(Z%,1):.ze(|
00000dc0  32 29 3a e1 0d 03 20 29  e7 43 25 3c 3e 74 25 e7  |2):... ).C%<>t%.|
00000dd0  43 25 3d 6f 6d 25 84 43  25 3d 6f 70 25 f2 64 65  |C%=om%.C%=op%.de|
00000de0  28 5a 25 2c 32 29 3a f2  7a 65 28 31 29 0d 03 2a  |(Z%,2):.ze(1)..*|
00000df0  05 e1 0d 03 34 1d dd a4  66 28 43 25 2c 78 25 2c  |....4...f(C%,x%,|
00000e00  79 25 29 ea 4c 25 2c 4b  25 3a 4b 25 3d 2d 31 0d  |y%).L%,K%:K%=-1.|
00000e10  03 3e 40 e3 4c 25 3d 30  b8 4e 25 2d 31 3a 5a 25  |.>@.L%=0.N%-1:Z%|
00000e20  3d a4 61 6f 28 4c 25 29  3a e7 5a 25 21 54 25 3d  |=.ao(L%):.Z%!T%=|
00000e30  43 25 e7 5a 25 21 58 25  3d 78 25 e7 5a 25 21 59  |C%.Z%!X%=x%.Z%!Y|
00000e40  25 3d 79 25 4b 25 3d 4c  25 3a 4c 25 3d 4e 25 0d  |%=y%K%=L%:L%=N%.|
00000e50  03 48 09 ed 3a 3d 4b 25  0d 03 52 24 dd f2 64 65  |.H..:=K%..R$..de|
00000e60  28 49 25 2c 56 25 29 56  25 3d 49 25 21 45 25 2d  |(I%,V%)V%=I%!E%-|
00000e70  56 25 3a e7 56 25 3c 30  56 25 3d 30 0d 03 5c 30  |V%:.V%<0V%=0..\0|
00000e80  49 25 21 45 25 3d 56 25  3a e7 49 25 21 54 25 3d  |I%!E%=V%:.I%!T%=|
00000e90  6f 6d 25 49 25 21 4a 25  3d 49 25 21 4a 25 2b 49  |om%I%!J%=I%!J%+I|
00000ea0  25 21 53 25 8b 49 25 21  4a 25 3d 91 0d 03 66 05  |%!S%.I%!J%=...f.|
00000eb0  e1 0d 03 70 16 dd f2 7a  65 28 5a 25 29 65 25 3d  |...p...ze(Z%)e%=|
00000ec0  65 25 2d 5a 25 3a e1 0d  03 7a 1d dd f2 7a 6b 28  |e%-Z%:...z...zk(|
00000ed0  5a 25 29 5a 25 21 45 25  3d 30 3a 5a 25 21 4a 25  |Z%)Z%!E%=0:Z%!J%|
00000ee0  3d 91 3a e1 0d 03 84 3c  dd f2 77 70 3a f2 7a 6b  |=.:....<..wp:.zk|
00000ef0  28 5a 25 29 3a e7 74 25  3d 6f 70 25 e7 66 73 25  |(Z%):.t%=op%.fs%|
00000f00  3e 32 66 73 25 3d 66 73  25 2d 31 3a 8b e7 74 25  |>2fs%=fs%-1:..t%|
00000f10  3d 6f 6d 25 e7 73 25 3e  31 73 25 3d 73 25 2d 31  |=om%.s%>1s%=s%-1|
00000f20  0d 03 8e 05 e1 0d 03 98  30 dd f2 74 70 28 5a 25  |........0..tp(Z%|
00000f30  2c 50 25 2c 51 25 29 ea  75 25 2c 76 25 3a 75 25  |,P%,Q%).u%,v%:u%|
00000f40  3d 5a 25 21 44 25 81 36  34 3a 76 25 3d 5a 25 21  |=Z%!D%.64:v%=Z%!|
00000f50  44 25 83 36 34 0d 03 a2  35 ef 33 31 78 25 79 25  |D%.64...5.31x%y%|
00000f60  33 32 2c 33 31 75 25 76  25 74 25 2b 42 25 3a 78  |32,31u%v%t%+B%:x|
00000f70  25 3d 75 25 3a 79 25 3d  76 25 3a 5a 25 21 45 25  |%=u%:y%=v%:Z%!E%|
00000f80  3d 5a 25 21 45 25 2d 31  3a e1 0d 03 ac 51 dd f2  |=Z%!E%-1:....Q..|
00000f90  6f 67 3a e7 64 25 e7 b3  28 33 30 30 29 3d 31 e7  |og:.d%..(300)=1.|
00000fa0  a4 72 28 78 25 2c 79 25  29 3d 33 32 f2 6e 6d 28  |.r(x%,y%)=32.nm(|
00000fb0  78 25 2b 75 25 2c 79 25  2b 76 25 2c 65 25 2f 32  |x%+u%,y%+v%,e%/2|
00000fc0  2c 73 25 2b b3 28 33 29  29 3a 64 25 3d 64 25 2d  |,s%+.(3)):d%=d%-|
00000fd0  31 3a e7 64 25 3c 31 64  25 3d 30 0d 03 b6 05 e1  |1:.d%<1d%=0.....|
00000fe0  0d 03 c0 34 dd f2 6e 6d  28 78 25 2c 79 25 2c 65  |...4..nm(x%,y%,e|
00000ff0  25 2c 73 25 29 f2 6e 6f  28 6f 6d 25 2c 78 25 2c  |%,s%).no(om%,x%,|
00001000  79 25 2c 65 25 2c 91 2b  73 25 2a 32 2c 30 2c 73  |y%,e%,.+s%*2,0,s|
00001010  25 29 3a e1 0d 03 ca 28  dd f2 6f 6d 28 75 25 2c  |%):....(..om(u%,|
00001020  76 25 29 e7 94 75 25 82  94 76 25 8b e7 b3 28 32  |v%)..u%..v%...(2|
00001030  29 3d 31 75 25 3d 30 8b  76 25 3d 30 0d 03 d4 0a  |)=1u%=0.v%=0....|
00001040  f2 68 6f 70 3a e1 0d 03  de 3d dd f2 6f 66 3a e7  |.hop:....=..of:.|
00001050  b3 28 35 30 29 3d 31 e7  a4 72 28 78 25 2c 79 25  |.(50)=1..r(x%,y%|
00001060  29 3d 33 32 f2 6e 66 28  78 25 2b 75 25 2c 79 25  |)=32.nf(x%+u%,y%|
00001070  2b 76 25 2c 65 25 2d 31  2c 73 25 2b b3 28 33 29  |+v%,e%-1,s%+.(3)|
00001080  2d 31 29 0d 03 e8 05 e1  0d 03 f2 61 dd a4 72 28  |-1)........a..r(|
00001090  78 25 2c 79 25 29 ea 4b  25 3a 75 25 3d 30 3a 76  |x%,y%).K%:u%=0:v|
000010a0  25 3d 30 3a 4b 25 3d b3  28 34 29 3a e7 4b 25 3d  |%=0:K%=.(4):.K%=|
000010b0  31 75 25 3d 31 3a 76 25  3d 30 8b e7 4b 25 3d 32  |1u%=1:v%=0..K%=2|
000010c0  75 25 3d 2d 31 3a 76 25  3d 30 8b e7 4b 25 3d 33  |u%=-1:v%=0..K%=3|
000010d0  75 25 3d 30 3a 76 25 3d  31 8b e7 4b 25 3d 34 75  |u%=0:v%=1..K%=4u|
000010e0  25 3d 30 3a 76 25 3d 2d  31 0d 03 fc 14 3d a4 63  |%=0:v%=-1....=.c|
000010f0  28 78 25 2b 75 25 2c 79  25 2b 76 25 29 0d 04 06  |(x%+u%,y%+v%)...|
00001100  34 dd f2 6e 66 28 78 25  2c 79 25 2c 65 25 2c 73  |4..nf(x%,y%,e%,s|
00001110  25 29 f2 6e 6f 28 6f 66  25 2c 78 25 2c 79 25 2c  |%).no(of%,x%,y%,|
00001120  65 25 2c 91 2b 73 25 2a  32 2c 30 2c 73 25 29 3a  |e%,.+s%*2,0,s%):|
00001130  e1 0d 04 10 33 dd f2 6f  72 3a ea 75 25 2c 76 25  |....3..or:.u%,v%|
00001140  3a 76 25 3d 64 25 80 26  46 46 46 46 3a 75 25 3d  |:v%=d%.&FFFF:u%=|
00001150  64 25 81 26 31 30 30 30  30 3a e7 76 25 3e 31 76  |d%.&10000:.v%>1v|
00001160  25 3d 2d 31 0d 04 1a 6b  43 25 3d a4 63 28 78 25  |%=-1...kC%=.c(x%|
00001170  2b 75 25 2c 79 25 2b 76  25 29 3a ef 33 31 78 25  |+u%,y%+v%):.31x%|
00001180  79 25 33 32 3a e7 43 25  3d 33 32 75 25 3d 78 25  |y%32:.C%=32u%=x%|
00001190  2b 75 25 3a 76 25 3d 79  25 2b 76 25 3a ef 33 31  |+u%:v%=y%+v%:.31|
000011a0  75 25 76 25 74 25 2b 42  25 3a 78 25 3d 75 25 3a  |u%v%t%+B%:x%=u%:|
000011b0  79 25 3d 76 25 8b f2 68  6f 72 28 43 25 2c 78 25  |y%=v%..hor(C%,x%|
000011c0  2b 75 25 2c 79 25 2b 76  25 29 3a 74 25 3d 30 0d  |+u%,y%+v%):t%=0.|
000011d0  04 24 05 e1 0d 04 2e 22  dd f2 68 6f 72 28 43 25  |.$....."..hor(C%|
000011e0  2c 78 25 2c 79 25 29 43  25 3d 43 25 2d 42 25 3a  |,x%,y%)C%=C%-B%:|
000011f0  e7 43 25 3d 30 e1 0d 04  38 37 ea 4b 25 3a 4b 25  |.C%=0...87.K%:K%|
00001200  3d a4 66 28 43 25 2c 78  25 2c 79 25 29 3a e7 4b  |=.f(C%,x%,y%):.K|
00001210  25 3e 2d 31 f2 64 65 28  a4 61 6f 28 4b 25 29 2c  |%>-1.de(.ao(K%),|
00001220  65 25 29 3a 73 63 25 3d  73 63 25 2b 35 0d 04 42  |e%):sc%=sc%+5..B|
00001230  05 e1 0d 04 4c 36 dd a4  63 28 58 25 2c 59 25 29  |....L6..c(X%,Y%)|
00001240  ea 41 25 3a 41 25 3d 31  33 35 3a ef 33 31 58 25  |.A%:A%=135:.31X%|
00001250  59 25 3a 3d 28 ba 28 26  46 46 46 34 29 80 26 46  |Y%:=(.(&FFF4).&F|
00001260  46 30 30 29 81 32 35 36  0d 04 56 2c dd f2 6d 28  |F00).256..V,..m(|
00001270  6b 24 29 f2 63 6c 73 28  6c 78 25 2c 6d 79 25 2c  |k$).cls(lx%,my%,|
00001280  77 78 25 2c 30 2c 30 29  3a f2 63 6e 28 6b 24 2c  |wx%,0,0):.cn(k$,|
00001290  30 29 3a e1 0d 04 60 25  dd f2 63 6e 28 6b 24 2c  |0):...`%..cn(k$,|
000012a0  59 25 29 f1 8a 28 77 77  25 2d a9 6b 24 29 2f 32  |Y%)..(ww%-.k$)/2|
000012b0  2c 59 25 29 6b 24 3b 3a  e1 0d 04 6a 38 dd a4 6d  |,Y%)k$;:...j8..m|
000012c0  28 74 24 2c 6d 24 29 ea  6f 24 2c 4d 25 2c 58 25  |(t$,m$).o$,M%,X%|
000012d0  3a 6d 24 3d 6d 24 2b 64  24 3a f2 74 28 74 24 29  |:m$=m$+d$:.t(t$)|
000012e0  3a 58 25 3d 28 77 77 25  2d a9 74 24 29 2f 32 3a  |:X%=(ww%-.t$)/2:|
000012f0  f5 0d 04 74 2c 6f 24 3d  6f 24 2b bd 97 6d 24 3a  |...t,o$=o$+..m$:|
00001300  50 25 3d a7 6d 24 2c 64  24 29 3a f1 8a 58 25 2c  |P%=.m$,d$):..X%,|
00001310  4d 25 29 c0 6d 24 2c 50  25 2d 31 29 3b 0d 04 7e  |M%).m$,P%-1);..~|
00001320  23 6d 24 3d c1 6d 24 2c  50 25 2b 31 29 3a 4d 25  |#m$=.m$,P%+1):M%|
00001330  3d 4d 25 2b 31 3a fd 6d  24 3d 22 22 3a 3d 6f 24  |=M%+1:.m$="":=o$|
00001340  0d 04 88 51 dd f2 74 28  74 24 29 f2 6d 28 22 22  |...Q..t(t$).m(""|
00001350  29 3a f2 63 6c 73 28 6c  78 25 2c 6d 79 25 2d 36  |):.cls(lx%,my%-6|
00001360  2c 77 78 25 2f 33 2c 30  2c 30 29 3a f2 63 6e 28  |,wx%/3,0,0):.cn(|
00001370  74 24 2c 30 29 3a f2 63  6c 73 28 6c 78 25 2c 6d  |t$,0):.cls(lx%,m|
00001380  79 25 2d 35 2c 77 78 25  2f 33 2c 35 2c 31 29 3a  |y%-5,wx%/3,5,1):|
00001390  e1 0d 04 92 3f dd f2 72  64 3a 73 63 25 3d 73 63  |....?..rd:sc%=sc|
000013a0  25 2b 6d 65 25 21 45 25  3a ef 32 36 2c 31 32 3a  |%+me%!E%:.26,12:|
000013b0  f2 63 6e 28 22 47 61 6d  65 20 4f 76 65 72 22 2c  |.cn("Game Over",|
000013c0  37 29 3a f2 77 28 32 30  30 29 3a 2a 46 58 31 35  |7):.w(200):*FX15|
000013d0  0d 04 9c 26 4b 54 25 3d  a3 3a e7 73 63 25 3c 68  |...&KT%=.:.sc%<h|
000013e0  73 25 28 31 29 f2 77 28  32 30 30 29 3a e1 3a 8b  |s%(1).w(200):.:.|
000013f0  ea 41 25 2c 42 25 0d 04  a6 40 db 3a f2 63 6e 28  |.A%,B%...@.:.cn(|
00001400  22 57 65 6c 6c 20 64 6f  6e 65 21 22 2c 38 29 3a  |"Well done!",8):|
00001410  f2 63 6e 28 22 59 6f 75  27 76 65 20 6d 61 64 65  |.cn("You've made|
00001420  20 61 20 6e 65 77 20 68  69 67 68 20 73 63 6f 72  | a new high scor|
00001430  65 22 2c 31 30 29 0d 04  b0 3b f2 63 6e 28 22 45  |e",10)...;.cn("E|
00001440  6e 74 65 72 20 79 6f 75  72 20 6e 61 6d 65 22 2c  |nter your name",|
00001450  31 32 29 3a e8 8a 31 35  2c 31 34 29 22 2e 2e 2e  |12):..15,14)"...|
00001460  2e 2e 2e 2e 2e 2e 2e 22  8a 31 35 2c 31 34 29 6e  |.......".15,14)n|
00001470  24 0d 04 ba 3d 41 25 3d  32 3a f5 42 25 3d 41 25  |$...=A%=2:.B%=A%|
00001480  2d 31 3a e7 73 63 25 3e  68 73 25 28 41 25 29 68  |-1:.sc%>hs%(A%)h|
00001490  73 25 28 42 25 29 3d 68  73 25 28 41 25 29 3a 68  |s%(B%)=hs%(A%):h|
000014a0  73 24 28 42 25 29 3d 68  73 24 28 41 25 29 0d 04  |s$(B%)=hs$(A%)..|
000014b0  c4 3d 41 25 3d 41 25 2b  31 3a fd 73 63 25 3c 68  |.=A%=A%+1:.sc%<h|
000014c0  73 25 28 41 25 29 84 41  25 3d 68 73 25 3a 68 73  |s%(A%).A%=hs%:hs|
000014d0  25 28 41 25 29 3d 73 63  25 3a 68 73 24 28 41 25  |%(A%)=sc%:hs$(A%|
000014e0  29 3d c0 6e 24 2c 31 30  29 3a e1 0d 04 ce 21 3d  |)=.n$,10):....!=|
000014f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001500  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 0d 04 d8 06  |============....|
00001510  dc 34 0d 04 e2 06 dc 32  0d 04 ec 53 dc 34 41 40  |.4.....2...S.4A@|
00001520  38 2e 33 36 41 38 56 2e  42 36 42 34 56 2e 42 36  |8.36A8V.B6B4V.B6|
00001530  40 34 56 2e 42 33 41 32  60 30 42 31 4d 32 38 2e  |@4V.B3A2`0B1M28.|
00001540  38 30 3b 32 42 2e 42 32  45 40 38 21 4a 32 38 32  |80;2B.B2E@8!J282|
00001550  45 32 38 21 3a 32 38 32  32 32 38 21 40 5a 38 2f  |E28!:282228!@Z8/|
00001560  41 44 3d 2e 30 34 3d 3a  38 2e 35 0d 04 f6 c4 dc  |AD=.04=:8.5.....|
00001570  57 54 30 2f 52 2f 30 2f  2f 3c 2f 31 2f 3d 2f 2f  |WT0/R/0//</1/=//|
00001580  30 2f 2f 3c 2f 31 2f 3d  2f 2f 30 2f 2f 3c 2f 31  |0//</1/=//0//</1|
00001590  2f 3d 2f 2f 30 2f 3e 2f  2f 2f 3f 2f 30 2f 2f 3c  |/=//0/>///?/0//<|
000015a0  2f 31 2f 3d 2f 2f 30 2f  2f 3c 2f 31 2f 3d 2f 2f  |/1/=//0//</1/=//|
000015b0  30 2f 2f 3c 2f 31 2f 3d  2f 2f 30 2f 2f 38 34 2f  |0//</1/=//0//84/|
000015c0  34 39 2f 2f 30 2f 2f 38  2f 39 2f 39 2f 2f 30 2f  |49//0//8/9/9//0/|
000015d0  2f 38 2f 39 2f 39 2f 2f  30 2f 2f 38 2f 39 2f 39  |/8/9/9//0//8/9/9|
000015e0  2f 2f 30 2f 2f 38 3b 39  2f 2f 30 2f 2f 50 2f 2f  |//0//8;9//0//P//|
000015f0  30 2f 2f 38 33 31 33 39  2f 2f 30 2f 2f 38 2f 39  |0//83139//0//8/9|
00001600  2f 39 2f 2f 30 2f 2f 38  2f 39 2f 39 2f 2f 30 2f  |/9//0//8/9/9//0/|
00001610  2f 38 2f 39 2f 39 2f 2f  30 2f 2f 38 3b 39 2f 2f  |/8/9/9//0//8;9//|
00001620  30 2f 2f 50 2f 2f 30 2f  3e 31 3f 2f 30 54 57 0d  |0//P//0/>1?/0TW.|
00001630  05 00 06 dc 33 0d 05 0a  83 dc 33 53 3a 60 30 2f  |....3.....3S:`0/|
00001640  34 4f 34 38 2e 35 34 4f  40 38 2e 35 2f 2f 3a 3a  |4O48.54O@8.5//::|
00001650  2e 30 36 31 3a 38 2e 3e  36 33 3a 38 2e 3f 36 35  |.061:8.>63:8.?65|
00001660  3a 38 2e 40 36 37 3a 38  2e 41 36 39 3a 38 2e 42  |:8.@67:8.A69:8.B|
00001670  30 49 3a 60 2e 42 33 42  3a 60 2e 56 32 54 3a 38  |0I:`.B3B:`.V2T:8|
00001680  21 3e 34 38 30 33 34 38  2e 42 31 33 33 38 2e 38  |!>480348.B1338.8|
00001690  31 33 41 38 2e 38 30 33  40 38 2e 42 32 3a 3f 30  |13A8.803@8.B2:?0|
000016a0  21 3e 30 38 32 3a 35 30  21 3e 44 38 36 3b 3a 38  |!>082:50!>D86;:8|
000016b0  2e 42 36 48 3a 33 2e 42  0d 05 14 ce dc 57 46 2f  |.B6H:3.B.....WF/|
000016c0  3b 30 2f 3c 37 2f 3b 30  2f 2f 3a 2f 37 2f 3b 30  |;0/<7/;0//:/7/;0|
000016d0  2f 2f 2f 38 2f 2f 2f 35  2f 2f 3b 30 2f 2f 2f 2f  |///8///5//;0////|
000016e0  36 2f 2f 2f 2f 2f 33 2f  2f 2f 3b 30 2f 2f 2f 2f  |6/////3///;0////|
000016f0  36 2f 2f 2f 2f 2f 33 2f  3d 30 2f 2f 2f 36 2f 2f  |6/////3/=0///6//|
00001700  2f 2f 2f 2f 33 2f 2f 2f  3b 30 2f 2f 38 2f 2f 2f  |////3///;0//8///|
00001710  2f 2f 33 2f 2f 2f 3b 30  2f 3a 2f 2f 2f 2f 33 2f  |//3///;0/:////3/|
00001720  2f 2f 3b 30 3c 2f 2f 2f  33 2f 2f 2f 3b 3f 2f 2f  |//;0<///3///;?//|
00001730  33 2f 2f 3e 3e 2f 33 2f  3d 3f 2f 2f 33 2f 2f 3e  |3//>>/3/=?//3//>|
00001740  3c 2f 2f 2f 33 2f 2f 2f  3b 30 2f 3a 2f 2f 2f 2f  |<///3///;0/:////|
00001750  33 2f 2f 2f 3b 30 2f 2f  38 2f 2f 2f 2f 2f 33 2f  |3///;0//8/////3/|
00001760  2f 2f 3b 30 2f 2f 2f 36  2f 2f 2f 2f 2f 2f 33 2f  |//;0///6//////3/|
00001770  2f 2f 3b 30 2f 2f 2f 2f  36 2f 2f 2f 2f 2f 33 2f  |//;0////6/////3/|
00001780  3d 30 2f 2f 2f 2f 0d 05  1e 2f dc 36 2f 2f 2f 2f  |=0////.../.6////|
00001790  2f 33 2f 2f 2f 3b 30 2f  2f 2f 38 2f 2f 2f 35 2f  |/3///;0///8///5/|
000017a0  2f 3b 30 2f 2f 3a 2f 37  2f 3b 30 2f 3c 37 2f 3b  |/;0//:/7/;0/<7/;|
000017b0  30 46 2f 3b 57 0d 05 28  06 dc 33 0d 05 32 53 dc  |0F/;W..(..3..2S.|
000017c0  2f 41 3a 35 2e 2f 34 3b  34 38 2e 33 34 3b 40 38  |/A:5./4;48.34;@8|
000017d0  2e 33 34 47 40 38 2e 33  34 47 34 38 2e 33 36 41  |.34G@8.34G48.36A|
000017e0  33 2f 2e 42 36 41 41 2f  2e 42 36 48 3a 2f 2e 42  |3/.B6AA/.B6H:/.B|
000017f0  36 3a 3a 2f 2e 42 36 37  3a 2f 2e 42 36 4b 3a 2f  |6::/.B67:/.B6K:/|
00001800  2e 42 33 4e 3a 2f 42 56  33 34 3a 2f 42 56 0d 05  |.B3N:/BV34:/BV..|
00001810  3c ce dc 57 54 30 54 30  54 30 54 30 39 35 2f 35  |<..WT0T0T0T095/5|
00001820  3a 30 39 2f 3b 2f 3a 30  39 2f 31 35 31 2f 3a 30  |:09/;/:09/151/:0|
00001830  30 35 30 2f 3b 2f 30 35  31 30 30 2f 33 2f 30 2f  |050/;/05100/3/0/|
00001840  2f 2f 2f 31 2f 31 2f 2f  2f 2f 30 2f 33 2f 31 30  |///1/1////0/3/10|
00001850  30 2f 33 2f 30 2f 2f 2f  2f 2f 33 2f 2f 2f 2f 2f  |0/3/0/////3/////|
00001860  30 2f 33 2f 31 30 30 2f  33 2f 30 2f 2f 2f 2f 2f  |0/3/100/3/0/////|
00001870  33 2f 2f 2f 2f 2f 30 2f  33 2f 31 30 30 2f 38 2f  |3/////0/3/100/8/|
00001880  37 2f 38 2f 31 30 30 2f  33 2f 30 2f 2f 2f 2f 2f  |7/8/100/3/0/////|
00001890  33 2f 2f 2f 2f 2f 30 2f  33 2f 31 30 30 2f 33 2f  |3/////0/3/100/3/|
000018a0  30 2f 2f 2f 2f 2f 33 2f  2f 2f 2f 2f 30 2f 33 2f  |0/////3/////0/3/|
000018b0  31 30 30 2f 33 2f 30 2f  2f 2f 2f 31 2f 31 2f 2f  |100/3/0////1/1//|
000018c0  2f 2f 30 2f 33 2f 31 30  30 35 30 2f 3b 2f 30 35  |//0/3/10050/;/05|
000018d0  31 30 39 2f 31 35 31 2f  3a 30 39 2f 0d 05 46 17  |109/151/:09/..F.|
000018e0  dc 3b 2f 3a 30 39 35 2f  35 3a 30 54 30 54 30 54  |.;/:095/5:0T0T0T|
000018f0  30 54 57 0d 05 50 06 dc  32 0d 05 5a 59 dc 2f 2f  |0TW..P..2..ZY.//|
00001900  39 2f 2e 2f 36 4c 39 56  2e 42 36 4b 39 56 2e 42  |9/./6L9V.B6K9V.B|
00001910  36 4a 39 56 2e 42 36 49  39 56 2e 42 36 48 39 56  |6J9V.B6I9V.B6H9V|
00001920  2e 42 31 43 33 38 2e 38  31 42 33 38 2e 38 30 35  |.B1C38.81B38.805|
00001930  3f 60 2e 42 30 36 3f 60  2e 42 36 47 39 56 2e 42  |?`.B06?`.B6G9V.B|
00001940  36 46 39 56 2e 42 33 53  37 60 42 2f 33 53 3b 60  |6F9V.B3S7`B/3S;`|
00001950  42 2f 0d 05 64 a4 dc 57  54 30 2f 45 3c 30 2f 2f  |B/..d..WT0/E<0//|
00001960  43 2f 3c 30 2f 2f 2f 41  2f 2f 3c 30 2f 2f 2f 2f  |C/<0///A//<0////|
00001970  3f 2f 2f 2f 3c 30 2f 2f  2f 2f 2f 3f 2f 2f 3c 30  |?///<0/////?//<0|
00001980  2f 2f 2f 2f 41 2f 38 34  2f 2f 2f 43 38 2f 31 30  |////A/84///C8/10|
00001990  2f 2f 4e 2f 31 30 2f 50  31 30 54 30 2f 50 31 30  |//N/10/P10T0/P10|
000019a0  2f 2f 4e 2f 31 30 2f 2f  2f 43 38 2f 31 30 2f 2f  |//N/10///C8/10//|
000019b0  2f 2f 41 2f 38 34 2f 2f  2f 2f 2f 3f 2f 2f 3c 30  |//A/84/////?//<0|
000019c0  2f 2f 2f 2f 2f 2f 3d 2f  2f 2f 3c 30 2f 2f 2f 2f  |//////=///<0////|
000019d0  2f 3d 2f 2f 2f 2f 3c 30  2f 2f 2f 2f 3f 2f 2f 2f  |/=////<0////?///|
000019e0  3c 30 2f 2f 2f 41 2f 2f  3c 30 2f 2f 43 2f 3c 30  |<0///A//<0//C/<0|
000019f0  2f 45 3c 30 54 57 0d 05  6e 21 3d 3d 3d 3d 3d 3d  |/E<0TW..n!======|
00001a00  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001a10  3d 3d 3d 3d 3d 3d 3d 0d  ff                       |=======..|
00001a19

Arachno.m0

Arachno.m1

Arachno.m2

Arachno.m4

Arachno.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .