Home » Personal collection » Acorn tapes » Own_Work » box01_tape08a_d90_acorn_acorn_eater.wav » SLIPPERY-S

SLIPPERY-S

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 » Own_Work » box01_tape08a_d90_acorn_acorn_eater.wav
Filename: SLIPPERY-S
Read OK:
File size: 2BA4 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10REM Slippery Sam
   20REM by A.Houghton
   30REM (c) Electron User
   40ENVELOPE1,1,50,-50,5,4,4,20,126,0,0,-126,126,126:ENVELOPE3,1,20,-20,1,5,5,100,126,0,0,-126,126,126:ENVELOPE4,1,-20,20,-1,5,5,100,126,0,0,-126,126,126
   50*FX16
   60IFPAGE<&1200GOTO110
   70*K.0*T.|MDEL.10,90|MFORI%=0TO(TOP-PA.)S.4:I%!&E00=I%!PA.:N.|MPA.=&E00|MO.|MRUN|MRUN|F|M
   80VDU21:*FX21
   90*FX138,0,128
  100END
  110PROCinit:REPEAT:MODE5:VDU23;8202;0;0;0;19,1,4;0;19,3,2;0;17,2:PRINTTAB(4,4)"SLIPPERY SAM":COLOUR1:PRINTTAB(3,7)"by A. Houghton":*FX21
  120COLOUR3:PRINTTAB(0,20)"Press SPACE to play":REPEATUNTILGET=32
  130lives=3:?score=0:score?1=0:level=1:?acorns=1:PROCscreen:REPEAT:PROCmaze:CALLmain:IF?dead=&E0 PROCbonus ELSEPROCdead
  140UNTILlives=0:PROCd(100):PROCwindow(4,16,7,15):COLOUR3:PRINTTAB(4,15)"GAME"TAB(4,16)"OVER":PROCd(200):UNTILFALSE
  150DEFPROCdead:lives=lives-1:!dat=&A00:FORN%=150TO100STEP-10:SOUND1,4,N%,5:?scr=&20:scr?1=&6B:IF!dat>&A60 !dat=&A00
  160CALLprint:PROCd(25):NEXT:ENDPROC
  170DEFPROCbonus:PROCd(20):FORN%=100TO200STEP10:SOUND1,1,N%,3:NEXT:REPEAT:SOUND&10,0,0,0:CALLdeccals:CALLinsc:CALLpsc:SOUND0,-15,4,1:PROCd(2):UNTIL?dead=&7C
  180IF?vist>0REPEAT:SOUND&10,0,0,0:CALLdvist:CALLinsc:CALLpsc:SOUND0,-15,4,1:PROCd(2):UNTIL?vist=0ANDvist?1=0
  190FORn%=1TO5*level:SOUND&10,0,0,0:CALLinsc:CALLpsc:SOUND0,-15,4,1:PROCd(2):NEXT:level=level+1:IFlives<7 lives=lives+1
  200?acorns=(level+1)DIV2:IF?acorns>9 ?acorns=9:ENDPROC ELSEENDPROC
  210DEFPROCd(D%):TIME=0:REPEATUNTILTIME>D%:ENDPROC
  220DEFPROCmaze:sheet=(level-1)MOD6:RESTORE(380+10*sheet):FORN%=0TO63STEP8:READA$:FORM%=0TO7:M%?(mazdat+N%)=EVAL("&"+MID$(A$,M%+1,1)):NEXT,
  230CALLmazgen:FORN%=1TO20+level
  240A%=RND(1024)-1:IFA%?maze=0ORA%?maze=&20 A%?maze=&60 ELSEGOTO240
  250A%=RND(1024)-1:IFA%?maze=0ORA%?maze=&20 A%?maze=&80 ELSEGOTO250
  260 NEXT:PRINTTAB(13,2)SPC6TAB(1,29)SPC18:VDU31,16,9,31,8,10,32,31,16,13,32,8,10,32
  270?samx=14:?samy=13:?hdpt=2:?tailpt=0:!tail=maze+&1AE:?tlen=0:?vist=0:vist?1=0:?dead=0:IFsheet=4 ?samdir=&40 ELSE?samdir=&20
  280CALLwindow:!cals=&7C48:?caltm=15:FORN%=1TO30:CALLinccals:NEXT:?accon=150-10*level:IF?accon<50 ?accon=50
  290?actim=?accon:?acflag=0:COLOUR3:PRINTTAB(15,6);?acorns:CALLpvist:?mocon=15-level DIV2:IF?mocon<1 ?mocon=1:?motim=?mocon
  300CALLpsc:COLOUR3:PRINTTAB(9,2);level:IFlives>1FORN%=1TOlives-1:!scr=&5B40+16*N%:!dat=&A90:CALLlivp:NEXT
  310ENDPROC
  320DEFPROCscreen:CLS:CALLdither:PROCwindow(1,2,5,1):PROCwindow(7,2,11,1):PROCwindow(13,2,18,2):PROCwindow(13,6,18,5):PROCwindow(16,10,16,9):PROCwindow(16,14,16,13)
  330PROCwindow(1,26,11,5):PROCwindow(1,29,18,28):PROCwindow(14,19,17,18):COLOUR1:PRINTTAB(1,1)"SCORE"TAB(7,1)"LEVEL"TAB(13,5)"ACORNS"TAB(6,28)"CALORIES"TAB(14,18)"TAIL":ENDPROC
  340DEFPROCwindow(l%,b%,r%,t%):le%=(l%-1)*64:bo%=(31-b%)*32-1:ri%=(r%+1)*64:to%=(33-t%)*32-1
  350VDU5:GCOL0,2:MOVEle%,to%:VDU224:FORN%=le%+64TOri%-64STEP64:VDU225:NEXT:VDU226:FORN%=to%-32TObo%+32STEP-32:MOVEle%,N%:VDU227:MOVEri%,N%:VDU228:NEXT
  360MOVEle%,bo%:VDU229:FORN%=le%+64TOri%-64STEP64:VDU230:NEXT:VDU231:VDU24,le%+56;bo%;ri%;to%-28;18;128,16,26,4:ENDPROC
  370REM Maze Data
  380DATA11000011,110800B1,00051000,08676921,0015F521,000C6D21,1A011111,11033300
  390DATA00000069,06669005,0866D005,0C666905,00866D05,50C66905,50000005,C666666D
  400DATAF0002030,08691903,01050530,08676D03,05050130,0C1C6D03,0030F0F0,F00F0F0E
  410DATA00000000,00000000,00000000,00000000,00000000,00000000,00000000,00000000
  420DATA76666669,76666695,76666955,76669555,76695555,76955555,79555555,77777777
  430DATA00666600,25000000,27676705,25050505,27676705,25050500,27676760,B3333330
  440DEFFNhinib(U$):B%=EVAL("&"+U$):=(B%DIV4)AND3
  450DEFFNlonib(U$):B%=EVAL("&"+U$):=B%AND3
  460DEFPROCinit:IFINKEY-256=1timer=&29F ELSEtimer=&2A0
  470VDU23,224,0,0,0,0,0,3,7,6,23,225,0,0,0,0,0,255,255,0,23,226,0,0,0,0,0,192,224,96,23,227,6,6,6,6,6,6,6,6,23,228,96,96,96,96,96,96,96,96
  480VDU23,229,6,7,3,0,0,0,0,0,23,230,0,255,255,0,0,0,0,0,23,231,96,224,192,0,0,0,0,0
  490RESTORE1310:FORN%=&900TO&A9FSTEP4:READA$:!N%=EVAL("&"+A$):NEXT:DIMtokdat 256
  500RESTORE1260:FORN%=0TO255STEP16:READA$:FORM%=0TO15STEP2:U$=MID$(A$,M%DIV2+1,1):tokdat?(N%+M%)=FNhinib(U$):tokdat?(N%+M%+1)=FNlonib(U$):NEXT,
  510scr=&70:dat=&72:cal=&74:mazpt=cal:cals=&7E:DIMQ%2000,maze 1030,shadow 1030,mazdat 64,tail 256:FORP=0TO2STEP2:P%=Q%:[OPTP
  520.gul1 EQUW&11:EQUW1:EQUW70:EQUW5:.gul2 EQUW&11:EQUW1:EQUW30:EQUW8:.muso EQUW&11:EQUW2:EQUW100:EQUW7
  530.acso EQUW2:EQUW3:EQUW50:EQUW10:.moso EQUW2:EQUW4:EQUW100:EQUW10
  540.dither LDA#0:STAscr:LDA#&58:STAscr+1:LDY#0:.dilp LDA#5:STA(scr),Y:INY:LDA#10:STA(scr),Y:DEY
  550LDAscr:CLC:ADC#2:STAscr:LDAscr+1:ADC#0:STAscr+1:BPLdilp:RTS
  560.print LDX#2:.prlp1 LDY#15:.prlp2 LDA(dat),Y:STA(scr),Y:DEY:BPLprlp2
  570LDAscr:CLC:ADC#&40:STAscr:LDAscr+1:ADC#1:STAscr+1:LDAdat:CLC:ADC#16:STAdat:DEX:BNEprlp1:RTS
  580.livp LDY#15:.lvpl LDA(dat),Y:STA(scr),Y:DEY:BPLlvpl:RTS
  590.calc LDA#0:STAcal+1:TYA:LDY#5:.rolp ASLA:ROLcal+1:DEY:BNErolp:STAcal:TXA:CLC:ADCcal:STAcal:LDAcal+1:ADC#0:STAcal+1:LDAcal:CLC:ADC#maze MOD256:STAcal:LDAcal+1:ADC#maze DIV256:STAcal+1:RTS
  600.window LDA#19:JSR&FFF4:LDAsamx:SEC:SBC#5:STAmazex:LDA#&50:STAwindad:LDA#&5E:STAwindad+1
  610LDA#11:STAwncnx:.winxlp LDA#11:STAwncny:LDAwindad:STAscr:LDAwindad+1:STAscr+1:LDAsamy:SEC:SBC#5:STAmazey
  620.winylp LDA#9:STAdat+1:LDAmazex:CMP#32:BCCchkylm:.block LDA#&40:STAdat:JSRprint:JMPnxtblk
  630.chkylm LDAmazey:CMP#32:BCCchksam:JMPblock:.chksam LDAwncnx:CMP#6:BNEprwom:LDAwncny:CMP#6:BNEprwom:LDAsamdir:STAdat:LDA#&A:STAdat+1:JSRprint:JMPnxtblk
  640.prwom LDXmazex:LDYmazey:JSRcalc:LDY#0:LDA(cal),Y:STAdat:JSRprint
  650.nxtblk INCmazey:DECwncny:BNEwinYlp:LDAwindad:CLC:ADC#16:STAwindad:LDAwindad+1:ADC#0:STAwindad+1:INCmazex:DECwncnx:BNEwinXlp:RTS:.winYlp JMPwinylp:.winXlp:JMPwinxlp
  660.mazex EQUB0:.mazey EQUB0:.wncnx EQUB0:.wncny EQUB0:.windad EQUW0
  670.samx EQUB0:.samy EQUB0:.samdir EQUB0:.dead EQUB0
  680.mvsam LDXsamx:LDYsamy:JSRcalc:LDY#0:LDA#&C0:STA(cal),Y
  690LDA#&81:LDX#&9E:LDY#&FF:JSR&FFF4:TYA:BEQntlft:LDA#0:STAsamdir:JMPmove
  700.ntlft LDA#&81:LDX#&BD:LDY#&FF:JSR&FFF4:TYA:BEQntrt:LDA#&20:STAsamdir:JMPmove
  710.ntrt LDA#&81:LDX#&B7:LDY#&FF:JSR&FFF4:TYA:BEQntup:LDA#&40:STAsamdir:JMPmove
  720.ntup LDA#&81:LDX#&97:LDY#&FF:JSR&FFF4:TYA:BEQmove:LDA#&60:STAsamdir
  730.move LDAsamdir:BNEntl:DECsamx:JMPchk:.ntl CMP#&20:BNEntr:INCsamx:JMPchk:.ntr CMP#&40:BNEntu:DECsamy:JMPchk:.ntu INCsamy
  740.chk LDAsamx:CMP#32:BCShit:LDAsamy:CMP#32:BCShit
  750LDXsamx:LDYsamy:JSRcalc:LDXhdpt:LDAcal:STAtail,X:LDAcal+1:STAtail+1,X:INX:INX:STXhdpt
  760LDY#0:LDA(cal),Y:CMP#&C0:BEQhit:CMP#&40:BEQhit:CMP#&A0:BEQhit:CMP#&E0:BEQgtacn
  770CMP#&80:BEQmush:CMP#&60:BNEdeltail:JSRinsc:JSRpsc:JSRinccals:LDAtlen:CMP#254:BCSdeltail:INCtlen:LDX#gul1 MOD256:LDY#gul1 DIV256:LDA#7:JSR&FFF1:JMPivist
  780.mush LDX#muso MOD256:LDY#muso DIV256:LDA#7:JSR&FFF1:JSRdeccals:LDAtlen:BEQdeltail:DECtlen:JSRdeltail:JSRdeltail:JMPdvist
  790.hit LDA#&FF:STAdead:RTS
  800.hdpt EQUB0:.tailpt EQUB0:.deltail LDXtailpt:LDAtail,X:STA&90:LDAtail+1,X:STA&91:LDA#0:TAY:STA(&90),Y:INX:INX:STXtailpt:RTS
  810.gtacn JSRinsc:JSRinsc:DECacorns:LDA#31:JSR&FFEE:LDA#15:JSR&FFEE:LDA#6:JSR&FFEE:LDA#17:JSR&FFEE:LDA#3:JSR&FFEE:LDAacorns:CLC:ADC#48:JSR&FFEE
  820LDA#0:STAacflag:LDAaccon:STAactim:LDA#&40:STAscr:LDA#&64:STAscr+1:LDA#0:STAdat:LDA#9:STAdat+1:JSRprint
  830LDX#gul2 MOD256:LDY#gul2 DIV256:LDA#7:JSR&FFF1:LDAacorns:BNEntcy:LDA#&E0:STAdead:.ntcy RTS
  840.tlen EQUB0:.score EQUW0:.vist EQUW0:.sccol EQUB1
  850.insc SED:LDAscore:CLC:ADC#2:STAscore:LDAscore+1:ADC#0:STAscore+1:CLD:RTS
  860.psc LDA#17:JSR&FFEE:LDAsccol:JSR&FFEE:LDA#31:JSR&FFEE:LDA#1:JSR&FFEE:LDA#2:JSR&FFEE:INCsccol:LDAsccol:CMP#4:BNEdigs:LDA#1:STAsccol
  870.digs LDAscore+1:JSRpbyt:LDAscore:JSRpbyt:LDA#48:JMP&FFEE
  880.pbyt TAX:LSRA:LSRA:LSRA:LSRA:JSRpnib:TXA:AND#&F:.pnib CLC:ADC#48:JMP&FFEE
  890.ivist SED:LDAvist:CLC:ADC#1:STAvist:LDAvist+1:ADC#0:STAvist+1:CLD:JMPpvist
  900.dvist SED:LDAvist:SEC:SBC#1:STAvist:LDAvist+1:SBC#0:STAvist+1:CLD
  910.pvist LDA#31:JSR&FFEE:LDA#14:JSR&FFEE:LDA#19:JSR&FFEE:LDA#17:JSR&FFEE:LDA#3:JSR&FFEE:LDAvist+1:JSRpbyt:LDAvist:JMPpbyt
  920.deccals LDY#7:LDA#0:.dclp STA(cals),Y:DEY:BPLdclp:LDAcals:SEC:SBC#8:STAcals:LDAcals+1:SBC#0:STAcals+1
  930LDAcals:CMP#&48:BNEcok:LDAcals+1:CMP#&7C:BNEcok:STAdead:RTS:.cok RTS
  940.inccals LDAcals:CMP#&68:BNEicok:LDAcals+1:CMP#&7D:BEQcok
  950.icok LDAcals:CLC:ADC#8:STAcals:LDAcals+1:ADC#0:STAcals+1:LDY#7:.iclp LDA&A80,Y:STA(cals),Y:DEY:BPLiclp:RTS
  960.caltm EQUB15:.calor DECcaltm:BEQttdc:RTS:.ttdc LDA#15:STAcaltm:JMPdeccals
  970.acorns EQUB0:.actim EQUB0:.accon EQUB0:.acflag EQUB0:.acx EQUB0:.acy EQUB0
  980.ctacorn DECactim:BEQctac:RTS:.ctac LDAaccon:STAactim:BITacflag:BMIdecay:LDA#&40:STAscr:LDA#&64:STAscr+1:LDA#&E0:STAdat:LDA#9:STAdat+1:JSRprint
  990LDX#acso MOD256:LDY#acso DIV256:LDA#7:JSR&FFF1
 1000.posnac JSRrandom:TAX:JSRrandom:TAY:STXacx:STYacy:JSRcalc:LDY#0:LDA(cal),Y:BNEposnac:LDA#&E0:STA(cal),Y
 1010LDA#&FF:STAacflag:RTS
 1020.decay LDA#&40:STAscr:LDA#&64:STAscr+1:LDA#0:STAdat:LDA#9:STAdat+1:JSRprint:LDX#moso MOD256:LDY#moso DIV256:LDA#7:JSR&FFF1
 1030LDA#&40:STAscr:LDA#&69:STAscr+1:LDA#&A0:STAdat:LDA#9:STAdat+1:JSRprint
 1040LDXacx:LDYacy:JSRcalc:LDY#0:LDA#&A0:STA(cal),Y:LDA#0:STAacflag:RTS
 1050.seed EQUB RND(256):.random LDAseed:ROLA:ROLA:ROLA:SEC:ADCseed:EORtimer:STAseed:AND#31:RTS
 1060.mocon EQUB15:.motim EQUB15:.mtx EQUB0:.mty EQUB0
 1070.mould DECmotim:BEQspread:RTS:.spread LDAmocon:STAmotim:LDA#maze MOD256:STA&8C:LDA#maze DIV256:STA&8D:LDA#shadow MOD256:STA&8E:LDA#shadow DIV256:STA&8F
 1080LDX#4:.copl1 LDY#0:.copl2 LDA(&8C),Y:STA(&8E),Y:INY:BNEcopl2:INC&8D:INC&8F:DEX:BNEcopl1
 1090LDA#(maze-32)MOD256:STA&8C:LDA#(maze-32)DIV256:STA&8D:LDA#(shadow-32)MOD256:STA&8E:LDA#(shadow-32)DIV256:STA&8F
 1100LDY#0:STYmty:.spml1 LDX#0:STXmtx:.spml2 LDY#32:LDA#(&8E),Y:CMP#&A0:BNEntmo
 1110LDY#0:JSRreg:LDY#31:JSRreg:LDY#33:JSRreg:LDY#64:JSRreg
 1120.ntmo INC&8C:BNEdi8D:INC&8D:.di8D INC&8E:BNEdi8F:INC&8F:.di8F INCmtx:LDAmtx:CMP#32:BNEspml2:INCmty:LDAmty:CMP#32:BNEspml1:RTS
 1130.reg LDAmtx:BNEnle:CPY#31:BEQnrgn:.nle CMP#31:BNEnre:CPY#33:BEQnrgn:.nre LDAmty:BNEnte:CPY#0:BEQnrgn:.nte CMP#31:BNEnbe:CPY#64:BEQnrgn
 1140.nbe LDA(&8E),Y:BNEnrgn:LDA#&A0:STA(&8C),Y:.nrgn RTS
 1150.main LDA#237:STAtimer:JSRmvsam::JSRcalor:JSRctacorn:JSRmould
 1160JSRwindow:LDAdead:BNEdied:.wait BITtimer:BMIwait:BPLmain:.died RTS
 1170.br EQUB0:.sr EQUB0:.sc EQUB0:.tok EQUB0:.char EQUB0:.bx EQUB0:.by EQUB0
 1180.mazgen LDA#maze MOD256:STAmazpt:LDA#maze DIV256:STAmazpt+1:LDA#0:STAbr:STAby:.genl6 LDA#0:STAbx:.genl1 LDYbr:LDAmazdat,Y:JSRtoken
 1190INCbr:INCbx:LDAbx:CMP#8:BNEgenl1:INCby:LDAby:CMP#8:BNEgenl6:RTS
 1200 .token ASLA:ASLA:ASLA:ASLA:STAtok:LDA#0:STAsr:.genl2 LDA#0:STAsc:.genl4 LDAsr:ASLA:ASLA:CLC:ADCsc:CLC:ADCtok:TAY:LDAtokdat,Y:JSRchara
 1210INCsc:LDAsc:CMP#4:BNEgenl4:INCsr:LDAsr:CMP#4:BNEgenl2:RTS
 1220.chara ASLA:ASLA:ASLA:ASLA:ASLA:PHA:LDAsr:ASLA:ASLA:ASLA:ASLA:ASLA:CLC:ADCsc:STAmazpt:LDAbx:ASLA:ASLA:CLC:ADCmazpt:TAY
 1230LDA#0:STAmazpt+1:LDX#7:LDAby:.genl3 ASLA:ROLmazpt+1:DEX:BNEgenl3:CLC:ADC#maze MOD256:STAmazpt:LDAmazpt+1:ADC#maze DIV256:STAmazpt+1:PLA:STA(mazpt),Y:RTS
 1240]NEXT:ENDPROC
 1250REM Block Token Data
 1260DATA00000000,55555555,08080808,00AA0000
 1270DATA08AA0808,96969696,AA5555AA,82000082
 1280DATA2A808082,A8020282,0525A820,082A5850
 1290DATA8280802A,820202A8,02900048,41282841
 1300REM Graphics Data
 1310DATA0,0,0,0,0,0,0,0,4444AAAA,55550000,44AAAA00,55000044,AA002222,4444AA,222255,22225555
 1320DATA337F7F7F,111F3F3F,CCCDCDCD,8E8E8E,470717,B1B0B,72727,8B1B2B,31301000,F2F07270,C0C08000,F0F4E0E0,F2F0F5F0,307072F0,F0F0F4F0,C0E0E0F8
 1330DATA3120100,7430725,480C0800,862C860E,11110F2D,11111111,88880F0F,88888888,3362513,3EBFCF32,8E2C4C88,C6E977D,FAFDF56,137417DB,CFACAEC8,82E6EF7
 1340DATA16160303,5B5B2D2D,86860C0C,ADAD4B4B,2D2D5B5B,3031616,4B4BADAD,C0C8686,77333311,7F7FFF77,E8C0C080,FFFFFFE8,F3F3F,132757AF,FFFFFF,4CEAE4FA
 1350DATA7070303,3534A1F,E0E0C0C,F8F8F8F,F4B4303,3030707,F0F0F0F,C0C0E0E,7070303,F1F1F1F,E0E0C0C,CAC258F,F0F0F0F,3030707,F2D2C0C,C0C0E0E
 1360DATA16060202,2E2E0F0F,86060404,F0F0F0F,F0F0F3F,3030707,F0F0F0F,C0C0E0E,7070303,F0F0F0F,E0E0C0C,CFCF0F0F,F0F0F0F,2020616,F0F4747,4040686
 1370DATA69690606,6066969,0,0,17170703,3070707,48E0E0C,C0E0E0C

