� Bombed The Editor
� Version 1.0
� Author David Hopkins
(� (C) The Micro User
2"� Program subject to copyright
<"�23,224,28,42,28,0,62,73,20,20
FC�23,233,24,24,126,126,24,24,24,24,23,235,0,126,24,24,24,24,24,0
P��23,240,7,24,22,33,32,33,33,17,23,241,0,231,24,128,97,6,64,194,23,242,224,24,8,100,132,4,132,136,23,243,8,202,41,120,40,200,17,18,23,244,131,33,196,3,60,231,102,66,23,245,144,19,84,158,20,19,136,72,23,246,34,36,19,17,40,52,35,224
Z��23,247,66,0,0,165,102,24,129,126,23,248,68,36,200,136,20,44,196,7,23,255,0,251,251,170,0,191,191,170,23,253,129,0,0,0,0,0,0,129
d �S%(9,9),MAX%(7),P%(7),I$(7)
nMM$=�240+�241+�242+�10+�8+�8+�8+�243+�244+�245+�10+�8+�8+�8+�246+�247+�248
xsC$=�233:T$=�235:Man$=�224:U$=�253:S$=�255+�255+�255+�10+�8+�8+�8+�255+�255+�255+�10+�8+�8+�8+�255+�255+�255+�11
�P%=&3000:?P%=&0D:O%=P%+1
��T%=1�15
��4:�23;8202;0;0;0;
�-�"BOMBED the screen definer. Editing ";T%
��X%=1:Y%=1:K%=0:MAX%(0)=255:MAX%(1)=255:MAX%(2)=3:MAX%(3)=8:MAX%(4)=1:MAX%(5)=1:MAX%(6)=8:MAX%(7)=1:P%(0)=0:P%(1)=0:P%(2)=0:P%(3)=0:P%(4)=0:P%(5)=0:P%(6)=0:P%(7)=0
�j�A=0�9:�A*3+1,1);S$;�A*3+1,28);S$;�1,A*3+1);S$;�28,A*3+1);S$;:S%(A,0)=1:S%(0,A)=1:S%(A,9)=1:S%(9,A)=1
���:�A=1�8:�B=1�8:S%(A,B)=0:�,:I$(0)="Nothing ":I$(1)="Wall    ":I$(2)="Demon   ":I$(3)="Cross   ":I$(4)="Teleport":I$(5)="Arrival ":I$(6)="Trap    ":I$(7)="Start   "
��sq
��
��sq
��-67�X%<8X%=X%+1
��-98�X%>1X%=X%-1
��-105�Y%<8Y%=Y%+1

�-73�Y%>1Y%=Y%-1

�-58�K%<7K%=K%+1

�-42�K%>0K%=K%-1

"�32,5);I$(K%);

,�-74 �change

6�sq

@,�P%(4)=1�P%(5)=0 � P%(5)=1�P%(4)=0 �d\@

J��-97�P%(7)=1�P%(3)>0:*FX15

T*�:�10,4)"How Many bombs ? ";:�""BOMB%

^�''"Wait a mo..."

h6R$="":�A=0�9:�B=0�9:�S%(B,A)=1 R$=R$+"1"�R$=R$+"0"

rX�,:A$="":�B%=1�100�5:P$=�R$,B%,5):C%=32:D%=0:�A%=1�5:C%=C%/2:�P$,A%,1)="1" D%=D%+C%

|�:A$=A$+�(65+D%):�

�D$=A$+","+�(P%(3)):�S(3)

�D$=D$+","+�(BOMB%):�S(7)

�D$=D$+","+�(P%(2)):�S(2)

�D$=D$+","+�(P%(4)):�S(4)

�	�S(5)

�D$=D$+","+�(P%(6)):�S(6)

‹?O%=T% � 256:O%?1=T% � 256:O%?2=�(D$)+5:O%?3=&DC:P%=P%+�(D$)+5:C%=O%+3:�S%=1��(D$):S%?C%=�(�D$,S%,1)):�:S%?C%=&0D:O%=O%+?(O%+2):?O%=&FF

��

�A*K.0 PA.=&3000|MO.|MREM Now save program under any filename|M

�*FX138,0,128

��

���sq:�3,1:�X%*96+32,991-(Y%*96):�(X%+1)*96+32,991-(Y%*96):�(X%+1)*96+32,895-(Y%*96):�X%*96+32,895-(Y%*96):�X%*96+32,991-(Y%*96):�

