Home » Personal collection » Acorn tapes » Own_Work » box01_tape08a_d90_acorn_acorn_eater.wav » ACORN3
ACORN3
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: | ACORN3 |
| Read OK: | ✔ |
| File size: | 0C93 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?!=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%=(ri%+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
� 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
� 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 ff |0..|
00000c93 
ACORN3.m0
ACORN3.m1
ACORN3.m2
ACORN3.m4
ACORN3.m5
.