� PROGRAM ERAPIDS
� AUTHOR 'SURAC'
� VERSION E1.0
(� ELBUG AUG/SEPT 1984
<:
d� � � �dTC 
n�4:*FX18
x
�chars
�	�read
�
�play 
��
�:
�� �chars
�+�23,240,192,240,252,255,255,252,240,192
�#�23,241,0,12,62,110,84,120,16,0
�#�23,242,0,48,120,92,116,88,48,0
�"�23,243,0,56,92,60,116,88,32,0
��23,244,0,0,12,52,44,24,0,0
�#�23,245,0,12,62,106,126,44,16,0
�!�23,246,0,14,58,126,54,28,8,0
��

:


��read

�:scroll%=&B00

"�I%=0�10:� A$:�J%=0�7

,+?(scroll%+J%+I%*8)=�("&"+�A$,J%*2+1,2))

6�,:A%=0:�I%=0�88

@A%=A%+scroll%?I%:�

J� A%<>&216F � �"Bad data":�

T�

^:

h� �play

rH%=-1:�

|�22,5:�23,1,0;0;0;0;

��19,0,4,0,0,0

��17,129:�28,0,4,19,0,12

��28,0,31,19,27,12:�17,130

��28,1,3,18,1,12

��28,1,30,18,28,12

��26,17,128

��4,15)"LEVEL (1-3)";

�� T%=�-48:�T%>0�T%<4 

�T%=T%-1:�4,15)�12

�+�I%=0�3:�J%=0�3:�1,-15,I%*10+10*J%,2:�,

�S%=0:M%=6:N%=25:X%=15

�$�17,1:�31,19,6,241:�31,19,25,241

��score(0):�
�17,128,17,2,31,2,X%,240
�walls:� scroll%
F%=!(&5800+X%*320+32)
&� �-66 � X%<>6 X%=X%-1
0� �-98 � X%<>25 X%=X%+1
:�score(1):�F%
D�17,128:�17,2
N$�31,2,X%,240,17,130,17,1,31,4,16
X�"Press RETURN"
b	*FX15
l�0,-15,7,4
v� � �=13
�� �
��
�:
���score(A%) S%=S%+A%
��17,131,17,0:� S%>H% H%=S%
��2,2)"Score ";S%
��2,29)"High  ";H%
��
�:
���walls
��17,1:P%=�(3)-2:Q%=�(3)-2
�� T%=1 � �(2)=1 P%=0:Q%=0
�� M%+P%<6 P%=0
� N%+Q%>25 Q%=0
 � N%+Q%-P%-M%<8 P%=0:Q%=0