���change:�MAX%(K%)=P%(K%)�
!P%(S%(X%,Y%))=P%(S%(X%,Y%))-1
)�0:�X%*3+1,Y%*3+1)S$:S%(X%,Y%)=K%:�1
�K%=1 �X%*3+1,Y%*3+1)S$
&�K%=2 �X%*3+1,Y%*3+1)M$
0�K%=3 �X%*3+2,Y%*3+2)C$
:�K%=4 �X%*3+2,Y%*3+2)T$
D�K%=5 �X%*3+2,Y%*3+2)"A"
N�K%=6 �X%*3+2,Y%*3+2)U$
X�K%=7 �X%*3+2,Y%*3+2)Man$
bP%(K%)=P%(K%)+1
l�
vC��S(Q%):�z%=0�9:�x%=0�9:� S%(x%,z%)=Q%D$=D$+","+�(x%)+","+�(z%)
��,:�
�

00000000  0d 00 0a 17 f4 20 42 6f  6d 62 65 64 20 54 68 65  |..... Bombed The|
00000010  20 45 64 69 74 6f 72 0d  00 14 11 f4 20 56 65 72  | Editor..... Ver|
00000020  73 69 6f 6e 20 31 2e 30  0d 00 1e 1a f4 20 41 75  |sion 1.0..... Au|
00000030  74 68 6f 72 20 44 61 76  69 64 20 48 6f 70 6b 69  |thor David Hopki|
00000040  6e 73 0d 00 28 18 f4 20  28 43 29 20 54 68 65 20  |ns..(.. (C) The |
00000050  4d 69 63 72 6f 20 55 73  65 72 0d 00 32 22 f4 20  |Micro User..2". |
00000060  50 72 6f 67 72 61 6d 20  73 75 62 6a 65 63 74 20  |Program subject |
00000070  74 6f 20 63 6f 70 79 72  69 67 68 74 0d 00 3c 22  |to copyright..<"|
00000080  ef 32 33 2c 32 32 34 2c  32 38 2c 34 32 2c 32 38  |.23,224,28,42,28|
00000090  2c 30 2c 36 32 2c 37 33  2c 32 30 2c 32 30 0d 00  |,0,62,73,20,20..|
000000a0  46 43 ef 32 33 2c 32 33  33 2c 32 34 2c 32 34 2c  |FC.23,233,24,24,|
000000b0  31 32 36 2c 31 32 36 2c  32 34 2c 32 34 2c 32 34  |126,126,24,24,24|
000000c0  2c 32 34 2c 32 33 2c 32  33 35 2c 30 2c 31 32 36  |,24,23,235,0,126|
000000d0  2c 32 34 2c 32 34 2c 32  34 2c 32 34 2c 32 34 2c  |,24,24,24,24,24,|
000000e0  30 0d 00 50 e9 ef 32 33  2c 32 34 30 2c 37 2c 32  |0..P..23,240,7,2|
000000f0  34 2c 32 32 2c 33 33 2c  33 32 2c 33 33 2c 33 33  |4,22,33,32,33,33|
00000100  2c 31 37 2c 32 33 2c 32  34 31 2c 30 2c 32 33 31  |,17,23,241,0,231|
00000110  2c 32 34 2c 31 32 38 2c  39 37 2c 36 2c 36 34 2c  |,24,128,97,6,64,|
00000120  31 39 34 2c 32 33 2c 32  34 32 2c 32 32 34 2c 32  |194,23,242,224,2|
00000130  34 2c 38 2c 31 30 30 2c  31 33 32 2c 34 2c 31 33  |4,8,100,132,4,13|
00000140  32 2c 31 33 36 2c 32 33  2c 32 34 33 2c 38 2c 32  |2,136,23,243,8,2|
00000150  30 32 2c 34 31 2c 31 32  30 2c 34 30 2c 32 30 30  |02,41,120,40,200|
00000160  2c 31 37 2c 31 38 2c 32  33 2c 32 34 34 2c 31 33  |,17,18,23,244,13|
00000170  31 2c 33 33 2c 31 39 36  2c 33 2c 36 30 2c 32 33  |1,33,196,3,60,23|
00000180  31 2c 31 30 32 2c 36 36  2c 32 33 2c 32 34 35 2c  |1,102,66,23,245,|
00000190  31 34 34 2c 31 39 2c 38  34 2c 31 35 38 2c 32 30  |144,19,84,158,20|
000001a0  2c 31 39 2c 31 33 36 2c  37 32 2c 32 33 2c 32 34  |,19,136,72,23,24|
000001b0  36 2c 33 34 2c 33 36 2c  31 39 2c 31 37 2c 34 30  |6,34,36,19,17,40|
000001c0  2c 35 32 2c 33 35 2c 32  32 34 0d 00 5a 84 ef 32  |,52,35,224..Z..2|
000001d0  33 2c 32 34 37 2c 36 36  2c 30 2c 30 2c 31 36 35  |3,247,66,0,0,165|
000001e0  2c 31 30 32 2c 32 34 2c  31 32 39 2c 31 32 36 2c  |,102,24,129,126,|
000001f0  32 33 2c 32 34 38 2c 36  38 2c 33 36 2c 32 30 30  |23,248,68,36,200|
00000200  2c 31 33 36 2c 32 30 2c  34 34 2c 31 39 36 2c 37  |,136,20,44,196,7|
00000210  2c 32 33 2c 32 35 35 2c  30 2c 32 35 31 2c 32 35  |,23,255,0,251,25|
00000220  31 2c 31 37 30 2c 30 2c  31 39 31 2c 31 39 31 2c  |1,170,0,191,191,|
00000230  31 37 30 2c 32 33 2c 32  35 33 2c 31 32 39 2c 30  |170,23,253,129,0|
00000240  2c 30 2c 30 2c 30 2c 30  2c 30 2c 31 32 39 0d 00  |,0,0,0,0,0,129..|
00000250  64 20 de 53 25 28 39 2c  39 29 2c 4d 41 58 25 28  |d .S%(9,9),MAX%(|
00000260  37 29 2c 50 25 28 37 29  2c 49 24 28 37 29 0d 00  |7),P%(7),I$(7)..|
00000270  6e 4d 4d 24 3d bd 32 34  30 2b bd 32 34 31 2b bd  |nMM$=.240+.241+.|
00000280  32 34 32 2b bd 31 30 2b  bd 38 2b bd 38 2b bd 38  |242+.10+.8+.8+.8|
00000290  2b bd 32 34 33 2b bd 32  34 34 2b bd 32 34 35 2b  |+.243+.244+.245+|
000002a0  bd 31 30 2b bd 38 2b bd  38 2b bd 38 2b bd 32 34  |.10+.8+.8+.8+.24|
000002b0  36 2b bd 32 34 37 2b bd  32 34 38 0d 00 78 73 43  |6+.247+.248..xsC|
000002c0  24 3d bd 32 33 33 3a 54  24 3d bd 32 33 35 3a 4d  |$=.233:T$=.235:M|
000002d0  61 6e 24 3d bd 32 32 34  3a 55 24 3d bd 32 35 33  |an$=.224:U$=.253|
000002e0  3a 53 24 3d bd 32 35 35  2b bd 32 35 35 2b bd 32  |:S$=.255+.255+.2|
000002f0  35 35 2b bd 31 30 2b bd  38 2b bd 38 2b bd 38 2b  |55+.10+.8+.8+.8+|
00000300  bd 32 35 35 2b bd 32 35  35 2b bd 32 35 35 2b bd  |.255+.255+.255+.|
00000310  31 30 2b bd 38 2b bd 38  2b bd 38 2b bd 32 35 35  |10+.8+.8+.8+.255|
00000320  2b bd 32 35 35 2b bd 32  35 35 2b bd 31 31 0d 00  |+.255+.255+.11..|
00000330  82 1c 50 25 3d 26 33 30  30 30 3a 3f 50 25 3d 26  |..P%=&3000:?P%=&|
00000340  30 44 3a 4f 25 3d 50 25  2b 31 0d 00 8c 0c e3 54  |0D:O%=P%+1.....T|
00000350  25 3d 31 b8 31 35 0d 00  96 16 eb 34 3a ef 32 33  |%=1.15.....4:.23|
00000360  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 0d 00 a0 2d  |;8202;0;0;0;...-|
00000370  f1 22 42 4f 4d 42 45 44  20 74 68 65 20 73 63 72  |."BOMBED the scr|
00000380  65 65 6e 20 64 65 66 69  6e 65 72 2e 20 45 64 69  |een definer. Edi|
00000390  74 69 6e 67 20 22 3b 54  25 0d 00 aa a6 58 25 3d  |ting ";T%....X%=|
000003a0  31 3a 59 25 3d 31 3a 4b  25 3d 30 3a 4d 41 58 25  |1:Y%=1:K%=0:MAX%|
000003b0  28 30 29 3d 32 35 35 3a  4d 41 58 25 28 31 29 3d  |(0)=255:MAX%(1)=|
000003c0  32 35 35 3a 4d 41 58 25  28 32 29 3d 33 3a 4d 41  |255:MAX%(2)=3:MA|
000003d0  58 25 28 33 29 3d 38 3a  4d 41 58 25 28 34 29 3d  |X%(3)=8:MAX%(4)=|
000003e0  31 3a 4d 41 58 25 28 35  29 3d 31 3a 4d 41 58 25  |1:MAX%(5)=1:MAX%|
000003f0  28 36 29 3d 38 3a 4d 41  58 25 28 37 29 3d 31 3a  |(6)=8:MAX%(7)=1:|
00000400  50 25 28 30 29 3d 30 3a  50 25 28 31 29 3d 30 3a  |P%(0)=0:P%(1)=0:|
00000410  50 25 28 32 29 3d 30 3a  50 25 28 33 29 3d 30 3a  |P%(2)=0:P%(3)=0:|
00000420  50 25 28 34 29 3d 30 3a  50 25 28 35 29 3d 30 3a  |P%(4)=0:P%(5)=0:|
00000430  50 25 28 36 29 3d 30 3a  50 25 28 37 29 3d 30 0d  |P%(6)=0:P%(7)=0.|
00000440  00 b4 6a e3 41 3d 30 b8  39 3a f1 8a 41 2a 33 2b  |..j.A=0.9:..A*3+|
00000450  31 2c 31 29 3b 53 24 3b  8a 41 2a 33 2b 31 2c 32  |1,1);S$;.A*3+1,2|
00000460  38 29 3b 53 24 3b 8a 31  2c 41 2a 33 2b 31 29 3b  |8);S$;.1,A*3+1);|
00000470  53 24 3b 8a 32 38 2c 41  2a 33 2b 31 29 3b 53 24  |S$;.28,A*3+1);S$|
00000480  3b 3a 53 25 28 41 2c 30  29 3d 31 3a 53 25 28 30  |;:S%(A,0)=1:S%(0|
00000490  2c 41 29 3d 31 3a 53 25  28 41 2c 39 29 3d 31 3a  |,A)=1:S%(A,9)=1:|
000004a0  53 25 28 39 2c 41 29 3d  31 0d 00 be a8 ed 3a e3  |S%(9,A)=1.....:.|
000004b0  41 3d 31 b8 38 3a e3 42  3d 31 b8 38 3a 53 25 28  |A=1.8:.B=1.8:S%(|
000004c0  41 2c 42 29 3d 30 3a ed  2c 3a 49 24 28 30 29 3d  |A,B)=0:.,:I$(0)=|
000004d0  22 4e 6f 74 68 69 6e 67  20 22 3a 49 24 28 31 29  |"Nothing ":I$(1)|
000004e0  3d 22 57 61 6c 6c 20 20  20 20 22 3a 49 24 28 32  |="Wall    ":I$(2|
000004f0  29 3d 22 44 65 6d 6f 6e  20 20 20 22 3a 49 24 28  |)="Demon   ":I$(|
00000500  33 29 3d 22 43 72 6f 73  73 20 20 20 22 3a 49 24  |3)="Cross   ":I$|
00000510  28 34 29 3d 22 54 65 6c  65 70 6f 72 74 22 3a 49  |(4)="Teleport":I|
00000520  24 28 35 29 3d 22 41 72  72 69 76 61 6c 20 22 3a  |$(5)="Arrival ":|
00000530  49 24 28 36 29 3d 22 54  72 61 70 20 20 20 20 22  |I$(6)="Trap    "|
00000540  3a 49 24 28 37 29 3d 22  53 74 61 72 74 20 20 20  |:I$(7)="Start   |
00000550  22 0d 00 c8 07 f2 73 71  0d 00 d2 05 f5 0d 00 dc  |".....sq........|
00000560  07 f2 73 71 0d 00 e6 15  e7 a6 2d 36 37 e7 58 25  |..sq......-67.X%|
00000570  3c 38 58 25 3d 58 25 2b  31 0d 00 f0 15 e7 a6 2d  |<8X%=X%+1......-|
00000580  39 38 e7 58 25 3e 31 58  25 3d 58 25 2d 31 0d 00  |98.X%>1X%=X%-1..|
00000590  fa 16 e7 a6 2d 31 30 35  e7 59 25 3c 38 59 25 3d  |....-105.Y%<8Y%=|
000005a0  59 25 2b 31 0d 01 04 15  e7 a6 2d 37 33 e7 59 25  |Y%+1......-73.Y%|
000005b0  3e 31 59 25 3d 59 25 2d  31 0d 01 0e 15 e7 a6 2d  |>1Y%=Y%-1......-|
000005c0  35 38 e7 4b 25 3c 37 4b  25 3d 4b 25 2b 31 0d 01  |58.K%<7K%=K%+1..|
000005d0  18 15 e7 a6 2d 34 32 e7  4b 25 3e 30 4b 25 3d 4b  |....-42.K%>0K%=K|
000005e0  25 2d 31 0d 01 22 13 f1  8a 33 32 2c 35 29 3b 49  |%-1.."...32,5);I|
000005f0  24 28 4b 25 29 3b 0d 01  2c 11 e7 a6 2d 37 34 20  |$(K%);..,...-74 |
00000600  f2 63 68 61 6e 67 65 0d  01 36 07 f2 73 71 0d 01  |.change..6..sq..|
00000610  40 2c e7 50 25 28 34 29  3d 31 80 50 25 28 35 29  |@,.P%(4)=1.P%(5)|
00000620  3d 30 20 84 20 50 25 28  35 29 3d 31 80 50 25 28  |=0 . P%(5)=1.P%(|
00000630  34 29 3d 30 20 e5 8d 64  5c 40 0d 01 4a 1f fd a6  |4)=0 ..d\@..J...|
00000640  2d 39 37 80 50 25 28 37  29 3d 31 80 50 25 28 33  |-97.P%(7)=1.P%(3|
00000650  29 3e 30 3a 2a 46 58 31  35 0d 01 54 2a db 3a f1  |)>0:*FX15..T*.:.|
00000660  8a 31 30 2c 34 29 22 48  6f 77 20 4d 61 6e 79 20  |.10,4)"How Many |
00000670  62 6f 6d 62 73 20 3f 20  22 3b 3a e8 22 22 42 4f  |bombs ? ";:.""BO|
00000680  4d 42 25 0d 01 5e 15 f1  27 27 22 57 61 69 74 20  |MB%..^..''"Wait |
00000690  61 20 6d 6f 2e 2e 2e 22  0d 01 68 36 52 24 3d 22  |a mo..."..h6R$="|
000006a0  22 3a e3 41 3d 30 b8 39  3a e3 42 3d 30 b8 39 3a  |":.A=0.9:.B=0.9:|
000006b0  e7 53 25 28 42 2c 41 29  3d 31 20 52 24 3d 52 24  |.S%(B,A)=1 R$=R$|
000006c0  2b 22 31 22 8b 52 24 3d  52 24 2b 22 30 22 0d 01  |+"1".R$=R$+"0"..|
000006d0  72 58 ed 2c 3a 41 24 3d  22 22 3a e3 42 25 3d 31  |rX.,:A$="":.B%=1|
000006e0  b8 31 30 30 88 35 3a 50  24 3d c1 52 24 2c 42 25  |.100.5:P$=.R$,B%|
000006f0  2c 35 29 3a 43 25 3d 33  32 3a 44 25 3d 30 3a e3  |,5):C%=32:D%=0:.|
00000700  41 25 3d 31 b8 35 3a 43  25 3d 43 25 2f 32 3a e7  |A%=1.5:C%=C%/2:.|
00000710  c1 50 24 2c 41 25 2c 31  29 3d 22 31 22 20 44 25  |.P$,A%,1)="1" D%|
00000720  3d 44 25 2b 43 25 0d 01  7c 16 ed 3a 41 24 3d 41  |=D%+C%..|..:A$=A|
00000730  24 2b bd 28 36 35 2b 44  25 29 3a ed 0d 01 86 1c  |$+.(65+D%):.....|
00000740  44 24 3d 41 24 2b 22 2c  22 2b c3 28 50 25 28 33  |D$=A$+","+.(P%(3|
00000750  29 29 3a f2 53 28 33 29  0d 01 90 1c 44 24 3d 44  |)):.S(3)....D$=D|
00000760  24 2b 22 2c 22 2b c3 28  42 4f 4d 42 25 29 3a f2  |$+","+.(BOMB%):.|
00000770  53 28 37 29 0d 01 9a 1c  44 24 3d 44 24 2b 22 2c  |S(7)....D$=D$+",|
00000780  22 2b c3 28 50 25 28 32  29 29 3a f2 53 28 32 29  |"+.(P%(2)):.S(2)|
00000790  0d 01 a4 1c 44 24 3d 44  24 2b 22 2c 22 2b c3 28  |....D$=D$+","+.(|
000007a0  50 25 28 34 29 29 3a f2  53 28 34 29 0d 01 ae 09  |P%(4)):.S(4)....|
000007b0  f2 53 28 35 29 0d 01 b8  1c 44 24 3d 44 24 2b 22  |.S(5)....D$=D$+"|
000007c0  2c 22 2b c3 28 50 25 28  36 29 29 3a f2 53 28 36  |,"+.(P%(6)):.S(6|
000007d0  29 0d 01 c2 8b 3f 4f 25  3d 54 25 20 81 20 32 35  |)....?O%=T% . 25|
000007e0  36 3a 4f 25 3f 31 3d 54  25 20 83 20 32 35 36 3a  |6:O%?1=T% . 256:|
000007f0  4f 25 3f 32 3d a9 28 44  24 29 2b 35 3a 4f 25 3f  |O%?2=.(D$)+5:O%?|
00000800  33 3d 26 44 43 3a 50 25  3d 50 25 2b a9 28 44 24  |3=&DC:P%=P%+.(D$|
00000810  29 2b 35 3a 43 25 3d 4f  25 2b 33 3a e3 53 25 3d  |)+5:C%=O%+3:.S%=|
00000820  31 b8 a9 28 44 24 29 3a  53 25 3f 43 25 3d 97 28  |1..(D$):S%?C%=.(|
00000830  c1 44 24 2c 53 25 2c 31  29 29 3a ed 3a 53 25 3f  |.D$,S%,1)):.:S%?|
00000840  43 25 3d 26 30 44 3a 4f  25 3d 4f 25 2b 3f 28 4f  |C%=&0D:O%=O%+?(O|
00000850  25 2b 32 29 3a 3f 4f 25  3d 26 46 46 0d 01 cc 05  |%+2):?O%=&FF....|
00000860  ed 0d 01 d6 41 2a 4b 2e  30 20 50 41 2e 3d 26 33  |....A*K.0 PA.=&3|
00000870  30 30 30 7c 4d 4f 2e 7c  4d 52 45 4d 20 4e 6f 77  |000|MO.|MREM Now|
00000880  20 73 61 76 65 20 70 72  6f 67 72 61 6d 20 75 6e  | save program un|
00000890  64 65 72 20 61 6e 79 20  66 69 6c 65 6e 61 6d 65  |der any filename|
000008a0  7c 4d 0d 01 e0 10 2a 46  58 31 33 38 2c 30 2c 31  ||M....*FX138,0,1|
000008b0  32 38 0d 01 ea 05 e0 0d  01 f4 85 dd f2 73 71 3a  |28...........sq:|
000008c0  e6 33 2c 31 3a ec 58 25  2a 39 36 2b 33 32 2c 39  |.3,1:.X%*96+32,9|
000008d0  39 31 2d 28 59 25 2a 39  36 29 3a df 28 58 25 2b  |91-(Y%*96):.(X%+|
000008e0  31 29 2a 39 36 2b 33 32  2c 39 39 31 2d 28 59 25  |1)*96+32,991-(Y%|
000008f0  2a 39 36 29 3a df 28 58  25 2b 31 29 2a 39 36 2b  |*96):.(X%+1)*96+|
00000900  33 32 2c 38 39 35 2d 28  59 25 2a 39 36 29 3a df  |32,895-(Y%*96):.|
00000910  58 25 2a 39 36 2b 33 32  2c 38 39 35 2d 28 59 25  |X%*96+32,895-(Y%|
00000920  2a 39 36 29 3a df 58 25  2a 39 36 2b 33 32 2c 39  |*96):.X%*96+32,9|
00000930  39 31 2d 28 59 25 2a 39  36 29 3a e1 0d 01 fe 1e  |91-(Y%*96):.....|
00000940  dd f2 63 68 61 6e 67 65  3a e7 4d 41 58 25 28 4b  |..change:.MAX%(K|
00000950  25 29 3d 50 25 28 4b 25  29 e1 0d 02 08 21 50 25  |%)=P%(K%)....!P%|
00000960  28 53 25 28 58 25 2c 59  25 29 29 3d 50 25 28 53  |(S%(X%,Y%))=P%(S|
00000970  25 28 58 25 2c 59 25 29  29 2d 31 0d 02 12 29 fb  |%(X%,Y%))-1...).|
00000980  30 3a f1 8a 58 25 2a 33  2b 31 2c 59 25 2a 33 2b  |0:..X%*3+1,Y%*3+|
00000990  31 29 53 24 3a 53 25 28  58 25 2c 59 25 29 3d 4b  |1)S$:S%(X%,Y%)=K|
000009a0  25 3a fb 31 0d 02 1c 1c  e7 4b 25 3d 31 20 f1 8a  |%:.1.....K%=1 ..|
000009b0  58 25 2a 33 2b 31 2c 59  25 2a 33 2b 31 29 53 24  |X%*3+1,Y%*3+1)S$|
000009c0  0d 02 26 1c e7 4b 25 3d  32 20 f1 8a 58 25 2a 33  |..&..K%=2 ..X%*3|
000009d0  2b 31 2c 59 25 2a 33 2b  31 29 4d 24 0d 02 30 1c  |+1,Y%*3+1)M$..0.|
000009e0  e7 4b 25 3d 33 20 f1 8a  58 25 2a 33 2b 32 2c 59  |.K%=3 ..X%*3+2,Y|
000009f0  25 2a 33 2b 32 29 43 24  0d 02 3a 1c e7 4b 25 3d  |%*3+2)C$..:..K%=|
00000a00  34 20 f1 8a 58 25 2a 33  2b 32 2c 59 25 2a 33 2b  |4 ..X%*3+2,Y%*3+|
00000a10  32 29 54 24 0d 02 44 1d  e7 4b 25 3d 35 20 f1 8a  |2)T$..D..K%=5 ..|
00000a20  58 25 2a 33 2b 32 2c 59  25 2a 33 2b 32 29 22 41  |X%*3+2,Y%*3+2)"A|
00000a30  22 0d 02 4e 1c e7 4b 25  3d 36 20 f1 8a 58 25 2a  |"..N..K%=6 ..X%*|
00000a40  33 2b 32 2c 59 25 2a 33  2b 32 29 55 24 0d 02 58  |3+2,Y%*3+2)U$..X|
00000a50  1e e7 4b 25 3d 37 20 f1  8a 58 25 2a 33 2b 32 2c  |..K%=7 ..X%*3+2,|
00000a60  59 25 2a 33 2b 32 29 4d  61 6e 24 0d 02 62 13 50  |Y%*3+2)Man$..b.P|
00000a70  25 28 4b 25 29 3d 50 25  28 4b 25 29 2b 31 0d 02  |%(K%)=P%(K%)+1..|
00000a80  6c 05 e1 0d 02 76 43 dd  f2 53 28 51 25 29 3a e3  |l....vC..S(Q%):.|
00000a90  7a 25 3d 30 b8 39 3a e3  78 25 3d 30 b8 39 3a e7  |z%=0.9:.x%=0.9:.|
00000aa0  20 53 25 28 78 25 2c 7a  25 29 3d 51 25 44 24 3d  | S%(x%,z%)=Q%D$=|
00000ab0  44 24 2b 22 2c 22 2b c3  28 78 25 29 2b 22 2c 22  |D$+","+.(x%)+","|
00000ac0  2b c3 28 7a 25 29 0d 02  80 08 ed 2c 3a e1 0d ff  |+.(z%).....,:...|
00000ad0