� 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
�

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 ff                           |,10,32..|
000005a8