8Bit/Arachno

Home » Archimedes archive » Micro User » MU 1992-03.adf » Listings » 8Bit/Arachno

8Bit/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 » Archimedes archive » Micro User » MU 1992-03.adf » Listings
Filename:	8Bit/Arachno
Read OK:	✔
File size:	19DF bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Micro User » MU 1992-03.adf » Listings » 32bit/Arachnoid
Archimedes archive » Micro User » MU 1992-03.adf » Listings » 8Bit/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:IFPAGE<&8000md%=-105:mu%=-73
  200fr%=-74:nL%=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
 1230DATA4
 1240DATA2
 1250DATA4A@8.36A8V.B6B4V.B6@4V.B3A2`0B1M28.80;2B.B2E@8!J282E28!:282228!@Z8/AD=.04=:8.5
 1260DATAWT0/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
 1270DATA3
 1280DATA3S:`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
 1290DATAWF/;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////
 1300DATA6/////3///;0///8///5//;0//:/7/;0/<7/;0F/;W
 1310DATA3
 1320DATA/A:5./4;48.34;@8.34G@8.34G48.36A3/.B6AA/.B6H:/.B6::/.B67:/.B6K:/.B3N:/BV34:/BV
 1330DATAWT0T0T0T095/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/
 1340DATA;/:095/5:0T0T0T0TW
 1350DATA2
 1360DATA//9/./6L9V.B6K9V.B6J9V.B6I9V.B6H9V.B1C38.81B38.805?`.B06?`.B6G9V.B6F9V.B3S7`B/3S;`B/
 1370DATAWT0/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


