� 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%:�
�g��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?!=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":�

TX��window(l%,b%,r%,t%):le%=(l%-1)*64:bo%=(31-b%)*32-1:ri%=(ri%+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

�n��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:BNEdeldail: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
�

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 67 dd f2 6d 61  7a 65 3a 73 68 65 65 74  |...g..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 0d  00 e6 1a d6 6d 61 7a 67  |1,1)):......mazg|
000004e0  65 6e 3a e3 4e 25 3d 31  b8 32 30 2b 6c 65 76 65  |en:.N%=1.20+leve|
000004f0  6c 0d 00 f0 3a 41 25 3d  b3 28 31 30 32 34 29 2d  |l...:A%=.(1024)-|
00000500  31 3a e7 41 25 3f 6d 61  7a 65 3d 30 84 41 25 3f  |1:.A%?maze=0.A%?|
00000510  6d 61 7a 65 3d 26 32 30  20 41 25 3f 6d 61 7a 65  |maze=&20 A%?maze|
00000520  3d 26 36 30 20 8b e5 8d  64 70 40 0d 00 fa 3a 41  |=&60 ...dp@...:A|
00000530  25 3d b3 28 31 30 32 34  29 2d 31 3a e7 41 25 3f  |%=.(1024)-1:.A%?|
00000540  6d 61 7a 65 3d 30 84 41  25 3f 6d 61 7a 65 3d 26  |maze=0.A%?maze=&|
00000550  32 30 20 41 25 3f 6d 61  7a 65 3d 26 38 30 20 8b  |20 A%?maze=&80 .|
00000560  e5 8d 64 7a 40 0d 01 04  41 20 ed 3a f1 8a 31 33  |..dz@...A .:..13|
00000570  2c 32 29 89 36 8a 31 2c  32 39 29 89 31 38 3a ef  |,2).6.1,29).18:.|
00000580  33 31 2c 31 36 2c 39 2c  33 31 2c 38 2c 31 30 2c  |31,16,9,31,8,10,|
00000590  33 32 2c 33 31 2c 31 36  2c 31 33 2c 33 32 2c 38  |32,31,16,13,32,8|
000005a0  2c 31 30 2c 33 32 0d 01  0e 7a 3f 73 61 6d 78 3d  |,10,32...z?samx=|
000005b0  31 34 3a 3f 73 61 6d 79  3d 31 33 3a 3f 68 64 70  |14:?samy=13:?hdp|
000005c0  74 3d 32 3a 3f 74 61 69  6c 70 74 3d 30 3a 21 74  |t=2:?tailpt=0:!t|
000005d0  61 69 6c 3d 6d 61 7a 65  2b 26 31 41 45 3a 3f 74  |ail=maze+&1AE:?t|
000005e0  6c 65 6e 3d 30 3a 3f 76  69 73 74 3d 30 3a 76 69  |len=0:?vist=0:vi|
000005f0  73 74 3f 21 3d 30 3a 3f  64 65 61 64 3d 30 3a e7  |st?!=0:?dead=0:.|
00000600  73 68 65 65 74 3d 34 20  3f 73 61 6d 64 69 72 3d  |sheet=4 ?samdir=|
00000610  26 34 30 20 8b 3f 73 61  6d 64 69 72 3d 26 32 30  |&40 .?samdir=&20|
00000620  0d 01 18 5e d6 77 69 6e  64 6f 77 3a 21 63 61 6c  |...^.window:!cal|
00000630  73 3d 26 37 43 34 38 3a  3f 63 61 6c 74 6d 3d 31  |s=&7C48:?caltm=1|
00000640  35 3a e3 4e 25 3d 31 b8  33 30 3a d6 69 6e 63 63  |5:.N%=1.30:.incc|
00000650  61 6c 73 3a ed 3a 3f 61  63 63 6f 6e 3d 31 35 30  |als:.:?accon=150|
00000660  2d 31 30 2a 6c 65 76 65  6c 3a e7 3f 61 63 63 6f  |-10*level:.?acco|
00000670  6e 3c 35 30 20 3f 61 63  63 6f 6e 3d 35 30 0d 01  |n<50 ?accon=50..|
00000680  22 69 3f 61 63 74 69 6d  3d 3f 61 63 63 6f 6e 3a  |"i?actim=?accon:|
00000690  3f 61 63 66 6c 61 67 3d  30 3a fb 33 3a f1 8a 31  |?acflag=0:.3:..1|
000006a0  35 2c 36 29 3b 3f 61 63  6f 72 6e 73 3a d6 70 76  |5,6);?acorns:.pv|
000006b0  69 73 74 3a 3f 6d 6f 63  6f 6e 3d 31 35 2d 6c 65  |ist:?mocon=15-le|
000006c0  76 65 6c 20 81 32 3a e7  3f 6d 6f 63 6f 6e 3c 31  |vel .2:.?mocon<1|
000006d0  20 3f 6d 6f 63 6f 6e 3d  31 3a 3f 6d 6f 74 69 6d  | ?mocon=1:?motim|
000006e0  3d 3f 6d 6f 63 6f 6e 0d  01 2c 51 d6 70 73 63 3a  |=?mocon..,Q.psc:|
000006f0  fb 33 3a f1 8a 39 2c 32  29 3b 6c 65 76 65 6c 3a  |.3:..9,2);level:|
00000700  e7 6c 69 76 65 73 3e 31  e3 4e 25 3d 31 b8 6c 69  |.lives>1.N%=1.li|
00000710  76 65 73 2d 31 3a 21 73  63 72 3d 26 35 42 34 30  |ves-1:!scr=&5B40|
00000720  2b 31 36 2a 4e 25 3a 21  64 61 74 3d 26 41 39 30  |+16*N%:!dat=&A90|
00000730  3a d6 6c 69 76 70 3a ed  0d 01 36 05 e1 0d 01 40  |:.livp:...6....@|
00000740  88 dd f2 73 63 72 65 65  6e 3a db 3a d6 64 69 74  |...screen:.:.dit|
00000750  68 65 72 3a f2 77 69 6e  64 6f 77 28 31 2c 32 2c  |her:.window(1,2,|
00000760  35 2c 31 29 3a f2 77 69  6e 64 6f 77 28 37 2c 32  |5,1):.window(7,2|
00000770  2c 31 31 2c 31 29 3a f2  77 69 6e 64 6f 77 28 31  |,11,1):.window(1|
00000780  33 2c 32 2c 31 38 2c 32  29 3a f2 77 69 6e 64 6f  |3,2,18,2):.windo|
00000790  77 28 31 33 2c 36 2c 31  38 2c 35 29 3a f2 77 69  |w(13,6,18,5):.wi|
000007a0  6e 64 6f 77 28 31 36 2c  31 30 2c 31 36 2c 39 29  |ndow(16,10,16,9)|
000007b0  3a f2 77 69 6e 64 6f 77  28 31 36 2c 31 34 2c 31  |:.window(16,14,1|
000007c0  36 2c 31 33 29 0d 01 4a  89 f2 77 69 6e 64 6f 77  |6,13)..J..window|
000007d0  28 31 2c 32 36 2c 31 31  2c 35 29 3a f2 77 69 6e  |(1,26,11,5):.win|
000007e0  64 6f 77 28 31 2c 32 39  2c 31 38 2c 32 38 29 3a  |dow(1,29,18,28):|
000007f0  f2 77 69 6e 64 6f 77 28  31 34 2c 31 39 2c 31 37  |.window(14,19,17|
00000800  2c 31 38 29 3a fb 31 3a  f1 8a 31 2c 31 29 22 53  |,18):.1:..1,1)"S|
00000810  43 4f 52 45 22 8a 37 2c  31 29 22 4c 45 56 45 4c  |CORE".7,1)"LEVEL|
00000820  22 8a 31 33 2c 35 29 22  41 43 4f 52 4e 53 22 8a  |".13,5)"ACORNS".|
00000830  36 2c 32 38 29 22 43 41  4c 4f 52 49 45 53 22 8a  |6,28)"CALORIES".|
00000840  31 34 2c 31 38 29 22 54  41 49 4c 22 3a e1 0d 01  |14,18)"TAIL":...|
00000850  54 58 dd f2 77 69 6e 64  6f 77 28 6c 25 2c 62 25  |TX..window(l%,b%|
00000860  2c 72 25 2c 74 25 29 3a  6c 65 25 3d 28 6c 25 2d  |,r%,t%):le%=(l%-|
00000870  31 29 2a 36 34 3a 62 6f  25 3d 28 33 31 2d 62 25  |1)*64:bo%=(31-b%|
00000880  29 2a 33 32 2d 31 3a 72  69 25 3d 28 72 69 25 2b  |)*32-1:ri%=(ri%+|
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 6e f7 8d  |tokdat 256...n..|
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  0d 01 fe 74 73 63 72 3d  |ib(U$):....tscr=|
00000d40  26 37 30 3a 64 61 74 3d  26 37 32 3a 63 61 6c 3d  |&70:dat=&72:cal=|
00000d50  26 37 34 3a 6d 61 7a 70  74 3d 63 61 6c 3a 63 61  |&74:mazpt=cal:ca|
00000d60  6c 73 3d 26 37 45 3a de  51 25 32 30 30 30 2c 6d  |ls=&7E:.Q%2000,m|
00000d70  61 7a 65 20 31 30 33 30  2c 73 68 61 64 6f 77 20  |aze 1030,shadow |
00000d80  31 30 33 30 2c 6d 61 7a  64 61 74 20 36 34 2c 74  |1030,mazdat 64,t|
00000d90  61 69 6c 20 32 35 36 3a  e3 50 3d 30 b8 32 88 32  |ail 256:.P=0.2.2|
00000da0  3a 50 25 3d 51 25 3a 5b  4f 50 54 50 0d 02 08 67  |:P%=Q%:[OPTP...g|
00000db0  2e 67 75 6c 31 20 45 51  55 57 26 31 31 3a 45 51  |.gul1 EQUW&11:EQ|
00000dc0  55 57 31 3a 45 51 55 57  37 30 3a 45 51 55 57 35  |UW1:EQUW70:EQUW5|
00000dd0  3a 2e 67 75 6c 32 20 45  51 55 57 26 31 31 3a 45  |:.gul2 EQUW&11:E|
00000de0  51 55 57 31 3a 45 51 55  57 33 30 3a 45 51 55 57  |QUW1:EQUW30:EQUW|
00000df0  38 3a 2e 6d 75 73 6f 20  45 51 55 57 26 31 31 3a  |8:.muso EQUW&11:|
00000e00  45 51 55 57 32 3a 45 51  55 57 31 30 30 3a 45 51  |EQUW2:EQUW100:EQ|
00000e10  55 57 37 0d 02 12 44 2e  61 63 73 6f 20 45 51 55  |UW7...D.acso EQU|
00000e20  57 32 3a 45 51 55 57 33  3a 45 51 55 57 35 30 3a  |W2:EQUW3:EQUW50:|
00000e30  45 51 55 57 31 30 3a 2e  6d 6f 73 6f 20 45 51 55  |EQUW10:.moso EQU|
00000e40  57 32 3a 45 51 55 57 34  3a 45 51 55 57 31 30 30  |W2:EQUW4:EQUW100|
00000e50  3a 45 51 55 57 31 30 0d  02 1c 60 2e 64 69 74 68  |:EQUW10...`.dith|
00000e60  65 72 20 4c 44 41 23 30  3a 53 54 41 73 63 72 3a  |er LDA#0:STAscr:|
00000e70  4c 44 41 23 26 35 38 3a  53 54 41 73 63 72 2b 31  |LDA#&58:STAscr+1|
00000e80  3a 4c 44 59 23 30 3a 2e  64 69 6c 70 20 4c 44 41  |:LDY#0:.dilp LDA|
00000e90  23 35 3a 53 54 41 28 73  63 72 29 2c 59 3a 49 4e  |#5:STA(scr),Y:IN|
00000ea0  59 3a 4c 44 41 23 31 30  3a 53 54 41 28 73 63 72  |Y:LDA#10:STA(scr|
00000eb0  29 2c 59 3a 44 45 59 0d  02 26 3f 4c 44 41 73 63  |),Y:DEY..&?LDAsc|
00000ec0  72 3a 43 4c 43 3a 41 44  43 23 32 3a 53 54 41 73  |r:CLC:ADC#2:STAs|
00000ed0  63 72 3a 4c 44 41 73 63  72 2b 31 3a 41 44 43 23  |cr:LDAscr+1:ADC#|
00000ee0  30 3a 53 54 41 73 63 72  2b 31 3a 42 50 4c 64 69  |0:STAscr+1:BPLdi|
00000ef0  6c 70 3a 52 54 53 0d 02  30 48 2e 70 72 69 6e 74  |lp:RTS..0H.print|
00000f00  20 4c 44 58 23 32 3a 2e  70 72 6c 70 31 20 4c 44  | LDX#2:.prlp1 LD|
00000f10  59 23 31 35 3a 2e 70 72  6c 70 32 20 4c 44 41 28  |Y#15:.prlp2 LDA(|
00000f20  64 61 74 29 2c 59 3a 53  54 41 28 73 63 72 29 2c  |dat),Y:STA(scr),|
00000f30  59 3a 44 45 59 3a 42 50  4c 70 72 6c 70 32 0d 02  |Y:DEY:BPLprlp2..|
00000f40  3a 5f 4c 44 41 73 63 72  3a 43 4c 43 3a 41 44 43  |:_LDAscr:CLC:ADC|
00000f50  23 26 34 30 3a 53 54 41  73 63 72 3a 4c 44 41 73  |#&40:STAscr:LDAs|
00000f60  63 72 2b 31 3a 41 44 43  23 31 3a 53 54 41 73 63  |cr+1:ADC#1:STAsc|
00000f70  72 2b 31 3a 4c 44 41 64  61 74 3a 43 4c 43 3a 41  |r+1:LDAdat:CLC:A|
00000f80  44 43 23 31 36 3a 53 54  41 64 61 74 3a 44 45 58  |DC#16:STAdat:DEX|
00000f90  3a 42 4e 45 70 72 6c 70  31 3a 52 54 53 0d 02 44  |:BNEprlp1:RTS..D|
00000fa0  3c 2e 6c 69 76 70 20 4c  44 59 23 31 35 3a 2e 6c  |<.livp LDY#15:.l|
00000fb0  76 70 6c 20 4c 44 41 28  64 61 74 29 2c 59 3a 53  |vpl LDA(dat),Y:S|
00000fc0  54 41 28 73 63 72 29 2c  59 3a 44 45 59 3a 42 50  |TA(scr),Y:DEY:BP|
00000fd0  4c 6c 76 70 6c 3a 52 54  53 0d 02 4e bb 2e 63 61  |Llvpl:RTS..N..ca|
00000fe0  6c 63 20 4c 44 41 23 30  3a 53 54 41 63 61 6c 2b  |lc LDA#0:STAcal+|
00000ff0  31 3a 54 59 41 3a 4c 44  59 23 35 3a 2e 72 6f 6c  |1:TYA:LDY#5:.rol|
00001000  70 20 41 53 4c 41 3a 52  4f 4c 63 61 6c 2b 31 3a  |p ASLA:ROLcal+1:|
00001010  44 45 59 3a 42 4e 45 72  6f 6c 70 3a 53 54 41 63  |DEY:BNErolp:STAc|
00001020  61 6c 3a 54 58 41 3a 43  4c 43 3a 41 44 43 63 61  |al:TXA:CLC:ADCca|
00001030  6c 3a 53 54 41 63 61 6c  3a 4c 44 41 63 61 6c 2b  |l:STAcal:LDAcal+|
00001040  31 3a 41 44 43 23 30 3a  53 54 41 63 61 6c 2b 31  |1:ADC#0:STAcal+1|
00001050  3a 4c 44 41 63 61 6c 3a  43 4c 43 3a 41 44 43 23  |:LDAcal:CLC:ADC#|
00001060  6d 61 7a 65 20 83 32 35  36 3a 53 54 41 63 61 6c  |maze .256:STAcal|
00001070  3a 4c 44 41 63 61 6c 2b  31 3a 41 44 43 23 6d 61  |:LDAcal+1:ADC#ma|
00001080  7a 65 20 81 32 35 36 3a  53 54 41 63 61 6c 2b 31  |ze .256:STAcal+1|
00001090  3a 52 54 53 0d 02 58 5c  2e 77 69 6e 64 6f 77 20  |:RTS..X\.window |
000010a0  4c 44 41 23 31 39 3a 4a  53 52 26 46 46 46 34 3a  |LDA#19:JSR&FFF4:|
000010b0  4c 44 41 73 61 6d 78 3a  53 45 43 3a 53 42 43 23  |LDAsamx:SEC:SBC#|
000010c0  35 3a 53 54 41 6d 61 7a  65 78 3a 4c 44 41 23 26  |5:STAmazex:LDA#&|
000010d0  35 30 3a 53 54 41 77 69  6e 64 61 64 3a 4c 44 41  |50:STAwindad:LDA|
000010e0  23 26 35 45 3a 53 54 41  77 69 6e 64 61 64 2b 31  |#&5E:STAwindad+1|
000010f0  0d 02 62 6c 4c 44 41 23  31 31 3a 53 54 41 77 6e  |..blLDA#11:STAwn|
00001100  63 6e 78 3a 2e 77 69 6e  78 6c 70 20 4c 44 41 23  |cnx:.winxlp LDA#|
00001110  31 31 3a 53 54 41 77 6e  63 6e 79 3a 4c 44 41 77  |11:STAwncny:LDAw|
00001120  69 6e 64 61 64 3a 53 54  41 73 63 72 3a 4c 44 41  |indad:STAscr:LDA|
00001130  77 69 6e 64 61 64 2b 31  3a 53 54 41 73 63 72 2b  |windad+1:STAscr+|
00001140  31 3a 4c 44 41 73 61 6d  79 3a 53 45 43 3a 53 42  |1:LDAsamy:SEC:SB|
00001150  43 23 35 3a 53 54 41 6d  61 7a 65 79 0d 02 6c 5d  |C#5:STAmazey..l]|
00001160  2e 77 69 6e 79 6c 70 20  4c 44 41 23 39 3a 53 54  |.winylp LDA#9:ST|
00001170  41 64 61 74 2b 31 3a 4c  44 41 6d 61 7a 65 78 3a  |Adat+1:LDAmazex:|
00001180  43 4d 50 23 33 32 3a 42  43 43 63 68 6b 79 6c 6d  |CMP#32:BCCchkylm|
00001190  3a 2e 62 6c 6f 63 6b 20  4c 44 41 23 26 34 30 3a  |:.block LDA#&40:|
000011a0  53 54 41 64 61 74 3a 4a  53 52 70 72 69 6e 74 3a  |STAdat:JSRprint:|
000011b0  4a 4d 50 6e 78 74 62 6c  6b 0d 02 76 9a 2e 63 68  |JMPnxtblk..v..ch|
000011c0  6b 79 6c 6d 20 4c 44 41  6d 61 7a 65 79 3a 43 4d  |kylm LDAmazey:CM|
000011d0  50 23 33 32 3a 42 43 43  63 68 6b 73 61 6d 3a 4a  |P#32:BCCchksam:J|
000011e0  4d 50 62 6c 6f 63 6b 3a  2e 63 68 6b 73 61 6d 20  |MPblock:.chksam |
000011f0  4c 44 41 77 6e 63 6e 78  3a 43 4d 50 23 36 3a 42  |LDAwncnx:CMP#6:B|
00001200  4e 45 70 72 77 6f 6d 3a  4c 44 41 77 6e 63 6e 79  |NEprwom:LDAwncny|
00001210  3a 43 4d 50 23 36 3a 42  4e 45 70 72 77 6f 6d 3a  |:CMP#6:BNEprwom:|
00001220  4c 44 41 73 61 6d 64 69  72 3a 53 54 41 64 61 74  |LDAsamdir:STAdat|
00001230  3a 4c 44 41 23 26 41 3a  53 54 41 64 61 74 2b 31  |:LDA#&A:STAdat+1|
00001240  3a 4a 53 52 70 72 69 6e  74 3a 4a 4d 50 6e 78 74  |:JSRprint:JMPnxt|
00001250  62 6c 6b 0d 02 80 45 2e  70 72 77 6f 6d 20 4c 44  |blk...E.prwom LD|
00001260  58 6d 61 7a 65 78 3a 4c  44 59 6d 61 7a 65 79 3a  |Xmazex:LDYmazey:|
00001270  4a 53 52 63 61 6c 63 3a  4c 44 59 23 30 3a 4c 44  |JSRcalc:LDY#0:LD|
00001280  41 28 63 61 6c 29 2c 59  3a 53 54 41 64 61 74 3a  |A(cal),Y:STAdat:|
00001290  4a 53 52 70 72 69 6e 74  0d 02 8a a8 2e 6e 78 74  |JSRprint.....nxt|
000012a0  62 6c 6b 20 49 4e 43 6d  61 7a 65 79 3a 44 45 43  |blk INCmazey:DEC|
000012b0  77 6e 63 6e 79 3a 42 4e  45 77 69 6e 59 6c 70 3a  |wncny:BNEwinYlp:|
000012c0  4c 44 41 77 69 6e 64 61  64 3a 43 4c 43 3a 41 44  |LDAwindad:CLC:AD|
000012d0  43 23 31 36 3a 53 54 41  77 69 6e 64 61 64 3a 4c  |C#16:STAwindad:L|
000012e0  44 41 77 69 6e 64 61 64  2b 31 3a 41 44 43 23 30  |DAwindad+1:ADC#0|
000012f0  3a 53 54 41 77 69 6e 64  61 64 2b 31 3a 49 4e 43  |:STAwindad+1:INC|
00001300  6d 61 7a 65 78 3a 44 45  43 77 6e 63 6e 78 3a 42  |mazex:DECwncnx:B|
00001310  4e 45 77 69 6e 58 6c 70  3a 52 54 53 3a 2e 77 69  |NEwinXlp:RTS:.wi|
00001320  6e 59 6c 70 20 4a 4d 50  77 69 6e 79 6c 70 3a 2e  |nYlp JMPwinylp:.|
00001330  77 69 6e 58 6c 70 3a 4a  4d 50 77 69 6e 78 6c 70  |winXlp:JMPwinxlp|
00001340  0d 02 94 45 2e 6d 61 7a  65 78 20 45 51 55 42 30  |...E.mazex EQUB0|
00001350  3a 2e 6d 61 7a 65 79 20  45 51 55 42 30 3a 2e 77  |:.mazey EQUB0:.w|
00001360  6e 63 6e 78 20 45 51 55  42 30 3a 2e 77 6e 63 6e  |ncnx EQUB0:.wncn|
00001370  79 20 45 51 55 42 30 3a  2e 77 69 6e 64 61 64 20  |y EQUB0:.windad |
00001380  45 51 55 57 30 0d 02 9e  35 2e 73 61 6d 78 20 45  |EQUW0...5.samx E|
00001390  51 55 42 30 3a 2e 73 61  6d 79 20 45 51 55 42 30  |QUB0:.samy EQUB0|
000013a0  3a 2e 73 61 6d 64 69 72  20 45 51 55 42 30 3a 2e  |:.samdir EQUB0:.|
000013b0  64 65 61 64 20 45 51 55  42 30 0d 02 a8 3b 2e 6d  |dead EQUB0...;.m|
000013c0  76 73 61 6d 20 4c 44 58  73 61 6d 78 3a 4c 44 59  |vsam LDXsamx:LDY|
000013d0  73 61 6d 79 3a 4a 53 52  63 61 6c 63 3a 4c 44 59  |samy:JSRcalc:LDY|
000013e0  23 30 3a 4c 44 41 23 26  43 30 3a 53 54 41 28 63  |#0:LDA#&C0:STA(c|
000013f0  61 6c 29 2c 59 0d 02 b2  49 4c 44 41 23 26 38 31  |al),Y...ILDA#&81|
00001400  3a 4c 44 58 23 26 39 45  3a 4c 44 59 23 26 46 46  |:LDX#&9E:LDY#&FF|
00001410  3a 4a 53 52 26 46 46 46  34 3a 54 59 41 3a 42 45  |:JSR&FFF4:TYA:BE|
00001420  51 6e 74 6c 66 74 3a 4c  44 41 23 30 3a 53 54 41  |Qntlft:LDA#0:STA|
00001430  73 61 6d 64 69 72 3a 4a  4d 50 6d 6f 76 65 0d 02  |samdir:JMPmove..|
00001440  bc 51 2e 6e 74 6c 66 74  20 4c 44 41 23 26 38 31  |.Q.ntlft LDA#&81|
00001450  3a 4c 44 58 23 26 42 44  3a 4c 44 59 23 26 46 46  |:LDX#&BD:LDY#&FF|
00001460  3a 4a 53 52 26 46 46 46  34 3a 54 59 41 3a 42 45  |:JSR&FFF4:TYA:BE|
00001470  51 6e 74 72 74 3a 4c 44  41 23 26 32 30 3a 53 54  |Qntrt:LDA#&20:ST|
00001480  41 73 61 6d 64 69 72 3a  4a 4d 50 6d 6f 76 65 0d  |Asamdir:JMPmove.|
00001490  02 c6 50 2e 6e 74 72 74  20 4c 44 41 23 26 38 31  |..P.ntrt LDA#&81|
000014a0  3a 4c 44 58 23 26 42 37  3a 4c 44 59 23 26 46 46  |:LDX#&B7:LDY#&FF|
000014b0  3a 4a 53 52 26 46 46 46  34 3a 54 59 41 3a 42 45  |:JSR&FFF4:TYA:BE|
000014c0  51 6e 74 75 70 3a 4c 44  41 23 26 34 30 3a 53 54  |Qntup:LDA#&40:ST|
000014d0  41 73 61 6d 64 69 72 3a  4a 4d 50 6d 6f 76 65 0d  |Asamdir:JMPmove.|
000014e0  02 d0 48 2e 6e 74 75 70  20 4c 44 41 23 26 38 31  |..H.ntup LDA#&81|
000014f0  3a 4c 44 58 23 26 39 37  3a 4c 44 59 23 26 46 46  |:LDX#&97:LDY#&FF|
00001500  3a 4a 53 52 26 46 46 46  34 3a 54 59 41 3a 42 45  |:JSR&FFF4:TYA:BE|
00001510  51 6d 6f 76 65 3a 4c 44  41 23 26 36 30 3a 53 54  |Qmove:LDA#&60:ST|
00001520  41 73 61 6d 64 69 72 0d  02 da 7c 2e 6d 6f 76 65  |Asamdir...|.move|
00001530  20 4c 44 41 73 61 6d 64  69 72 3a 42 4e 45 6e 74  | LDAsamdir:BNEnt|
00001540  6c 3a 44 45 43 73 61 6d  78 3a 4a 4d 50 63 68 6b  |l:DECsamx:JMPchk|
00001550  3a 2e 6e 74 6c 20 43 4d  50 23 26 32 30 3a 42 4e  |:.ntl CMP#&20:BN|
00001560  45 6e 74 72 3a 49 4e 43  73 61 6d 78 3a 4a 4d 50  |Entr:INCsamx:JMP|
00001570  63 68 6b 3a 2e 6e 74 72  20 43 4d 50 23 26 34 30  |chk:.ntr CMP#&40|
00001580  3a 42 4e 45 6e 74 75 3a  44 45 43 73 61 6d 79 3a  |:BNEntu:DECsamy:|
00001590  4a 4d 50 63 68 6b 3a 2e  6e 74 75 20 49 4e 43 73  |JMPchk:.ntu INCs|
000015a0  61 6d 79 0d 02 e4 34 2e  63 68 6b 20 4c 44 41 73  |amy...4.chk LDAs|
000015b0  61 6d 78 3a 43 4d 50 23  33 32 3a 42 43 53 68 69  |amx:CMP#32:BCShi|
000015c0  74 3a 4c 44 41 73 61 6d  79 3a 43 4d 50 23 33 32  |t:LDAsamy:CMP#32|
000015d0  3a 42 43 53 68 69 74 0d  02 ee 59 4c 44 58 73 61  |:BCShit...YLDXsa|
000015e0  6d 78 3a 4c 44 59 73 61  6d 79 3a 4a 53 52 63 61  |mx:LDYsamy:JSRca|
000015f0  6c 63 3a 4c 44 58 68 64  70 74 3a 4c 44 41 63 61  |lc:LDXhdpt:LDAca|
00001600  6c 3a 53 54 41 74 61 69  6c 2c 58 3a 4c 44 41 63  |l:STAtail,X:LDAc|
00001610  61 6c 2b 31 3a 53 54 41  74 61 69 6c 2b 31 2c 58  |al+1:STAtail+1,X|
00001620  3a 49 4e 58 3a 49 4e 58  3a 53 54 58 68 64 70 74  |:INX:INX:STXhdpt|
00001630  0d 02 f8 52 4c 44 59 23  30 3a 4c 44 41 28 63 61  |...RLDY#0:LDA(ca|
00001640  6c 29 2c 59 3a 43 4d 50  23 26 43 30 3a 42 45 51  |l),Y:CMP#&C0:BEQ|
00001650  68 69 74 3a 43 4d 50 23  26 34 30 3a 42 45 51 68  |hit:CMP#&40:BEQh|
00001660  69 74 3a 43 4d 50 23 26  41 30 3a 42 45 51 68 69  |it:CMP#&A0:BEQhi|
00001670  74 3a 43 4d 50 23 26 45  30 3a 42 45 51 67 74 61  |t:CMP#&E0:BEQgta|
00001680  63 6e 0d 03 02 97 43 4d  50 23 26 38 30 3a 42 45  |cn....CMP#&80:BE|
00001690  51 6d 75 73 68 3a 43 4d  50 23 26 36 30 3a 42 4e  |Qmush:CMP#&60:BN|
000016a0  45 64 65 6c 64 61 69 6c  3a 4a 53 52 69 6e 73 63  |Edeldail:JSRinsc|
000016b0  3a 4a 53 52 70 73 63 3a  4a 53 52 69 6e 63 63 61  |:JSRpsc:JSRincca|
000016c0  6c 73 3a 4c 44 41 74 6c  65 6e 3a 43 4d 50 23 32  |ls:LDAtlen:CMP#2|
000016d0  35 34 3a 42 43 53 64 65  6c 74 61 69 6c 3a 49 4e  |54:BCSdeltail:IN|
000016e0  43 74 6c 65 6e 3a 4c 44  58 23 67 75 6c 31 20 83  |Ctlen:LDX#gul1 .|
000016f0  32 35 36 3a 4c 44 59 23  67 75 6c 31 20 81 32 35  |256:LDY#gul1 .25|
00001700  36 3a 4c 44 41 23 37 3a  4a 53 52 26 46 46 46 31  |6:LDA#7:JSR&FFF1|
00001710  3a 4a 4d 50 69 76 69 73  74 0d 03 0c 79 2e 6d 75  |:JMPivist...y.mu|
00001720  73 68 20 4c 44 58 23 6d  75 73 6f 20 83 32 35 36  |sh LDX#muso .256|
00001730  3a 4c 44 59 23 6d 75 73  6f 20 81 32 35 36 3a 4c  |:LDY#muso .256:L|
00001740  44 41 23 37 3a 4a 53 52  26 46 46 46 31 3a 4a 53  |DA#7:JSR&FFF1:JS|
00001750  52 64 65 63 63 61 6c 73  3a 4c 44 41 74 6c 65 6e  |Rdeccals:LDAtlen|
00001760  3a 42 45 51 64 65 6c 74  61 69 6c 3a 44 45 43 74  |:BEQdeltail:DECt|
00001770  6c 65 6e 3a 4a 53 52 64  65 6c 74 61 69 6c 3a 4a  |len:JSRdeltail:J|
00001780  53 52 64 65 6c 74 61 69  6c 3a 4a 4d 50 64 76 69  |SRdeltail:JMPdvi|
00001790  73 74 0d 03 16 1c 2e 68  69 74 20 4c 44 41 23 26  |st.....hit LDA#&|
000017a0  46 46 3a 53 54 41 64 65  61 64 3a 52 54 53 0d 03  |FF:STAdead:RTS..|
000017b0  20 7f 2e 68 64 70 74 20  45 51 55 42 30 3a 2e 74  | ..hdpt EQUB0:.t|
000017c0  61 69 6c 70 74 20 45 51  55 42 30 3a 2e 64 65 6c  |ailpt EQUB0:.del|
000017d0  74 61 69 6c 20 4c 44 58  74 61 69 6c 70 74 3a 4c  |tail LDXtailpt:L|
000017e0  44 41 74 61 69 6c 2c 58  3a 53 54 41 26 39 30 3a  |DAtail,X:STA&90:|
000017f0  4c 44 41 74 61 69 6c 2b  31 2c 58 3a 53 54 41 26  |LDAtail+1,X:STA&|
00001800  39 31 3a 4c 44 41 23 30  3a 54 41 59 3a 53 54 41  |91:LDA#0:TAY:STA|
00001810  28 26 39 30 29 2c 59 3a  49 4e 58 3a 49 4e 58 3a  |(&90),Y:INX:INX:|
00001820  53 54 58 74 61 69 6c 70  74 3a 52 54 53 0d 03 2a  |STXtailpt:RTS..*|
00001830  90 2e 67 74 61 63 6e 20  4a 53 52 69 6e 73 63 3a  |..gtacn JSRinsc:|
00001840  4a 53 52 69 6e 73 63 3a  44 45 43 61 63 6f 72 6e  |JSRinsc:DECacorn|
00001850  73 3a 4c 44 41 23 33 31  3a 4a 53 52 26 46 46 45  |s:LDA#31:JSR&FFE|
00001860  45 3a 4c 44 41 23 31 35  3a 4a 53 52 26 46 46 45  |E:LDA#15:JSR&FFE|
00001870  45 3a 4c 44 41 23 36 3a  4a 53 52 26 46 46 45 45  |E:LDA#6:JSR&FFEE|
00001880  3a 4c 44 41 23 31 37 3a  4a 53 52 26 46 46 45 45  |:LDA#17:JSR&FFEE|
00001890  3a 4c 44 41 23 33 3a 4a  53 52 26 46 46 45 45 3a  |:LDA#3:JSR&FFEE:|
000018a0  4c 44 41 61 63 6f 72 6e  73 3a 43 4c 43 3a 41 44  |LDAacorns:CLC:AD|
000018b0  43 23 34 38 3a 4a 53 52  26 46 46 45 45 0d 03 34  |C#48:JSR&FFEE..4|
000018c0  6a 4c 44 41 23 30 3a 53  54 41 61 63 66 6c 61 67  |jLDA#0:STAacflag|
000018d0  3a 4c 44 41 61 63 63 6f  6e 3a 53 54 41 61 63 74  |:LDAaccon:STAact|
000018e0  69 6d 3a 4c 44 41 23 26  34 30 3a 53 54 41 73 63  |im:LDA#&40:STAsc|
000018f0  72 3a 4c 44 41 23 26 36  34 3a 53 54 41 73 63 72  |r:LDA#&64:STAscr|
00001900  2b 31 3a 4c 44 41 23 30  3a 53 54 41 64 61 74 3a  |+1:LDA#0:STAdat:|
00001910  4c 44 41 23 39 3a 53 54  41 64 61 74 2b 31 3a 4a  |LDA#9:STAdat+1:J|
00001920  53 52 70 72 69 6e 74 0d  03 3e 5a 4c 44 58 23 67  |SRprint..>ZLDX#g|
00001930  75 6c 32 20 83 32 35 36  3a 4c 44 59 23 67 75 6c  |ul2 .256:LDY#gul|
00001940  32 20 81 32 35 36 3a 4c  44 41 23 37 3a 4a 53 52  |2 .256:LDA#7:JSR|
00001950  26 46 46 46 31 3a 4c 44  41 61 63 6f 72 6e 73 3a  |&FFF1:LDAacorns:|
00001960  42 4e 45 6e 74 63 79 3a  4c 44 41 23 26 45 30 3a  |BNEntcy:LDA#&E0:|
00001970  53 54 41 64 65 61 64 3a  2e 6e 74 63 79 20 52 54  |STAdead:.ntcy RT|
00001980  53 0d 03 48 35 2e 74 6c  65 6e 20 45 51 55 42 30  |S..H5.tlen EQUB0|
00001990  3a 2e 73 63 6f 72 65 20  45 51 55 57 30 3a 2e 76  |:.score EQUW0:.v|
000019a0  69 73 74 20 45 51 55 57  30 3a 2e 73 63 63 6f 6c  |ist EQUW0:.sccol|
000019b0  20 45 51 55 42 31 0d ff                           | EQUB1..|
000019b8