� Slippery Sam
� by A.Houghton
� (c) Electron User
(��1,1,50,-50,5,4,4,20,126,0,0,-126,126,126:�3,1,20,-20,1,5,5,100,126,0,0,-126,126,126:�4,1,-20,20,-1,5,5,100,126,0,0,-126,126,126
2	*FX16
<�<&1200�Dn@
F[*K.0*T.|MDEL.10,90|MFORI%=0TO(TOP-PA.)S.4:I%!&E00=I%!PA.:N.|MPA.=&E00|MO.|MRUN|MRUN|F|M
P
�21:*FX21
Z*FX138,0,128
d�
ni�init:�:�5:�23;8202;0;0;0;19,1,4;0;19,3,2;0;17,2:�4,4)"SLIPPERY SAM":�1:�3,7)"by A. Houghton":*FX21
x*�3:�0,20)"Press SPACE to play":���=32
�_lives=3:?score=0:score?1=0:level=1:?acorns=1:�screen:�:�maze:�main:�?dead=&E0 �bonus ��dead
�O�lives=0:�d(100):�window(4,16,7,15):�3:�4,15)"GAME"�4,16)"OVER":�d(200):��
�d��dead:lives=lives-1:!dat=&A00:�N%=150�100�-10:�1,4,N%,5:?scr=&20:scr?1=&6B:�!dat>&A60 !dat=&A00
��print:�d(25):�:�
�j��bonus:�d(20):�N%=100�200�10:�1,1,N%,3:�:�:�&10,0,0,0:�deccals:�insc:�psc:�0,-15,4,1:�d(2):�?dead=&7C
�M�?vist>0�:�&10,0,0,0:�dvist:�insc:�psc:�0,-15,4,1:�d(2):�?vist=0�vist?1=0
�_�n%=1�5*level:�&10,0,0,0:�insc:�psc:�0,-15,4,1:�d(2):�:level=level+1:�lives<7 lives=lives+1
�1?acorns=(level+1)�2:�?acorns>9 ?acorns=9:� ��
���d(D%):�=0:���>D%:�
�h��maze:sheet=(level-1)�6:�(380+10*sheet):�N%=0�63�8:�A$:�M%=0�7:M%?(mazdat+N%)=�("&"+�A$,M%+1,1)):�,
��mazgen:�N%=1�20+level
�:A%=�(1024)-1:�A%?maze=0�A%?maze=&20 A%?maze=&60 ��dp@
�:A%=�(1024)-1:�A%?maze=0�A%?maze=&20 A%?maze=&80 ��dz@
A �:�13,2)�6�1,29)�18:�31,16,9,31,8,10,32,31,16,13,32,8,10,32
z?samx=14:?samy=13:?hdpt=2:?tailpt=0:!tail=maze+&1AE:?tlen=0:?vist=0:vist?1=0:?dead=0:�sheet=4 ?samdir=&40 �?samdir=&20
^�window:!cals=&7C48:?caltm=15:�N%=1�30:�inccals:�:?accon=150-10*level:�?accon<50 ?accon=50
"i?actim=?accon:?acflag=0:�3:�15,6);?acorns:�pvist:?mocon=15-level �2:�?mocon<1 ?mocon=1:?motim=?mocon
,Q�psc:�3:�9,2);level:�lives>1�N%=1�lives-1:!scr=&5B40+16*N%:!dat=&A90:�livp:�
6�
@���screen:�:�dither:�window(1,2,5,1):�window(7,2,11,1):�window(13,2,18,2):�window(13,6,18,5):�window(16,10,16,9):�window(16,14,16,13)
J��window(1,26,11,5):�window(1,29,18,28):�window(14,19,17,18):�1:�1,1)"SCORE"�7,1)"LEVEL"�13,5)"ACORNS"�6,28)"CALORIES"�14,18)"TAIL":�
TW��window(l%,b%,r%,t%):le%=(l%-1)*64:bo%=(31-b%)*32-1:ri%=(r%+1)*64:to%=(33-t%)*32-1
^l�5:�0,2:�le%,to%:�224:�N%=le%+64�ri%-64�64:�225:�:�226:�N%=to%-32�bo%+32�-32:�le%,N%:�227:�ri%,N%:�228:�
h]�le%,bo%:�229:�N%=le%+64�ri%-64�64:�230:�:�231:�24,le%+56;bo%;ri%;to%-28;18;128,16,26,4:�
r� Maze Data
|L�11000011,110800B1,00051000,08676921,0015F521,000C6D21,1A011111,11033300
�L�00000069,06669005,0866D005,0C666905,00866D05,50C66905,50000005,C666666D
�L�F0002030,08691903,01050530,08676D03,05050130,0C1C6D03,0030F0F0,F00F0F0E
�L�00000000,00000000,00000000,00000000,00000000,00000000,00000000,00000000
�L�76666669,76666695,76666955,76669555,76695555,76955555,79555555,77777777
�L�00666600,25000000,27676705,25050505,27676705,25050500,27676760,B3333330
�&ݤhinib(U$):B%=�("&"+U$):=(B%�4)�3
�"ݤlonib(U$):B%=�("&"+U$):=B%�3
�)��init:�-256=1timer=&29F �timer=&2A0
ֈ�23,224,0,0,0,0,0,3,7,6,23,225,0,0,0,0,0,255,255,0,23,226,0,0,0,0,0,192,224,96,23,227,6,6,6,6,6,6,6,6,23,228,96,96,96,96,96,96,96,96
�R�23,229,6,7,3,0,0,0,0,0,23,230,0,255,255,0,0,0,0,0,23,231,96,224,192,0,0,0,0,0
�9��T^E:�N%=&900�&A9F�4:�A$:!N%=�("&"+A$):�:�tokdat 256
�o��dlD:�N%=0�255�16:�A$:�M%=0�15�2:U$=�A$,M%�2+1,1):tokdat?(N%+M%)=�hinib(U$):tokdat?(N%+M%+1)=�lonib(U$):�,
�tscr=&70:dat=&72:cal=&74:mazpt=cal:cals=&7E:�Q%2000,maze 1030,shadow 1030,mazdat 64,tail 256:�P=0�2�2:P%=Q%:[OPTP
g.gul1 EQUW&11:EQUW1:EQUW70:EQUW5:.gul2 EQUW&11:EQUW1:EQUW30:EQUW8:.muso EQUW&11:EQUW2:EQUW100:EQUW7
D.acso EQUW2:EQUW3:EQUW50:EQUW10:.moso EQUW2:EQUW4:EQUW100:EQUW10
`.dither LDA#0:STAscr:LDA#&58:STAscr+1:LDY#0:.dilp LDA#5:STA(scr),Y:INY:LDA#10:STA(scr),Y:DEY
&?LDAscr:CLC:ADC#2:STAscr:LDAscr+1:ADC#0:STAscr+1:BPLdilp:RTS
0H.print LDX#2:.prlp1 LDY#15:.prlp2 LDA(dat),Y:STA(scr),Y:DEY:BPLprlp2
:_LDAscr:CLC:ADC#&40:STAscr:LDAscr+1:ADC#1:STAscr+1:LDAdat:CLC:ADC#16:STAdat:DEX:BNEprlp1:RTS
D<.livp LDY#15:.lvpl LDA(dat),Y:STA(scr),Y:DEY:BPLlvpl:RTS
N�.calc LDA#0:STAcal+1:TYA:LDY#5:.rolp ASLA:ROLcal+1:DEY:BNErolp:STAcal:TXA:CLC:ADCcal:STAcal:LDAcal+1:ADC#0:STAcal+1:LDAcal:CLC:ADC#maze �256:STAcal:LDAcal+1:ADC#maze �256:STAcal+1:RTS
X\.window LDA#19:JSR&FFF4:LDAsamx:SEC:SBC#5:STAmazex:LDA#&50:STAwindad:LDA#&5E:STAwindad+1
blLDA#11:STAwncnx:.winxlp LDA#11:STAwncny:LDAwindad:STAscr:LDAwindad+1:STAscr+1:LDAsamy:SEC:SBC#5:STAmazey
l].winylp LDA#9:STAdat+1:LDAmazex:CMP#32:BCCchkylm:.block LDA#&40:STAdat:JSRprint:JMPnxtblk
v�.chkylm LDAmazey:CMP#32:BCCchksam:JMPblock:.chksam LDAwncnx:CMP#6:BNEprwom:LDAwncny:CMP#6:BNEprwom:LDAsamdir:STAdat:LDA#&A:STAdat+1:JSRprint:JMPnxtblk
�E.prwom LDXmazex:LDYmazey:JSRcalc:LDY#0:LDA(cal),Y:STAdat:JSRprint
��.nxtblk INCmazey:DECwncny:BNEwinYlp:LDAwindad:CLC:ADC#16:STAwindad:LDAwindad+1:ADC#0:STAwindad+1:INCmazex:DECwncnx:BNEwinXlp:RTS:.winYlp JMPwinylp:.winXlp:JMPwinxlp
�E.mazex EQUB0:.mazey EQUB0:.wncnx EQUB0:.wncny EQUB0:.windad EQUW0
�5.samx EQUB0:.samy EQUB0:.samdir EQUB0:.dead EQUB0
�;.mvsam LDXsamx:LDYsamy:JSRcalc:LDY#0:LDA#&C0:STA(cal),Y
�ILDA#&81:LDX#&9E:LDY#&FF:JSR&FFF4:TYA:BEQntlft:LDA#0:STAsamdir:JMPmove
�Q.ntlft LDA#&81:LDX#&BD:LDY#&FF:JSR&FFF4:TYA:BEQntrt:LDA#&20:STAsamdir:JMPmove
�P.ntrt LDA#&81:LDX#&B7:LDY#&FF:JSR&FFF4:TYA:BEQntup:LDA#&40:STAsamdir:JMPmove
�H.ntup LDA#&81:LDX#&97:LDY#&FF:JSR&FFF4:TYA:BEQmove:LDA#&60:STAsamdir
�|.move LDAsamdir:BNEntl:DECsamx:JMPchk:.ntl CMP#&20:BNEntr:INCsamx:JMPchk:.ntr CMP#&40:BNEntu:DECsamy:JMPchk:.ntu INCsamy
�4.chk LDAsamx:CMP#32:BCShit:LDAsamy:CMP#32:BCShit
�YLDXsamx:LDYsamy:JSRcalc:LDXhdpt:LDAcal:STAtail,X:LDAcal+1:STAtail+1,X:INX:INX:STXhdpt
�RLDY#0:LDA(cal),Y:CMP#&C0:BEQhit:CMP#&40:BEQhit:CMP#&A0:BEQhit:CMP#&E0:BEQgtacn
�CMP#&80:BEQmush:CMP#&60:BNEdeltail:JSRinsc:JSRpsc:JSRinccals:LDAtlen:CMP#254:BCSdeltail:INCtlen:LDX#gul1 �256:LDY#gul1 �256:LDA#7:JSR&FFF1:JMPivist
y.mush LDX#muso �256:LDY#muso �256:LDA#7:JSR&FFF1:JSRdeccals:LDAtlen:BEQdeltail:DECtlen:JSRdeltail:JSRdeltail:JMPdvist
.hit LDA#&FF:STAdead:RTS
 .hdpt EQUB0:.tailpt EQUB0:.deltail LDXtailpt:LDAtail,X:STA&90:LDAtail+1,X:STA&91:LDA#0:TAY:STA(&90),Y:INX:INX:STXtailpt:RTS
*�.gtacn JSRinsc:JSRinsc:DECacorns:LDA#31:JSR&FFEE:LDA#15:JSR&FFEE:LDA#6:JSR&FFEE:LDA#17:JSR&FFEE:LDA#3:JSR&FFEE:LDAacorns:CLC:ADC#48:JSR&FFEE
4jLDA#0:STAacflag:LDAaccon:STAactim:LDA#&40:STAscr:LDA#&64:STAscr+1:LDA#0:STAdat:LDA#9:STAdat+1:JSRprint
>ZLDX#gul2 �256:LDY#gul2 �256:LDA#7:JSR&FFF1:LDAacorns:BNEntcy:LDA#&E0:STAdead:.ntcy RTS
H5.tlen EQUB0:.score EQUW0:.vist EQUW0:.sccol EQUB1
RM.insc SED:LDAscore:CLC:ADC#2:STAscore:LDAscore+1:ADC#0:STAscore+1:CLD:RTS
\�.psc LDA#17:JSR&FFEE:LDAsccol:JSR&FFEE:LDA#31:JSR&FFEE:LDA#1:JSR&FFEE:LDA#2:JSR&FFEE:INCsccol:LDAsccol:CMP#4:BNEdigs:LDA#1:STAsccol
f=.digs LDAscore+1:JSRpbyt:LDAscore:JSRpbyt:LDA#48:JMP&FFEE
pL.pbyt TAX:LSRA:LSRA:LSRA:LSRA:JSRpnib:TXA:�#&F:.pnib CLC:ADC#48:JMP&FFEE
zO.ivist SED:LDAvist:CLC:ADC#1:STAvist:LDAvist+1:ADC#0:STAvist+1:CLD:JMPpvist
�F.dvist SED:LDAvist:SEC:SBC#1:STAvist:LDAvist+1:SBC#0:STAvist+1:CLD
�{.pvist LDA#31:JSR&FFEE:LDA#14:JSR&FFEE:LDA#19:JSR&FFEE:LDA#17:JSR&FFEE:LDA#3:JSR&FFEE:LDAvist+1:JSRpbyt:LDAvist:JMPpbyt
�j.deccals LDY#7:LDA#0:.dclp STA(cals),Y:DEY:BPLdclp:LDAcals:SEC:SBC#8:STAcals:LDAcals+1:SBC#0:STAcals+1
�HLDAcals:CMP#&48:BNEcok:LDAcals+1:CMP#&7C:BNEcok:STAdead:RTS:.cok RTS
�=.inccals LDAcals:CMP#&68:BNEicok:LDAcals+1:CMP#&7D:BEQcok
�o.icok LDAcals:CLC:ADC#8:STAcals:LDAcals+1:ADC#0:STAcals+1:LDY#7:.iclp LDA&A80,Y:STA(cals),Y:DEY:BPLiclp:RTS
�N.caltm EQUB15:.calor DECcaltm:BEQttdc:RTS:.ttdc LDA#15:STAcaltm:JMPdeccals
�O.acorns EQUB0:.actim EQUB0:.accon EQUB0:.acflag EQUB0:.acx EQUB0:.acy EQUB0
ԓ.ctacorn DECactim:BEQctac:RTS:.ctac LDAaccon:STAactim:BITacflag:BMIdecay:LDA#&40:STAscr:LDA#&64:STAscr+1:LDA#&E0:STAdat:LDA#9:STAdat+1:JSRprint
�.LDX#acso �256:LDY#acso �256:LDA#7:JSR&FFF1
�k.posnac JSRrandom:TAX:JSRrandom:TAY:STXacx:STYacy:JSRcalc:LDY#0:LDA(cal),Y:BNEposnac:LDA#&E0:STA(cal),Y
�LDA#&FF:STAacflag:RTS
�z.decay LDA#&40:STAscr:LDA#&64:STAscr+1:LDA#0:STAdat:LDA#9:STAdat+1:JSRprint:LDX#moso �256:LDY#moso �256:LDA#7:JSR&FFF1
JLDA#&40:STAscr:LDA#&69:STAscr+1:LDA#&A0:STAdat:LDA#9:STAdat+1:JSRprint
FLDXacx:LDYacy:JSRcalc:LDY#0:LDA#&A0:STA(cal),Y:LDA#0:STAacflag:RTS
X.seed EQUB �(256):.random LDAseed:ROLA:ROLA:ROLA:SEC:ADCseed:�timer:STAseed:�#31:RTS
$5.mocon EQUB15:.motim EQUB15:.mtx EQUB0:.mty EQUB0
.�.mould DECmotim:BEQspread:RTS:.spread LDAmocon:STAmotim:LDA#maze �256:STA&8C:LDA#maze �256:STA&8D:LDA#shadow �256:STA&8E:LDA#shadow �256:STA&8F
8[LDX#4:.copl1 LDY#0:.copl2 LDA(&8C),Y:STA(&8E),Y:INY:BNEcopl2:INC&8D:INC&8F:DEX:BNEcopl1
BkLDA#(maze-32)�256:STA&8C:LDA#(maze-32)�256:STA&8D:LDA#(shadow-32)�256:STA&8E:LDA#(shadow-32)�256:STA&8F
LNLDY#0:STYmty:.spml1 LDX#0:STXmtx:.spml2 LDY#32:LDA#(&8E),Y:CMP#&A0:BNEntmo
V:LDY#0:JSRreg:LDY#31:JSRreg:LDY#33:JSRreg:LDY#64:JSRreg
`�.ntmo INC&8C:BNEdi8D:INC&8D:.di8D INC&8E:BNEdi8F:INC&8F:.di8F INCmtx:LDAmtx:CMP#32:BNEspml2:INCmty:LDAmty:CMP#32:BNEspml1:RTS
j�.reg LDAmtx:BNEnle:CPY#31:BEQnrgn:.nle CMP#31:BNEnre:CPY#33:BEQnrgn:.nre LDAmty:BNEnte:CPY#0:BEQnrgn:.nte CMP#31:BNEnbe:CPY#64:BEQnrgn
t8.nbe LDA(&8E),Y:BNEnrgn:LDA#&A0:STA(&8C),Y:.nrgn RTS
~A.main LDA#237:STAtimer:JSRmvsam::JSRcalor:JSRctacorn:JSRmould
�FJSRwindow:LDAdead:BNEdied:.wait BITtimer:BMIwait:BPLmain:.died RTS
�L.br EQUB0:.sr EQUB0:.sc EQUB0:.tok EQUB0:.char EQUB0:.bx EQUB0:.by EQUB0
��.mazgen LDA#maze �256:STAmazpt:LDA#maze �256:STAmazpt+1:LDA#0:STAbr:STAby:.genl6 LDA#0:STAbx:.genl1 LDYbr:LDAmazdat,Y:JSRtoken
�CINCbr:INCbx:LDAbx:CMP#8:BNEgenl1:INCby:LDAby:CMP#8:BNEgenl6:RTS
�� .token ASLA:ASLA:ASLA:ASLA:STAtok:LDA#0:STAsr:.genl2 LDA#0:STAsc:.genl4 LDAsr:ASLA:ASLA:CLC:ADCsc:CLC:ADCtok:TAY:LDAtokdat,Y:JSRchara
�=INCsc:LDAsc:CMP#4:BNEgenl4:INCsr:LDAsr:CMP#4:BNEgenl2:RTS
�z.chara ASLA:ASLA:ASLA:ASLA:ASLA:PHA:LDAsr:ASLA:ASLA:ASLA:ASLA:ASLA:CLC:ADCsc:STAmazpt:LDAbx:ASLA:ASLA:CLC:ADCmazpt:TAY
ΘLDA#0:STAmazpt+1:LDX#7:LDAby:.genl3 ASLA:ROLmazpt+1:DEX:BNEgenl3:CLC:ADC#maze �256:STAmazpt:LDAmazpt+1:ADC#maze �256:STAmazpt+1:PLA:STA(mazpt),Y:RTS
�]�:�
�� Block Token Data
�(�00000000,55555555,08080808,00AA0000
�(�08AA0808,96969696,AA5555AA,82000082
(�2A808082,A8020282,0525A820,082A5850

(�8280802A,820202A8,02900048,41282841
� Graphics Data
X�0,0,0,0,0,0,0,0,4444AAAA,55550000,44AAAA00,55000044,AA002222,4444AA,222255,22225555
(��337F7F7F,111F3F3F,CCCDCDCD,8E8E8E,470717,B1B0B,72727,8B1B2B,31301000,F2F07270,C0C08000,F0F4E0E0,F2F0F5F0,307072F0,F0F0F4F0,C0E0E0F8
2��3120100,7430725,480C0800,862C860E,11110F2D,11111111,88880F0F,88888888,3362513,3EBFCF32,8E2C4C88,C6E977D,FAFDF56,137417DB,CFACAEC8,82E6EF7
<��16160303,5B5B2D2D,86860C0C,ADAD4B4B,2D2D5B5B,3031616,4B4BADAD,C0C8686,77333311,7F7FFF77,E8C0C080,FFFFFFE8,F3F3F,132757AF,FFFFFF,4CEAE4FA
F��7070303,3534A1F,E0E0C0C,F8F8F8F,F4B4303,3030707,F0F0F0F,C0C0E0E,7070303,F1F1F1F,E0E0C0C,CAC258F,F0F0F0F,3030707,F2D2C0C,C0C0E0E
P��16060202,2E2E0F0F,86060404,F0F0F0F,F0F0F3F,3030707,F0F0F0F,C0C0E0E,7070303,F0F0F0F,E0E0C0C,CFCF0F0F,F0F0F0F,2020616,F0F4747,4040686
Z:�69690606,6066969,0,0,17170703,3070707,48E0E0C,C0E0E0C
�
00000000  0d 00 0a 12 f4 20 53 6c  69 70 70 65 72 79 20 53  |..... Slippery S|
00000010  61 6d 0d 00 14 13 f4 20  62 79 20 41 2e 48 6f 75  |am..... by A.Hou|
00000020  67 68 74 6f 6e 0d 00 1e  17 f4 20 28 63 29 20 45  |ghton..... (c) E|
00000030  6c 65 63 74 72 6f 6e 20  55 73 65 72 0d 00 28 84  |lectron User..(.|
00000040  e2 31 2c 31 2c 35 30 2c  2d 35 30 2c 35 2c 34 2c  |.1,1,50,-50,5,4,|
00000050  34 2c 32 30 2c 31 32 36  2c 30 2c 30 2c 2d 31 32  |4,20,126,0,0,-12|
00000060  36 2c 31 32 36 2c 31 32  36 3a e2 33 2c 31 2c 32  |6,126,126:.3,1,2|
00000070  30 2c 2d 32 30 2c 31 2c  35 2c 35 2c 31 30 30 2c  |0,-20,1,5,5,100,|
00000080  31 32 36 2c 30 2c 30 2c  2d 31 32 36 2c 31 32 36  |126,0,0,-126,126|
00000090  2c 31 32 36 3a e2 34 2c  31 2c 2d 32 30 2c 32 30  |,126:.4,1,-20,20|
000000a0  2c 2d 31 2c 35 2c 35 2c  31 30 30 2c 31 32 36 2c  |,-1,5,5,100,126,|
000000b0  30 2c 30 2c 2d 31 32 36  2c 31 32 36 2c 31 32 36  |0,0,-126,126,126|
000000c0  0d 00 32 09 2a 46 58 31  36 0d 00 3c 11 e7 90 3c  |..2.*FX16..<...<|
000000d0  26 31 32 30 30 e5 8d 44  6e 40 0d 00 46 5b 2a 4b  |&1200..Dn@..F[*K|
000000e0  2e 30 2a 54 2e 7c 4d 44  45 4c 2e 31 30 2c 39 30  |.0*T.|MDEL.10,90|
000000f0  7c 4d 46 4f 52 49 25 3d  30 54 4f 28 54 4f 50 2d  ||MFORI%=0TO(TOP-|
00000100  50 41 2e 29 53 2e 34 3a  49 25 21 26 45 30 30 3d  |PA.)S.4:I%!&E00=|
00000110  49 25 21 50 41 2e 3a 4e  2e 7c 4d 50 41 2e 3d 26  |I%!PA.:N.|MPA.=&|
00000120  45 30 30 7c 4d 4f 2e 7c  4d 52 55 4e 7c 4d 52 55  |E00|MO.|MRUN|MRU|
00000130  4e 7c 46 7c 4d 0d 00 50  0d ef 32 31 3a 2a 46 58  |N|F|M..P..21:*FX|
00000140  32 31 0d 00 5a 10 2a 46  58 31 33 38 2c 30 2c 31  |21..Z.*FX138,0,1|
00000150  32 38 0d 00 64 05 e0 0d  00 6e 69 f2 69 6e 69 74  |28..d....ni.init|
00000160  3a f5 3a eb 35 3a ef 32  33 3b 38 32 30 32 3b 30  |:.:.5:.23;8202;0|
00000170  3b 30 3b 30 3b 31 39 2c  31 2c 34 3b 30 3b 31 39  |;0;0;19,1,4;0;19|
00000180  2c 33 2c 32 3b 30 3b 31  37 2c 32 3a f1 8a 34 2c  |,3,2;0;17,2:..4,|
00000190  34 29 22 53 4c 49 50 50  45 52 59 20 53 41 4d 22  |4)"SLIPPERY SAM"|
000001a0  3a fb 31 3a f1 8a 33 2c  37 29 22 62 79 20 41 2e  |:.1:..3,7)"by A.|
000001b0  20 48 6f 75 67 68 74 6f  6e 22 3a 2a 46 58 32 31  | Houghton":*FX21|
000001c0  0d 00 78 2a fb 33 3a f1  8a 30 2c 32 30 29 22 50  |..x*.3:..0,20)"P|
000001d0  72 65 73 73 20 53 50 41  43 45 20 74 6f 20 70 6c  |ress SPACE to pl|
000001e0  61 79 22 3a f5 fd a5 3d  33 32 0d 00 82 5f 6c 69  |ay":...=32..._li|
000001f0  76 65 73 3d 33 3a 3f 73  63 6f 72 65 3d 30 3a 73  |ves=3:?score=0:s|
00000200  63 6f 72 65 3f 31 3d 30  3a 6c 65 76 65 6c 3d 31  |core?1=0:level=1|
00000210  3a 3f 61 63 6f 72 6e 73  3d 31 3a f2 73 63 72 65  |:?acorns=1:.scre|
00000220  65 6e 3a f5 3a f2 6d 61  7a 65 3a d6 6d 61 69 6e  |en:.:.maze:.main|
00000230  3a e7 3f 64 65 61 64 3d  26 45 30 20 f2 62 6f 6e  |:.?dead=&E0 .bon|
00000240  75 73 20 8b f2 64 65 61  64 0d 00 8c 4f fd 6c 69  |us ..dead...O.li|
00000250  76 65 73 3d 30 3a f2 64  28 31 30 30 29 3a f2 77  |ves=0:.d(100):.w|
00000260  69 6e 64 6f 77 28 34 2c  31 36 2c 37 2c 31 35 29  |indow(4,16,7,15)|
00000270  3a fb 33 3a f1 8a 34 2c  31 35 29 22 47 41 4d 45  |:.3:..4,15)"GAME|
00000280  22 8a 34 2c 31 36 29 22  4f 56 45 52 22 3a f2 64  |".4,16)"OVER":.d|
00000290  28 32 30 30 29 3a fd a3  0d 00 96 64 dd f2 64 65  |(200):.....d..de|
000002a0  61 64 3a 6c 69 76 65 73  3d 6c 69 76 65 73 2d 31  |ad:lives=lives-1|
000002b0  3a 21 64 61 74 3d 26 41  30 30 3a e3 4e 25 3d 31  |:!dat=&A00:.N%=1|
000002c0  35 30 b8 31 30 30 88 2d  31 30 3a d4 31 2c 34 2c  |50.100.-10:.1,4,|
000002d0  4e 25 2c 35 3a 3f 73 63  72 3d 26 32 30 3a 73 63  |N%,5:?scr=&20:sc|
000002e0  72 3f 31 3d 26 36 42 3a  e7 21 64 61 74 3e 26 41  |r?1=&6B:.!dat>&A|
000002f0  36 30 20 21 64 61 74 3d  26 41 30 30 0d 00 a0 15  |60 !dat=&A00....|
00000300  d6 70 72 69 6e 74 3a f2  64 28 32 35 29 3a ed 3a  |.print:.d(25):.:|
00000310  e1 0d 00 aa 6a dd f2 62  6f 6e 75 73 3a f2 64 28  |....j..bonus:.d(|
00000320  32 30 29 3a e3 4e 25 3d  31 30 30 b8 32 30 30 88  |20):.N%=100.200.|
00000330  31 30 3a d4 31 2c 31 2c  4e 25 2c 33 3a ed 3a f5  |10:.1,1,N%,3:.:.|
00000340  3a d4 26 31 30 2c 30 2c  30 2c 30 3a d6 64 65 63  |:.&10,0,0,0:.dec|
00000350  63 61 6c 73 3a d6 69 6e  73 63 3a d6 70 73 63 3a  |cals:.insc:.psc:|
00000360  d4 30 2c 2d 31 35 2c 34  2c 31 3a f2 64 28 32 29  |.0,-15,4,1:.d(2)|
00000370  3a fd 3f 64 65 61 64 3d  26 37 43 0d 00 b4 4d e7  |:.?dead=&7C...M.|
00000380  3f 76 69 73 74 3e 30 f5  3a d4 26 31 30 2c 30 2c  |?vist>0.:.&10,0,|
00000390  30 2c 30 3a d6 64 76 69  73 74 3a d6 69 6e 73 63  |0,0:.dvist:.insc|
000003a0  3a d6 70 73 63 3a d4 30  2c 2d 31 35 2c 34 2c 31  |:.psc:.0,-15,4,1|
000003b0  3a f2 64 28 32 29 3a fd  3f 76 69 73 74 3d 30 80  |:.d(2):.?vist=0.|
000003c0  76 69 73 74 3f 31 3d 30  0d 00 be 5f e3 6e 25 3d  |vist?1=0..._.n%=|
000003d0  31 b8 35 2a 6c 65 76 65  6c 3a d4 26 31 30 2c 30  |1.5*level:.&10,0|
000003e0  2c 30 2c 30 3a d6 69 6e  73 63 3a d6 70 73 63 3a  |,0,0:.insc:.psc:|
000003f0  d4 30 2c 2d 31 35 2c 34  2c 31 3a f2 64 28 32 29  |.0,-15,4,1:.d(2)|
00000400  3a ed 3a 6c 65 76 65 6c  3d 6c 65 76 65 6c 2b 31  |:.:level=level+1|
00000410  3a e7 6c 69 76 65 73 3c  37 20 6c 69 76 65 73 3d  |:.lives<7 lives=|
00000420  6c 69 76 65 73 2b 31 0d  00 c8 31 3f 61 63 6f 72  |lives+1...1?acor|
00000430  6e 73 3d 28 6c 65 76 65  6c 2b 31 29 81 32 3a e7  |ns=(level+1).2:.|
00000440  3f 61 63 6f 72 6e 73 3e  39 20 3f 61 63 6f 72 6e  |?acorns>9 ?acorn|
00000450  73 3d 39 3a e1 20 8b e1  0d 00 d2 18 dd f2 64 28  |s=9:. ........d(|
00000460  44 25 29 3a d1 3d 30 3a  f5 fd 91 3e 44 25 3a e1  |D%):.=0:...>D%:.|
00000470  0d 00 dc 68 dd f2 6d 61  7a 65 3a 73 68 65 65 74  |...h..maze:sheet|
00000480  3d 28 6c 65 76 65 6c 2d  31 29 83 36 3a f7 28 33  |=(level-1).6:.(3|
00000490  38 30 2b 31 30 2a 73 68  65 65 74 29 3a e3 4e 25  |80+10*sheet):.N%|
000004a0  3d 30 b8 36 33 88 38 3a  f3 41 24 3a e3 4d 25 3d  |=0.63.8:.A$:.M%=|
000004b0  30 b8 37 3a 4d 25 3f 28  6d 61 7a 64 61 74 2b 4e  |0.7:M%?(mazdat+N|
000004c0  25 29 3d a0 28 22 26 22  2b c1 41 24 2c 4d 25 2b  |%)=.("&"+.A$,M%+|
000004d0  31 2c 31 29 29 3a ed 2c  0d 00 e6 1a d6 6d 61 7a  |1,1)):.,.....maz|
000004e0  67 65 6e 3a e3 4e 25 3d  31 b8 32 30 2b 6c 65 76  |gen:.N%=1.20+lev|
000004f0  65 6c 0d 00 f0 3a 41 25  3d b3 28 31 30 32 34 29  |el...:A%=.(1024)|
00000500  2d 31 3a e7 41 25 3f 6d  61 7a 65 3d 30 84 41 25  |-1:.A%?maze=0.A%|
00000510  3f 6d 61 7a 65 3d 26 32  30 20 41 25 3f 6d 61 7a  |?maze=&20 A%?maz|
00000520  65 3d 26 36 30 20 8b e5  8d 64 70 40 0d 00 fa 3a  |e=&60 ...dp@...:|
00000530  41 25 3d b3 28 31 30 32  34 29 2d 31 3a e7 41 25  |A%=.(1024)-1:.A%|
00000540  3f 6d 61 7a 65 3d 30 84  41 25 3f 6d 61 7a 65 3d  |?maze=0.A%?maze=|
00000550  26 32 30 20 41 25 3f 6d  61 7a 65 3d 26 38 30 20  |&20 A%?maze=&80 |
00000560  8b e5 8d 64 7a 40 0d 01  04 41 20 ed 3a f1 8a 31  |...dz@...A .:..1|
00000570  33 2c 32 29 89 36 8a 31  2c 32 39 29 89 31 38 3a  |3,2).6.1,29).18:|
00000580  ef 33 31 2c 31 36 2c 39  2c 33 31 2c 38 2c 31 30  |.31,16,9,31,8,10|
00000590  2c 33 32 2c 33 31 2c 31  36 2c 31 33 2c 33 32 2c  |,32,31,16,13,32,|
000005a0  38 2c 31 30 2c 33 32 0d  01 0e 7a 3f 73 61 6d 78  |8,10,32...z?samx|
000005b0  3d 31 34 3a 3f 73 61 6d  79 3d 31 33 3a 3f 68 64  |=14:?samy=13:?hd|
000005c0  70 74 3d 32 3a 3f 74 61  69 6c 70 74 3d 30 3a 21  |pt=2:?tailpt=0:!|
000005d0  74 61 69 6c 3d 6d 61 7a  65 2b 26 31 41 45 3a 3f  |tail=maze+&1AE:?|
000005e0  74 6c 65 6e 3d 30 3a 3f  76 69 73 74 3d 30 3a 76  |tlen=0:?vist=0:v|
000005f0  69 73 74 3f 31 3d 30 3a  3f 64 65 61 64 3d 30 3a  |ist?1=0:?dead=0:|
00000600  e7 73 68 65 65 74 3d 34  20 3f 73 61 6d 64 69 72  |.sheet=4 ?samdir|
00000610  3d 26 34 30 20 8b 3f 73  61 6d 64 69 72 3d 26 32  |=&40 .?samdir=&2|
00000620  30 0d 01 18 5e d6 77 69  6e 64 6f 77 3a 21 63 61  |0...^.window:!ca|
00000630  6c 73 3d 26 37 43 34 38  3a 3f 63 61 6c 74 6d 3d  |ls=&7C48:?caltm=|
00000640  31 35 3a e3 4e 25 3d 31  b8 33 30 3a d6 69 6e 63  |15:.N%=1.30:.inc|
00000650  63 61 6c 73 3a ed 3a 3f  61 63 63 6f 6e 3d 31 35  |cals:.:?accon=15|
00000660  30 2d 31 30 2a 6c 65 76  65 6c 3a e7 3f 61 63 63  |0-10*level:.?acc|
00000670  6f 6e 3c 35 30 20 3f 61  63 63 6f 6e 3d 35 30 0d  |on<50 ?accon=50.|
00000680  01 22 69 3f 61 63 74 69  6d 3d 3f 61 63 63 6f 6e  |."i?actim=?accon|
00000690  3a 3f 61 63 66 6c 61 67  3d 30 3a fb 33 3a f1 8a  |:?acflag=0:.3:..|
000006a0  31 35 2c 36 29 3b 3f 61  63 6f 72 6e 73 3a d6 70  |15,6);?acorns:.p|
000006b0  76 69 73 74 3a 3f 6d 6f  63 6f 6e 3d 31 35 2d 6c  |vist:?mocon=15-l|
000006c0  65 76 65 6c 20 81 32 3a  e7 3f 6d 6f 63 6f 6e 3c  |evel .2:.?mocon<|
000006d0  31 20 3f 6d 6f 63 6f 6e  3d 31 3a 3f 6d 6f 74 69  |1 ?mocon=1:?moti|
000006e0  6d 3d 3f 6d 6f 63 6f 6e  0d 01 2c 51 d6 70 73 63  |m=?mocon..,Q.psc|
000006f0  3a fb 33 3a f1 8a 39 2c  32 29 3b 6c 65 76 65 6c  |:.3:..9,2);level|
00000700  3a e7 6c 69 76 65 73 3e  31 e3 4e 25 3d 31 b8 6c  |:.lives>1.N%=1.l|
00000710  69 76 65 73 2d 31 3a 21  73 63 72 3d 26 35 42 34  |ives-1:!scr=&5B4|
00000720  30 2b 31 36 2a 4e 25 3a  21 64 61 74 3d 26 41 39  |0+16*N%:!dat=&A9|
00000730  30 3a d6 6c 69 76 70 3a  ed 0d 01 36 05 e1 0d 01  |0:.livp:...6....|
00000740  40 88 dd f2 73 63 72 65  65 6e 3a db 3a d6 64 69  |@...screen:.:.di|
00000750  74 68 65 72 3a f2 77 69  6e 64 6f 77 28 31 2c 32  |ther:.window(1,2|
00000760  2c 35 2c 31 29 3a f2 77  69 6e 64 6f 77 28 37 2c  |,5,1):.window(7,|
00000770  32 2c 31 31 2c 31 29 3a  f2 77 69 6e 64 6f 77 28  |2,11,1):.window(|
00000780  31 33 2c 32 2c 31 38 2c  32 29 3a f2 77 69 6e 64  |13,2,18,2):.wind|
00000790  6f 77 28 31 33 2c 36 2c  31 38 2c 35 29 3a f2 77  |ow(13,6,18,5):.w|
000007a0  69 6e 64 6f 77 28 31 36  2c 31 30 2c 31 36 2c 39  |indow(16,10,16,9|
000007b0  29 3a f2 77 69 6e 64 6f  77 28 31 36 2c 31 34 2c  |):.window(16,14,|
000007c0  31 36 2c 31 33 29 0d 01  4a 89 f2 77 69 6e 64 6f  |16,13)..J..windo|
000007d0  77 28 31 2c 32 36 2c 31  31 2c 35 29 3a f2 77 69  |w(1,26,11,5):.wi|
000007e0  6e 64 6f 77 28 31 2c 32  39 2c 31 38 2c 32 38 29  |ndow(1,29,18,28)|
000007f0  3a f2 77 69 6e 64 6f 77  28 31 34 2c 31 39 2c 31  |:.window(14,19,1|
00000800  37 2c 31 38 29 3a fb 31  3a f1 8a 31 2c 31 29 22  |7,18):.1:..1,1)"|
00000810  53 43 4f 52 45 22 8a 37  2c 31 29 22 4c 45 56 45  |SCORE".7,1)"LEVE|
00000820  4c 22 8a 31 33 2c 35 29  22 41 43 4f 52 4e 53 22  |L".13,5)"ACORNS"|
00000830  8a 36 2c 32 38 29 22 43  41 4c 4f 52 49 45 53 22  |.6,28)"CALORIES"|
00000840  8a 31 34 2c 31 38 29 22  54 41 49 4c 22 3a e1 0d  |.14,18)"TAIL":..|
00000850  01 54 57 dd f2 77 69 6e  64 6f 77 28 6c 25 2c 62  |.TW..window(l%,b|
00000860  25 2c 72 25 2c 74 25 29  3a 6c 65 25 3d 28 6c 25  |%,r%,t%):le%=(l%|
00000870  2d 31 29 2a 36 34 3a 62  6f 25 3d 28 33 31 2d 62  |-1)*64:bo%=(31-b|
00000880  25 29 2a 33 32 2d 31 3a  72 69 25 3d 28 72 25 2b  |%)*32-1:ri%=(r%+|
00000890  31 29 2a 36 34 3a 74 6f  25 3d 28 33 33 2d 74 25  |1)*64:to%=(33-t%|
000008a0  29 2a 33 32 2d 31 0d 01  5e 6c ef 35 3a e6 30 2c  |)*32-1..^l.5:.0,|
000008b0  32 3a ec 6c 65 25 2c 74  6f 25 3a ef 32 32 34 3a  |2:.le%,to%:.224:|
000008c0  e3 4e 25 3d 6c 65 25 2b  36 34 b8 72 69 25 2d 36  |.N%=le%+64.ri%-6|
000008d0  34 88 36 34 3a ef 32 32  35 3a ed 3a ef 32 32 36  |4.64:.225:.:.226|
000008e0  3a e3 4e 25 3d 74 6f 25  2d 33 32 b8 62 6f 25 2b  |:.N%=to%-32.bo%+|
000008f0  33 32 88 2d 33 32 3a ec  6c 65 25 2c 4e 25 3a ef  |32.-32:.le%,N%:.|
00000900  32 32 37 3a ec 72 69 25  2c 4e 25 3a ef 32 32 38  |227:.ri%,N%:.228|
00000910  3a ed 0d 01 68 5d ec 6c  65 25 2c 62 6f 25 3a ef  |:...h].le%,bo%:.|
00000920  32 32 39 3a e3 4e 25 3d  6c 65 25 2b 36 34 b8 72  |229:.N%=le%+64.r|
00000930  69 25 2d 36 34 88 36 34  3a ef 32 33 30 3a ed 3a  |i%-64.64:.230:.:|
00000940  ef 32 33 31 3a ef 32 34  2c 6c 65 25 2b 35 36 3b  |.231:.24,le%+56;|
00000950  62 6f 25 3b 72 69 25 3b  74 6f 25 2d 32 38 3b 31  |bo%;ri%;to%-28;1|
00000960  38 3b 31 32 38 2c 31 36  2c 32 36 2c 34 3a e1 0d  |8;128,16,26,4:..|
00000970  01 72 0f f4 20 4d 61 7a  65 20 44 61 74 61 0d 01  |.r.. Maze Data..|
00000980  7c 4c dc 31 31 30 30 30  30 31 31 2c 31 31 30 38  ||L.11000011,1108|
00000990  30 30 42 31 2c 30 30 30  35 31 30 30 30 2c 30 38  |00B1,00051000,08|
000009a0  36 37 36 39 32 31 2c 30  30 31 35 46 35 32 31 2c  |676921,0015F521,|
000009b0  30 30 30 43 36 44 32 31  2c 31 41 30 31 31 31 31  |000C6D21,1A01111|
000009c0  31 2c 31 31 30 33 33 33  30 30 0d 01 86 4c dc 30  |1,11033300...L.0|
000009d0  30 30 30 30 30 36 39 2c  30 36 36 36 39 30 30 35  |0000069,06669005|
000009e0  2c 30 38 36 36 44 30 30  35 2c 30 43 36 36 36 39  |,0866D005,0C6669|
000009f0  30 35 2c 30 30 38 36 36  44 30 35 2c 35 30 43 36  |05,00866D05,50C6|
00000a00  36 39 30 35 2c 35 30 30  30 30 30 30 35 2c 43 36  |6905,50000005,C6|
00000a10  36 36 36 36 36 44 0d 01  90 4c dc 46 30 30 30 32  |66666D...L.F0002|
00000a20  30 33 30 2c 30 38 36 39  31 39 30 33 2c 30 31 30  |030,08691903,010|
00000a30  35 30 35 33 30 2c 30 38  36 37 36 44 30 33 2c 30  |50530,08676D03,0|
00000a40  35 30 35 30 31 33 30 2c  30 43 31 43 36 44 30 33  |5050130,0C1C6D03|
00000a50  2c 30 30 33 30 46 30 46  30 2c 46 30 30 46 30 46  |,0030F0F0,F00F0F|
00000a60  30 45 0d 01 9a 4c dc 30  30 30 30 30 30 30 30 2c  |0E...L.00000000,|
00000a70  30 30 30 30 30 30 30 30  2c 30 30 30 30 30 30 30  |00000000,0000000|
00000a80  30 2c 30 30 30 30 30 30  30 30 2c 30 30 30 30 30  |0,00000000,00000|
00000a90  30 30 30 2c 30 30 30 30  30 30 30 30 2c 30 30 30  |000,00000000,000|
00000aa0  30 30 30 30 30 2c 30 30  30 30 30 30 30 30 0d 01  |00000,00000000..|
00000ab0  a4 4c dc 37 36 36 36 36  36 36 39 2c 37 36 36 36  |.L.76666669,7666|
00000ac0  36 36 39 35 2c 37 36 36  36 36 39 35 35 2c 37 36  |6695,76666955,76|
00000ad0  36 36 39 35 35 35 2c 37  36 36 39 35 35 35 35 2c  |669555,76695555,|
00000ae0  37 36 39 35 35 35 35 35  2c 37 39 35 35 35 35 35  |76955555,7955555|
00000af0  35 2c 37 37 37 37 37 37  37 37 0d 01 ae 4c dc 30  |5,77777777...L.0|
00000b00  30 36 36 36 36 30 30 2c  32 35 30 30 30 30 30 30  |0666600,25000000|
00000b10  2c 32 37 36 37 36 37 30  35 2c 32 35 30 35 30 35  |,27676705,250505|
00000b20  30 35 2c 32 37 36 37 36  37 30 35 2c 32 35 30 35  |05,27676705,2505|
00000b30  30 35 30 30 2c 32 37 36  37 36 37 36 30 2c 42 33  |0500,27676760,B3|
00000b40  33 33 33 33 33 30 0d 01  b8 26 dd a4 68 69 6e 69  |333330...&..hini|
00000b50  62 28 55 24 29 3a 42 25  3d a0 28 22 26 22 2b 55  |b(U$):B%=.("&"+U|
00000b60  24 29 3a 3d 28 42 25 81  34 29 80 33 0d 01 c2 22  |$):=(B%.4).3..."|
00000b70  dd a4 6c 6f 6e 69 62 28  55 24 29 3a 42 25 3d a0  |..lonib(U$):B%=.|
00000b80  28 22 26 22 2b 55 24 29  3a 3d 42 25 80 33 0d 01  |("&"+U$):=B%.3..|
00000b90  cc 29 dd f2 69 6e 69 74  3a e7 a6 2d 32 35 36 3d  |.)..init:..-256=|
00000ba0  31 74 69 6d 65 72 3d 26  32 39 46 20 8b 74 69 6d  |1timer=&29F .tim|
00000bb0  65 72 3d 26 32 41 30 0d  01 d6 88 ef 32 33 2c 32  |er=&2A0.....23,2|
00000bc0  32 34 2c 30 2c 30 2c 30  2c 30 2c 30 2c 33 2c 37  |24,0,0,0,0,0,3,7|
00000bd0  2c 36 2c 32 33 2c 32 32  35 2c 30 2c 30 2c 30 2c  |,6,23,225,0,0,0,|
00000be0  30 2c 30 2c 32 35 35 2c  32 35 35 2c 30 2c 32 33  |0,0,255,255,0,23|
00000bf0  2c 32 32 36 2c 30 2c 30  2c 30 2c 30 2c 30 2c 31  |,226,0,0,0,0,0,1|
00000c00  39 32 2c 32 32 34 2c 39  36 2c 32 33 2c 32 32 37  |92,224,96,23,227|
00000c10  2c 36 2c 36 2c 36 2c 36  2c 36 2c 36 2c 36 2c 36  |,6,6,6,6,6,6,6,6|
00000c20  2c 32 33 2c 32 32 38 2c  39 36 2c 39 36 2c 39 36  |,23,228,96,96,96|
00000c30  2c 39 36 2c 39 36 2c 39  36 2c 39 36 2c 39 36 0d  |,96,96,96,96,96.|
00000c40  01 e0 52 ef 32 33 2c 32  32 39 2c 36 2c 37 2c 33  |..R.23,229,6,7,3|
00000c50  2c 30 2c 30 2c 30 2c 30  2c 30 2c 32 33 2c 32 33  |,0,0,0,0,0,23,23|
00000c60  30 2c 30 2c 32 35 35 2c  32 35 35 2c 30 2c 30 2c  |0,0,255,255,0,0,|
00000c70  30 2c 30 2c 30 2c 32 33  2c 32 33 31 2c 39 36 2c  |0,0,0,23,231,96,|
00000c80  32 32 34 2c 31 39 32 2c  30 2c 30 2c 30 2c 30 2c  |224,192,0,0,0,0,|
00000c90  30 0d 01 ea 39 f7 8d 54  5e 45 3a e3 4e 25 3d 26  |0...9..T^E:.N%=&|
00000ca0  39 30 30 b8 26 41 39 46  88 34 3a f3 41 24 3a 21  |900.&A9F.4:.A$:!|
00000cb0  4e 25 3d a0 28 22 26 22  2b 41 24 29 3a ed 3a de  |N%=.("&"+A$):.:.|
00000cc0  74 6f 6b 64 61 74 20 32  35 36 0d 01 f4 6f f7 8d  |tokdat 256...o..|
00000cd0  64 6c 44 3a e3 4e 25 3d  30 b8 32 35 35 88 31 36  |dlD:.N%=0.255.16|
00000ce0  3a f3 41 24 3a e3 4d 25  3d 30 b8 31 35 88 32 3a  |:.A$:.M%=0.15.2:|
00000cf0  55 24 3d c1 41 24 2c 4d  25 81 32 2b 31 2c 31 29  |U$=.A$,M%.2+1,1)|
00000d00  3a 74 6f 6b 64 61 74 3f  28 4e 25 2b 4d 25 29 3d  |:tokdat?(N%+M%)=|
00000d10  a4 68 69 6e 69 62 28 55  24 29 3a 74 6f 6b 64 61  |.hinib(U$):tokda|
00000d20  74 3f 28 4e 25 2b 4d 25  2b 31 29 3d a4 6c 6f 6e  |t?(N%+M%+1)=.lon|
00000d30  69 62 28 55 24 29 3a ed  2c 0d 01 fe 74 73 63 72  |ib(U$):.,...tscr|
00000d40  3d 26 37 30 3a 64 61 74  3d 26 37 32 3a 63 61 6c  |=&70:dat=&72:cal|
00000d50  3d 26 37 34 3a 6d 61 7a  70 74 3d 63 61 6c 3a 63  |=&74:mazpt=cal:c|
00000d60  61 6c 73 3d 26 37 45 3a  de 51 25 32 30 30 30 2c  |als=&7E:.Q%2000,|
00000d70  6d 61 7a 65 20 31 30 33  30 2c 73 68 61 64 6f 77  |maze 1030,shadow|
00000d80  20 31 30 33 30 2c 6d 61  7a 64 61 74 20 36 34 2c  | 1030,mazdat 64,|
00000d90  74 61 69 6c 20 32 35 36  3a e3 50 3d 30 b8 32 88  |tail 256:.P=0.2.|
00000da0  32 3a 50 25 3d 51 25 3a  5b 4f 50 54 50 0d 02 08  |2:P%=Q%:[OPTP...|
00000db0  67 2e 67 75 6c 31 20 45  51 55 57 26 31 31 3a 45  |g.gul1 EQUW&11:E|
00000dc0  51 55 57 31 3a 45 51 55  57 37 30 3a 45 51 55 57  |QUW1:EQUW70:EQUW|
00000dd0  35 3a 2e 67 75 6c 32 20  45 51 55 57 26 31 31 3a  |5:.gul2 EQUW&11:|
00000de0  45 51 55 57 31 3a 45 51  55 57 33 30 3a 45 51 55  |EQUW1:EQUW30:EQU|
00000df0  57 38 3a 2e 6d 75 73 6f  20 45 51 55 57 26 31 31  |W8:.muso EQUW&11|
00000e00  3a 45 51 55 57 32 3a 45  51 55 57 31 30 30 3a 45  |:EQUW2:EQUW100:E|
00000e10  51 55 57 37 0d 02 12 44  2e 61 63 73 6f 20 45 51  |QUW7...D.acso EQ|
00000e20  55 57 32 3a 45 51 55 57  33 3a 45 51 55 57 35 30  |UW2:EQUW3:EQUW50|
00000e30  3a 45 51 55 57 31 30 3a  2e 6d 6f 73 6f 20 45 51  |:EQUW10:.moso EQ|
00000e40  55 57 32 3a 45 51 55 57  34 3a 45 51 55 57 31 30  |UW2:EQUW4:EQUW10|
00000e50  30 3a 45 51 55 57 31 30  0d 02 1c 60 2e 64 69 74  |0:EQUW10...`.dit|
00000e60  68 65 72 20 4c 44 41 23  30 3a 53 54 41 73 63 72  |her LDA#0:STAscr|
00000e70  3a 4c 44 41 23 26 35 38  3a 53 54 41 73 63 72 2b  |:LDA#&58:STAscr+|
00000e80  31 3a 4c 44 59 23 30 3a  2e 64 69 6c 70 20 4c 44  |1:LDY#0:.dilp LD|
00000e90  41 23 35 3a 53 54 41 28  73 63 72 29 2c 59 3a 49  |A#5:STA(scr),Y:I|
00000ea0  4e 59 3a 4c 44 41 23 31  30 3a 53 54 41 28 73 63  |NY:LDA#10:STA(sc|
00000eb0  72 29 2c 59 3a 44 45 59  0d 02 26 3f 4c 44 41 73  |r),Y:DEY..&?LDAs|
00000ec0  63 72 3a 43 4c 43 3a 41  44 43 23 32 3a 53 54 41  |cr:CLC:ADC#2:STA|
00000ed0  73 63 72 3a 4c 44 41 73  63 72 2b 31 3a 41 44 43  |scr:LDAscr+1:ADC|
00000ee0  23 30 3a 53 54 41 73 63  72 2b 31 3a 42 50 4c 64  |#0:STAscr+1:BPLd|
00000ef0  69 6c 70 3a 52 54 53 0d  02 30 48 2e 70 72 69 6e  |ilp:RTS..0H.prin|
00000f00  74 20 4c 44 58 23 32 3a  2e 70 72 6c 70 31 20 4c  |t LDX#2:.prlp1 L|
00000f10  44 59 23 31 35 3a 2e 70  72 6c 70 32 20 4c 44 41  |DY#15:.prlp2 LDA|
00000f20  28 64 61 74 29 2c 59 3a  53 54 41 28 73 63 72 29  |(dat),Y:STA(scr)|
00000f30  2c 59 3a 44 45 59 3a 42  50 4c 70 72 6c 70 32 0d  |,Y:DEY:BPLprlp2.|
00000f40  02 3a 5f 4c 44 41 73 63  72 3a 43 4c 43 3a 41 44  |.:_LDAscr:CLC:AD|
00000f50  43 23 26 34 30 3a 53 54  41 73 63 72 3a 4c 44 41  |C#&40:STAscr:LDA|
00000f60  73 63 72 2b 31 3a 41 44  43 23 31 3a 53 54 41 73  |scr+1:ADC#1:STAs|
00000f70  63 72 2b 31 3a 4c 44 41  64 61 74 3a 43 4c 43 3a  |cr+1:LDAdat:CLC:|
00000f80  41 44 43 23 31 36 3a 53  54 41 64 61 74 3a 44 45  |ADC#16:STAdat:DE|
00000f90  58 3a 42 4e 45 70 72 6c  70 31 3a 52 54 53 0d 02  |X:BNEprlp1:RTS..|
00000fa0  44 3c 2e 6c 69 76 70 20  4c 44 59 23 31 35 3a 2e  |D<.livp LDY#15:.|
00000fb0  6c 76 70 6c 20 4c 44 41  28 64 61 74 29 2c 59 3a  |lvpl LDA(dat),Y:|
00000fc0  53 54 41 28 73 63 72 29  2c 59 3a 44 45 59 3a 42  |STA(scr),Y:DEY:B|
00000fd0  50 4c 6c 76 70 6c 3a 52  54 53 0d 02 4e bb 2e 63  |PLlvpl:RTS..N..c|
00000fe0  61 6c 63 20 4c 44 41 23  30 3a 53 54 41 63 61 6c  |alc LDA#0:STAcal|
00000ff0  2b 31 3a 54 59 41 3a 4c  44 59 23 35 3a 2e 72 6f  |+1:TYA:LDY#5:.ro|
00001000  6c 70 20 41 53 4c 41 3a  52 4f 4c 63 61 6c 2b 31  |lp ASLA:ROLcal+1|
00001010  3a 44 45 59 3a 42 4e 45  72 6f 6c 70 3a 53 54 41  |:DEY:BNErolp:STA|
00001020  63 61 6c 3a 54 58 41 3a  43 4c 43 3a 41 44 43 63  |cal:TXA:CLC:ADCc|
00001030  61 6c 3a 53 54 41 63 61  6c 3a 4c 44 41 63 61 6c  |al:STAcal:LDAcal|
00001040  2b 31 3a 41 44 43 23 30  3a 53 54 41 63 61 6c 2b  |+1:ADC#0:STAcal+|
00001050  31 3a 4c 44 41 63 61 6c  3a 43 4c 43 3a 41 44 43  |1:LDAcal:CLC:ADC|
00001060  23 6d 61 7a 65 20 83 32  35 36 3a 53 54 41 63 61  |#maze .256:STAca|
00001070  6c 3a 4c 44 41 63 61 6c  2b 31 3a 41 44 43 23 6d  |l:LDAcal+1:ADC#m|
00001080  61 7a 65 20 81 32 35 36  3a 53 54 41 63 61 6c 2b  |aze .256:STAcal+|
00001090  31 3a 52 54 53 0d 02 58  5c 2e 77 69 6e 64 6f 77  |1:RTS..X\.window|
000010a0  20 4c 44 41 23 31 39 3a  4a 53 52 26 46 46 46 34  | LDA#19:JSR&FFF4|
000010b0  3a 4c 44 41 73 61 6d 78  3a 53 45 43 3a 53 42 43  |:LDAsamx:SEC:SBC|
000010c0  23 35 3a 53 54 41 6d 61  7a 65 78 3a 4c 44 41 23  |#5:STAmazex:LDA#|
000010d0  26 35 30 3a 53 54 41 77  69 6e 64 61 64 3a 4c 44  |&50:STAwindad:LD|
000010e0  41 23 26 35 45 3a 53 54  41 77 69 6e 64 61 64 2b  |A#&5E:STAwindad+|
000010f0  31 0d 02 62 6c 4c 44 41  23 31 31 3a 53 54 41 77  |1..blLDA#11:STAw|
00001100  6e 63 6e 78 3a 2e 77 69  6e 78 6c 70 20 4c 44 41  |ncnx:.winxlp LDA|
00001110  23 31 31 3a 53 54 41 77  6e 63 6e 79 3a 4c 44 41  |#11:STAwncny:LDA|
00001120  77 69 6e 64 61 64 3a 53  54 41 73 63 72 3a 4c 44  |windad:STAscr:LD|
00001130  41 77 69 6e 64 61 64 2b  31 3a 53 54 41 73 63 72  |Awindad+1:STAscr|
00001140  2b 31 3a 4c 44 41 73 61  6d 79 3a 53 45 43 3a 53  |+1:LDAsamy:SEC:S|
00001150  42 43 23 35 3a 53 54 41  6d 61 7a 65 79 0d 02 6c  |BC#5:STAmazey..l|
00001160  5d 2e 77 69 6e 79 6c 70  20 4c 44 41 23 39 3a 53  |].winylp LDA#9:S|
00001170  54 41 64 61 74 2b 31 3a  4c 44 41 6d 61 7a 65 78  |TAdat+1:LDAmazex|
00001180  3a 43 4d 50 23 33 32 3a  42 43 43 63 68 6b 79 6c  |:CMP#32:BCCchkyl|
00001190  6d 3a 2e 62 6c 6f 63 6b  20 4c 44 41 23 26 34 30  |m:.block LDA#&40|
000011a0  3a 53 54 41 64 61 74 3a  4a 53 52 70 72 69 6e 74  |:STAdat:JSRprint|
000011b0  3a 4a 4d 50 6e 78 74 62  6c 6b 0d 02 76 9a 2e 63  |:JMPnxtblk..v..c|
000011c0  68 6b 79 6c 6d 20 4c 44  41 6d 61 7a 65 79 3a 43  |hkylm LDAmazey:C|
000011d0  4d 50 23 33 32 3a 42 43  43 63 68 6b 73 61 6d 3a  |MP#32:BCCchksam:|
000011e0  4a 4d 50 62 6c 6f 63 6b  3a 2e 63 68 6b 73 61 6d  |JMPblock:.chksam|
000011f0  20 4c 44 41 77 6e 63 6e  78 3a 43 4d 50 23 36 3a  | LDAwncnx:CMP#6:|
00001200  42 4e 45 70 72 77 6f 6d  3a 4c 44 41 77 6e 63 6e  |BNEprwom:LDAwncn|
00001210  79 3a 43 4d 50 23 36 3a  42 4e 45 70 72 77 6f 6d  |y:CMP#6:BNEprwom|
00001220  3a 4c 44 41 73 61 6d 64  69 72 3a 53 54 41 64 61  |:LDAsamdir:STAda|
00001230  74 3a 4c 44 41 23 26 41  3a 53 54 41 64 61 74 2b  |t:LDA#&A:STAdat+|
00001240  31 3a 4a 53 52 70 72 69  6e 74 3a 4a 4d 50 6e 78  |1:JSRprint:JMPnx|
00001250  74 62 6c 6b 0d 02 80 45  2e 70 72 77 6f 6d 20 4c  |tblk...E.prwom L|
00001260  44 58 6d 61 7a 65 78 3a  4c 44 59 6d 61 7a 65 79  |DXmazex:LDYmazey|
00001270  3a 4a 53 52 63 61 6c 63  3a 4c 44 59 23 30 3a 4c  |:JSRcalc:LDY#0:L|
00001280  44 41 28 63 61 6c 29 2c  59 3a 53 54 41 64 61 74  |DA(cal),Y:STAdat|
00001290  3a 4a 53 52 70 72 69 6e  74 0d 02 8a a8 2e 6e 78  |:JSRprint.....nx|
000012a0  74 62 6c 6b 20 49 4e 43  6d 61 7a 65 79 3a 44 45  |tblk INCmazey:DE|
000012b0  43 77 6e 63 6e 79 3a 42  4e 45 77 69 6e 59 6c 70  |Cwncny:BNEwinYlp|
000012c0  3a 4c 44 41 77 69 6e 64  61 64 3a 43 4c 43 3a 41  |:LDAwindad:CLC:A|
000012d0  44 43 23 31 36 3a 53 54  41 77 69 6e 64 61 64 3a  |DC#16:STAwindad:|
000012e0  4c 44 41 77 69 6e 64 61  64 2b 31 3a 41 44 43 23  |LDAwindad+1:ADC#|
000012f0  30 3a 53 54 41 77 69 6e  64 61 64 2b 31 3a 49 4e  |0:STAwindad+1:IN|
00001300  43 6d 61 7a 65 78 3a 44  45 43 77 6e 63 6e 78 3a  |Cmazex:DECwncnx:|
00001310  42 4e 45 77 69 6e 58 6c  70 3a 52 54 53 3a 2e 77  |BNEwinXlp:RTS:.w|
00001320  69 6e 59 6c 70 20 4a 4d  50 77 69 6e 79 6c 70 3a  |inYlp JMPwinylp:|
00001330  2e 77 69 6e 58 6c 70 3a  4a 4d 50 77 69 6e 78 6c  |.winXlp:JMPwinxl|
00001340  70 0d 02 94 45 2e 6d 61  7a 65 78 20 45 51 55 42  |p...E.mazex EQUB|
00001350  30 3a 2e 6d 61 7a 65 79  20 45 51 55 42 30 3a 2e  |0:.mazey EQUB0:.|
00001360  77 6e 63 6e 78 20 45 51  55 42 30 3a 2e 77 6e 63  |wncnx EQUB0:.wnc|
00001370  6e 79 20 45 51 55 42 30  3a 2e 77 69 6e 64 61 64  |ny EQUB0:.windad|
00001380  20 45 51 55 57 30 0d 02  9e 35 2e 73 61 6d 78 20  | EQUW0...5.samx |
00001390  45 51 55 42 30 3a 2e 73  61 6d 79 20 45 51 55 42  |EQUB0:.samy EQUB|
000013a0  30 3a 2e 73 61 6d 64 69  72 20 45 51 55 42 30 3a  |0:.samdir EQUB0:|
000013b0  2e 64 65 61 64 20 45 51  55 42 30 0d 02 a8 3b 2e  |.dead EQUB0...;.|
000013c0  6d 76 73 61 6d 20 4c 44  58 73 61 6d 78 3a 4c 44  |mvsam LDXsamx:LD|
000013d0  59 73 61 6d 79 3a 4a 53  52 63 61 6c 63 3a 4c 44  |Ysamy:JSRcalc:LD|
000013e0  59 23 30 3a 4c 44 41 23  26 43 30 3a 53 54 41 28  |Y#0:LDA#&C0:STA(|
000013f0  63 61 6c 29 2c 59 0d 02  b2 49 4c 44 41 23 26 38  |cal),Y...ILDA#&8|
00001400  31 3a 4c 44 58 23 26 39  45 3a 4c 44 59 23 26 46  |1:LDX#&9E:LDY#&F|
00001410  46 3a 4a 53 52 26 46 46  46 34 3a 54 59 41 3a 42  |F:JSR&FFF4:TYA:B|
00001420  45 51 6e 74 6c 66 74 3a  4c 44 41 23 30 3a 53 54  |EQntlft:LDA#0:ST|
00001430  41 73 61 6d 64 69 72 3a  4a 4d 50 6d 6f 76 65 0d  |Asamdir:JMPmove.|
00001440  02 bc 51 2e 6e 74 6c 66  74 20 4c 44 41 23 26 38  |..Q.ntlft LDA#&8|
00001450  31 3a 4c 44 58 23 26 42  44 3a 4c 44 59 23 26 46  |1:LDX#&BD:LDY#&F|
00001460  46 3a 4a 53 52 26 46 46  46 34 3a 54 59 41 3a 42  |F:JSR&FFF4:TYA:B|
00001470  45 51 6e 74 72 74 3a 4c  44 41 23 26 32 30 3a 53  |EQntrt:LDA#&20:S|
00001480  54 41 73 61 6d 64 69 72  3a 4a 4d 50 6d 6f 76 65  |TAsamdir:JMPmove|
00001490  0d 02 c6 50 2e 6e 74 72  74 20 4c 44 41 23 26 38  |...P.ntrt LDA#&8|
000014a0  31 3a 4c 44 58 23 26 42  37 3a 4c 44 59 23 26 46  |1:LDX#&B7:LDY#&F|
000014b0  46 3a 4a 53 52 26 46 46  46 34 3a 54 59 41 3a 42  |F:JSR&FFF4:TYA:B|
000014c0  45 51 6e 74 75 70 3a 4c  44 41 23 26 34 30 3a 53  |EQntup:LDA#&40:S|
000014d0  54 41 73 61 6d 64 69 72  3a 4a 4d 50 6d 6f 76 65  |TAsamdir:JMPmove|
000014e0  0d 02 d0 48 2e 6e 74 75  70 20 4c 44 41 23 26 38  |...H.ntup LDA#&8|
000014f0  31 3a 4c 44 58 23 26 39  37 3a 4c 44 59 23 26 46  |1:LDX#&97:LDY#&F|
00001500  46 3a 4a 53 52 26 46 46  46 34 3a 54 59 41 3a 42  |F:JSR&FFF4:TYA:B|
00001510  45 51 6d 6f 76 65 3a 4c  44 41 23 26 36 30 3a 53  |EQmove:LDA#&60:S|
00001520  54 41 73 61 6d 64 69 72  0d 02 da 7c 2e 6d 6f 76  |TAsamdir...|.mov|
00001530  65 20 4c 44 41 73 61 6d  64 69 72 3a 42 4e 45 6e  |e LDAsamdir:BNEn|
00001540  74 6c 3a 44 45 43 73 61  6d 78 3a 4a 4d 50 63 68  |tl:DECsamx:JMPch|
00001550  6b 3a 2e 6e 74 6c 20 43  4d 50 23 26 32 30 3a 42  |k:.ntl CMP#&20:B|
00001560  4e 45 6e 74 72 3a 49 4e  43 73 61 6d 78 3a 4a 4d  |NEntr:INCsamx:JM|
00001570  50 63 68 6b 3a 2e 6e 74  72 20 43 4d 50 23 26 34  |Pchk:.ntr CMP#&4|
00001580  30 3a 42 4e 45 6e 74 75  3a 44 45 43 73 61 6d 79  |0:BNEntu:DECsamy|
00001590  3a 4a 4d 50 63 68 6b 3a  2e 6e 74 75 20 49 4e 43  |:JMPchk:.ntu INC|
000015a0  73 61 6d 79 0d 02 e4 34  2e 63 68 6b 20 4c 44 41  |samy...4.chk LDA|
000015b0  73 61 6d 78 3a 43 4d 50  23 33 32 3a 42 43 53 68  |samx:CMP#32:BCSh|
000015c0  69 74 3a 4c 44 41 73 61  6d 79 3a 43 4d 50 23 33  |it:LDAsamy:CMP#3|
000015d0  32 3a 42 43 53 68 69 74  0d 02 ee 59 4c 44 58 73  |2:BCShit...YLDXs|
000015e0  61 6d 78 3a 4c 44 59 73  61 6d 79 3a 4a 53 52 63  |amx:LDYsamy:JSRc|
000015f0  61 6c 63 3a 4c 44 58 68  64 70 74 3a 4c 44 41 63  |alc:LDXhdpt:LDAc|
00001600  61 6c 3a 53 54 41 74 61  69 6c 2c 58 3a 4c 44 41  |al:STAtail,X:LDA|
00001610  63 61 6c 2b 31 3a 53 54  41 74 61 69 6c 2b 31 2c  |cal+1:STAtail+1,|
00001620  58 3a 49 4e 58 3a 49 4e  58 3a 53 54 58 68 64 70  |X:INX:INX:STXhdp|
00001630  74 0d 02 f8 52 4c 44 59  23 30 3a 4c 44 41 28 63  |t...RLDY#0:LDA(c|
00001640  61 6c 29 2c 59 3a 43 4d  50 23 26 43 30 3a 42 45  |al),Y:CMP#&C0:BE|
00001650  51 68 69 74 3a 43 4d 50  23 26 34 30 3a 42 45 51  |Qhit:CMP#&40:BEQ|
00001660  68 69 74 3a 43 4d 50 23  26 41 30 3a 42 45 51 68  |hit:CMP#&A0:BEQh|
00001670  69 74 3a 43 4d 50 23 26  45 30 3a 42 45 51 67 74  |it:CMP#&E0:BEQgt|
00001680  61 63 6e 0d 03 02 97 43  4d 50 23 26 38 30 3a 42  |acn....CMP#&80:B|
00001690  45 51 6d 75 73 68 3a 43  4d 50 23 26 36 30 3a 42  |EQmush:CMP#&60:B|
000016a0  4e 45 64 65 6c 74 61 69  6c 3a 4a 53 52 69 6e 73  |NEdeltail:JSRins|
000016b0  63 3a 4a 53 52 70 73 63  3a 4a 53 52 69 6e 63 63  |c:JSRpsc:JSRincc|
000016c0  61 6c 73 3a 4c 44 41 74  6c 65 6e 3a 43 4d 50 23  |als:LDAtlen:CMP#|
000016d0  32 35 34 3a 42 43 53 64  65 6c 74 61 69 6c 3a 49  |254:BCSdeltail:I|
000016e0  4e 43 74 6c 65 6e 3a 4c  44 58 23 67 75 6c 31 20  |NCtlen:LDX#gul1 |
000016f0  83 32 35 36 3a 4c 44 59  23 67 75 6c 31 20 81 32  |.256:LDY#gul1 .2|
00001700  35 36 3a 4c 44 41 23 37  3a 4a 53 52 26 46 46 46  |56:LDA#7:JSR&FFF|
00001710  31 3a 4a 4d 50 69 76 69  73 74 0d 03 0c 79 2e 6d  |1:JMPivist...y.m|
00001720  75 73 68 20 4c 44 58 23  6d 75 73 6f 20 83 32 35  |ush LDX#muso .25|
00001730  36 3a 4c 44 59 23 6d 75  73 6f 20 81 32 35 36 3a  |6:LDY#muso .256:|
00001740  4c 44 41 23 37 3a 4a 53  52 26 46 46 46 31 3a 4a  |LDA#7:JSR&FFF1:J|
00001750  53 52 64 65 63 63 61 6c  73 3a 4c 44 41 74 6c 65  |SRdeccals:LDAtle|
00001760  6e 3a 42 45 51 64 65 6c  74 61 69 6c 3a 44 45 43  |n:BEQdeltail:DEC|
00001770  74 6c 65 6e 3a 4a 53 52  64 65 6c 74 61 69 6c 3a  |tlen:JSRdeltail:|
00001780  4a 53 52 64 65 6c 74 61  69 6c 3a 4a 4d 50 64 76  |JSRdeltail:JMPdv|
00001790  69 73 74 0d 03 16 1c 2e  68 69 74 20 4c 44 41 23  |ist.....hit LDA#|
000017a0  26 46 46 3a 53 54 41 64  65 61 64 3a 52 54 53 0d  |&FF:STAdead:RTS.|
000017b0  03 20 7f 2e 68 64 70 74  20 45 51 55 42 30 3a 2e  |. ..hdpt EQUB0:.|
000017c0  74 61 69 6c 70 74 20 45  51 55 42 30 3a 2e 64 65  |tailpt EQUB0:.de|
000017d0  6c 74 61 69 6c 20 4c 44  58 74 61 69 6c 70 74 3a  |ltail LDXtailpt:|
000017e0  4c 44 41 74 61 69 6c 2c  58 3a 53 54 41 26 39 30  |LDAtail,X:STA&90|
000017f0  3a 4c 44 41 74 61 69 6c  2b 31 2c 58 3a 53 54 41  |:LDAtail+1,X:STA|
00001800  26 39 31 3a 4c 44 41 23  30 3a 54 41 59 3a 53 54  |&91:LDA#0:TAY:ST|
00001810  41 28 26 39 30 29 2c 59  3a 49 4e 58 3a 49 4e 58  |A(&90),Y:INX:INX|
00001820  3a 53 54 58 74 61 69 6c  70 74 3a 52 54 53 0d 03  |:STXtailpt:RTS..|
00001830  2a 90 2e 67 74 61 63 6e  20 4a 53 52 69 6e 73 63  |*..gtacn JSRinsc|
00001840  3a 4a 53 52 69 6e 73 63  3a 44 45 43 61 63 6f 72  |:JSRinsc:DECacor|
00001850  6e 73 3a 4c 44 41 23 33  31 3a 4a 53 52 26 46 46  |ns:LDA#31:JSR&FF|
00001860  45 45 3a 4c 44 41 23 31  35 3a 4a 53 52 26 46 46  |EE:LDA#15:JSR&FF|
00001870  45 45 3a 4c 44 41 23 36  3a 4a 53 52 26 46 46 45  |EE:LDA#6:JSR&FFE|
00001880  45 3a 4c 44 41 23 31 37  3a 4a 53 52 26 46 46 45  |E:LDA#17:JSR&FFE|
00001890  45 3a 4c 44 41 23 33 3a  4a 53 52 26 46 46 45 45  |E:LDA#3:JSR&FFEE|
000018a0  3a 4c 44 41 61 63 6f 72  6e 73 3a 43 4c 43 3a 41  |:LDAacorns:CLC:A|
000018b0  44 43 23 34 38 3a 4a 53  52 26 46 46 45 45 0d 03  |DC#48:JSR&FFEE..|
000018c0  34 6a 4c 44 41 23 30 3a  53 54 41 61 63 66 6c 61  |4jLDA#0:STAacfla|
000018d0  67 3a 4c 44 41 61 63 63  6f 6e 3a 53 54 41 61 63  |g:LDAaccon:STAac|
000018e0  74 69 6d 3a 4c 44 41 23  26 34 30 3a 53 54 41 73  |tim:LDA#&40:STAs|
000018f0  63 72 3a 4c 44 41 23 26  36 34 3a 53 54 41 73 63  |cr:LDA#&64:STAsc|
00001900  72 2b 31 3a 4c 44 41 23  30 3a 53 54 41 64 61 74  |r+1:LDA#0:STAdat|
00001910  3a 4c 44 41 23 39 3a 53  54 41 64 61 74 2b 31 3a  |:LDA#9:STAdat+1:|
00001920  4a 53 52 70 72 69 6e 74  0d 03 3e 5a 4c 44 58 23  |JSRprint..>ZLDX#|
00001930  67 75 6c 32 20 83 32 35  36 3a 4c 44 59 23 67 75  |gul2 .256:LDY#gu|
00001940  6c 32 20 81 32 35 36 3a  4c 44 41 23 37 3a 4a 53  |l2 .256:LDA#7:JS|
00001950  52 26 46 46 46 31 3a 4c  44 41 61 63 6f 72 6e 73  |R&FFF1:LDAacorns|
00001960  3a 42 4e 45 6e 74 63 79  3a 4c 44 41 23 26 45 30  |:BNEntcy:LDA#&E0|
00001970  3a 53 54 41 64 65 61 64  3a 2e 6e 74 63 79 20 52  |:STAdead:.ntcy R|
00001980  54 53 0d 03 48 35 2e 74  6c 65 6e 20 45 51 55 42  |TS..H5.tlen EQUB|
00001990  30 3a 2e 73 63 6f 72 65  20 45 51 55 57 30 3a 2e  |0:.score EQUW0:.|
000019a0  76 69 73 74 20 45 51 55  57 30 3a 2e 73 63 63 6f  |vist EQUW0:.scco|
000019b0  6c 20 45 51 55 42 31 0d  03 52 4d 2e 69 6e 73 63  |l EQUB1..RM.insc|
000019c0  20 53 45 44 3a 4c 44 41  73 63 6f 72 65 3a 43 4c  | SED:LDAscore:CL|
000019d0  43 3a 41 44 43 23 32 3a  53 54 41 73 63 6f 72 65  |C:ADC#2:STAscore|
000019e0  3a 4c 44 41 73 63 6f 72  65 2b 31 3a 41 44 43 23  |:LDAscore+1:ADC#|
000019f0  30 3a 53 54 41 73 63 6f  72 65 2b 31 3a 43 4c 44  |0:STAscore+1:CLD|
00001a00  3a 52 54 53 0d 03 5c 87  2e 70 73 63 20 4c 44 41  |:RTS..\..psc LDA|
00001a10  23 31 37 3a 4a 53 52 26  46 46 45 45 3a 4c 44 41  |#17:JSR&FFEE:LDA|
00001a20  73 63 63 6f 6c 3a 4a 53  52 26 46 46 45 45 3a 4c  |sccol:JSR&FFEE:L|
00001a30  44 41 23 33 31 3a 4a 53  52 26 46 46 45 45 3a 4c  |DA#31:JSR&FFEE:L|
00001a40  44 41 23 31 3a 4a 53 52  26 46 46 45 45 3a 4c 44  |DA#1:JSR&FFEE:LD|
00001a50  41 23 32 3a 4a 53 52 26  46 46 45 45 3a 49 4e 43  |A#2:JSR&FFEE:INC|
00001a60  73 63 63 6f 6c 3a 4c 44  41 73 63 63 6f 6c 3a 43  |sccol:LDAsccol:C|
00001a70  4d 50 23 34 3a 42 4e 45  64 69 67 73 3a 4c 44 41  |MP#4:BNEdigs:LDA|
00001a80  23 31 3a 53 54 41 73 63  63 6f 6c 0d 03 66 3d 2e  |#1:STAsccol..f=.|
00001a90  64 69 67 73 20 4c 44 41  73 63 6f 72 65 2b 31 3a  |digs LDAscore+1:|
00001aa0  4a 53 52 70 62 79 74 3a  4c 44 41 73 63 6f 72 65  |JSRpbyt:LDAscore|
00001ab0  3a 4a 53 52 70 62 79 74  3a 4c 44 41 23 34 38 3a  |:JSRpbyt:LDA#48:|
00001ac0  4a 4d 50 26 46 46 45 45  0d 03 70 4c 2e 70 62 79  |JMP&FFEE..pL.pby|
00001ad0  74 20 54 41 58 3a 4c 53  52 41 3a 4c 53 52 41 3a  |t TAX:LSRA:LSRA:|
00001ae0  4c 53 52 41 3a 4c 53 52  41 3a 4a 53 52 70 6e 69  |LSRA:LSRA:JSRpni|
00001af0  62 3a 54 58 41 3a 80 23  26 46 3a 2e 70 6e 69 62  |b:TXA:.#&F:.pnib|
00001b00  20 43 4c 43 3a 41 44 43  23 34 38 3a 4a 4d 50 26  | CLC:ADC#48:JMP&|
00001b10  46 46 45 45 0d 03 7a 4f  2e 69 76 69 73 74 20 53  |FFEE..zO.ivist S|
00001b20  45 44 3a 4c 44 41 76 69  73 74 3a 43 4c 43 3a 41  |ED:LDAvist:CLC:A|
00001b30  44 43 23 31 3a 53 54 41  76 69 73 74 3a 4c 44 41  |DC#1:STAvist:LDA|
00001b40  76 69 73 74 2b 31 3a 41  44 43 23 30 3a 53 54 41  |vist+1:ADC#0:STA|
00001b50  76 69 73 74 2b 31 3a 43  4c 44 3a 4a 4d 50 70 76  |vist+1:CLD:JMPpv|
00001b60  69 73 74 0d 03 84 46 2e  64 76 69 73 74 20 53 45  |ist...F.dvist SE|
00001b70  44 3a 4c 44 41 76 69 73  74 3a 53 45 43 3a 53 42  |D:LDAvist:SEC:SB|
00001b80  43 23 31 3a 53 54 41 76  69 73 74 3a 4c 44 41 76  |C#1:STAvist:LDAv|
00001b90  69 73 74 2b 31 3a 53 42  43 23 30 3a 53 54 41 76  |ist+1:SBC#0:STAv|
00001ba0  69 73 74 2b 31 3a 43 4c  44 0d 03 8e 7b 2e 70 76  |ist+1:CLD...{.pv|
00001bb0  69 73 74 20 4c 44 41 23  33 31 3a 4a 53 52 26 46  |ist LDA#31:JSR&F|
00001bc0  46 45 45 3a 4c 44 41 23  31 34 3a 4a 53 52 26 46  |FEE:LDA#14:JSR&F|
00001bd0  46 45 45 3a 4c 44 41 23  31 39 3a 4a 53 52 26 46  |FEE:LDA#19:JSR&F|
00001be0  46 45 45 3a 4c 44 41 23  31 37 3a 4a 53 52 26 46  |FEE:LDA#17:JSR&F|
00001bf0  46 45 45 3a 4c 44 41 23  33 3a 4a 53 52 26 46 46  |FEE:LDA#3:JSR&FF|
00001c00  45 45 3a 4c 44 41 76 69  73 74 2b 31 3a 4a 53 52  |EE:LDAvist+1:JSR|
00001c10  70 62 79 74 3a 4c 44 41  76 69 73 74 3a 4a 4d 50  |pbyt:LDAvist:JMP|
00001c20  70 62 79 74 0d 03 98 6a  2e 64 65 63 63 61 6c 73  |pbyt...j.deccals|
00001c30  20 4c 44 59 23 37 3a 4c  44 41 23 30 3a 2e 64 63  | LDY#7:LDA#0:.dc|
00001c40  6c 70 20 53 54 41 28 63  61 6c 73 29 2c 59 3a 44  |lp STA(cals),Y:D|
00001c50  45 59 3a 42 50 4c 64 63  6c 70 3a 4c 44 41 63 61  |EY:BPLdclp:LDAca|
00001c60  6c 73 3a 53 45 43 3a 53  42 43 23 38 3a 53 54 41  |ls:SEC:SBC#8:STA|
00001c70  63 61 6c 73 3a 4c 44 41  63 61 6c 73 2b 31 3a 53  |cals:LDAcals+1:S|
00001c80  42 43 23 30 3a 53 54 41  63 61 6c 73 2b 31 0d 03  |BC#0:STAcals+1..|
00001c90  a2 48 4c 44 41 63 61 6c  73 3a 43 4d 50 23 26 34  |.HLDAcals:CMP#&4|
00001ca0  38 3a 42 4e 45 63 6f 6b  3a 4c 44 41 63 61 6c 73  |8:BNEcok:LDAcals|
00001cb0  2b 31 3a 43 4d 50 23 26  37 43 3a 42 4e 45 63 6f  |+1:CMP#&7C:BNEco|
00001cc0  6b 3a 53 54 41 64 65 61  64 3a 52 54 53 3a 2e 63  |k:STAdead:RTS:.c|
00001cd0  6f 6b 20 52 54 53 0d 03  ac 3d 2e 69 6e 63 63 61  |ok RTS...=.incca|
00001ce0  6c 73 20 4c 44 41 63 61  6c 73 3a 43 4d 50 23 26  |ls LDAcals:CMP#&|
00001cf0  36 38 3a 42 4e 45 69 63  6f 6b 3a 4c 44 41 63 61  |68:BNEicok:LDAca|
00001d00  6c 73 2b 31 3a 43 4d 50  23 26 37 44 3a 42 45 51  |ls+1:CMP#&7D:BEQ|
00001d10  63 6f 6b 0d 03 b6 6f 2e  69 63 6f 6b 20 4c 44 41  |cok...o.icok LDA|
00001d20  63 61 6c 73 3a 43 4c 43  3a 41 44 43 23 38 3a 53  |cals:CLC:ADC#8:S|
00001d30  54 41 63 61 6c 73 3a 4c  44 41 63 61 6c 73 2b 31  |TAcals:LDAcals+1|
00001d40  3a 41 44 43 23 30 3a 53  54 41 63 61 6c 73 2b 31  |:ADC#0:STAcals+1|
00001d50  3a 4c 44 59 23 37 3a 2e  69 63 6c 70 20 4c 44 41  |:LDY#7:.iclp LDA|
00001d60  26 41 38 30 2c 59 3a 53  54 41 28 63 61 6c 73 29  |&A80,Y:STA(cals)|
00001d70  2c 59 3a 44 45 59 3a 42  50 4c 69 63 6c 70 3a 52  |,Y:DEY:BPLiclp:R|
00001d80  54 53 0d 03 c0 4e 2e 63  61 6c 74 6d 20 45 51 55  |TS...N.caltm EQU|
00001d90  42 31 35 3a 2e 63 61 6c  6f 72 20 44 45 43 63 61  |B15:.calor DECca|
00001da0  6c 74 6d 3a 42 45 51 74  74 64 63 3a 52 54 53 3a  |ltm:BEQttdc:RTS:|
00001db0  2e 74 74 64 63 20 4c 44  41 23 31 35 3a 53 54 41  |.ttdc LDA#15:STA|
00001dc0  63 61 6c 74 6d 3a 4a 4d  50 64 65 63 63 61 6c 73  |caltm:JMPdeccals|
00001dd0  0d 03 ca 4f 2e 61 63 6f  72 6e 73 20 45 51 55 42  |...O.acorns EQUB|
00001de0  30 3a 2e 61 63 74 69 6d  20 45 51 55 42 30 3a 2e  |0:.actim EQUB0:.|
00001df0  61 63 63 6f 6e 20 45 51  55 42 30 3a 2e 61 63 66  |accon EQUB0:.acf|
00001e00  6c 61 67 20 45 51 55 42  30 3a 2e 61 63 78 20 45  |lag EQUB0:.acx E|
00001e10  51 55 42 30 3a 2e 61 63  79 20 45 51 55 42 30 0d  |QUB0:.acy EQUB0.|
00001e20  03 d4 93 2e 63 74 61 63  6f 72 6e 20 44 45 43 61  |....ctacorn DECa|
00001e30  63 74 69 6d 3a 42 45 51  63 74 61 63 3a 52 54 53  |ctim:BEQctac:RTS|
00001e40  3a 2e 63 74 61 63 20 4c  44 41 61 63 63 6f 6e 3a  |:.ctac LDAaccon:|
00001e50  53 54 41 61 63 74 69 6d  3a 42 49 54 61 63 66 6c  |STAactim:BITacfl|
00001e60  61 67 3a 42 4d 49 64 65  63 61 79 3a 4c 44 41 23  |ag:BMIdecay:LDA#|
00001e70  26 34 30 3a 53 54 41 73  63 72 3a 4c 44 41 23 26  |&40:STAscr:LDA#&|
00001e80  36 34 3a 53 54 41 73 63  72 2b 31 3a 4c 44 41 23  |64:STAscr+1:LDA#|
00001e90  26 45 30 3a 53 54 41 64  61 74 3a 4c 44 41 23 39  |&E0:STAdat:LDA#9|
00001ea0  3a 53 54 41 64 61 74 2b  31 3a 4a 53 52 70 72 69  |:STAdat+1:JSRpri|
00001eb0  6e 74 0d 03 de 2e 4c 44  58 23 61 63 73 6f 20 83  |nt....LDX#acso .|
00001ec0  32 35 36 3a 4c 44 59 23  61 63 73 6f 20 81 32 35  |256:LDY#acso .25|
00001ed0  36 3a 4c 44 41 23 37 3a  4a 53 52 26 46 46 46 31  |6:LDA#7:JSR&FFF1|
00001ee0  0d 03 e8 6b 2e 70 6f 73  6e 61 63 20 4a 53 52 72  |...k.posnac JSRr|
00001ef0  61 6e 64 6f 6d 3a 54 41  58 3a 4a 53 52 72 61 6e  |andom:TAX:JSRran|
00001f00  64 6f 6d 3a 54 41 59 3a  53 54 58 61 63 78 3a 53  |dom:TAY:STXacx:S|
00001f10  54 59 61 63 79 3a 4a 53  52 63 61 6c 63 3a 4c 44  |TYacy:JSRcalc:LD|
00001f20  59 23 30 3a 4c 44 41 28  63 61 6c 29 2c 59 3a 42  |Y#0:LDA(cal),Y:B|
00001f30  4e 45 70 6f 73 6e 61 63  3a 4c 44 41 23 26 45 30  |NEposnac:LDA#&E0|
00001f40  3a 53 54 41 28 63 61 6c  29 2c 59 0d 03 f2 19 4c  |:STA(cal),Y....L|
00001f50  44 41 23 26 46 46 3a 53  54 41 61 63 66 6c 61 67  |DA#&FF:STAacflag|
00001f60  3a 52 54 53 0d 03 fc 7a  2e 64 65 63 61 79 20 4c  |:RTS...z.decay L|
00001f70  44 41 23 26 34 30 3a 53  54 41 73 63 72 3a 4c 44  |DA#&40:STAscr:LD|
00001f80  41 23 26 36 34 3a 53 54  41 73 63 72 2b 31 3a 4c  |A#&64:STAscr+1:L|
00001f90  44 41 23 30 3a 53 54 41  64 61 74 3a 4c 44 41 23  |DA#0:STAdat:LDA#|
00001fa0  39 3a 53 54 41 64 61 74  2b 31 3a 4a 53 52 70 72  |9:STAdat+1:JSRpr|
00001fb0  69 6e 74 3a 4c 44 58 23  6d 6f 73 6f 20 83 32 35  |int:LDX#moso .25|
00001fc0  36 3a 4c 44 59 23 6d 6f  73 6f 20 81 32 35 36 3a  |6:LDY#moso .256:|
00001fd0  4c 44 41 23 37 3a 4a 53  52 26 46 46 46 31 0d 04  |LDA#7:JSR&FFF1..|
00001fe0  06 4a 4c 44 41 23 26 34  30 3a 53 54 41 73 63 72  |.JLDA#&40:STAscr|
00001ff0  3a 4c 44 41 23 26 36 39  3a 53 54 41 73 63 72 2b  |:LDA#&69:STAscr+|
00002000  31 3a 4c 44 41 23 26 41  30 3a 53 54 41 64 61 74  |1:LDA#&A0:STAdat|
00002010  3a 4c 44 41 23 39 3a 53  54 41 64 61 74 2b 31 3a  |:LDA#9:STAdat+1:|
00002020  4a 53 52 70 72 69 6e 74  0d 04 10 46 4c 44 58 61  |JSRprint...FLDXa|
00002030  63 78 3a 4c 44 59 61 63  79 3a 4a 53 52 63 61 6c  |cx:LDYacy:JSRcal|
00002040  63 3a 4c 44 59 23 30 3a  4c 44 41 23 26 41 30 3a  |c:LDY#0:LDA#&A0:|
00002050  53 54 41 28 63 61 6c 29  2c 59 3a 4c 44 41 23 30  |STA(cal),Y:LDA#0|
00002060  3a 53 54 41 61 63 66 6c  61 67 3a 52 54 53 0d 04  |:STAacflag:RTS..|
00002070  1a 58 2e 73 65 65 64 20  45 51 55 42 20 b3 28 32  |.X.seed EQUB .(2|
00002080  35 36 29 3a 2e 72 61 6e  64 6f 6d 20 4c 44 41 73  |56):.random LDAs|
00002090  65 65 64 3a 52 4f 4c 41  3a 52 4f 4c 41 3a 52 4f  |eed:ROLA:ROLA:RO|
000020a0  4c 41 3a 53 45 43 3a 41  44 43 73 65 65 64 3a 82  |LA:SEC:ADCseed:.|
000020b0  74 69 6d 65 72 3a 53 54  41 73 65 65 64 3a 80 23  |timer:STAseed:.#|
000020c0  33 31 3a 52 54 53 0d 04  24 35 2e 6d 6f 63 6f 6e  |31:RTS..$5.mocon|
000020d0  20 45 51 55 42 31 35 3a  2e 6d 6f 74 69 6d 20 45  | EQUB15:.motim E|
000020e0  51 55 42 31 35 3a 2e 6d  74 78 20 45 51 55 42 30  |QUB15:.mtx EQUB0|
000020f0  3a 2e 6d 74 79 20 45 51  55 42 30 0d 04 2e 93 2e  |:.mty EQUB0.....|
00002100  6d 6f 75 6c 64 20 44 45  43 6d 6f 74 69 6d 3a 42  |mould DECmotim:B|
00002110  45 51 73 70 72 65 61 64  3a 52 54 53 3a 2e 73 70  |EQspread:RTS:.sp|
00002120  72 65 61 64 20 4c 44 41  6d 6f 63 6f 6e 3a 53 54  |read LDAmocon:ST|
00002130  41 6d 6f 74 69 6d 3a 4c  44 41 23 6d 61 7a 65 20  |Amotim:LDA#maze |
00002140  83 32 35 36 3a 53 54 41  26 38 43 3a 4c 44 41 23  |.256:STA&8C:LDA#|
00002150  6d 61 7a 65 20 81 32 35  36 3a 53 54 41 26 38 44  |maze .256:STA&8D|
00002160  3a 4c 44 41 23 73 68 61  64 6f 77 20 83 32 35 36  |:LDA#shadow .256|
00002170  3a 53 54 41 26 38 45 3a  4c 44 41 23 73 68 61 64  |:STA&8E:LDA#shad|
00002180  6f 77 20 81 32 35 36 3a  53 54 41 26 38 46 0d 04  |ow .256:STA&8F..|
00002190  38 5b 4c 44 58 23 34 3a  2e 63 6f 70 6c 31 20 4c  |8[LDX#4:.copl1 L|
000021a0  44 59 23 30 3a 2e 63 6f  70 6c 32 20 4c 44 41 28  |DY#0:.copl2 LDA(|
000021b0  26 38 43 29 2c 59 3a 53  54 41 28 26 38 45 29 2c  |&8C),Y:STA(&8E),|
000021c0  59 3a 49 4e 59 3a 42 4e  45 63 6f 70 6c 32 3a 49  |Y:INY:BNEcopl2:I|
000021d0  4e 43 26 38 44 3a 49 4e  43 26 38 46 3a 44 45 58  |NC&8D:INC&8F:DEX|
000021e0  3a 42 4e 45 63 6f 70 6c  31 0d 04 42 6b 4c 44 41  |:BNEcopl1..BkLDA|
000021f0  23 28 6d 61 7a 65 2d 33  32 29 83 32 35 36 3a 53  |#(maze-32).256:S|
00002200  54 41 26 38 43 3a 4c 44  41 23 28 6d 61 7a 65 2d  |TA&8C:LDA#(maze-|
00002210  33 32 29 81 32 35 36 3a  53 54 41 26 38 44 3a 4c  |32).256:STA&8D:L|
00002220  44 41 23 28 73 68 61 64  6f 77 2d 33 32 29 83 32  |DA#(shadow-32).2|
00002230  35 36 3a 53 54 41 26 38  45 3a 4c 44 41 23 28 73  |56:STA&8E:LDA#(s|
00002240  68 61 64 6f 77 2d 33 32  29 81 32 35 36 3a 53 54  |hadow-32).256:ST|
00002250  41 26 38 46 0d 04 4c 4e  4c 44 59 23 30 3a 53 54  |A&8F..LNLDY#0:ST|
00002260  59 6d 74 79 3a 2e 73 70  6d 6c 31 20 4c 44 58 23  |Ymty:.spml1 LDX#|
00002270  30 3a 53 54 58 6d 74 78  3a 2e 73 70 6d 6c 32 20  |0:STXmtx:.spml2 |
00002280  4c 44 59 23 33 32 3a 4c  44 41 23 28 26 38 45 29  |LDY#32:LDA#(&8E)|
00002290  2c 59 3a 43 4d 50 23 26  41 30 3a 42 4e 45 6e 74  |,Y:CMP#&A0:BNEnt|
000022a0  6d 6f 0d 04 56 3a 4c 44  59 23 30 3a 4a 53 52 72  |mo..V:LDY#0:JSRr|
000022b0  65 67 3a 4c 44 59 23 33  31 3a 4a 53 52 72 65 67  |eg:LDY#31:JSRreg|
000022c0  3a 4c 44 59 23 33 33 3a  4a 53 52 72 65 67 3a 4c  |:LDY#33:JSRreg:L|
000022d0  44 59 23 36 34 3a 4a 53  52 72 65 67 0d 04 60 81  |DY#64:JSRreg..`.|
000022e0  2e 6e 74 6d 6f 20 49 4e  43 26 38 43 3a 42 4e 45  |.ntmo INC&8C:BNE|
000022f0  64 69 38 44 3a 49 4e 43  26 38 44 3a 2e 64 69 38  |di8D:INC&8D:.di8|
00002300  44 20 49 4e 43 26 38 45  3a 42 4e 45 64 69 38 46  |D INC&8E:BNEdi8F|
00002310  3a 49 4e 43 26 38 46 3a  2e 64 69 38 46 20 49 4e  |:INC&8F:.di8F IN|
00002320  43 6d 74 78 3a 4c 44 41  6d 74 78 3a 43 4d 50 23  |Cmtx:LDAmtx:CMP#|
00002330  33 32 3a 42 4e 45 73 70  6d 6c 32 3a 49 4e 43 6d  |32:BNEspml2:INCm|
00002340  74 79 3a 4c 44 41 6d 74  79 3a 43 4d 50 23 33 32  |ty:LDAmty:CMP#32|
00002350  3a 42 4e 45 73 70 6d 6c  31 3a 52 54 53 0d 04 6a  |:BNEspml1:RTS..j|
00002360  8a 2e 72 65 67 20 4c 44  41 6d 74 78 3a 42 4e 45  |..reg LDAmtx:BNE|
00002370  6e 6c 65 3a 43 50 59 23  33 31 3a 42 45 51 6e 72  |nle:CPY#31:BEQnr|
00002380  67 6e 3a 2e 6e 6c 65 20  43 4d 50 23 33 31 3a 42  |gn:.nle CMP#31:B|
00002390  4e 45 6e 72 65 3a 43 50  59 23 33 33 3a 42 45 51  |NEnre:CPY#33:BEQ|
000023a0  6e 72 67 6e 3a 2e 6e 72  65 20 4c 44 41 6d 74 79  |nrgn:.nre LDAmty|
000023b0  3a 42 4e 45 6e 74 65 3a  43 50 59 23 30 3a 42 45  |:BNEnte:CPY#0:BE|
000023c0  51 6e 72 67 6e 3a 2e 6e  74 65 20 43 4d 50 23 33  |Qnrgn:.nte CMP#3|
000023d0  31 3a 42 4e 45 6e 62 65  3a 43 50 59 23 36 34 3a  |1:BNEnbe:CPY#64:|
000023e0  42 45 51 6e 72 67 6e 0d  04 74 38 2e 6e 62 65 20  |BEQnrgn..t8.nbe |
000023f0  4c 44 41 28 26 38 45 29  2c 59 3a 42 4e 45 6e 72  |LDA(&8E),Y:BNEnr|
00002400  67 6e 3a 4c 44 41 23 26  41 30 3a 53 54 41 28 26  |gn:LDA#&A0:STA(&|
00002410  38 43 29 2c 59 3a 2e 6e  72 67 6e 20 52 54 53 0d  |8C),Y:.nrgn RTS.|
00002420  04 7e 41 2e 6d 61 69 6e  20 4c 44 41 23 32 33 37  |.~A.main LDA#237|
00002430  3a 53 54 41 74 69 6d 65  72 3a 4a 53 52 6d 76 73  |:STAtimer:JSRmvs|
00002440  61 6d 3a 3a 4a 53 52 63  61 6c 6f 72 3a 4a 53 52  |am::JSRcalor:JSR|
00002450  63 74 61 63 6f 72 6e 3a  4a 53 52 6d 6f 75 6c 64  |ctacorn:JSRmould|
00002460  0d 04 88 46 4a 53 52 77  69 6e 64 6f 77 3a 4c 44  |...FJSRwindow:LD|
00002470  41 64 65 61 64 3a 42 4e  45 64 69 65 64 3a 2e 77  |Adead:BNEdied:.w|
00002480  61 69 74 20 42 49 54 74  69 6d 65 72 3a 42 4d 49  |ait BITtimer:BMI|
00002490  77 61 69 74 3a 42 50 4c  6d 61 69 6e 3a 2e 64 69  |wait:BPLmain:.di|
000024a0  65 64 20 52 54 53 0d 04  92 4c 2e 62 72 20 45 51  |ed RTS...L.br EQ|
000024b0  55 42 30 3a 2e 73 72 20  45 51 55 42 30 3a 2e 73  |UB0:.sr EQUB0:.s|
000024c0  63 20 45 51 55 42 30 3a  2e 74 6f 6b 20 45 51 55  |c EQUB0:.tok EQU|
000024d0  42 30 3a 2e 63 68 61 72  20 45 51 55 42 30 3a 2e  |B0:.char EQUB0:.|
000024e0  62 78 20 45 51 55 42 30  3a 2e 62 79 20 45 51 55  |bx EQUB0:.by EQU|
000024f0  42 30 0d 04 9c 82 2e 6d  61 7a 67 65 6e 20 4c 44  |B0.....mazgen LD|
00002500  41 23 6d 61 7a 65 20 83  32 35 36 3a 53 54 41 6d  |A#maze .256:STAm|
00002510  61 7a 70 74 3a 4c 44 41  23 6d 61 7a 65 20 81 32  |azpt:LDA#maze .2|
00002520  35 36 3a 53 54 41 6d 61  7a 70 74 2b 31 3a 4c 44  |56:STAmazpt+1:LD|
00002530  41 23 30 3a 53 54 41 62  72 3a 53 54 41 62 79 3a  |A#0:STAbr:STAby:|
00002540  2e 67 65 6e 6c 36 20 4c  44 41 23 30 3a 53 54 41  |.genl6 LDA#0:STA|
00002550  62 78 3a 2e 67 65 6e 6c  31 20 4c 44 59 62 72 3a  |bx:.genl1 LDYbr:|
00002560  4c 44 41 6d 61 7a 64 61  74 2c 59 3a 4a 53 52 74  |LDAmazdat,Y:JSRt|
00002570  6f 6b 65 6e 0d 04 a6 43  49 4e 43 62 72 3a 49 4e  |oken...CINCbr:IN|
00002580  43 62 78 3a 4c 44 41 62  78 3a 43 4d 50 23 38 3a  |Cbx:LDAbx:CMP#8:|
00002590  42 4e 45 67 65 6e 6c 31  3a 49 4e 43 62 79 3a 4c  |BNEgenl1:INCby:L|
000025a0  44 41 62 79 3a 43 4d 50  23 38 3a 42 4e 45 67 65  |DAby:CMP#8:BNEge|
000025b0  6e 6c 36 3a 52 54 53 0d  04 b0 8a 20 2e 74 6f 6b  |nl6:RTS.... .tok|
000025c0  65 6e 20 41 53 4c 41 3a  41 53 4c 41 3a 41 53 4c  |en ASLA:ASLA:ASL|
000025d0  41 3a 41 53 4c 41 3a 53  54 41 74 6f 6b 3a 4c 44  |A:ASLA:STAtok:LD|
000025e0  41 23 30 3a 53 54 41 73  72 3a 2e 67 65 6e 6c 32  |A#0:STAsr:.genl2|
000025f0  20 4c 44 41 23 30 3a 53  54 41 73 63 3a 2e 67 65  | LDA#0:STAsc:.ge|
00002600  6e 6c 34 20 4c 44 41 73  72 3a 41 53 4c 41 3a 41  |nl4 LDAsr:ASLA:A|
00002610  53 4c 41 3a 43 4c 43 3a  41 44 43 73 63 3a 43 4c  |SLA:CLC:ADCsc:CL|
00002620  43 3a 41 44 43 74 6f 6b  3a 54 41 59 3a 4c 44 41  |C:ADCtok:TAY:LDA|
00002630  74 6f 6b 64 61 74 2c 59  3a 4a 53 52 63 68 61 72  |tokdat,Y:JSRchar|
00002640  61 0d 04 ba 3d 49 4e 43  73 63 3a 4c 44 41 73 63  |a...=INCsc:LDAsc|
00002650  3a 43 4d 50 23 34 3a 42  4e 45 67 65 6e 6c 34 3a  |:CMP#4:BNEgenl4:|
00002660  49 4e 43 73 72 3a 4c 44  41 73 72 3a 43 4d 50 23  |INCsr:LDAsr:CMP#|
00002670  34 3a 42 4e 45 67 65 6e  6c 32 3a 52 54 53 0d 04  |4:BNEgenl2:RTS..|
00002680  c4 7a 2e 63 68 61 72 61  20 41 53 4c 41 3a 41 53  |.z.chara ASLA:AS|
00002690  4c 41 3a 41 53 4c 41 3a  41 53 4c 41 3a 41 53 4c  |LA:ASLA:ASLA:ASL|
000026a0  41 3a 50 48 41 3a 4c 44  41 73 72 3a 41 53 4c 41  |A:PHA:LDAsr:ASLA|
000026b0  3a 41 53 4c 41 3a 41 53  4c 41 3a 41 53 4c 41 3a  |:ASLA:ASLA:ASLA:|
000026c0  41 53 4c 41 3a 43 4c 43  3a 41 44 43 73 63 3a 53  |ASLA:CLC:ADCsc:S|
000026d0  54 41 6d 61 7a 70 74 3a  4c 44 41 62 78 3a 41 53  |TAmazpt:LDAbx:AS|
000026e0  4c 41 3a 41 53 4c 41 3a  43 4c 43 3a 41 44 43 6d  |LA:ASLA:CLC:ADCm|
000026f0  61 7a 70 74 3a 54 41 59  0d 04 ce 98 4c 44 41 23  |azpt:TAY....LDA#|
00002700  30 3a 53 54 41 6d 61 7a  70 74 2b 31 3a 4c 44 58  |0:STAmazpt+1:LDX|
00002710  23 37 3a 4c 44 41 62 79  3a 2e 67 65 6e 6c 33 20  |#7:LDAby:.genl3 |
00002720  41 53 4c 41 3a 52 4f 4c  6d 61 7a 70 74 2b 31 3a  |ASLA:ROLmazpt+1:|
00002730  44 45 58 3a 42 4e 45 67  65 6e 6c 33 3a 43 4c 43  |DEX:BNEgenl3:CLC|
00002740  3a 41 44 43 23 6d 61 7a  65 20 83 32 35 36 3a 53  |:ADC#maze .256:S|
00002750  54 41 6d 61 7a 70 74 3a  4c 44 41 6d 61 7a 70 74  |TAmazpt:LDAmazpt|
00002760  2b 31 3a 41 44 43 23 6d  61 7a 65 20 81 32 35 36  |+1:ADC#maze .256|
00002770  3a 53 54 41 6d 61 7a 70  74 2b 31 3a 50 4c 41 3a  |:STAmazpt+1:PLA:|
00002780  53 54 41 28 6d 61 7a 70  74 29 2c 59 3a 52 54 53  |STA(mazpt),Y:RTS|
00002790  0d 04 d8 08 5d ed 3a e1  0d 04 e2 16 f4 20 42 6c  |....].:...... Bl|
000027a0  6f 63 6b 20 54 6f 6b 65  6e 20 44 61 74 61 0d 04  |ock Token Data..|
000027b0  ec 28 dc 30 30 30 30 30  30 30 30 2c 35 35 35 35  |.(.00000000,5555|
000027c0  35 35 35 35 2c 30 38 30  38 30 38 30 38 2c 30 30  |5555,08080808,00|
000027d0  41 41 30 30 30 30 0d 04  f6 28 dc 30 38 41 41 30  |AA0000...(.08AA0|
000027e0  38 30 38 2c 39 36 39 36  39 36 39 36 2c 41 41 35  |808,96969696,AA5|
000027f0  35 35 35 41 41 2c 38 32  30 30 30 30 38 32 0d 05  |555AA,82000082..|
00002800  00 28 dc 32 41 38 30 38  30 38 32 2c 41 38 30 32  |.(.2A808082,A802|
00002810  30 32 38 32 2c 30 35 32  35 41 38 32 30 2c 30 38  |0282,0525A820,08|
00002820  32 41 35 38 35 30 0d 05  0a 28 dc 38 32 38 30 38  |2A5850...(.82808|
00002830  30 32 41 2c 38 32 30 32  30 32 41 38 2c 30 32 39  |02A,820202A8,029|
00002840  30 30 30 34 38 2c 34 31  32 38 32 38 34 31 0d 05  |00048,41282841..|
00002850  14 13 f4 20 47 72 61 70  68 69 63 73 20 44 61 74  |... Graphics Dat|
00002860  61 0d 05 1e 58 dc 30 2c  30 2c 30 2c 30 2c 30 2c  |a...X.0,0,0,0,0,|
00002870  30 2c 30 2c 30 2c 34 34  34 34 41 41 41 41 2c 35  |0,0,0,4444AAAA,5|
00002880  35 35 35 30 30 30 30 2c  34 34 41 41 41 41 30 30  |5550000,44AAAA00|
00002890  2c 35 35 30 30 30 30 34  34 2c 41 41 30 30 32 32  |,55000044,AA0022|
000028a0  32 32 2c 34 34 34 34 41  41 2c 32 32 32 32 35 35  |22,4444AA,222255|
000028b0  2c 32 32 32 32 35 35 35  35 0d 05 28 88 dc 33 33  |,22225555..(..33|
000028c0  37 46 37 46 37 46 2c 31  31 31 46 33 46 33 46 2c  |7F7F7F,111F3F3F,|
000028d0  43 43 43 44 43 44 43 44  2c 38 45 38 45 38 45 2c  |CCCDCDCD,8E8E8E,|
000028e0  34 37 30 37 31 37 2c 42  31 42 30 42 2c 37 32 37  |470717,B1B0B,727|
000028f0  32 37 2c 38 42 31 42 32  42 2c 33 31 33 30 31 30  |27,8B1B2B,313010|
00002900  30 30 2c 46 32 46 30 37  32 37 30 2c 43 30 43 30  |00,F2F07270,C0C0|
00002910  38 30 30 30 2c 46 30 46  34 45 30 45 30 2c 46 32  |8000,F0F4E0E0,F2|
00002920  46 30 46 35 46 30 2c 33  30 37 30 37 32 46 30 2c  |F0F5F0,307072F0,|
00002930  46 30 46 30 46 34 46 30  2c 43 30 45 30 45 30 46  |F0F0F4F0,C0E0E0F|
00002940  38 0d 05 32 8e dc 33 31  32 30 31 30 30 2c 37 34  |8..2..3120100,74|
00002950  33 30 37 32 35 2c 34 38  30 43 30 38 30 30 2c 38  |30725,480C0800,8|
00002960  36 32 43 38 36 30 45 2c  31 31 31 31 30 46 32 44  |62C860E,11110F2D|
00002970  2c 31 31 31 31 31 31 31  31 2c 38 38 38 38 30 46  |,11111111,88880F|
00002980  30 46 2c 38 38 38 38 38  38 38 38 2c 33 33 36 32  |0F,88888888,3362|
00002990  35 31 33 2c 33 45 42 46  43 46 33 32 2c 38 45 32  |513,3EBFCF32,8E2|
000029a0  43 34 43 38 38 2c 43 36  45 39 37 37 44 2c 46 41  |C4C88,C6E977D,FA|
000029b0  46 44 46 35 36 2c 31 33  37 34 31 37 44 42 2c 43  |FDF56,137417DB,C|
000029c0  46 41 43 41 45 43 38 2c  38 32 45 36 45 46 37 0d  |FACAEC8,82E6EF7.|
000029d0  05 3c 8d dc 31 36 31 36  30 33 30 33 2c 35 42 35  |.<..16160303,5B5|
000029e0  42 32 44 32 44 2c 38 36  38 36 30 43 30 43 2c 41  |B2D2D,86860C0C,A|
000029f0  44 41 44 34 42 34 42 2c  32 44 32 44 35 42 35 42  |DAD4B4B,2D2D5B5B|
00002a00  2c 33 30 33 31 36 31 36  2c 34 42 34 42 41 44 41  |,3031616,4B4BADA|
00002a10  44 2c 43 30 43 38 36 38  36 2c 37 37 33 33 33 33  |D,C0C8686,773333|
00002a20  31 31 2c 37 46 37 46 46  46 37 37 2c 45 38 43 30  |11,7F7FFF77,E8C0|
00002a30  43 30 38 30 2c 46 46 46  46 46 46 45 38 2c 46 33  |C080,FFFFFFE8,F3|
00002a40  46 33 46 2c 31 33 32 37  35 37 41 46 2c 46 46 46  |F3F,132757AF,FFF|
00002a50  46 46 46 2c 34 43 45 41  45 34 46 41 0d 05 46 84  |FFF,4CEAE4FA..F.|
00002a60  dc 37 30 37 30 33 30 33  2c 33 35 33 34 41 31 46  |.7070303,3534A1F|
00002a70  2c 45 30 45 30 43 30 43  2c 46 38 46 38 46 38 46  |,E0E0C0C,F8F8F8F|
00002a80  2c 46 34 42 34 33 30 33  2c 33 30 33 30 37 30 37  |,F4B4303,3030707|
00002a90  2c 46 30 46 30 46 30 46  2c 43 30 43 30 45 30 45  |,F0F0F0F,C0C0E0E|
00002aa0  2c 37 30 37 30 33 30 33  2c 46 31 46 31 46 31 46  |,7070303,F1F1F1F|
00002ab0  2c 45 30 45 30 43 30 43  2c 43 41 43 32 35 38 46  |,E0E0C0C,CAC258F|
00002ac0  2c 46 30 46 30 46 30 46  2c 33 30 33 30 37 30 37  |,F0F0F0F,3030707|
00002ad0  2c 46 32 44 32 43 30 43  2c 43 30 43 30 45 30 45  |,F2D2C0C,C0C0E0E|
00002ae0  0d 05 50 88 dc 31 36 30  36 30 32 30 32 2c 32 45  |..P..16060202,2E|
00002af0  32 45 30 46 30 46 2c 38  36 30 36 30 34 30 34 2c  |2E0F0F,86060404,|
00002b00  46 30 46 30 46 30 46 2c  46 30 46 30 46 33 46 2c  |F0F0F0F,F0F0F3F,|
00002b10  33 30 33 30 37 30 37 2c  46 30 46 30 46 30 46 2c  |3030707,F0F0F0F,|
00002b20  43 30 43 30 45 30 45 2c  37 30 37 30 33 30 33 2c  |C0C0E0E,7070303,|
00002b30  46 30 46 30 46 30 46 2c  45 30 45 30 43 30 43 2c  |F0F0F0F,E0E0C0C,|
00002b40  43 46 43 46 30 46 30 46  2c 46 30 46 30 46 30 46  |CFCF0F0F,F0F0F0F|
00002b50  2c 32 30 32 30 36 31 36  2c 46 30 46 34 37 34 37  |,2020616,F0F4747|
00002b60  2c 34 30 34 30 36 38 36  0d 05 5a 3a dc 36 39 36  |,4040686..Z:.696|
00002b70  39 30 36 30 36 2c 36 30  36 36 39 36 39 2c 30 2c  |90606,6066969,0,|
00002b80  30 2c 31 37 31 37 30 37  30 33 2c 33 30 37 30 37  |0,17170703,30707|
00002b90  30 37 2c 34 38 45 30 45  30 43 2c 43 30 45 30 45  |07,48E0E0C,C0E0E|
00002ba0  30 43 0d ff                                       |0C..|
00002ba4
SLIPPERY-S.m0
SLIPPERY-S.m1
SLIPPERY-S.m2
SLIPPERY-S.m4
SLIPPERY-S.m5