� Ladder Adder
� By Steve Bissell
� (c) Electron User
(� �>&1100 � �D|F
2
*FX213,50
<*FX214,1
F*FX211,0
P� 1:*FX 9,5
Z�inst:*FX 10,5
d
� 2:*FX16
n	�init
x�
��
��screen
��
��place_crowns
��
��move_head
�� HX%=CX% � HY%=CY%
��take_crown
��set_question
��check_score
�� crowns>4 � lives<1
�� crowns>4 � lives>0 �exit
�� level>4 � lives<1

�game_over


� �-86


� 6:� 3:�

"
��inst

,� 23,1,0;0;0;0:�

6A� 129:� 2:�13,0)�14," ")�13,1)" LADDER ADDER "�13,2)�14," ")

@�� 128:� 3:�0,5)"The object of the game, is to collect   all the crowns, and answer each of the  sums, before the fuse burns down and    explodes the bomb."

JE� 1:�0,10)"You start with 3 lives and have 5 stagesto complete."

T�� 2:�0,13)"The game becomes progressively harder   after each stage, with the fuse burning faster, and the numeric range of the    sums increasing."

^�� 3:�0,18)"There are 3 initial difficulty levels   for you to choose from, making the game suitable for children of all ages."

h|� 130:� 1:�15,22)" CONTROLS "�5,24)" Z = Left            * = Up   "�5,25)�30," ")�5,26)" X = Right           ? = Down "

r;� 128:� 2:�2,28)"(1) Hard    (2) Moderate    (3) Easy"

|;� 1:�2,30)" Select difficulty level? ( 1/2/3 ) ":*FX21

�-� key$=�:key=�"123",key$):� key>0 � key<4

�DL%=(key*3)+4

��

�
��init

�� 23,1,0;0;0;0:�

�2� 1,1,15,-10,10,10,-10,15,126,0,0,-126,126,126

�/� S$(24):level=0:lives=3:SC%=0:Q%=0:DW%=248

�N� 23,240,60,126,255,219,126,126,36,60,23,241,0,165,165,165,255,255,255,126

�O� 23,242,238,238,0,119,119,0,238,238,23,243,129,255,129,129,129,255,129,129

�F� 23,244,8,64,2,40,0,36,0,146,23,245,24,60,126,126,126,122,126,126

�?� 23,246,24,60,60,127,127,60,60,24,23,247,0,0,0,0,255,0,0,0

�� 23,248;0;0;0;0

�&walkway$=�18,�242):fuse$=�10,�247)
,lives$=�3," "+�240):crowns$=�5,�241+" ")
#path$=�18,�248):space$=�18," ")
�
&��screen
0'crowns=0:level=level+1:HX%=0:HY%=23
:� level=1 �setup
D#� 28,0,24,17,1:�:� 28,0,31,19,0
N� 2:�5,13)"STAGE  ";level
X'�sound(2,100,200,10,2,1):�delay(75)
b�5,13)�8," ")
l� 3:�9,0)crowns$
v� I%=2 � 24
�S$(I%)=space$
��
�� I%=3 � 24 � 7
�#� 131:� 1:�0,I%)walkway$:� 128
�"S$(I%)=walkway$:S$(I%-1)=path$
��
�� 2:� LY%=2 � 16 � 7
�"�:A%=�(8)*2:B%=�(8)*2:� A%<>B%
�#�ladder(A%,LY%):�ladder(B%,LY%)
��
�-� 6:�17,2)�(245):S$(2)=�S$(2),17)+�(245)
�� 7:�HX%,HY%)�240
��
��place_crowns
� RI%=�(4):CX%=�(17)
� RI%=1 CY%=2
 � RI%=2 CY%=9
*� RI%=3 CY%=16
4� RI%=4 CY%=23
>4� �(�S$(CY%),CX%+1,1))=248 � CY%<>HY% � CX%<>HX%
H� 5:�CX%,CY%)�241
R3S$(CY%)=�S$(CY%),CX%)+�241+�S$(CY%),18-(CX%+1))
\"� 7:�1,27)"Collect the Crown"
f�
p��move_head:*FX21
z'H%=HX%+(�-98 � H%>0)-(�-67 � H%<17)
�(V%=HY%+(�-73 � V%>2)-(�-105 � V%<24)
�� H%<>HX% � V%<>HY% � �
�W%=�(�S$(V%),H%+1,1))
�8� W%=248 � W%=243 � W%=241 � (W%=245 � crowns>4) � �
�*� 2:�HX%,HY%)�DW%:� 7:�H%,V%)�240;�7
�HX%=H%:HY%=V%:DW%=W%
��
���take_crown
�)crowns=crowns+1:Q%=Q%+1:�erase_crowns
��CX%,CY%)�240
�;S$(CY%)=�S$(CY%),CX%)+�248+�S$(CY%),18-(CX%+1)):DW%=248
�$�sound(1,20,10,1,1,5):�delay(50)
��
��set_question
i� Q$=�(�(level*10))+�"+-*/",�(4),1)+�(�(level*10)):� �(Q$)=�(�(Q$)) � �(Q$)>-1 � �(Q$)<level*20:*FX21
C� 1:�1,27)space$�1,27)"What's ";Q$" = ":A$="":FX%=0:OOT%=0:�=0
$5� 5:�4,29)�246:� 7:�5,29)fuse$:� 8:�15,29)�244
.�:T%=� � ((DL%-level)*10)
8� 8:�15-T%,29)�244+" "
B,K$=�0:� K$>"" � �K$>47 � �K$<58 A$=A$+K$
L!� �K$=127 A$="":�16,27)"   "
V� 6:�16,27);A$
`9� T%>9 � (K$=�(13) � �(A$)>0) � �(A$)>2:� T%>9 OOT%=1
janswer=�(A$):question=�(Q$)
t�
~��check_score
��delete(27)
��� OOT%=0 � answer=question M$=" That is Correct  ":col=3:�message:�sound(1,150,250,10,1,2):SC%=SC%+1:�update_score:�delay(50)
��� OOT%=0 � answer<>question M$="That is Incorrect ":col=5:�message:�sound(3,60,50,-1,1,1):lives=lives-1:�erase_lives:�delay(50)
��� OOT%=1 M$="Bomb has Exploded ":col=1:�message:� L%=1 � 4:� 19,0,11;0;:�sound(3,100,50,2,0,2):�:� 19,0,0;0;:lives=lives-1:�erase_lives:�delay(50)
��delete(27):�delete(29)
��
�
��message
�� col:�1,27);M$
��
���update_score
�� 3:�19,25-SC%);�241
��
��sound(l,f,s,st,c,d)

-� I%=1 � l:� J%=f � s � st:� c,1,J%,d:�:�
�
��game_over
(��:� 130:� 0:�0,0)�20," ");�0,1)" DIFFICULTY LEVEL ";(DL%-4) � 3;" ";�0,2)�20," ");:� 128:� 1:�4,7)"You reached";:� 7:�6,12)"Stage ";level
2`� 1:�1,17)"and your score was":� 3:�4,22);SC%" out of ";Q%:� 5:�1,28)"Another Go?  (Y/N)"
<"�sound(5,200,100,5,1,10):*FX21
F	key=�
P(�:lives=3:level=0:SC%=0:Q%=0:DW%=248
Z�
d��ladder(x%,y%)
n� I%=0 � 7
x�x%,y%+I%)�(243)
�7S$(y%+I%)=�S$(y%+I%),x%)+�243+�S$(y%+I%),18-(x%+1))
��
��
���erase_crowns
��9,0)�crowns,"  ")
��
���erase_lives
��lives*2,0)"  "
��
�
��exit
��delay(50)
�n� 7:�1,27)"Exit through door ":�sound(1,100,250,10,1,3):�:�move_head:� HX%=17 � HY%=2:DW%=248:�delete(27)
��
��delay(D%)
�=0:�:� �=D%
�
"��setup
,� 1:�0,0)lives$
6� 135:�19,25)�32:� 128
@7� 0,4:� 32,44:� 1247,44:� 1247,176:� 32,176:� 32,44
JB� 0,7:� 1246,224:� 1246,1023:� 1248,1023:� 1248,224:� 1246,224
T�
^��delete(y)
h�1,y)space$
r�
|	*TAPE
�X*KEY0 D%=PAGE-&E00:FOR I%=PAGE TO TOP STEP 4:!(I%-D%)=!I%:NEXT:PAGE=&E00|MOLD|MRUN|M
�*FX138,0,128
�

00000000  0d 00 0a 12 f4 20 4c 61  64 64 65 72 20 41 64 64  |..... Ladder Add|
00000010  65 72 0d 00 14 16 f4 20  42 79 20 53 74 65 76 65  |er..... By Steve|
00000020  20 42 69 73 73 65 6c 6c  0d 00 1e 17 f4 20 28 63  | Bissell..... (c|
00000030  29 20 45 6c 65 63 74 72  6f 6e 20 55 73 65 72 0d  |) Electron User.|
00000040  00 28 14 e7 20 90 3e 26  31 31 30 30 20 e5 20 8d  |.(.. .>&1100 . .|
00000050  44 7c 46 0d 00 32 0d 2a  46 58 32 31 33 2c 35 30  |D|F..2.*FX213,50|
00000060  0d 00 3c 0c 2a 46 58 32  31 34 2c 31 0d 00 46 0c  |..<.*FX214,1..F.|
00000070  2a 46 58 32 31 31 2c 30  0d 00 50 0f eb 20 31 3a  |*FX211,0..P.. 1:|
00000080  2a 46 58 20 39 2c 35 0d  00 5a 12 f2 69 6e 73 74  |*FX 9,5..Z..inst|
00000090  3a 2a 46 58 20 31 30 2c  35 0d 00 64 0d eb 20 32  |:*FX 10,5..d.. 2|
000000a0  3a 2a 46 58 31 36 0d 00  6e 09 f2 69 6e 69 74 0d  |:*FX16..n..init.|
000000b0  00 78 05 f5 0d 00 82 05  f5 0d 00 8c 0b f2 73 63  |.x............sc|
000000c0  72 65 65 6e 0d 00 96 05  f5 0d 00 a0 11 f2 70 6c  |reen..........pl|
000000d0  61 63 65 5f 63 72 6f 77  6e 73 0d 00 aa 05 f5 0d  |ace_crowns......|
000000e0  00 b4 0e f2 6d 6f 76 65  5f 68 65 61 64 0d 00 be  |....move_head...|
000000f0  17 fd 20 48 58 25 3d 43  58 25 20 80 20 48 59 25  |.. HX%=CX% . HY%|
00000100  3d 43 59 25 0d 00 c8 0f  f2 74 61 6b 65 5f 63 72  |=CY%.....take_cr|
00000110  6f 77 6e 0d 00 d2 11 f2  73 65 74 5f 71 75 65 73  |own.....set_ques|
00000120  74 69 6f 6e 0d 00 dc 10  f2 63 68 65 63 6b 5f 73  |tion.....check_s|
00000130  63 6f 72 65 0d 00 e6 18  fd 20 63 72 6f 77 6e 73  |core..... crowns|
00000140  3e 34 20 84 20 6c 69 76  65 73 3c 31 0d 00 f0 1e  |>4 . lives<1....|
00000150  e7 20 63 72 6f 77 6e 73  3e 34 20 80 20 6c 69 76  |. crowns>4 . liv|
00000160  65 73 3e 30 20 f2 65 78  69 74 0d 00 fa 17 fd 20  |es>0 .exit..... |
00000170  6c 65 76 65 6c 3e 34 20  84 20 6c 69 76 65 73 3c  |level>4 . lives<|
00000180  31 0d 01 04 0e f2 67 61  6d 65 5f 6f 76 65 72 0d  |1.....game_over.|
00000190  01 0e 0a fd 20 a6 2d 38  36 0d 01 18 0d eb 20 36  |.... .-86..... 6|
000001a0  3a fb 20 33 3a e0 0d 01  22 0a dd f2 69 6e 73 74  |:. 3:..."...inst|
000001b0  0d 01 2c 14 ef 20 32 33  2c 31 2c 30 3b 30 3b 30  |..,.. 23,1,0;0;0|
000001c0  3b 30 3a db 0d 01 36 41  fb 20 31 32 39 3a fb 20  |;0:...6A. 129:. |
000001d0  32 3a f1 8a 31 33 2c 30  29 c4 31 34 2c 22 20 22  |2:..13,0).14," "|
000001e0  29 8a 31 33 2c 31 29 22  20 4c 41 44 44 45 52 20  |).13,1)" LADDER |
000001f0  41 44 44 45 52 20 22 8a  31 33 2c 32 29 c4 31 34  |ADDER ".13,2).14|
00000200  2c 22 20 22 29 0d 01 40  a0 fb 20 31 32 38 3a fb  |," ")..@.. 128:.|
00000210  20 33 3a f1 8a 30 2c 35  29 22 54 68 65 20 6f 62  | 3:..0,5)"The ob|
00000220  6a 65 63 74 20 6f 66 20  74 68 65 20 67 61 6d 65  |ject of the game|
00000230  2c 20 69 73 20 74 6f 20  63 6f 6c 6c 65 63 74 20  |, is to collect |
00000240  20 20 61 6c 6c 20 74 68  65 20 63 72 6f 77 6e 73  |  all the crowns|
00000250  2c 20 61 6e 64 20 61 6e  73 77 65 72 20 65 61 63  |, and answer eac|
00000260  68 20 6f 66 20 74 68 65  20 20 73 75 6d 73 2c 20  |h of the  sums, |
00000270  62 65 66 6f 72 65 20 74  68 65 20 66 75 73 65 20  |before the fuse |
00000280  62 75 72 6e 73 20 64 6f  77 6e 20 61 6e 64 20 20  |burns down and  |
00000290  20 20 65 78 70 6c 6f 64  65 73 20 74 68 65 20 62  |  explodes the b|
000002a0  6f 6d 62 2e 22 0d 01 4a  45 fb 20 31 3a f1 8a 30  |omb."..JE. 1:..0|
000002b0  2c 31 30 29 22 59 6f 75  20 73 74 61 72 74 20 77  |,10)"You start w|
000002c0  69 74 68 20 33 20 6c 69  76 65 73 20 61 6e 64 20  |ith 3 lives and |
000002d0  68 61 76 65 20 35 20 73  74 61 67 65 73 74 6f 20  |have 5 stagesto |
000002e0  63 6f 6d 70 6c 65 74 65  2e 22 0d 01 54 99 fb 20  |complete."..T.. |
000002f0  32 3a f1 8a 30 2c 31 33  29 22 54 68 65 20 67 61  |2:..0,13)"The ga|
00000300  6d 65 20 62 65 63 6f 6d  65 73 20 70 72 6f 67 72  |me becomes progr|
00000310  65 73 73 69 76 65 6c 79  20 68 61 72 64 65 72 20  |essively harder |
00000320  20 20 61 66 74 65 72 20  65 61 63 68 20 73 74 61  |  after each sta|
00000330  67 65 2c 20 77 69 74 68  20 74 68 65 20 66 75 73  |ge, with the fus|
00000340  65 20 62 75 72 6e 69 6e  67 20 66 61 73 74 65 72  |e burning faster|
00000350  2c 20 61 6e 64 20 74 68  65 20 6e 75 6d 65 72 69  |, and the numeri|
00000360  63 20 72 61 6e 67 65 20  6f 66 20 74 68 65 20 20  |c range of the  |
00000370  20 20 73 75 6d 73 20 69  6e 63 72 65 61 73 69 6e  |  sums increasin|
00000380  67 2e 22 0d 01 5e 83 fb  20 33 3a f1 8a 30 2c 31  |g."..^.. 3:..0,1|
00000390  38 29 22 54 68 65 72 65  20 61 72 65 20 33 20 69  |8)"There are 3 i|
000003a0  6e 69 74 69 61 6c 20 64  69 66 66 69 63 75 6c 74  |nitial difficult|
000003b0  79 20 6c 65 76 65 6c 73  20 20 20 66 6f 72 20 79  |y levels   for y|
000003c0  6f 75 20 74 6f 20 63 68  6f 6f 73 65 20 66 72 6f  |ou to choose fro|
000003d0  6d 2c 20 6d 61 6b 69 6e  67 20 74 68 65 20 67 61  |m, making the ga|
000003e0  6d 65 20 73 75 69 74 61  62 6c 65 20 66 6f 72 20  |me suitable for |
000003f0  63 68 69 6c 64 72 65 6e  20 6f 66 20 61 6c 6c 20  |children of all |
00000400  61 67 65 73 2e 22 0d 01  68 7c fb 20 31 33 30 3a  |ages."..h|. 130:|
00000410  fb 20 31 3a f1 8a 31 35  2c 32 32 29 22 20 43 4f  |. 1:..15,22)" CO|
00000420  4e 54 52 4f 4c 53 20 22  8a 35 2c 32 34 29 22 20  |NTROLS ".5,24)" |
00000430  5a 20 3d 20 4c 65 66 74  20 20 20 20 20 20 20 20  |Z = Left        |
00000440  20 20 20 20 2a 20 3d 20  55 70 20 20 20 22 8a 35  |    * = Up   ".5|
00000450  2c 32 35 29 c4 33 30 2c  22 20 22 29 8a 35 2c 32  |,25).30," ").5,2|
00000460  36 29 22 20 58 20 3d 20  52 69 67 68 74 20 20 20  |6)" X = Right   |
00000470  20 20 20 20 20 20 20 20  3f 20 3d 20 44 6f 77 6e  |        ? = Down|
00000480  20 22 0d 01 72 3b fb 20  31 32 38 3a fb 20 32 3a  | "..r;. 128:. 2:|
00000490  f1 8a 32 2c 32 38 29 22  28 31 29 20 48 61 72 64  |..2,28)"(1) Hard|
000004a0  20 20 20 20 28 32 29 20  4d 6f 64 65 72 61 74 65  |    (2) Moderate|
000004b0  20 20 20 20 28 33 29 20  45 61 73 79 22 0d 01 7c  |    (3) Easy"..||
000004c0  3b fb 20 31 3a f1 8a 32  2c 33 30 29 22 20 53 65  |;. 1:..2,30)" Se|
000004d0  6c 65 63 74 20 64 69 66  66 69 63 75 6c 74 79 20  |lect difficulty |
000004e0  6c 65 76 65 6c 3f 20 28  20 31 2f 32 2f 33 20 29  |level? ( 1/2/3 )|
000004f0  20 22 3a 2a 46 58 32 31  0d 01 86 2d f5 20 6b 65  | ":*FX21...-. ke|
00000500  79 24 3d be 3a 6b 65 79  3d a7 22 31 32 33 22 2c  |y$=.:key=."123",|
00000510  6b 65 79 24 29 3a fd 20  6b 65 79 3e 30 20 80 20  |key$):. key>0 . |
00000520  6b 65 79 3c 34 0d 01 90  11 44 4c 25 3d 28 6b 65  |key<4....DL%=(ke|
00000530  79 2a 33 29 2b 34 0d 01  9a 05 e1 0d 01 a4 0a dd  |y*3)+4..........|
00000540  f2 69 6e 69 74 0d 01 ae  14 ef 20 32 33 2c 31 2c  |.init..... 23,1,|
00000550  30 3b 30 3b 30 3b 30 3a  db 0d 01 b8 32 e2 20 31  |0;0;0;0:....2. 1|
00000560  2c 31 2c 31 35 2c 2d 31  30 2c 31 30 2c 31 30 2c  |,1,15,-10,10,10,|
00000570  2d 31 30 2c 31 35 2c 31  32 36 2c 30 2c 30 2c 2d  |-10,15,126,0,0,-|
00000580  31 32 36 2c 31 32 36 2c  31 32 36 0d 01 c2 2f de  |126,126,126.../.|
00000590  20 53 24 28 32 34 29 3a  6c 65 76 65 6c 3d 30 3a  | S$(24):level=0:|
000005a0  6c 69 76 65 73 3d 33 3a  53 43 25 3d 30 3a 51 25  |lives=3:SC%=0:Q%|
000005b0  3d 30 3a 44 57 25 3d 32  34 38 0d 01 cc 4e ef 20  |=0:DW%=248...N. |
000005c0  32 33 2c 32 34 30 2c 36  30 2c 31 32 36 2c 32 35  |23,240,60,126,25|
000005d0  35 2c 32 31 39 2c 31 32  36 2c 31 32 36 2c 33 36  |5,219,126,126,36|
000005e0  2c 36 30 2c 32 33 2c 32  34 31 2c 30 2c 31 36 35  |,60,23,241,0,165|
000005f0  2c 31 36 35 2c 31 36 35  2c 32 35 35 2c 32 35 35  |,165,165,255,255|
00000600  2c 32 35 35 2c 31 32 36  0d 01 d6 4f ef 20 32 33  |,255,126...O. 23|
00000610  2c 32 34 32 2c 32 33 38  2c 32 33 38 2c 30 2c 31  |,242,238,238,0,1|
00000620  31 39 2c 31 31 39 2c 30  2c 32 33 38 2c 32 33 38  |19,119,0,238,238|
00000630  2c 32 33 2c 32 34 33 2c  31 32 39 2c 32 35 35 2c  |,23,243,129,255,|
00000640  31 32 39 2c 31 32 39 2c  31 32 39 2c 32 35 35 2c  |129,129,129,255,|
00000650  31 32 39 2c 31 32 39 0d  01 e0 46 ef 20 32 33 2c  |129,129...F. 23,|
00000660  32 34 34 2c 38 2c 36 34  2c 32 2c 34 30 2c 30 2c  |244,8,64,2,40,0,|
00000670  33 36 2c 30 2c 31 34 36  2c 32 33 2c 32 34 35 2c  |36,0,146,23,245,|
00000680  32 34 2c 36 30 2c 31 32  36 2c 31 32 36 2c 31 32  |24,60,126,126,12|
00000690  36 2c 31 32 32 2c 31 32  36 2c 31 32 36 0d 01 ea  |6,122,126,126...|
000006a0  3f ef 20 32 33 2c 32 34  36 2c 32 34 2c 36 30 2c  |?. 23,246,24,60,|
000006b0  36 30 2c 31 32 37 2c 31  32 37 2c 36 30 2c 36 30  |60,127,127,60,60|
000006c0  2c 32 34 2c 32 33 2c 32  34 37 2c 30 2c 30 2c 30  |,24,23,247,0,0,0|
000006d0  2c 30 2c 32 35 35 2c 30  2c 30 2c 30 0d 01 f4 14  |,0,255,0,0,0....|
000006e0  ef 20 32 33 2c 32 34 38  3b 30 3b 30 3b 30 3b 30  |. 23,248;0;0;0;0|
000006f0  0d 01 fe 26 77 61 6c 6b  77 61 79 24 3d c4 31 38  |...&walkway$=.18|
00000700  2c bd 32 34 32 29 3a 66  75 73 65 24 3d c4 31 30  |,.242):fuse$=.10|
00000710  2c bd 32 34 37 29 0d 02  08 2c 6c 69 76 65 73 24  |,.247)...,lives$|
00000720  3d c4 33 2c 22 20 22 2b  bd 32 34 30 29 3a 63 72  |=.3," "+.240):cr|
00000730  6f 77 6e 73 24 3d c4 35  2c bd 32 34 31 2b 22 20  |owns$=.5,.241+" |
00000740  22 29 0d 02 12 23 70 61  74 68 24 3d c4 31 38 2c  |")...#path$=.18,|
00000750  bd 32 34 38 29 3a 73 70  61 63 65 24 3d c4 31 38  |.248):space$=.18|
00000760  2c 22 20 22 29 0d 02 1c  05 e1 0d 02 26 0c dd f2  |," ").......&...|
00000770  73 63 72 65 65 6e 0d 02  30 27 63 72 6f 77 6e 73  |screen..0'crowns|
00000780  3d 30 3a 6c 65 76 65 6c  3d 6c 65 76 65 6c 2b 31  |=0:level=level+1|
00000790  3a 48 58 25 3d 30 3a 48  59 25 3d 32 33 0d 02 3a  |:HX%=0:HY%=23..:|
000007a0  14 e7 20 6c 65 76 65 6c  3d 31 20 f2 73 65 74 75  |.. level=1 .setu|
000007b0  70 0d 02 44 23 ef 20 32  38 2c 30 2c 32 34 2c 31  |p..D#. 28,0,24,1|
000007c0  37 2c 31 3a db 3a ef 20  32 38 2c 30 2c 33 31 2c  |7,1:.:. 28,0,31,|
000007d0  31 39 2c 30 0d 02 4e 1e  fb 20 32 3a f1 8a 35 2c  |19,0..N.. 2:..5,|
000007e0  31 33 29 22 53 54 41 47  45 20 20 22 3b 6c 65 76  |13)"STAGE  ";lev|
000007f0  65 6c 0d 02 58 27 f2 73  6f 75 6e 64 28 32 2c 31  |el..X'.sound(2,1|
00000800  30 30 2c 32 30 30 2c 31  30 2c 32 2c 31 29 3a f2  |00,200,10,2,1):.|
00000810  64 65 6c 61 79 28 37 35  29 0d 02 62 12 f1 8a 35  |delay(75)..b...5|
00000820  2c 31 33 29 c4 38 2c 22  20 22 29 0d 02 6c 15 fb  |,13).8," ")..l..|
00000830  20 33 3a f1 8a 39 2c 30  29 63 72 6f 77 6e 73 24  | 3:..9,0)crowns$|
00000840  0d 02 76 0f e3 20 49 25  3d 32 20 b8 20 32 34 0d  |..v.. I%=2 . 24.|
00000850  02 80 11 53 24 28 49 25  29 3d 73 70 61 63 65 24  |...S$(I%)=space$|
00000860  0d 02 8a 05 ed 0d 02 94  13 e3 20 49 25 3d 33 20  |.......... I%=3 |
00000870  b8 20 32 34 20 88 20 37  0d 02 9e 23 fb 20 31 33  |. 24 . 7...#. 13|
00000880  31 3a fb 20 31 3a f1 8a  30 2c 49 25 29 77 61 6c  |1:. 1:..0,I%)wal|
00000890  6b 77 61 79 24 3a fb 20  31 32 38 0d 02 a8 22 53  |kway$:. 128..."S|
000008a0  24 28 49 25 29 3d 77 61  6c 6b 77 61 79 24 3a 53  |$(I%)=walkway$:S|
000008b0  24 28 49 25 2d 31 29 3d  70 61 74 68 24 0d 02 b2  |$(I%-1)=path$...|
000008c0  05 ed 0d 02 bc 18 fb 20  32 3a e3 20 4c 59 25 3d  |....... 2:. LY%=|
000008d0  32 20 b8 20 31 36 20 88  20 37 0d 02 c6 22 f5 3a  |2 . 16 . 7...".:|
000008e0  41 25 3d b3 28 38 29 2a  32 3a 42 25 3d b3 28 38  |A%=.(8)*2:B%=.(8|
000008f0  29 2a 32 3a fd 20 41 25  3c 3e 42 25 0d 02 d0 23  |)*2:. A%<>B%...#|
00000900  f2 6c 61 64 64 65 72 28  41 25 2c 4c 59 25 29 3a  |.ladder(A%,LY%):|
00000910  f2 6c 61 64 64 65 72 28  42 25 2c 4c 59 25 29 0d  |.ladder(B%,LY%).|
00000920  02 da 05 ed 0d 02 e4 2d  fb 20 36 3a f1 8a 31 37  |.......-. 6:..17|
00000930  2c 32 29 bd 28 32 34 35  29 3a 53 24 28 32 29 3d  |,2).(245):S$(2)=|
00000940  c0 53 24 28 32 29 2c 31  37 29 2b bd 28 32 34 35  |.S$(2),17)+.(245|
00000950  29 0d 02 ee 16 fb 20 37  3a f1 8a 48 58 25 2c 48  |)..... 7:..HX%,H|
00000960  59 25 29 bd 32 34 30 0d  02 f8 05 e1 0d 03 02 12  |Y%).240.........|
00000970  dd f2 70 6c 61 63 65 5f  63 72 6f 77 6e 73 0d 03  |..place_crowns..|
00000980  0c 18 f5 20 52 49 25 3d  b3 28 34 29 3a 43 58 25  |... RI%=.(4):CX%|
00000990  3d b3 28 31 37 29 0d 03  16 11 e7 20 52 49 25 3d  |=.(17)..... RI%=|
000009a0  31 20 43 59 25 3d 32 0d  03 20 11 e7 20 52 49 25  |1 CY%=2.. .. RI%|
000009b0  3d 32 20 43 59 25 3d 39  0d 03 2a 12 e7 20 52 49  |=2 CY%=9..*.. RI|
000009c0  25 3d 33 20 43 59 25 3d  31 36 0d 03 34 12 e7 20  |%=3 CY%=16..4.. |
000009d0  52 49 25 3d 34 20 43 59  25 3d 32 33 0d 03 3e 34  |RI%=4 CY%=23..>4|
000009e0  fd 20 97 28 c1 53 24 28  43 59 25 29 2c 43 58 25  |. .(.S$(CY%),CX%|
000009f0  2b 31 2c 31 29 29 3d 32  34 38 20 80 20 43 59 25  |+1,1))=248 . CY%|
00000a00  3c 3e 48 59 25 20 80 20  43 58 25 3c 3e 48 58 25  |<>HY% . CX%<>HX%|
00000a10  0d 03 48 16 fb 20 35 3a  f1 8a 43 58 25 2c 43 59  |..H.. 5:..CX%,CY|
00000a20  25 29 bd 32 34 31 0d 03  52 33 53 24 28 43 59 25  |%).241..R3S$(CY%|
00000a30  29 3d c0 53 24 28 43 59  25 29 2c 43 58 25 29 2b  |)=.S$(CY%),CX%)+|
00000a40  bd 32 34 31 2b c2 53 24  28 43 59 25 29 2c 31 38  |.241+.S$(CY%),18|
00000a50  2d 28 43 58 25 2b 31 29  29 0d 03 5c 22 fb 20 37  |-(CX%+1))..\". 7|
00000a60  3a f1 8a 31 2c 32 37 29  22 43 6f 6c 6c 65 63 74  |:..1,27)"Collect|
00000a70  20 74 68 65 20 43 72 6f  77 6e 22 0d 03 66 05 e1  | the Crown"..f..|
00000a80  0d 03 70 15 dd f2 6d 6f  76 65 5f 68 65 61 64 3a  |..p...move_head:|
00000a90  2a 46 58 32 31 0d 03 7a  27 48 25 3d 48 58 25 2b  |*FX21..z'H%=HX%+|
00000aa0  28 a6 2d 39 38 20 80 20  48 25 3e 30 29 2d 28 a6  |(.-98 . H%>0)-(.|
00000ab0  2d 36 37 20 80 20 48 25  3c 31 37 29 0d 03 84 28  |-67 . H%<17)...(|
00000ac0  56 25 3d 48 59 25 2b 28  a6 2d 37 33 20 80 20 56  |V%=HY%+(.-73 . V|
00000ad0  25 3e 32 29 2d 28 a6 2d  31 30 35 20 80 20 56 25  |%>2)-(.-105 . V%|
00000ae0  3c 32 34 29 0d 03 8e 1b  e7 20 48 25 3c 3e 48 58  |<24)..... H%<>HX|
00000af0  25 20 84 20 56 25 3c 3e  48 59 25 20 8b 20 e1 0d  |% . V%<>HY% . ..|
00000b00  03 98 19 57 25 3d 97 28  c1 53 24 28 56 25 29 2c  |...W%=.(.S$(V%),|
00000b10  48 25 2b 31 2c 31 29 29  0d 03 a2 38 e7 20 57 25  |H%+1,1))...8. W%|
00000b20  3d 32 34 38 20 84 20 57  25 3d 32 34 33 20 84 20  |=248 . W%=243 . |
00000b30  57 25 3d 32 34 31 20 84  20 28 57 25 3d 32 34 35  |W%=241 . (W%=245|
00000b40  20 80 20 63 72 6f 77 6e  73 3e 34 29 20 8b 20 e1  | . crowns>4) . .|
00000b50  0d 03 ac 2a fb 20 32 3a  f1 8a 48 58 25 2c 48 59  |...*. 2:..HX%,HY|
00000b60  25 29 bd 44 57 25 3a fb  20 37 3a f1 8a 48 25 2c  |%).DW%:. 7:..H%,|
00000b70  56 25 29 bd 32 34 30 3b  bd 37 0d 03 b6 18 48 58  |V%).240;.7....HX|
00000b80  25 3d 48 25 3a 48 59 25  3d 56 25 3a 44 57 25 3d  |%=H%:HY%=V%:DW%=|
00000b90  57 25 0d 03 c0 05 e1 0d  03 ca 10 dd f2 74 61 6b  |W%...........tak|
00000ba0  65 5f 63 72 6f 77 6e 0d  03 d4 29 63 72 6f 77 6e  |e_crown...)crown|
00000bb0  73 3d 63 72 6f 77 6e 73  2b 31 3a 51 25 3d 51 25  |s=crowns+1:Q%=Q%|
00000bc0  2b 31 3a f2 65 72 61 73  65 5f 63 72 6f 77 6e 73  |+1:.erase_crowns|
00000bd0  0d 03 de 12 f1 8a 43 58  25 2c 43 59 25 29 bd 32  |......CX%,CY%).2|
00000be0  34 30 0d 03 e8 3b 53 24  28 43 59 25 29 3d c0 53  |40...;S$(CY%)=.S|
00000bf0  24 28 43 59 25 29 2c 43  58 25 29 2b bd 32 34 38  |$(CY%),CX%)+.248|
00000c00  2b c2 53 24 28 43 59 25  29 2c 31 38 2d 28 43 58  |+.S$(CY%),18-(CX|
00000c10  25 2b 31 29 29 3a 44 57  25 3d 32 34 38 0d 03 f2  |%+1)):DW%=248...|
00000c20  24 f2 73 6f 75 6e 64 28  31 2c 32 30 2c 31 30 2c  |$.sound(1,20,10,|
00000c30  31 2c 31 2c 35 29 3a f2  64 65 6c 61 79 28 35 30  |1,1,5):.delay(50|
00000c40  29 0d 03 fc 05 e1 0d 04  06 12 dd f2 73 65 74 5f  |)...........set_|
00000c50  71 75 65 73 74 69 6f 6e  0d 04 10 69 f5 20 51 24  |question...i. Q$|
00000c60  3d c3 28 b3 28 6c 65 76  65 6c 2a 31 30 29 29 2b  |=.(.(level*10))+|
00000c70  c1 22 2b 2d 2a 2f 22 2c  b3 28 34 29 2c 31 29 2b  |."+-*/",.(4),1)+|
00000c80  c3 28 b3 28 6c 65 76 65  6c 2a 31 30 29 29 3a fd  |.(.(level*10)):.|
00000c90  20 a0 28 51 24 29 3d a8  28 a0 28 51 24 29 29 20  | .(Q$)=.(.(Q$)) |
00000ca0  80 20 a0 28 51 24 29 3e  2d 31 20 80 20 a0 28 51  |. .(Q$)>-1 . .(Q|
00000cb0  24 29 3c 6c 65 76 65 6c  2a 32 30 3a 2a 46 58 32  |$)<level*20:*FX2|
00000cc0  31 0d 04 1a 43 fb 20 31  3a f1 8a 31 2c 32 37 29  |1...C. 1:..1,27)|
00000cd0  73 70 61 63 65 24 8a 31  2c 32 37 29 22 57 68 61  |space$.1,27)"Wha|
00000ce0  74 27 73 20 22 3b 51 24  22 20 3d 20 22 3a 41 24  |t's ";Q$" = ":A$|
00000cf0  3d 22 22 3a 46 58 25 3d  30 3a 4f 4f 54 25 3d 30  |="":FX%=0:OOT%=0|
00000d00  3a d1 3d 30 0d 04 24 35  fb 20 35 3a f1 8a 34 2c  |:.=0..$5. 5:..4,|
00000d10  32 39 29 bd 32 34 36 3a  fb 20 37 3a f1 8a 35 2c  |29).246:. 7:..5,|
00000d20  32 39 29 66 75 73 65 24  3a fb 20 38 3a f1 8a 31  |29)fuse$:. 8:..1|
00000d30  35 2c 32 39 29 bd 32 34  34 0d 04 2e 1d f5 3a 54  |5,29).244.....:T|
00000d40  25 3d 91 20 81 20 28 28  44 4c 25 2d 6c 65 76 65  |%=. . ((DL%-leve|
00000d50  6c 29 2a 31 30 29 0d 04  38 1b fb 20 38 3a f1 8a  |l)*10)..8.. 8:..|
00000d60  31 35 2d 54 25 2c 32 39  29 bd 32 34 34 2b 22 20  |15-T%,29).244+" |
00000d70  22 0d 04 42 2c 4b 24 3d  bf 30 3a e7 20 4b 24 3e  |"..B,K$=.0:. K$>|
00000d80  22 22 20 80 20 97 4b 24  3e 34 37 20 80 20 97 4b  |"" . .K$>47 . .K|
00000d90  24 3c 35 38 20 41 24 3d  41 24 2b 4b 24 0d 04 4c  |$<58 A$=A$+K$..L|
00000da0  21 e7 20 97 4b 24 3d 31  32 37 20 41 24 3d 22 22  |!. .K$=127 A$=""|
00000db0  3a f1 8a 31 36 2c 32 37  29 22 20 20 20 22 0d 04  |:..16,27)"   "..|
00000dc0  56 13 fb 20 36 3a f1 8a  31 36 2c 32 37 29 3b 41  |V.. 6:..16,27);A|
00000dd0  24 0d 04 60 39 fd 20 54  25 3e 39 20 84 20 28 4b  |$..`9. T%>9 . (K|
00000de0  24 3d bd 28 31 33 29 20  80 20 a9 28 41 24 29 3e  |$=.(13) . .(A$)>|
00000df0  30 29 20 84 20 a9 28 41  24 29 3e 32 3a e7 20 54  |0) . .(A$)>2:. T|
00000e00  25 3e 39 20 4f 4f 54 25  3d 31 0d 04 6a 1f 61 6e  |%>9 OOT%=1..j.an|
00000e10  73 77 65 72 3d bb 28 41  24 29 3a 71 75 65 73 74  |swer=.(A$):quest|
00000e20  69 6f 6e 3d a0 28 51 24  29 0d 04 74 05 e1 0d 04  |ion=.(Q$)..t....|
00000e30  7e 11 dd f2 63 68 65 63  6b 5f 73 63 6f 72 65 0d  |~...check_score.|
00000e40  04 88 0f f2 64 65 6c 65  74 65 28 32 37 29 0d 04  |....delete(27)..|
00000e50  92 81 e7 20 4f 4f 54 25  3d 30 20 80 20 61 6e 73  |... OOT%=0 . ans|
00000e60  77 65 72 3d 71 75 65 73  74 69 6f 6e 20 4d 24 3d  |wer=question M$=|
00000e70  22 20 54 68 61 74 20 69  73 20 43 6f 72 72 65 63  |" That is Correc|
00000e80  74 20 20 22 3a 63 6f 6c  3d 33 3a f2 6d 65 73 73  |t  ":col=3:.mess|
00000e90  61 67 65 3a f2 73 6f 75  6e 64 28 31 2c 31 35 30  |age:.sound(1,150|
00000ea0  2c 32 35 30 2c 31 30 2c  31 2c 32 29 3a 53 43 25  |,250,10,1,2):SC%|
00000eb0  3d 53 43 25 2b 31 3a f2  75 70 64 61 74 65 5f 73  |=SC%+1:.update_s|
00000ec0  63 6f 72 65 3a f2 64 65  6c 61 79 28 35 30 29 0d  |core:.delay(50).|
00000ed0  04 9c 83 e7 20 4f 4f 54  25 3d 30 20 80 20 61 6e  |.... OOT%=0 . an|
00000ee0  73 77 65 72 3c 3e 71 75  65 73 74 69 6f 6e 20 4d  |swer<>question M|
00000ef0  24 3d 22 54 68 61 74 20  69 73 20 49 6e 63 6f 72  |$="That is Incor|
00000f00  72 65 63 74 20 22 3a 63  6f 6c 3d 35 3a f2 6d 65  |rect ":col=5:.me|
00000f10  73 73 61 67 65 3a f2 73  6f 75 6e 64 28 33 2c 36  |ssage:.sound(3,6|
00000f20  30 2c 35 30 2c 2d 31 2c  31 2c 31 29 3a 6c 69 76  |0,50,-1,1,1):liv|
00000f30  65 73 3d 6c 69 76 65 73  2d 31 3a f2 65 72 61 73  |es=lives-1:.eras|
00000f40  65 5f 6c 69 76 65 73 3a  f2 64 65 6c 61 79 28 35  |e_lives:.delay(5|
00000f50  30 29 0d 04 a6 96 e7 20  4f 4f 54 25 3d 31 20 4d  |0)..... OOT%=1 M|
00000f60  24 3d 22 42 6f 6d 62 20  68 61 73 20 45 78 70 6c  |$="Bomb has Expl|
00000f70  6f 64 65 64 20 22 3a 63  6f 6c 3d 31 3a f2 6d 65  |oded ":col=1:.me|
00000f80  73 73 61 67 65 3a e3 20  4c 25 3d 31 20 b8 20 34  |ssage:. L%=1 . 4|
00000f90  3a ef 20 31 39 2c 30 2c  31 31 3b 30 3b 3a f2 73  |:. 19,0,11;0;:.s|
00000fa0  6f 75 6e 64 28 33 2c 31  30 30 2c 35 30 2c 32 2c  |ound(3,100,50,2,|
00000fb0  30 2c 32 29 3a ed 3a ef  20 31 39 2c 30 2c 30 3b  |0,2):.:. 19,0,0;|
00000fc0  30 3b 3a 6c 69 76 65 73  3d 6c 69 76 65 73 2d 31  |0;:lives=lives-1|
00000fd0  3a f2 65 72 61 73 65 5f  6c 69 76 65 73 3a f2 64  |:.erase_lives:.d|
00000fe0  65 6c 61 79 28 35 30 29  0d 04 b0 1b f2 64 65 6c  |elay(50).....del|
00000ff0  65 74 65 28 32 37 29 3a  f2 64 65 6c 65 74 65 28  |ete(27):.delete(|
00001000  32 39 29 0d 04 ba 05 e1  0d 04 c4 0d dd f2 6d 65  |29)...........me|
00001010  73 73 61 67 65 0d 04 ce  14 fb 20 63 6f 6c 3a f1  |ssage..... col:.|
00001020  8a 31 2c 32 37 29 3b 4d  24 0d 04 d8 05 e1 0d 04  |.1,27);M$.......|
00001030  e2 12 dd f2 75 70 64 61  74 65 5f 73 63 6f 72 65  |....update_score|
00001040  0d 04 ec 19 fb 20 33 3a  f1 8a 31 39 2c 32 35 2d  |..... 3:..19,25-|
00001050  53 43 25 29 3b bd 32 34  31 0d 04 f6 05 e1 0d 05  |SC%);.241.......|
00001060  00 19 dd f2 73 6f 75 6e  64 28 6c 2c 66 2c 73 2c  |....sound(l,f,s,|
00001070  73 74 2c 63 2c 64 29 0d  05 0a 2d e3 20 49 25 3d  |st,c,d)...-. I%=|
00001080  31 20 b8 20 6c 3a e3 20  4a 25 3d 66 20 b8 20 73  |1 . l:. J%=f . s|
00001090  20 88 20 73 74 3a d4 20  63 2c 31 2c 4a 25 2c 64  | . st:. c,1,J%,d|
000010a0  3a ed 3a ed 0d 05 14 05  e1 0d 05 1e 0f dd f2 67  |:.:............g|
000010b0  61 6d 65 5f 6f 76 65 72  0d 05 28 90 db 3a fb 20  |ame_over..(..:. |
000010c0  31 33 30 3a fb 20 30 3a  f1 8a 30 2c 30 29 c4 32  |130:. 0:..0,0).2|
000010d0  30 2c 22 20 22 29 3b 8a  30 2c 31 29 22 20 44 49  |0," ");.0,1)" DI|
000010e0  46 46 49 43 55 4c 54 59  20 4c 45 56 45 4c 20 22  |FFICULTY LEVEL "|
000010f0  3b 28 44 4c 25 2d 34 29  20 81 20 33 3b 22 20 22  |;(DL%-4) . 3;" "|
00001100  3b 8a 30 2c 32 29 c4 32  30 2c 22 20 22 29 3b 3a  |;.0,2).20," ");:|
00001110  fb 20 31 32 38 3a fb 20  31 3a f1 8a 34 2c 37 29  |. 128:. 1:..4,7)|
00001120  22 59 6f 75 20 72 65 61  63 68 65 64 22 3b 3a fb  |"You reached";:.|
00001130  20 37 3a f1 8a 36 2c 31  32 29 22 53 74 61 67 65  | 7:..6,12)"Stage|
00001140  20 22 3b 6c 65 76 65 6c  0d 05 32 60 fb 20 31 3a  | ";level..2`. 1:|
00001150  f1 8a 31 2c 31 37 29 22  61 6e 64 20 79 6f 75 72  |..1,17)"and your|
00001160  20 73 63 6f 72 65 20 77  61 73 22 3a fb 20 33 3a  | score was":. 3:|
00001170  f1 8a 34 2c 32 32 29 3b  53 43 25 22 20 6f 75 74  |..4,22);SC%" out|
00001180  20 6f 66 20 22 3b 51 25  3a fb 20 35 3a f1 8a 31  | of ";Q%:. 5:..1|
00001190  2c 32 38 29 22 41 6e 6f  74 68 65 72 20 47 6f 3f  |,28)"Another Go?|
000011a0  20 20 28 59 2f 4e 29 22  0d 05 3c 22 f2 73 6f 75  |  (Y/N)"..<".sou|
000011b0  6e 64 28 35 2c 32 30 30  2c 31 30 30 2c 35 2c 31  |nd(5,200,100,5,1|
000011c0  2c 31 30 29 3a 2a 46 58  32 31 0d 05 46 09 6b 65  |,10):*FX21..F.ke|
000011d0  79 3d a5 0d 05 50 28 db  3a 6c 69 76 65 73 3d 33  |y=...P(.:lives=3|
000011e0  3a 6c 65 76 65 6c 3d 30  3a 53 43 25 3d 30 3a 51  |:level=0:SC%=0:Q|
000011f0  25 3d 30 3a 44 57 25 3d  32 34 38 0d 05 5a 05 e1  |%=0:DW%=248..Z..|
00001200  0d 05 64 13 dd f2 6c 61  64 64 65 72 28 78 25 2c  |..d...ladder(x%,|
00001210  79 25 29 0d 05 6e 0e e3  20 49 25 3d 30 20 b8 20  |y%)..n.. I%=0 . |
00001220  37 0d 05 78 15 f1 8a 78  25 2c 79 25 2b 49 25 29  |7..x...x%,y%+I%)|
00001230  bd 28 32 34 33 29 0d 05  82 37 53 24 28 79 25 2b  |.(243)...7S$(y%+|
00001240  49 25 29 3d c0 53 24 28  79 25 2b 49 25 29 2c 78  |I%)=.S$(y%+I%),x|
00001250  25 29 2b bd 32 34 33 2b  c2 53 24 28 79 25 2b 49  |%)+.243+.S$(y%+I|
00001260  25 29 2c 31 38 2d 28 78  25 2b 31 29 29 0d 05 8c  |%),18-(x%+1))...|
00001270  05 ed 0d 05 96 05 e1 0d  05 a0 12 dd f2 65 72 61  |.............era|
00001280  73 65 5f 63 72 6f 77 6e  73 0d 05 aa 17 f1 8a 39  |se_crowns......9|
00001290  2c 30 29 c4 63 72 6f 77  6e 73 2c 22 20 20 22 29  |,0).crowns,"  ")|
000012a0  0d 05 b4 05 e1 0d 05 be  11 dd f2 65 72 61 73 65  |...........erase|
000012b0  5f 6c 69 76 65 73 0d 05  c8 14 f1 8a 6c 69 76 65  |_lives......live|
000012c0  73 2a 32 2c 30 29 22 20  20 22 0d 05 d2 05 e1 0d  |s*2,0)"  "......|
000012d0  05 dc 0a dd f2 65 78 69  74 0d 05 e6 0e f2 64 65  |.....exit.....de|
000012e0  6c 61 79 28 35 30 29 0d  05 f0 6e fb 20 37 3a f1  |lay(50)...n. 7:.|
000012f0  8a 31 2c 32 37 29 22 45  78 69 74 20 74 68 72 6f  |.1,27)"Exit thro|
00001300  75 67 68 20 64 6f 6f 72  20 22 3a f2 73 6f 75 6e  |ugh door ":.soun|
00001310  64 28 31 2c 31 30 30 2c  32 35 30 2c 31 30 2c 31  |d(1,100,250,10,1|
00001320  2c 33 29 3a f5 3a f2 6d  6f 76 65 5f 68 65 61 64  |,3):.:.move_head|
00001330  3a fd 20 48 58 25 3d 31  37 20 80 20 48 59 25 3d  |:. HX%=17 . HY%=|
00001340  32 3a 44 57 25 3d 32 34  38 3a f2 64 65 6c 65 74  |2:DW%=248:.delet|
00001350  65 28 32 37 29 0d 05 fa  05 e1 0d 06 04 0f dd f2  |e(27)...........|
00001360  64 65 6c 61 79 28 44 25  29 0d 06 0e 10 d1 3d 30  |delay(D%).....=0|
00001370  3a f5 3a fd 20 91 3d 44  25 0d 06 18 05 e1 0d 06  |:.:. .=D%.......|
00001380  22 0b dd f2 73 65 74 75  70 0d 06 2c 14 fb 20 31  |"...setup..,.. 1|
00001390  3a f1 8a 30 2c 30 29 6c  69 76 65 73 24 0d 06 36  |:..0,0)lives$..6|
000013a0  1b fb 20 31 33 35 3a f1  8a 31 39 2c 32 35 29 bd  |.. 135:..19,25).|
000013b0  33 32 3a fb 20 31 32 38  0d 06 40 37 e6 20 30 2c  |32:. 128..@7. 0,|
000013c0  34 3a ec 20 33 32 2c 34  34 3a df 20 31 32 34 37  |4:. 32,44:. 1247|
000013d0  2c 34 34 3a df 20 31 32  34 37 2c 31 37 36 3a df  |,44:. 1247,176:.|
000013e0  20 33 32 2c 31 37 36 3a  df 20 33 32 2c 34 34 0d  | 32,176:. 32,44.|
000013f0  06 4a 42 e6 20 30 2c 37  3a ec 20 31 32 34 36 2c  |.JB. 0,7:. 1246,|
00001400  32 32 34 3a df 20 31 32  34 36 2c 31 30 32 33 3a  |224:. 1246,1023:|
00001410  df 20 31 32 34 38 2c 31  30 32 33 3a df 20 31 32  |. 1248,1023:. 12|
00001420  34 38 2c 32 32 34 3a df  20 31 32 34 36 2c 32 32  |48,224:. 1246,22|
00001430  34 0d 06 54 05 e1 0d 06  5e 0f dd f2 64 65 6c 65  |4..T....^...dele|
00001440  74 65 28 79 29 0d 06 68  10 f1 8a 31 2c 79 29 73  |te(y)..h...1,y)s|
00001450  70 61 63 65 24 0d 06 72  05 e1 0d 06 7c 09 2a 54  |pace$..r....|.*T|
00001460  41 50 45 0d 06 86 58 2a  4b 45 59 30 20 44 25 3d  |APE...X*KEY0 D%=|
00001470  50 41 47 45 2d 26 45 30  30 3a 46 4f 52 20 49 25  |PAGE-&E00:FOR I%|
00001480  3d 50 41 47 45 20 54 4f  20 54 4f 50 20 53 54 45  |=PAGE TO TOP STE|
00001490  50 20 34 3a 21 28 49 25  2d 44 25 29 3d 21 49 25  |P 4:!(I%-D%)=!I%|
000014a0  3a 4e 45 58 54 3a 50 41  47 45 3d 26 45 30 30 7c  |:NEXT:PAGE=&E00||
000014b0  4d 4f 4c 44 7c 4d 52 55  4e 7c 4d 0d 06 90 10 2a  |MOLD|MRUN|M....*|
000014c0  46 58 31 33 38 2c 30 2c  31 32 38 0d ff           |FX138,0,128..|
000014cd