!� > <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:�<&8000md%=-105:mu%=-73
�fr%=-74: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
(S�/A:5./4;48.34;@8.34G@8.34G48.36A3/.B6AA/.B6H:/.B6::/.B67:/.B6K:/.B3N:/BV34:/BV
2��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/
<�;/:095/5:0T0T0T0TW
F�2
PY�//9/./6L9V.B6K9V.B6J9V.B6I9V.B6H9V.B1C38.81B38.805?`.B06?`.B6G9V.B6F9V.B3S7`B/3S;`B/
Z��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
�

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 e7 90 3c 26 38  30 30 30 6d 64 25 3d 2d  |67:..<&8000md%=-|
00000380  31 30 35 3a 6d 75 25 3d  2d 37 33 0d 00 c8 13 66  |105:mu%=-73....f|
00000390  72 25 3d 2d 37 34 3a 6e  4c 25 3d 31 3a e1 0d 00  |r%=-74:nL%=1:...|
000003a0  d2 1a dd f2 65 72 3a e7  9f 3d 31 37 e7 ac a6 2d  |....er:..=17...-|
000003b0  31 4b 54 25 3d b9 3a e1  0d 00 dc 21 ee 85 87 3a  |1KT%=.:....!...:|
000003c0  ef 32 33 2c 31 2c 31 3b  30 3b 30 3b 30 3b 32 36  |.23,1,1;0;0;0;26|
000003d0  2c 31 32 3a 2a 46 58 31  35 0d 00 e6 11 f6 3a f1  |,12:*FX15.....:.|
000003e0  22 20 61 74 20 22 3b 9e  3a e0 0d 00 f0 38 dd f2  |" at ";.:....8..|
000003f0  63 6c 73 28 58 25 2c 59  25 2c 55 25 2c 56 25 2c  |cls(X%,Y%,U%,V%,|
00000400  43 25 29 ef 32 38 58 25  59 25 2b 56 25 58 25 2b  |C%).28X%Y%+V%X%+|
00000410  55 25 59 25 3a 77 77 25  3d 55 25 3a 68 77 25 3d  |U%Y%:ww%=U%:hw%=|
00000420  56 25 0d 00 fa 3f e7 43  25 3e 2d 31 ef 31 37 43  |V%...?.C%>-1.17C|
00000430  25 2b 31 32 38 2c 31 37  2c 31 2d 43 25 2c 31 32  |%+128,17,1-C%,12|
00000440  3a 8b ef 32 36 2c 31 37  2c 31 32 38 2c 31 37 2c  |:..26,17,128,17,|
00000450  31 3a 77 77 25 3d 77 78  25 3a 68 77 25 3d 6d 79  |1:ww%=wx%:hw%=my|
00000460  25 0d 01 04 05 e1 0d 01  0e 18 dd f2 68 74 28 54  |%...........ht(T|
00000470  25 29 f5 e7 54 25 f2 69  6e 3a 8b f2 68 73 0d 01  |%)..T%.in:..hs..|
00000480  18 21 f2 63 6e 28 22 50  72 65 73 73 20 53 50 41  |.!.cn("Press SPA|
00000490  43 45 20 74 6f 20 70 6c  61 79 22 2c 33 30 29 0d  |CE to play",30).|
000004a0  01 22 3e 54 25 3d ac 54  25 3a 4b 25 3d a4 6b 70  |.">T%=.T%:K%=.kp|
000004b0  28 22 20 22 2c 35 30 30  29 3a fd 4b 25 3a 4c 25  |(" ",500):.K%:L%|
000004c0  3d 30 3a 73 63 25 3d 30  3a 63 73 25 3d 35 3a 66  |=0:sc%=0:cs%=5:f|
000004d0  73 25 3d 31 30 3a 66 66  25 3d 30 3a e1 0d 01 2c  |s%=10:ff%=0:...,|
000004e0  3a dd a4 6b 70 28 6b 24  2c 54 25 29 ea 4b 25 3a  |:..kp(k$,T%).K%:|
000004f0  54 25 3d 54 25 2b 91 3a  f5 4b 25 3d a7 bd 32 35  |T%=T%+.:.K%=..25|
00000500  35 2b 6b 24 2c bf 30 29  2d 31 3a fd 4b 25 84 91  |5+k$,.0)-1:.K%..|
00000510  3e 54 25 3a 3d 4b 25 0d  01 36 4b dd f2 69 6e 3a  |>T%:=K%..6K..in:|
00000520  f2 68 28 22 49 6e 73 74  72 75 63 74 69 6f 6e 73  |.h("Instructions|
00000530  22 2c 30 29 3a f2 63 6e  28 22 44 65 73 74 72 6f  |",0):.cn("Destro|
00000540  79 20 61 6c 6c 20 67 65  6e 65 72 61 74 6f 72 73  |y all generators|
00000550  20 6f 6e 20 65 61 63 68  20 6c 65 76 65 6c 22 2c  | on each level",|
00000560  35 29 0d 01 40 34 f2 63  69 28 31 32 38 2c 22 57  |5)..@4.ci(128,"W|
00000570  61 6c 6c 22 29 3a f2 63  69 28 31 32 39 2c 22 59  |all"):.ci(129,"Y|
00000580  6f 75 22 29 3a f2 63 69  28 31 33 30 2c 22 45 6e  |ou"):.ci(130,"En|
00000590  65 72 67 79 22 29 0d 01  4a 3e f2 63 69 28 31 33  |ergy")..J>.ci(13|
000005a0  31 2c 22 57 65 61 70 6f  6e 22 29 3a f2 63 69 28  |1,"Weapon"):.ci(|
000005b0  31 33 32 2c 22 54 65 6c  65 70 6f 72 74 22 29 3a  |132,"Teleport"):|
000005c0  f2 63 69 28 31 33 33 2c  22 47 65 6e 65 72 61 74  |.ci(133,"Generat|
000005d0  6f 72 22 29 0d 01 54 3d  f2 63 69 28 31 33 34 2c  |or")..T=.ci(134,|
000005e0  22 4d 6f 6e 73 74 65 72  22 29 3a f2 63 69 28 31  |"Monster"):.ci(1|
000005f0  33 35 2c 22 46 75 6e 67  75 73 22 29 3a f2 63 69  |35,"Fungus"):.ci|
00000600  28 31 33 36 2c 22 42 61  72 72 69 65 72 22 29 3a  |(136,"Barrier"):|
00000610  e1 0d 01 5e 34 dd f2 63  69 28 43 25 2c 73 24 29  |...^4..ci(C%,s$)|
00000620  f2 63 6e 28 bd 43 25 2b  c4 32 30 2d a9 73 24 2c  |.cn(.C%+.20-.s$,|
00000630  22 2e 22 29 2b 73 24 2c  39 2b 28 43 25 2d 31 32  |".")+s$,9+(C%-12|
00000640  38 29 29 3a e1 0d 01 68  3c dd f2 68 73 3a ea 51  |8)):...h<..hs:.Q|
00000650  25 2c 52 25 3a f2 68 28  22 48 69 67 68 20 73 63  |%,R%:.h("High sc|
00000660  6f 72 65 73 22 2c 30 29  3a e3 51 25 3d 31 b8 68  |ores",0):.Q%=1.h|
00000670  73 25 3a 52 25 3d 32 30  2d a9 68 73 24 28 51 25  |s%:R%=20-.hs$(Q%|
00000680  29 0d 01 72 2f f1 8a 35  2c 37 2b 68 73 25 2d 51  |)..r/..5,7+hs%-Q|
00000690  25 29 68 73 24 28 51 25  29 c4 52 25 2c 22 2e 22  |%)hs$(Q%).R%,"."|
000006a0  29 a4 6e 28 68 73 25 28  51 25 29 29 3a ed 3a e1  |).n(hs%(Q%)):.:.|
000006b0  0d 01 7c 1d dd a4 6e 28  4e 25 29 3d c2 22 2e 2e  |..|...n(N%)=."..|
000006c0  2e 2e 2e 2e 2e 22 2b c3  4e 25 2c 38 29 0d 01 86  |....."+.N%,8)...|
000006d0  20 dd f2 68 28 6b 24 2c  59 25 29 ef 32 36 3a db  | ..h(k$,Y%).26:.|
000006e0  3a f2 63 6e 28 6b 24 2c  59 25 29 3a e1 0d 01 90  |:.cn(k$,Y%):....|
000006f0  30 dd f2 69 67 3a ef 32  36 2c 31 32 3a 49 25 3d  |0..ig:.26,12:I%=|
00000700  30 3a 4c 25 3d 4c 25 2b  31 3a e7 28 4c 25 2d 31  |0:L%=L%+1:.(L%-1|
00000710  29 83 6e 4c 25 3d 30 f7  3a f3 6e 4c 25 0d 01 9a  |).nL%=0.:.nL%...|
00000720  3d f2 68 28 22 4c 65 76  65 6c 20 22 2b c3 4c 25  |=.h("Level "+.L%|
00000730  2c 31 33 29 3a f2 77 28  35 30 29 3a f2 63 6e 28  |,13):.w(50):.cn(|
00000740  22 47 65 74 20 52 65 61  64 79 2e 2e 2e 22 2c 31  |"Get Ready...",1|
00000750  36 29 3a f2 77 28 32 30  30 29 0d 01 a4 2d f2 64  |6):.w(200)...-.d|
00000760  6c 28 4c 25 29 3a f1 8a  35 2c 32 36 29 22 45 6e  |l(L%):..5,26)"En|
00000770  65 72 67 79 3a 22 8a 36  2c 32 38 29 22 53 63 6f  |ergy:".6,28)"Sco|
00000780  72 65 3a 22 3b 3a e1 0d  01 ae 1b dd f2 77 28 54  |re:";:.......w(T|
00000790  25 29 54 25 3d 54 25 2b  91 3a f5 fd 91 3e 54 25  |%)T%=T%+.:...>T%|
000007a0  3a e1 0d 01 b8 24 dd f2  64 6c 28 4c 25 29 3a f2  |:....$..dl(L%):.|
000007b0  63 6c 73 28 6c 78 25 2c  74 79 25 2c 77 78 25 2c  |cls(lx%,ty%,wx%,|
000007c0  68 79 25 2c 31 29 0d 01  c2 2d f2 63 6c 73 28 6c  |hy%,1)...-.cls(l|
000007d0  78 25 2b 31 2c 74 79 25  2b 31 2c 77 78 25 2d 32  |x%+1,ty%+1,wx%-2|
000007e0  2c 68 79 25 2d 32 2c 30  29 3a f2 64 73 28 4c 25  |,hy%-2,0):.ds(L%|
000007f0  29 3a e1 0d 01 cc 42 dd  f2 64 73 28 4c 25 29 ea  |):....B..ds(L%).|
00000800  46 25 2c 51 25 2c 6f 24  3a ef 32 36 3a f3 46 25  |F%,Q%,o$:.26:.F%|
00000810  2c 6f 24 3a 4b 25 3d 42  25 3a e3 51 25 3d 31 b8  |,o$:K%=B%:.Q%=1.|
00000820  46 25 2d 31 3a f2 64 64  3a ed 3a f2 64 6f 62 28  |F%-1:.dd:.:.dob(|
00000830  6f 24 29 3a e1 0d 01 d6  1d dd f2 64 64 3a ea 50  |o$):.......dd:.P|
00000840  25 2c 73 24 3a f3 73 24  3a e3 50 25 3d 31 b8 a9  |%,s$:.s$:.P%=1..|
00000850  73 24 0d 01 e0 2a f1 c4  97 c1 73 24 2c 50 25 29  |s$...*....s$,P%)|
00000860  2d 48 25 2c bd 4b 25 29  3b 3a 4b 25 3d 94 28 4b  |-H%,.K%);:K%=.(K|
00000870  25 2d 42 25 2d 33 32 29  3a ed 3a e1 0d 01 ea 3f  |%-B%-32):.:....?|
00000880  dd f2 64 6f 62 28 73 24  29 ea 50 25 3a 4e 25 3d  |..dob(s$).P%:N%=|
00000890  30 3a 47 25 3d 30 3a f5  f2 6e 6f 28 a4 76 2c a4  |0:G%=0:..no(.v,.|
000008a0  76 2c a4 76 2c a4 76 2c  91 2c a4 76 2c a4 76 29  |v,.v,.v,.,.v,.v)|
000008b0  3a fd 50 25 3e 3d a9 73  24 3a e1 0d 01 f4 30 dd  |:.P%>=.s$:....0.|
000008c0  a4 76 3a 50 25 3d 50 25  2b 31 3a ea 63 24 3a 63  |.v:P%=P%+1:.c$:c|
000008d0  24 3d c1 73 24 2c 50 25  2c 31 29 3a e7 63 24 3c  |$=.s$,P%,1):.c$<|
000008e0  3e 22 21 22 3d 97 63 24  2d 48 25 0d 01 fe 2c 50  |>"!"=.c$-H%...,P|
000008f0  25 3d 50 25 2b 32 3a 3d  6e 78 25 2a 28 97 c1 73  |%=P%+2:=nx%*(..s|
00000900  24 2c 50 25 2d 31 29 2d  48 25 29 2b 97 c1 73 24  |$,P%-1)-H%)+..s$|
00000910  2c 50 25 29 2d 48 25 0d  02 08 49 dd f2 6e 6f 28  |,P%)-H%...I..no(|
00000920  74 25 2c 78 25 2c 79 25  2c 65 25 2c 6a 25 2c 64  |t%,x%,y%,e%,j%,d|
00000930  25 2c 73 25 29 e7 4e 25  3d 6d 6f 25 e1 3a 8b e7  |%,s%).N%=mo%.:..|
00000940  74 25 3d 6f 67 25 47 25  3d 47 25 2b 31 8b e7 74  |t%=og%G%=G%+1..t|
00000950  25 3d 6f 70 25 6d 65 25  3d a4 61 6f 28 4e 25 29  |%=op%me%=.ao(N%)|
00000960  0d 02 12 1d f2 73 6f 28  4e 25 29 3a f2 70 6f 28  |.....so(N%):.po(|
00000970  4e 25 29 3a 4e 25 3d 4e  25 2b 31 3a e1 0d 02 1c  |N%):N%=N%+1:....|
00000980  27 dd f2 6b 6f 28 49 25  29 f2 67 6f 28 4e 25 2d  |'..ko(I%).go(N%-|
00000990  31 29 3a f2 73 6f 28 49  25 29 3a 4e 25 3d 4e 25  |1):.so(I%):N%=N%|
000009a0  2d 31 3a e1 0d 02 26 5b  dd f2 67 6f 28 4e 25 29  |-1:...&[..go(N%)|
000009b0  ea 5a 25 3a 5a 25 3d a4  61 6f 28 4e 25 29 3a 74  |.Z%:Z%=.ao(N%):t|
000009c0  25 3d 5a 25 21 54 25 3a  78 25 3d 5a 25 21 58 25  |%=Z%!T%:x%=Z%!X%|
000009d0  3a 79 25 3d 5a 25 21 59  25 3a 65 25 3d 5a 25 21  |:y%=Z%!Y%:e%=Z%!|
000009e0  45 25 3a 6a 25 3d 5a 25  21 4a 25 3a 64 25 3d 5a  |E%:j%=Z%!J%:d%=Z|
000009f0  25 21 44 25 3a 73 25 3d  5a 25 21 53 25 3a e1 0d  |%!D%:s%=Z%!S%:..|
00000a00  02 30 5b dd f2 73 6f 28  4e 25 29 ea 5a 25 3a 5a  |.0[..so(N%).Z%:Z|
00000a10  25 3d a4 61 6f 28 4e 25  29 3a 5a 25 21 54 25 3d  |%=.ao(N%):Z%!T%=|
00000a20  74 25 3a 5a 25 21 58 25  3d 78 25 3a 5a 25 21 59  |t%:Z%!X%=x%:Z%!Y|
00000a30  25 3d 79 25 3a 5a 25 21  45 25 3d 65 25 3a 5a 25  |%=y%:Z%!E%=e%:Z%|
00000a40  21 4a 25 3d 6a 25 3a 5a  25 21 44 25 3d 64 25 3a  |!J%=j%:Z%!D%=d%:|
00000a50  5a 25 21 53 25 3d 73 25  3a e1 0d 02 3a 32 dd f2  |Z%!S%=s%:...:2..|
00000a60  70 6f 28 4e 25 29 ea 5a  25 3a 5a 25 3d a4 61 6f  |po(N%).Z%:Z%=.ao|
00000a70  28 4e 25 29 3a ef 33 31  5a 25 21 58 25 5a 25 21  |(N%):.31Z%!X%Z%!|
00000a80  59 25 5a 25 21 54 25 2b  42 25 3a e1 0d 02 44 19  |Y%Z%!T%+B%:...D.|
00000a90  dd a4 61 6f 28 4e 25 29  3d 4f 25 2b 4e 25 2a 28  |..ao(N%)=O%+N%*(|
00000aa0  53 25 2b 34 29 0d 02 4e  16 dd a4 6a 28 4e 25 29  |S%+4)..N...j(N%)|
00000ab0  3d 4a 25 2b a4 61 6f 28  4e 25 29 0d 02 58 2b dd  |=J%+.ao(N%)..X+.|
00000ac0  f2 64 6f 28 49 25 29 f2  67 6f 28 49 25 29 3a f2  |.do(I%).go(I%):.|
00000ad0  65 3a e7 74 25 3d 30 e1  3a 8b 6a 25 3d 91 2b 94  |e:.t%=0.:.j%=.+.|
00000ae0  73 25 2a 63 73 25 0d 02  62 6a e7 74 25 3d 6f 70  |s%*cs%..bj.t%=op|
00000af0  25 f2 6f 70 28 a6 6d 6c  25 2d a6 6d 72 25 2c a6  |%.op(.ml%-.mr%,.|
00000b00  6d 75 25 2d a6 6d 64 25  2c a6 66 72 25 29 8b e7  |mu%-.md%,.fr%)..|
00000b10  74 25 3d 6f 67 25 f2 6f  67 3a 8b e7 74 25 3d 6f  |t%=og%.og:..t%=o|
00000b20  6d 25 f2 6f 6d 28 b4 28  55 25 2d 78 25 29 2c b4  |m%.om(.(U%-x%),.|
00000b30  28 56 25 2d 79 25 29 29  3a 8b e7 74 25 3d 6f 66  |(V%-y%)):..t%=of|
00000b40  25 f2 6f 66 3a 8b e7 74  25 3d 6f 72 25 f2 6f 72  |%.of:..t%=or%.or|
00000b50  0d 02 6c 0d f2 73 6f 28  49 25 29 3a e1 0d 02 76  |..l..so(I%):...v|
00000b60  0e dd f2 65 3a e7 65 25  3e 30 e1 0d 02 80 33 ef  |...e:.e%>0....3.|
00000b70  33 31 78 25 79 25 33 32  3a e7 74 25 3d 6f 6d 25  |31x%y%32:.t%=om%|
00000b80  f2 6e 66 28 78 25 2c 79  25 2c 35 2c 33 30 29 8b  |.nf(x%,y%,5,30).|
00000b90  e7 74 25 3d 6f 67 25 47  25 3d 47 25 2d 31 0d 02  |.t%=og%G%=G%-1..|
00000ba0  8a 12 74 25 3d 30 3a f2  6b 6f 28 49 25 29 3a e1  |..t%=0:.ko(I%):.|
00000bb0  0d 02 94 29 dd f2 6f 70  28 75 25 2c 76 25 2c 46  |...)..op(u%,v%,F|
00000bc0  25 29 f2 64 74 3a e7 66  66 25 66 66 25 3d 66 66  |%).dt:.ff%ff%=ff|
00000bd0  25 2d 31 8b 2a 46 58 32  31 0d 02 9e 0f e7 46 25  |%-1.*FX21.....F%|
00000be0  f2 66 3a 8b f2 68 6f 70  0d 02 a8 11 55 25 3d 78  |.f:..hop....U%=x|
00000bf0  25 3a 56 25 3d 79 25 3a  e1 0d 02 b2 24 dd f2 64  |%:V%=y%:....$..d|
00000c00  74 3a f1 8a 31 33 2c 32  36 29 3b 65 25 89 32 8a  |t:..13,26);e%.2.|
00000c10  31 33 2c 32 38 29 3b 73  63 25 3b 3a e1 0d 02 bc  |13,28);sc%;:....|
00000c20  1a dd f2 66 3a e7 75 25  3d 30 e7 76 25 3d 30 e1  |...f:.u%=0.v%=0.|
00000c30  3a 8b e7 66 66 25 e1 0d  02 c6 68 ea 43 25 3a 43  |:..ff%....h.C%:C|
00000c40  25 3d a4 63 28 78 25 2b  75 25 2c 79 25 2b 76 25  |%=.c(x%+u%,y%+v%|
00000c50  29 3a e7 43 25 3d 33 32  f2 6e 6f 28 6f 72 25 2c  |):.C%=32.no(or%,|
00000c60  78 25 2b 75 25 2c 79 25  2b 76 25 2c 65 25 2c 91  |x%+u%,y%+v%,e%,.|
00000c70  2c 28 75 25 2a 26 31 30  30 30 30 29 2b 28 76 25  |,(u%*&10000)+(v%|
00000c80  80 26 46 46 46 46 29 2c  31 29 8b f2 68 6f 72 28  |.&FFFF),1)..hor(|
00000c90  43 25 2c 78 25 2b 75 25  2c 79 25 2b 76 25 29 0d  |C%,x%+u%,y%+v%).|
00000ca0  02 d0 15 66 66 25 3d 66  73 25 3a 65 25 3d 65 25  |...ff%=fs%:e%=e%|
00000cb0  2d 31 3a e1 0d 02 da 2f  dd f2 68 6f 70 3a e7 75  |-1:..../..hop:.u|
00000cc0  25 3d 30 e7 76 25 3d 30  e1 3a 8b ea 43 25 2c 5a  |%=0.v%=0.:..C%,Z|
00000cd0  25 3a 75 25 3d 78 25 2b  75 25 3a 76 25 3d 79 25  |%:u%=x%+u%:v%=y%|
00000ce0  2b 76 25 0d 02 e4 3a 43  25 3d a4 63 28 75 25 2c  |+v%...:C%=.c(u%,|
00000cf0  76 25 29 3a e7 43 25 3d  33 32 ef 33 31 78 25 79  |v%):.C%=32.31x%y|
00000d00  25 33 32 2c 33 31 75 25  76 25 74 25 2b 42 25 3a  |%32,31u%v%t%+B%:|
00000d10  78 25 3d 75 25 3a 79 25  3d 76 25 3a e1 0d 02 ee  |x%=u%:y%=v%:....|
00000d20  29 43 25 3d 43 25 2d 42  25 3a e7 43 25 3d 30 e1  |)C%=C%-B%:.C%=0.|
00000d30  3a 8b 5a 25 3d a4 61 6f  28 a4 66 28 43 25 2c 75  |:.Z%=.ao(.f(C%,u|
00000d40  25 2c 76 25 29 29 0d 02  f8 1a e7 43 25 3d 6f 74  |%,v%)).....C%=ot|
00000d50  25 f2 74 70 28 5a 25 2c  75 25 2c 76 25 29 3a e1  |%.tp(Z%,u%,v%):.|
00000d60  0d 03 02 20 e7 43 25 3d  6f 65 25 f2 7a 65 28 2d  |... .C%=oe%.ze(-|
00000d70  5a 25 21 45 25 29 3a f2  7a 6b 28 5a 25 29 3a e1  |Z%!E%):.zk(Z%):.|
00000d80  0d 03 0c 21 e7 43 25 3d  6f 66 25 f2 7a 65 28 5a  |...!.C%=of%.ze(Z|
00000d90  25 21 45 25 29 3a f2 64  65 28 5a 25 2c 31 29 3a  |%!E%):.de(Z%,1):|
00000da0  e1 0d 03 16 2b e7 43 25  3d 6f 77 25 f2 77 70 3a  |....+.C%=ow%.wp:|
00000db0  e1 3a 8b e7 43 25 3d 6f  62 25 f2 64 65 28 5a 25  |.:..C%=ob%.de(Z%|
00000dc0  2c 31 29 3a f2 7a 65 28  32 29 3a e1 0d 03 20 29  |,1):.ze(2):... )|
00000dd0  e7 43 25 3c 3e 74 25 e7  43 25 3d 6f 6d 25 84 43  |.C%<>t%.C%=om%.C|
00000de0  25 3d 6f 70 25 f2 64 65  28 5a 25 2c 32 29 3a f2  |%=op%.de(Z%,2):.|
00000df0  7a 65 28 31 29 0d 03 2a  05 e1 0d 03 34 1d dd a4  |ze(1)..*....4...|
00000e00  66 28 43 25 2c 78 25 2c  79 25 29 ea 4c 25 2c 4b  |f(C%,x%,y%).L%,K|
00000e10  25 3a 4b 25 3d 2d 31 0d  03 3e 40 e3 4c 25 3d 30  |%:K%=-1..>@.L%=0|
00000e20  b8 4e 25 2d 31 3a 5a 25  3d a4 61 6f 28 4c 25 29  |.N%-1:Z%=.ao(L%)|
00000e30  3a e7 5a 25 21 54 25 3d  43 25 e7 5a 25 21 58 25  |:.Z%!T%=C%.Z%!X%|
00000e40  3d 78 25 e7 5a 25 21 59  25 3d 79 25 4b 25 3d 4c  |=x%.Z%!Y%=y%K%=L|
00000e50  25 3a 4c 25 3d 4e 25 0d  03 48 09 ed 3a 3d 4b 25  |%:L%=N%..H..:=K%|
00000e60  0d 03 52 24 dd f2 64 65  28 49 25 2c 56 25 29 56  |..R$..de(I%,V%)V|
00000e70  25 3d 49 25 21 45 25 2d  56 25 3a e7 56 25 3c 30  |%=I%!E%-V%:.V%<0|
00000e80  56 25 3d 30 0d 03 5c 30  49 25 21 45 25 3d 56 25  |V%=0..\0I%!E%=V%|
00000e90  3a e7 49 25 21 54 25 3d  6f 6d 25 49 25 21 4a 25  |:.I%!T%=om%I%!J%|
00000ea0  3d 49 25 21 4a 25 2b 49  25 21 53 25 8b 49 25 21  |=I%!J%+I%!S%.I%!|
00000eb0  4a 25 3d 91 0d 03 66 05  e1 0d 03 70 16 dd f2 7a  |J%=...f....p...z|
00000ec0  65 28 5a 25 29 65 25 3d  65 25 2d 5a 25 3a e1 0d  |e(Z%)e%=e%-Z%:..|
00000ed0  03 7a 1d dd f2 7a 6b 28  5a 25 29 5a 25 21 45 25  |.z...zk(Z%)Z%!E%|
00000ee0  3d 30 3a 5a 25 21 4a 25  3d 91 3a e1 0d 03 84 3c  |=0:Z%!J%=.:....<|
00000ef0  dd f2 77 70 3a f2 7a 6b  28 5a 25 29 3a e7 74 25  |..wp:.zk(Z%):.t%|
00000f00  3d 6f 70 25 e7 66 73 25  3e 32 66 73 25 3d 66 73  |=op%.fs%>2fs%=fs|
00000f10  25 2d 31 3a 8b e7 74 25  3d 6f 6d 25 e7 73 25 3e  |%-1:..t%=om%.s%>|
00000f20  31 73 25 3d 73 25 2d 31  0d 03 8e 05 e1 0d 03 98  |1s%=s%-1........|
00000f30  30 dd f2 74 70 28 5a 25  2c 50 25 2c 51 25 29 ea  |0..tp(Z%,P%,Q%).|
00000f40  75 25 2c 76 25 3a 75 25  3d 5a 25 21 44 25 81 36  |u%,v%:u%=Z%!D%.6|
00000f50  34 3a 76 25 3d 5a 25 21  44 25 83 36 34 0d 03 a2  |4:v%=Z%!D%.64...|
00000f60  35 ef 33 31 78 25 79 25  33 32 2c 33 31 75 25 76  |5.31x%y%32,31u%v|
00000f70  25 74 25 2b 42 25 3a 78  25 3d 75 25 3a 79 25 3d  |%t%+B%:x%=u%:y%=|
00000f80  76 25 3a 5a 25 21 45 25  3d 5a 25 21 45 25 2d 31  |v%:Z%!E%=Z%!E%-1|
00000f90  3a e1 0d 03 ac 51 dd f2  6f 67 3a e7 64 25 e7 b3  |:....Q..og:.d%..|
00000fa0  28 33 30 30 29 3d 31 e7  a4 72 28 78 25 2c 79 25  |(300)=1..r(x%,y%|
00000fb0  29 3d 33 32 f2 6e 6d 28  78 25 2b 75 25 2c 79 25  |)=32.nm(x%+u%,y%|
00000fc0  2b 76 25 2c 65 25 2f 32  2c 73 25 2b b3 28 33 29  |+v%,e%/2,s%+.(3)|
00000fd0  29 3a 64 25 3d 64 25 2d  31 3a e7 64 25 3c 31 64  |):d%=d%-1:.d%<1d|
00000fe0  25 3d 30 0d 03 b6 05 e1  0d 03 c0 34 dd f2 6e 6d  |%=0........4..nm|
00000ff0  28 78 25 2c 79 25 2c 65  25 2c 73 25 29 f2 6e 6f  |(x%,y%,e%,s%).no|
00001000  28 6f 6d 25 2c 78 25 2c  79 25 2c 65 25 2c 91 2b  |(om%,x%,y%,e%,.+|
00001010  73 25 2a 32 2c 30 2c 73  25 29 3a e1 0d 03 ca 28  |s%*2,0,s%):....(|
00001020  dd f2 6f 6d 28 75 25 2c  76 25 29 e7 94 75 25 82  |..om(u%,v%)..u%.|
00001030  94 76 25 8b e7 b3 28 32  29 3d 31 75 25 3d 30 8b  |.v%...(2)=1u%=0.|
00001040  76 25 3d 30 0d 03 d4 0a  f2 68 6f 70 3a e1 0d 03  |v%=0.....hop:...|
00001050  de 3d dd f2 6f 66 3a e7  b3 28 35 30 29 3d 31 e7  |.=..of:..(50)=1.|
00001060  a4 72 28 78 25 2c 79 25  29 3d 33 32 f2 6e 66 28  |.r(x%,y%)=32.nf(|
00001070  78 25 2b 75 25 2c 79 25  2b 76 25 2c 65 25 2d 31  |x%+u%,y%+v%,e%-1|
00001080  2c 73 25 2b b3 28 33 29  2d 31 29 0d 03 e8 05 e1  |,s%+.(3)-1).....|
00001090  0d 03 f2 61 dd a4 72 28  78 25 2c 79 25 29 ea 4b  |...a..r(x%,y%).K|
000010a0  25 3a 75 25 3d 30 3a 76  25 3d 30 3a 4b 25 3d b3  |%:u%=0:v%=0:K%=.|
000010b0  28 34 29 3a e7 4b 25 3d  31 75 25 3d 31 3a 76 25  |(4):.K%=1u%=1:v%|
000010c0  3d 30 8b e7 4b 25 3d 32  75 25 3d 2d 31 3a 76 25  |=0..K%=2u%=-1:v%|
000010d0  3d 30 8b e7 4b 25 3d 33  75 25 3d 30 3a 76 25 3d  |=0..K%=3u%=0:v%=|
000010e0  31 8b e7 4b 25 3d 34 75  25 3d 30 3a 76 25 3d 2d  |1..K%=4u%=0:v%=-|
000010f0  31 0d 03 fc 14 3d a4 63  28 78 25 2b 75 25 2c 79  |1....=.c(x%+u%,y|
00001100  25 2b 76 25 29 0d 04 06  34 dd f2 6e 66 28 78 25  |%+v%)...4..nf(x%|
00001110  2c 79 25 2c 65 25 2c 73  25 29 f2 6e 6f 28 6f 66  |,y%,e%,s%).no(of|
00001120  25 2c 78 25 2c 79 25 2c  65 25 2c 91 2b 73 25 2a  |%,x%,y%,e%,.+s%*|
00001130  32 2c 30 2c 73 25 29 3a  e1 0d 04 10 33 dd f2 6f  |2,0,s%):....3..o|
00001140  72 3a ea 75 25 2c 76 25  3a 76 25 3d 64 25 80 26  |r:.u%,v%:v%=d%.&|
00001150  46 46 46 46 3a 75 25 3d  64 25 81 26 31 30 30 30  |FFFF:u%=d%.&1000|
00001160  30 3a e7 76 25 3e 31 76  25 3d 2d 31 0d 04 1a 6b  |0:.v%>1v%=-1...k|
00001170  43 25 3d a4 63 28 78 25  2b 75 25 2c 79 25 2b 76  |C%=.c(x%+u%,y%+v|
00001180  25 29 3a ef 33 31 78 25  79 25 33 32 3a e7 43 25  |%):.31x%y%32:.C%|
00001190  3d 33 32 75 25 3d 78 25  2b 75 25 3a 76 25 3d 79  |=32u%=x%+u%:v%=y|
000011a0  25 2b 76 25 3a ef 33 31  75 25 76 25 74 25 2b 42  |%+v%:.31u%v%t%+B|
000011b0  25 3a 78 25 3d 75 25 3a  79 25 3d 76 25 8b f2 68  |%:x%=u%:y%=v%..h|
000011c0  6f 72 28 43 25 2c 78 25  2b 75 25 2c 79 25 2b 76  |or(C%,x%+u%,y%+v|
000011d0  25 29 3a 74 25 3d 30 0d  04 24 05 e1 0d 04 2e 22  |%):t%=0..$....."|
000011e0  dd f2 68 6f 72 28 43 25  2c 78 25 2c 79 25 29 43  |..hor(C%,x%,y%)C|
000011f0  25 3d 43 25 2d 42 25 3a  e7 43 25 3d 30 e1 0d 04  |%=C%-B%:.C%=0...|
00001200  38 37 ea 4b 25 3a 4b 25  3d a4 66 28 43 25 2c 78  |87.K%:K%=.f(C%,x|
00001210  25 2c 79 25 29 3a e7 4b  25 3e 2d 31 f2 64 65 28  |%,y%):.K%>-1.de(|
00001220  a4 61 6f 28 4b 25 29 2c  65 25 29 3a 73 63 25 3d  |.ao(K%),e%):sc%=|
00001230  73 63 25 2b 35 0d 04 42  05 e1 0d 04 4c 36 dd a4  |sc%+5..B....L6..|
00001240  63 28 58 25 2c 59 25 29  ea 41 25 3a 41 25 3d 31  |c(X%,Y%).A%:A%=1|
00001250  33 35 3a ef 33 31 58 25  59 25 3a 3d 28 ba 28 26  |35:.31X%Y%:=(.(&|
00001260  46 46 46 34 29 80 26 46  46 30 30 29 81 32 35 36  |FFF4).&FF00).256|
00001270  0d 04 56 2c dd f2 6d 28  6b 24 29 f2 63 6c 73 28  |..V,..m(k$).cls(|
00001280  6c 78 25 2c 6d 79 25 2c  77 78 25 2c 30 2c 30 29  |lx%,my%,wx%,0,0)|
00001290  3a f2 63 6e 28 6b 24 2c  30 29 3a e1 0d 04 60 25  |:.cn(k$,0):...`%|
000012a0  dd f2 63 6e 28 6b 24 2c  59 25 29 f1 8a 28 77 77  |..cn(k$,Y%)..(ww|
000012b0  25 2d a9 6b 24 29 2f 32  2c 59 25 29 6b 24 3b 3a  |%-.k$)/2,Y%)k$;:|
000012c0  e1 0d 04 6a 38 dd a4 6d  28 74 24 2c 6d 24 29 ea  |...j8..m(t$,m$).|
000012d0  6f 24 2c 4d 25 2c 58 25  3a 6d 24 3d 6d 24 2b 64  |o$,M%,X%:m$=m$+d|
000012e0  24 3a f2 74 28 74 24 29  3a 58 25 3d 28 77 77 25  |$:.t(t$):X%=(ww%|
000012f0  2d a9 74 24 29 2f 32 3a  f5 0d 04 74 2c 6f 24 3d  |-.t$)/2:...t,o$=|
00001300  6f 24 2b bd 97 6d 24 3a  50 25 3d a7 6d 24 2c 64  |o$+..m$:P%=.m$,d|
00001310  24 29 3a f1 8a 58 25 2c  4d 25 29 c0 6d 24 2c 50  |$):..X%,M%).m$,P|
00001320  25 2d 31 29 3b 0d 04 7e  23 6d 24 3d c1 6d 24 2c  |%-1);..~#m$=.m$,|
00001330  50 25 2b 31 29 3a 4d 25  3d 4d 25 2b 31 3a fd 6d  |P%+1):M%=M%+1:.m|
00001340  24 3d 22 22 3a 3d 6f 24  0d 04 88 51 dd f2 74 28  |$="":=o$...Q..t(|
00001350  74 24 29 f2 6d 28 22 22  29 3a f2 63 6c 73 28 6c  |t$).m(""):.cls(l|
00001360  78 25 2c 6d 79 25 2d 36  2c 77 78 25 2f 33 2c 30  |x%,my%-6,wx%/3,0|
00001370  2c 30 29 3a f2 63 6e 28  74 24 2c 30 29 3a f2 63  |,0):.cn(t$,0):.c|
00001380  6c 73 28 6c 78 25 2c 6d  79 25 2d 35 2c 77 78 25  |ls(lx%,my%-5,wx%|
00001390  2f 33 2c 35 2c 31 29 3a  e1 0d 04 92 3f dd f2 72  |/3,5,1):....?..r|
000013a0  64 3a 73 63 25 3d 73 63  25 2b 6d 65 25 21 45 25  |d:sc%=sc%+me%!E%|
000013b0  3a ef 32 36 2c 31 32 3a  f2 63 6e 28 22 47 61 6d  |:.26,12:.cn("Gam|
000013c0  65 20 4f 76 65 72 22 2c  37 29 3a f2 77 28 32 30  |e Over",7):.w(20|
000013d0  30 29 3a 2a 46 58 31 35  0d 04 9c 26 4b 54 25 3d  |0):*FX15...&KT%=|
000013e0  a3 3a e7 73 63 25 3c 68  73 25 28 31 29 f2 77 28  |.:.sc%<hs%(1).w(|
000013f0  32 30 30 29 3a e1 3a 8b  ea 41 25 2c 42 25 0d 04  |200):.:..A%,B%..|
00001400  a6 40 db 3a f2 63 6e 28  22 57 65 6c 6c 20 64 6f  |.@.:.cn("Well do|
00001410  6e 65 21 22 2c 38 29 3a  f2 63 6e 28 22 59 6f 75  |ne!",8):.cn("You|
00001420  27 76 65 20 6d 61 64 65  20 61 20 6e 65 77 20 68  |'ve made a new h|
00001430  69 67 68 20 73 63 6f 72  65 22 2c 31 30 29 0d 04  |igh score",10)..|
00001440  b0 3b f2 63 6e 28 22 45  6e 74 65 72 20 79 6f 75  |.;.cn("Enter you|
00001450  72 20 6e 61 6d 65 22 2c  31 32 29 3a e8 8a 31 35  |r name",12):..15|
00001460  2c 31 34 29 22 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 22  |,14)".........."|
00001470  8a 31 35 2c 31 34 29 6e  24 0d 04 ba 3d 41 25 3d  |.15,14)n$...=A%=|
00001480  32 3a f5 42 25 3d 41 25  2d 31 3a e7 73 63 25 3e  |2:.B%=A%-1:.sc%>|
00001490  68 73 25 28 41 25 29 68  73 25 28 42 25 29 3d 68  |hs%(A%)hs%(B%)=h|
000014a0  73 25 28 41 25 29 3a 68  73 24 28 42 25 29 3d 68  |s%(A%):hs$(B%)=h|
000014b0  73 24 28 41 25 29 0d 04  c4 3d 41 25 3d 41 25 2b  |s$(A%)...=A%=A%+|
000014c0  31 3a fd 73 63 25 3c 68  73 25 28 41 25 29 84 41  |1:.sc%<hs%(A%).A|
000014d0  25 3d 68 73 25 3a 68 73  25 28 41 25 29 3d 73 63  |%=hs%:hs%(A%)=sc|
000014e0  25 3a 68 73 24 28 41 25  29 3d c0 6e 24 2c 31 30  |%:hs$(A%)=.n$,10|
000014f0  29 3a e1 0d 04 ce 06 dc  34 0d 04 d8 06 dc 32 0d  |):......4.....2.|
00001500  04 e2 53 dc 34 41 40 38  2e 33 36 41 38 56 2e 42  |..S.4A@8.36A8V.B|
00001510  36 42 34 56 2e 42 36 40  34 56 2e 42 33 41 32 60  |6B4V.B6@4V.B3A2`|
00001520  30 42 31 4d 32 38 2e 38  30 3b 32 42 2e 42 32 45  |0B1M28.80;2B.B2E|
00001530  40 38 21 4a 32 38 32 45  32 38 21 3a 32 38 32 32  |@8!J282E28!:2822|
00001540  32 38 21 40 5a 38 2f 41  44 3d 2e 30 34 3d 3a 38  |28!@Z8/AD=.04=:8|
00001550  2e 35 0d 04 ec c4 dc 57  54 30 2f 52 2f 30 2f 2f  |.5.....WT0/R/0//|
00001560  3c 2f 31 2f 3d 2f 2f 30  2f 2f 3c 2f 31 2f 3d 2f  |</1/=//0//</1/=/|
00001570  2f 30 2f 2f 3c 2f 31 2f  3d 2f 2f 30 2f 3e 2f 2f  |/0//</1/=//0/>//|
00001580  2f 3f 2f 30 2f 2f 3c 2f  31 2f 3d 2f 2f 30 2f 2f  |/?/0//</1/=//0//|
00001590  3c 2f 31 2f 3d 2f 2f 30  2f 2f 3c 2f 31 2f 3d 2f  |</1/=//0//</1/=/|
000015a0  2f 30 2f 2f 38 34 2f 34  39 2f 2f 30 2f 2f 38 2f  |/0//84/49//0//8/|
000015b0  39 2f 39 2f 2f 30 2f 2f  38 2f 39 2f 39 2f 2f 30  |9/9//0//8/9/9//0|
000015c0  2f 2f 38 2f 39 2f 39 2f  2f 30 2f 2f 38 3b 39 2f  |//8/9/9//0//8;9/|
000015d0  2f 30 2f 2f 50 2f 2f 30  2f 2f 38 33 31 33 39 2f  |/0//P//0//83139/|
000015e0  2f 30 2f 2f 38 2f 39 2f  39 2f 2f 30 2f 2f 38 2f  |/0//8/9/9//0//8/|
000015f0  39 2f 39 2f 2f 30 2f 2f  38 2f 39 2f 39 2f 2f 30  |9/9//0//8/9/9//0|
00001600  2f 2f 38 3b 39 2f 2f 30  2f 2f 50 2f 2f 30 2f 3e  |//8;9//0//P//0/>|
00001610  31 3f 2f 30 54 57 0d 04  f6 06 dc 33 0d 05 00 83  |1?/0TW.....3....|
00001620  dc 33 53 3a 60 30 2f 34  4f 34 38 2e 35 34 4f 40  |.3S:`0/4O48.54O@|
00001630  38 2e 35 2f 2f 3a 3a 2e  30 36 31 3a 38 2e 3e 36  |8.5//::.061:8.>6|
00001640  33 3a 38 2e 3f 36 35 3a  38 2e 40 36 37 3a 38 2e  |3:8.?65:8.@67:8.|
00001650  41 36 39 3a 38 2e 42 30  49 3a 60 2e 42 33 42 3a  |A69:8.B0I:`.B3B:|
00001660  60 2e 56 32 54 3a 38 21  3e 34 38 30 33 34 38 2e  |`.V2T:8!>480348.|
00001670  42 31 33 33 38 2e 38 31  33 41 38 2e 38 30 33 40  |B1338.813A8.803@|
00001680  38 2e 42 32 3a 3f 30 21  3e 30 38 32 3a 35 30 21  |8.B2:?0!>082:50!|
00001690  3e 44 38 36 3b 3a 38 2e  42 36 48 3a 33 2e 42 0d  |>D86;:8.B6H:3.B.|
000016a0  05 0a ce dc 57 46 2f 3b  30 2f 3c 37 2f 3b 30 2f  |....WF/;0/<7/;0/|
000016b0  2f 3a 2f 37 2f 3b 30 2f  2f 2f 38 2f 2f 2f 35 2f  |/:/7/;0///8///5/|
000016c0  2f 3b 30 2f 2f 2f 2f 36  2f 2f 2f 2f 2f 33 2f 2f  |/;0////6/////3//|
000016d0  2f 3b 30 2f 2f 2f 2f 36  2f 2f 2f 2f 2f 33 2f 3d  |/;0////6/////3/=|
000016e0  30 2f 2f 2f 36 2f 2f 2f  2f 2f 2f 33 2f 2f 2f 3b  |0///6//////3///;|
000016f0  30 2f 2f 38 2f 2f 2f 2f  2f 33 2f 2f 2f 3b 30 2f  |0//8/////3///;0/|
00001700  3a 2f 2f 2f 2f 33 2f 2f  2f 3b 30 3c 2f 2f 2f 33  |:////3///;0<///3|
00001710  2f 2f 2f 3b 3f 2f 2f 33  2f 2f 3e 3e 2f 33 2f 3d  |///;?//3//>>/3/=|
00001720  3f 2f 2f 33 2f 2f 3e 3c  2f 2f 2f 33 2f 2f 2f 3b  |?//3//><///3///;|
00001730  30 2f 3a 2f 2f 2f 2f 33  2f 2f 2f 3b 30 2f 2f 38  |0/:////3///;0//8|
00001740  2f 2f 2f 2f 2f 33 2f 2f  2f 3b 30 2f 2f 2f 36 2f  |/////3///;0///6/|
00001750  2f 2f 2f 2f 2f 33 2f 2f  2f 3b 30 2f 2f 2f 2f 36  |/////3///;0////6|
00001760  2f 2f 2f 2f 2f 33 2f 3d  30 2f 2f 2f 2f 0d 05 14  |/////3/=0////...|
00001770  2f dc 36 2f 2f 2f 2f 2f  33 2f 2f 2f 3b 30 2f 2f  |/.6/////3///;0//|
00001780  2f 38 2f 2f 2f 35 2f 2f  3b 30 2f 2f 3a 2f 37 2f  |/8///5//;0//:/7/|
00001790  3b 30 2f 3c 37 2f 3b 30  46 2f 3b 57 0d 05 1e 06  |;0/<7/;0F/;W....|
000017a0  dc 33 0d 05 28 53 dc 2f  41 3a 35 2e 2f 34 3b 34  |.3..(S./A:5./4;4|
000017b0  38 2e 33 34 3b 40 38 2e  33 34 47 40 38 2e 33 34  |8.34;@8.34G@8.34|
000017c0  47 34 38 2e 33 36 41 33  2f 2e 42 36 41 41 2f 2e  |G48.36A3/.B6AA/.|
000017d0  42 36 48 3a 2f 2e 42 36  3a 3a 2f 2e 42 36 37 3a  |B6H:/.B6::/.B67:|
000017e0  2f 2e 42 36 4b 3a 2f 2e  42 33 4e 3a 2f 42 56 33  |/.B6K:/.B3N:/BV3|
000017f0  34 3a 2f 42 56 0d 05 32  ce dc 57 54 30 54 30 54  |4:/BV..2..WT0T0T|
00001800  30 54 30 39 35 2f 35 3a  30 39 2f 3b 2f 3a 30 39  |0T095/5:09/;/:09|
00001810  2f 31 35 31 2f 3a 30 30  35 30 2f 3b 2f 30 35 31  |/151/:0050/;/051|
00001820  30 30 2f 33 2f 30 2f 2f  2f 2f 31 2f 31 2f 2f 2f  |00/3/0////1/1///|
00001830  2f 30 2f 33 2f 31 30 30  2f 33 2f 30 2f 2f 2f 2f  |/0/3/100/3/0////|
00001840  2f 33 2f 2f 2f 2f 2f 30  2f 33 2f 31 30 30 2f 33  |/3/////0/3/100/3|
00001850  2f 30 2f 2f 2f 2f 2f 33  2f 2f 2f 2f 2f 30 2f 33  |/0/////3/////0/3|
00001860  2f 31 30 30 2f 38 2f 37  2f 38 2f 31 30 30 2f 33  |/100/8/7/8/100/3|
00001870  2f 30 2f 2f 2f 2f 2f 33  2f 2f 2f 2f 2f 30 2f 33  |/0/////3/////0/3|
00001880  2f 31 30 30 2f 33 2f 30  2f 2f 2f 2f 2f 33 2f 2f  |/100/3/0/////3//|
00001890  2f 2f 2f 30 2f 33 2f 31  30 30 2f 33 2f 30 2f 2f  |///0/3/100/3/0//|
000018a0  2f 2f 31 2f 31 2f 2f 2f  2f 30 2f 33 2f 31 30 30  |//1/1////0/3/100|
000018b0  35 30 2f 3b 2f 30 35 31  30 39 2f 31 35 31 2f 3a  |50/;/05109/151/:|
000018c0  30 39 2f 0d 05 3c 17 dc  3b 2f 3a 30 39 35 2f 35  |09/..<..;/:095/5|
000018d0  3a 30 54 30 54 30 54 30  54 57 0d 05 46 06 dc 32  |:0T0T0T0TW..F..2|
000018e0  0d 05 50 59 dc 2f 2f 39  2f 2e 2f 36 4c 39 56 2e  |..PY.//9/./6L9V.|
000018f0  42 36 4b 39 56 2e 42 36  4a 39 56 2e 42 36 49 39  |B6K9V.B6J9V.B6I9|
00001900  56 2e 42 36 48 39 56 2e  42 31 43 33 38 2e 38 31  |V.B6H9V.B1C38.81|
00001910  42 33 38 2e 38 30 35 3f  60 2e 42 30 36 3f 60 2e  |B38.805?`.B06?`.|
00001920  42 36 47 39 56 2e 42 36  46 39 56 2e 42 33 53 37  |B6G9V.B6F9V.B3S7|
00001930  60 42 2f 33 53 3b 60 42  2f 0d 05 5a a4 dc 57 54  |`B/3S;`B/..Z..WT|
00001940  30 2f 45 3c 30 2f 2f 43  2f 3c 30 2f 2f 2f 41 2f  |0/E<0//C/<0///A/|
00001950  2f 3c 30 2f 2f 2f 2f 3f  2f 2f 2f 3c 30 2f 2f 2f  |/<0////?///<0///|
00001960  2f 2f 3f 2f 2f 3c 30 2f  2f 2f 2f 41 2f 38 34 2f  |//?//<0////A/84/|
00001970  2f 2f 43 38 2f 31 30 2f  2f 4e 2f 31 30 2f 50 31  |//C8/10//N/10/P1|
00001980  30 54 30 2f 50 31 30 2f  2f 4e 2f 31 30 2f 2f 2f  |0T0/P10//N/10///|
00001990  43 38 2f 31 30 2f 2f 2f  2f 41 2f 38 34 2f 2f 2f  |C8/10////A/84///|
000019a0  2f 2f 3f 2f 2f 3c 30 2f  2f 2f 2f 2f 2f 3d 2f 2f  |//?//<0//////=//|
000019b0  2f 3c 30 2f 2f 2f 2f 2f  3d 2f 2f 2f 2f 3c 30 2f  |/<0/////=////<0/|
000019c0  2f 2f 2f 3f 2f 2f 2f 3c  30 2f 2f 2f 41 2f 2f 3c  |///?///<0///A//<|
000019d0  30 2f 2f 43 2f 3c 30 2f  45 3c 30 54 57 0d ff     |0//C/<0/E<0TW..|
000019df

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .