Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape21a_acorn_eu_1991_april.wav » Editor

Editor

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 » Electron_User » Electron_User_tape21a_acorn_eu_1991_april.wav
Filename: Editor
Read OK:
File size: 0AD0 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10REM Bombed The Editor
   20REM Version 1.0
   30REM Author David Hopkins
   40REM (C) The Micro User
   50REM Program subject to copyright
   60VDU23,224,28,42,28,0,62,73,20,20
   70VDU23,233,24,24,126,126,24,24,24,24,23,235,0,126,24,24,24,24,24,0
   80VDU23,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
   90VDU23,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
  100DIMS%(9,9),MAX%(7),P%(7),I$(7)
  110M$=CHR$240+CHR$241+CHR$242+CHR$10+CHR$8+CHR$8+CHR$8+CHR$243+CHR$244+CHR$245+CHR$10+CHR$8+CHR$8+CHR$8+CHR$246+CHR$247+CHR$248
  120C$=CHR$233:T$=CHR$235:Man$=CHR$224:U$=CHR$253:S$=CHR$255+CHR$255+CHR$255+CHR$10+CHR$8+CHR$8+CHR$8+CHR$255+CHR$255+CHR$255+CHR$10+CHR$8+CHR$8+CHR$8+CHR$255+CHR$255+CHR$255+CHR$11
  130P%=&3000:?P%=&0D:O%=P%+1
  140FORT%=1TO15
  150MODE4:VDU23;8202;0;0;0;
  160PRINT"BOMBED the screen definer. Editing ";T%
  170X%=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
  180FORA=0TO9:PRINTTAB(A*3+1,1);S$;TAB(A*3+1,28);S$;TAB(1,A*3+1);S$;TAB(28,A*3+1);S$;:S%(A,0)=1:S%(0,A)=1:S%(A,9)=1:S%(9,A)=1
  190NEXT:FORA=1TO8:FORB=1TO8:S%(A,B)=0:NEXT,:I$(0)="Nothing ":I$(1)="Wall    ":I$(2)="Demon   ":I$(3)="Cross   ":I$(4)="Teleport":I$(5)="Arrival ":I$(6)="Trap    ":I$(7)="Start   "
  200PROCsq
  210REPEAT
  220PROCsq
  230IFINKEY-67IFX%<8X%=X%+1
  240IFINKEY-98IFX%>1X%=X%-1
  250IFINKEY-105IFY%<8Y%=Y%+1
  260IFINKEY-73IFY%>1Y%=Y%-1
  270IFINKEY-58IFK%<7K%=K%+1
  280IFINKEY-42IFK%>0K%=K%-1
  290PRINTTAB(32,5);I$(K%);
  300IFINKEY-74 PROCchange
  310PROCsq
  320IFP%(4)=1ANDP%(5)=0 OR P%(5)=1ANDP%(4)=0 GOTO220
  330UNTILINKEY-97ANDP%(7)=1ANDP%(3)>0:*FX15
  340CLS:PRINTTAB(10,4)"How Many bombs ? ";:INPUT""BOMB%
  350PRINT''"Wait a mo..."
  360R$="":FORA=0TO9:FORB=0TO9:IFS%(B,A)=1 R$=R$+"1"ELSER$=R$+"0"
  370NEXT,:A$="":FORB%=1TO100STEP5:P$=MID$(R$,B%,5):C%=32:D%=0:FORA%=1TO5:C%=C%/2:IFMID$(P$,A%,1)="1" D%=D%+C%
  380NEXT:A$=A$+CHR$(65+D%):NEXT
  390D$=A$+","+STR$(P%(3)):PROCS(3)
  400D$=D$+","+STR$(BOMB%):PROCS(7)
  410D$=D$+","+STR$(P%(2)):PROCS(2)
  420D$=D$+","+STR$(P%(4)):PROCS(4)
  430PROCS(5)
  440D$=D$+","+STR$(P%(6)):PROCS(6)
  450?O%=T% DIV 256:O%?1=T% MOD 256:O%?2=LEN(D$)+5:O%?3=&DC:P%=P%+LEN(D$)+5:C%=O%+3:FORS%=1TOLEN(D$):S%?C%=ASC(MID$(D$,S%,1)):NEXT:S%?C%=&0D:O%=O%+?(O%+2):?O%=&FF
  460NEXT
  470*K.0 PA.=&3000|MO.|MREM Now save program under any filename|M
  480*FX138,0,128
  490END
  500DEFPROCsq:GCOL3,1:MOVEX%*96+32,991-(Y%*96):DRAW(X%+1)*96+32,991-(Y%*96):DRAW(X%+1)*96+32,895-(Y%*96):DRAWX%*96+32,895-(Y%*96):DRAWX%*96+32,991-(Y%*96):ENDPROC
  510DEFPROCchange:IFMAX%(K%)=P%(K%)ENDPROC
  520P%(S%(X%,Y%))=P%(S%(X%,Y%))-1
  530COLOUR0:PRINTTAB(X%*3+1,Y%*3+1)S$:S%(X%,Y%)=K%:COLOUR1
  540IFK%=1 PRINTTAB(X%*3+1,Y%*3+1)S$
  550IFK%=2 PRINTTAB(X%*3+1,Y%*3+1)M$
  560IFK%=3 PRINTTAB(X%*3+2,Y%*3+2)C$
  570IFK%=4 PRINTTAB(X%*3+2,Y%*3+2)T$
  580IFK%=5 PRINTTAB(X%*3+2,Y%*3+2)"A"
  590IFK%=6 PRINTTAB(X%*3+2,Y%*3+2)U$
  600IFK%=7 PRINTTAB(X%*3+2,Y%*3+2)Man$
  610P%(K%)=P%(K%)+1
  620ENDPROC
  630DEFPROCS(Q%):FORz%=0TO9:FORx%=0TO9:IF S%(x%,z%)=Q%D$=D$+","+STR$(x%)+","+STR$(z%)
  640NEXT,:ENDPROC

� 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
Editor.m0
Editor.m1
Editor.m2
Editor.m4
Editor.m5