M%=M%+P%:N%=N%+Q%
 (�31,19,M%,240+�(6),31,19,N%,240+�(6)
*,�31,19,M%+1,240+�(6),31,19,N%-1,240+�(6)
4�17,3:�I%=1�T%
>-� �(4-T%)=1 �31,19,�(N%-M%-1)+M%,240+�(6)
H�:�
R:
\� "78A95E8D110BA940"
f� "8D100BA900A00F99"
p� "00008810FA18AD10"
z� "0B69408D100BAD11"
�� "0B69018D110BC979"
�� "D0E1A279A95F8D42"
�� "0B8D450BA9808D44"
�� "0BA9908D410BA000"
�� "B90000990000C8D0"
�� "F7EE420BEE450BEC"
�� "450BD0EA58604446"
�:
�	� � �
�� 6
�� �<>17 �:�" at line ";�
��
�

00000000  0d 00 0a 15 f4 20 50 52  4f 47 52 41 4d 20 45 52  |..... PROGRAM ER|
00000010  41 50 49 44 53 0d 00 14  14 f4 20 41 55 54 48 4f  |APIDS..... AUTHO|
00000020  52 20 27 53 55 52 41 43  27 0d 00 1e 12 f4 20 56  |R 'SURAC'..... V|
00000030  45 52 53 49 4f 4e 20 45  31 2e 30 0d 00 28 19 f4  |ERSION E1.0..(..|
00000040  20 45 4c 42 55 47 20 41  55 47 2f 53 45 50 54 20  | ELBUG AUG/SEPT |
00000050  31 39 38 34 0d 00 3c 05  3a 0d 00 64 0f ee 20 85  |1984..<.:..d.. .|
00000060  20 e5 20 8d 64 54 43 20  0d 00 6e 0c eb 34 3a 2a  | . .dTC ..n..4:*|
00000070  46 58 31 38 0d 00 78 0a  f2 63 68 61 72 73 0d 00  |FX18..x..chars..|
00000080  82 09 f2 72 65 61 64 0d  00 8c 0a f2 70 6c 61 79  |...read.....play|
00000090  20 0d 00 96 05 e0 0d 00  a0 05 3a 0d 00 aa 0c dd  | .........:.....|
000000a0  20 f2 63 68 61 72 73 0d  00 b4 2b ef 32 33 2c 32  | .chars...+.23,2|
000000b0  34 30 2c 31 39 32 2c 32  34 30 2c 32 35 32 2c 32  |40,192,240,252,2|
000000c0  35 35 2c 32 35 35 2c 32  35 32 2c 32 34 30 2c 31  |55,255,252,240,1|
000000d0  39 32 0d 00 be 23 ef 32  33 2c 32 34 31 2c 30 2c  |92...#.23,241,0,|
000000e0  31 32 2c 36 32 2c 31 31  30 2c 38 34 2c 31 32 30  |12,62,110,84,120|
000000f0  2c 31 36 2c 30 0d 00 c8  23 ef 32 33 2c 32 34 32  |,16,0...#.23,242|
00000100  2c 30 2c 34 38 2c 31 32  30 2c 39 32 2c 31 31 36  |,0,48,120,92,116|
00000110  2c 38 38 2c 34 38 2c 30  0d 00 d2 22 ef 32 33 2c  |,88,48,0...".23,|
00000120  32 34 33 2c 30 2c 35 36  2c 39 32 2c 36 30 2c 31  |243,0,56,92,60,1|
00000130  31 36 2c 38 38 2c 33 32  2c 30 0d 00 dc 1f ef 32  |16,88,32,0.....2|
00000140  33 2c 32 34 34 2c 30 2c  30 2c 31 32 2c 35 32 2c  |3,244,0,0,12,52,|
00000150  34 34 2c 32 34 2c 30 2c  30 0d 00 e6 23 ef 32 33  |44,24,0,0...#.23|
00000160  2c 32 34 35 2c 30 2c 31  32 2c 36 32 2c 31 30 36  |,245,0,12,62,106|
00000170  2c 31 32 36 2c 34 34 2c  31 36 2c 30 0d 00 f0 21  |,126,44,16,0...!|
00000180  ef 32 33 2c 32 34 36 2c  30 2c 31 34 2c 35 38 2c  |.23,246,0,14,58,|
00000190  31 32 36 2c 35 34 2c 32  38 2c 38 2c 30 0d 00 fa  |126,54,28,8,0...|
000001a0  05 e1 0d 01 04 05 3a 0d  01 0e 0a dd f2 72 65 61  |......:......rea|
000001b0  64 0d 01 18 12 f7 3a 73  63 72 6f 6c 6c 25 3d 26  |d.....:scroll%=&|
000001c0  42 30 30 0d 01 22 19 e3  49 25 3d 30 b8 31 30 3a  |B00.."..I%=0.10:|
000001d0  f3 20 41 24 3a e3 4a 25  3d 30 b8 37 0d 01 2c 2b  |. A$:.J%=0.7..,+|
000001e0  3f 28 73 63 72 6f 6c 6c  25 2b 4a 25 2b 49 25 2a  |?(scroll%+J%+I%*|
000001f0  38 29 3d a0 28 22 26 22  2b c1 41 24 2c 4a 25 2a  |8)=.("&"+.A$,J%*|
00000200  32 2b 31 2c 32 29 29 0d  01 36 14 ed 2c 3a 41 25  |2+1,2))..6..,:A%|
00000210  3d 30 3a e3 49 25 3d 30  b8 38 38 0d 01 40 16 41  |=0:.I%=0.88..@.A|
00000220  25 3d 41 25 2b 73 63 72  6f 6c 6c 25 3f 49 25 3a  |%=A%+scroll%?I%:|
00000230  ed 0d 01 4a 1f e7 20 41  25 3c 3e 26 32 31 36 46  |...J.. A%<>&216F|
00000240  20 8c 20 f1 22 42 61 64  20 64 61 74 61 22 3a e0  | . ."Bad data":.|
00000250  0d 01 54 05 e1 0d 01 5e  05 3a 0d 01 68 0b dd 20  |..T....^.:..h.. |
00000260  f2 70 6c 61 79 0d 01 72  0b 48 25 3d 2d 31 3a f5  |.play..r.H%=-1:.|
00000270  0d 01 7c 18 ef 32 32 2c  35 3a ef 32 33 2c 31 2c  |..|..22,5:.23,1,|
00000280  30 3b 30 3b 30 3b 30 3b  0d 01 86 11 ef 31 39 2c  |0;0;0;0;.....19,|
00000290  30 2c 34 2c 30 2c 30 2c  30 0d 01 90 1b ef 31 37  |0,4,0,0,0.....17|
000002a0  2c 31 32 39 3a ef 32 38  2c 30 2c 34 2c 31 39 2c  |,129:.28,0,4,19,|
000002b0  30 2c 31 32 0d 01 9a 1d  ef 32 38 2c 30 2c 33 31  |0,12.....28,0,31|
000002c0  2c 31 39 2c 32 37 2c 31  32 3a ef 31 37 2c 31 33  |,19,27,12:.17,13|
000002d0  30 0d 01 a4 13 ef 32 38  2c 31 2c 33 2c 31 38 2c  |0.....28,1,3,18,|
000002e0  31 2c 31 32 0d 01 ae 15  ef 32 38 2c 31 2c 33 30  |1,12.....28,1,30|
000002f0  2c 31 38 2c 32 38 2c 31  32 0d 01 b8 0e ef 32 36  |,18,28,12.....26|
00000300  2c 31 37 2c 31 32 38 0d  01 c2 19 f1 8a 34 2c 31  |,17,128......4,1|
00000310  35 29 22 4c 45 56 45 4c  20 28 31 2d 33 29 22 3b  |5)"LEVEL (1-3)";|
00000320  0d 01 cc 19 f5 20 54 25  3d a5 2d 34 38 3a fd 54  |..... T%=.-48:.T|
00000330  25 3e 30 80 54 25 3c 34  20 0d 01 d6 16 54 25 3d  |%>0.T%<4 ....T%=|
00000340  54 25 2d 31 3a f1 8a 34  2c 31 35 29 89 31 32 0d  |T%-1:..4,15).12.|
00000350  01 e0 2b e3 49 25 3d 30  b8 33 3a e3 4a 25 3d 30  |..+.I%=0.3:.J%=0|
00000360  b8 33 3a d4 31 2c 2d 31  35 2c 49 25 2a 31 30 2b  |.3:.1,-15,I%*10+|
00000370  31 30 2a 4a 25 2c 32 3a  ed 2c 0d 01 ea 19 53 25  |10*J%,2:.,....S%|
00000380  3d 30 3a 4d 25 3d 36 3a  4e 25 3d 32 35 3a 58 25  |=0:M%=6:N%=25:X%|
00000390  3d 31 35 0d 01 f4 24 ef  31 37 2c 31 3a ef 33 31  |=15...$.17,1:.31|
000003a0  2c 31 39 2c 36 2c 32 34  31 3a ef 33 31 2c 31 39  |,19,6,241:.31,19|
000003b0  2c 32 35 2c 32 34 31 0d  01 fe 0f f2 73 63 6f 72  |,25,241.....scor|
000003c0  65 28 30 29 3a f5 0d 02  08 1c ef 31 37 2c 31 32  |e(0):......17,12|
000003d0  38 2c 31 37 2c 32 2c 33  31 2c 32 2c 58 25 2c 32  |8,17,2,31,2,X%,2|
000003e0  34 30 0d 02 12 14 f2 77  61 6c 6c 73 3a d6 20 73  |40.....walls:. s|
000003f0  63 72 6f 6c 6c 25 0d 02  1c 19 46 25 3d 21 28 26  |croll%....F%=!(&|
00000400  35 38 30 30 2b 58 25 2a  33 32 30 2b 33 32 29 0d  |5800+X%*320+32).|
00000410  02 26 1a e7 20 a6 2d 36  36 20 80 20 58 25 3c 3e  |.&.. .-66 . X%<>|
00000420  36 20 58 25 3d 58 25 2d  31 0d 02 30 1b e7 20 a6  |6 X%=X%-1..0.. .|
00000430  2d 39 38 20 80 20 58 25  3c 3e 32 35 20 58 25 3d  |-98 . X%<>25 X%=|
00000440  58 25 2b 31 0d 02 3a 11  f2 73 63 6f 72 65 28 31  |X%+1..:..score(1|
00000450  29 3a fd 46 25 0d 02 44  11 ef 31 37 2c 31 32 38  |):.F%..D..17,128|
00000460  3a ef 31 37 2c 32 0d 02  4e 24 ef 33 31 2c 32 2c  |:.17,2..N$.31,2,|
00000470  58 25 2c 32 34 30 2c 31  37 2c 31 33 30 2c 31 37  |X%,240,17,130,17|
00000480  2c 31 2c 33 31 2c 34 2c  31 36 0d 02 58 13 f1 22  |,1,31,4,16..X.."|
00000490  50 72 65 73 73 20 52 45  54 55 52 4e 22 0d 02 62  |Press RETURN"..b|
000004a0  09 2a 46 58 31 35 0d 02  6c 0e d4 30 2c 2d 31 35  |.*FX15..l..0,-15|
000004b0  2c 37 2c 34 0d 02 76 0c  f5 20 fd 20 a5 3d 31 33  |,7,4..v.. . .=13|
000004c0  0d 02 80 07 fd 20 a3 0d  02 8a 05 e1 0d 02 94 05  |..... ..........|
000004d0  3a 0d 02 9e 18 dd f2 73  63 6f 72 65 28 41 25 29  |:......score(A%)|
000004e0  20 53 25 3d 53 25 2b 41  25 0d 02 a8 1e ef 31 37  | S%=S%+A%.....17|
000004f0  2c 31 33 31 2c 31 37 2c  30 3a e7 20 53 25 3e 48  |,131,17,0:. S%>H|
00000500  25 20 48 25 3d 53 25 0d  02 b2 15 f1 8a 32 2c 32  |% H%=S%......2,2|
00000510  29 22 53 63 6f 72 65 20  22 3b 53 25 0d 02 bc 16  |)"Score ";S%....|
00000520  f1 8a 32 2c 32 39 29 22  48 69 67 68 20 20 22 3b  |..2,29)"High  ";|
00000530  48 25 0d 02 c6 05 e1 0d  02 d0 05 3a 0d 02 da 0b  |H%.........:....|
00000540  dd f2 77 61 6c 6c 73 0d  02 e4 1d ef 31 37 2c 31  |..walls.....17,1|
00000550  3a 50 25 3d b3 28 33 29  2d 32 3a 51 25 3d b3 28  |:P%=.(3)-2:Q%=.(|
00000560  33 29 2d 32 0d 02 ee 1d  e7 20 54 25 3d 31 20 80  |3)-2..... T%=1 .|
00000570  20 b3 28 32 29 3d 31 20  50 25 3d 30 3a 51 25 3d  | .(2)=1 P%=0:Q%=|
00000580  30 0d 02 f8 12 e7 20 4d  25 2b 50 25 3c 36 20 50  |0..... M%+P%<6 P|
00000590  25 3d 30 0d 03 02 13 e7  20 4e 25 2b 51 25 3e 32  |%=0..... N%+Q%>2|
000005a0  35 20 51 25 3d 30 0d 03  0c 1e 20 e7 20 4e 25 2b  |5 Q%=0.... . N%+|
000005b0  51 25 2d 50 25 2d 4d 25  3c 38 20 50 25 3d 30 3a  |Q%-P%-M%<8 P%=0:|
000005c0  51 25 3d 30 0d 03 16 15  4d 25 3d 4d 25 2b 50 25  |Q%=0....M%=M%+P%|
000005d0  3a 4e 25 3d 4e 25 2b 51  25 0d 03 20 28 ef 33 31  |:N%=N%+Q%.. (.31|
000005e0  2c 31 39 2c 4d 25 2c 32  34 30 2b b3 28 36 29 2c  |,19,M%,240+.(6),|
000005f0  33 31 2c 31 39 2c 4e 25  2c 32 34 30 2b b3 28 36  |31,19,N%,240+.(6|
00000600  29 0d 03 2a 2c ef 33 31  2c 31 39 2c 4d 25 2b 31  |)..*,.31,19,M%+1|
00000610  2c 32 34 30 2b b3 28 36  29 2c 33 31 2c 31 39 2c  |,240+.(6),31,19,|
00000620  4e 25 2d 31 2c 32 34 30  2b b3 28 36 29 0d 03 34  |N%-1,240+.(6)..4|
00000630  12 ef 31 37 2c 33 3a e3  49 25 3d 31 b8 54 25 0d  |..17,3:.I%=1.T%.|
00000640  03 3e 2d e7 20 b3 28 34  2d 54 25 29 3d 31 20 ef  |.>-. .(4-T%)=1 .|
00000650  33 31 2c 31 39 2c b3 28  4e 25 2d 4d 25 2d 31 29  |31,19,.(N%-M%-1)|
00000660  2b 4d 25 2c 32 34 30 2b  b3 28 36 29 0d 03 48 07  |+M%,240+.(6)..H.|
00000670  ed 3a e1 0d 03 52 05 3a  0d 03 5c 18 dc 20 22 37  |.:...R.:..\.. "7|
00000680  38 41 39 35 45 38 44 31  31 30 42 41 39 34 30 22  |8A95E8D110BA940"|
00000690  0d 03 66 18 dc 20 22 38  44 31 30 30 42 41 39 30  |..f.. "8D100BA90|
000006a0  30 41 30 30 46 39 39 22  0d 03 70 18 dc 20 22 30  |0A00F99"..p.. "0|
000006b0  30 30 30 38 38 31 30 46  41 31 38 41 44 31 30 22  |0008810FA18AD10"|
000006c0  0d 03 7a 18 dc 20 22 30  42 36 39 34 30 38 44 31  |..z.. "0B69408D1|
000006d0  30 30 42 41 44 31 31 22  0d 03 84 18 dc 20 22 30  |00BAD11"..... "0|
000006e0  42 36 39 30 31 38 44 31  31 30 42 43 39 37 39 22  |B69018D110BC979"|
000006f0  0d 03 8e 18 dc 20 22 44  30 45 31 41 32 37 39 41  |..... "D0E1A279A|
00000700  39 35 46 38 44 34 32 22  0d 03 98 18 dc 20 22 30  |95F8D42"..... "0|
00000710  42 38 44 34 35 30 42 41  39 38 30 38 44 34 34 22  |B8D450BA9808D44"|
00000720  0d 03 a2 18 dc 20 22 30  42 41 39 39 30 38 44 34  |..... "0BA9908D4|
00000730  31 30 42 41 30 30 30 22  0d 03 ac 18 dc 20 22 42  |10BA000"..... "B|
00000740  39 30 30 30 30 39 39 30  30 30 30 43 38 44 30 22  |90000990000C8D0"|
00000750  0d 03 b6 18 dc 20 22 46  37 45 45 34 32 30 42 45  |..... "F7EE420BE|
00000760  45 34 35 30 42 45 43 22  0d 03 c0 18 dc 20 22 34  |E450BEC"..... "4|
00000770  35 30 42 44 30 45 41 35  38 36 30 34 34 34 36 22  |50BD0EA58604446"|
00000780  0d 03 ca 05 3a 0d 03 d4  09 ee 20 85 20 87 0d 03  |....:..... . ...|
00000790  de 07 eb 20 36 0d 03 e8  1c e7 20 9f 3c 3e 31 37  |... 6..... .<>17|
000007a0  20 f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  | .:." at line ";|
000007b0  9e 0d 03 f2 05 e0 0d ff                           |........|
000007b8