Home » Archimedes archive » Acorn Computing » 1994 06 subscription disc.adf » 9406s » BeebDisk/MINES
BeebDisk/MINES
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 » Archimedes archive » Acorn Computing » 1994 06 subscription disc.adf » 9406s |
| Filename: | BeebDisk/MINES |
| Read OK: | ✔ |
| File size: | 0E39 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn Computing » 1994 06 subscription disc.adf » 9406s » BeebDisk/MINES
- AEW website » mu » mu_5_25_discs_Micro_User_12_04_D-MU12_04.ssd » MINES
File contents
10CLS
20 MODE2
30 PROCsetup
35VDU23;8202;0;0;0;
40 PROCshadow("MINEFIELD",1,3,5,24)
50 PROCshadow("I=instructions",4,7,2,19):PROCshadow("S=start game",4,7,2,17)
60 REPEAT
70 keyhit=GET:IF keyhit=73 THEN MODE1:PROCintro:MODE2:PROCintro2:CLS:GOTO35
80 UNTIL keyhit=83
90 *FX15,1
100 MODE2
110VDU23;8202;0;0;0;
120PROCscreen
130 PROCminefield
140PROCplay
150IFMF%(MX%+DX%,MY%+DY%)=1THEN140
160 PRINTTAB(MX%,MY%+6)" "
170 MX%=MX%+DX%:MY%=MY%+DY%
180 IFMF%(MX%,MY%)=2THENSOUND0,-6,10,10:PRINTTAB(1,3)" You hit a mine !";TAB(6,5)"***":COLOUR1:PRINTTAB(MX%,MY%+6);CHR$231:MF%(MX%,MY%)=0:S%=0:GOTO250
190 IFMF%(MX%,MY%)=4 AND flags = 0THEN :T%=T%-INT(TIME/100):S%=S%+T%:PRINTTAB(1,2)" You made it ! ";:FORN%=120TO200STEP10:SOUND1,-15,N%,2:NEXT:SOUND1,-15,200,6:PRINTTAB(MX%+1,MY%+6);CHR$233:GOTO250
200 IF MF%(MX%,MY%)=6 THEN MF%(MX%,MY%)=0:flags=flags-1:SOUND1,-12,100,2:S%=S%+10
210 PRINTTAB(MX%,MY%+6);CHR$226
220GOTO140
250 COLOUR5
260 IF S%<0THENS%=0
270 FORA%=1TO18
280 FORB%=1TO21
290 IFMF%(A%,B%)=2THENPRINTTAB(A%,B%+6);CHR$(224)
300 NEXT
310 NEXT
320 COLOUR7:PRINTTAB(1,31);"Another game ?? ";:*FX15,1
330inkey=GET
340 IFinkey=78 THEN CLS:END ELSE COLOUR2:PRINTTAB(1,29)"Last score ":COLOUR7:PRINTTAB(13,29);S%;" ";TAB(6,5);" ";TAB(16,5);" ";:IFS%>H%THENH%=S%:COLOUR2:PRINTTAB(1,30);"Best score ":COLOUR7:PRINTTAB(13,30);H%
350 PRINTTAB(1,31);STRING$(16,CHR$(32));:GOTO 130
360 END
370
380 DEFPROCsetup
390VDU23,224,0,60,90,102,102,90,60,0
400VDU23,225,255,213,171,213,171,213,171,255
410 VDU23,226,28,28,8,62,73,85,20,54
420VDU23,227,96,88,70,88,96,64,64,64
430 VDU23,228,16,4,128,106,1,32,8,129
440 VDU23,229,73,8,106,1,36,128,98,4
450 VDU23,230,128,68,136,80,2,107,32,128
460 VDU23,231,0,136,136,232,235,63,63,0
470 VDU23,232,16,56,56,124,124,254,16,16
480 VDU23,233,28,93,73,127,8,20,34,65
490 DIMMF%(19,22)
500H%=0
510ENDPROC
520
530DEFPROCintro
540 PRINT''''"Your task is to cross a minefield without getting yourself killed! In this game you only get ONE life!"
550 PRINT''"To help you in this task you carry an automatic mine detector. This gives a continuously updated read out at the topof the screen. This will tell you how many mines there are in the eight squares around you."
560COLOUR1:PRINT''''"Any key to continue":A$=GET$:COLOUR7
570 ENDPROC
580
590 DEFPROCintro2
600 PRINT''"THE CONTROLS:"
610 PRINT'" UP :"
620 PRINT" DOWN /"
630 PRINT" LEFT Z"
640 PRINT" RIGHT X"
650 PRINT''''"THE SCREEN:"
660 PRINT'" You= ";CHR$226
670 PRINT" Tree= ";:COLOUR2:PRINT;CHR$232:COLOUR7
680 PRINT" Mystery= ";:COLOUR2:PRINT CHR$228:COLOUR7
690 PRINT"Boundary= ";:COLOUR1:PRINT;CHR$225:COLOUR7
700 PRINT" Start= S"
710 PRINT" Finish= ";:COLOUR11:PRINT"F"
720COLOUR1:PRINT''"Any key to continue":COLOUR7:A$=GET$
730ENDPROC
740
750 DEFPROCscreen
760 PROCshadow("MINEFIELD",1,3,5,31)
770 COLOUR2:PRINTTAB(0,5)"SCORE";TAB(10,5)"BONUS"
780COLOUR1:PRINTTAB(1,6);STRING$(18,CHR$(225));TAB(1,28);STRING$(18,CHR$(225))
790 FORN%=6TO28:PRINTTAB(0,N%);CHR$(225):PRINTTAB(19,N%);CHR$(225):NEXT
800 S%=0
810 ENDPROC
820
830 DEFPROCminefield
840 MX%=1:MY%=11:DX%=0:DY%=0:flags=0:S%=0
850 COLOUR3:PRINTTAB(0,17);"S":COLOUR 11:PRINTTAB(19,17);"F"
860 COLOUR2:PRINTTAB(1,2)" Flags to collect"
870 PRINTTAB(1,3)" Mines around you"
880 COLOUR11:PRINTTAB(4,17)"PLEASE WAIT"
890 FORA%=1TO18
900 FORB%=1TO21
910IFRND(6)>1THENMF%(A%,B%)=0:GOTO950
920IFRND(4)=1THENMF%(A%,B%)=1:GOTO950
930IFRND(4)=1THENMF%(A%,B%)=6:GOTO950
940MF%(A%,B%)=2
950 NEXT
960 NEXT
970 MF%(18,11)=4
980MF%(1,10)=0:MF%(1,12)=0:MF%(2,11)=0:MF%(1,11)=0:MF%(17,11)=0
990 FORA%=1TO18
1000 FORB%=1TO21
1010 IFMF%(A%,B%)=0 ORMF%(A%,B%)=2 THEN COLOUR2:PRINTTAB(A%,B%+6);CHR$(227+RND(3))
1020 IFMF%(A%,B%)=1 THENCOLOUR2:PRINTTAB(A%,B%+6);CHR$232
1030 IFMF%(A%,B%)=6 THEN COLOUR6:PRINTTAB(A%,B%+6);CHR$(227):flags=flags+1
1040 NEXT
1050 NEXT
1060 COLOUR2:PRINTTAB(18,17)CHR$228
1070 COLOUR7:PRINTTAB(1,17);CHR$226:TIME=0
1080 T%=600:PRINTTAB(16,5);T%
1090ENDPROC
1100
1110DEFPROCplay
1120PRINTTAB(1,2);" ";TAB(1,2);flags;TAB(6,5)S%
1130PRINTTAB(16,5);" ";TAB(16,5);T%-INT(TIME/100)
1140 NM%=0
1150 FORA%=-1TO1
1160 FORB%=-1TO1
1170 IFMF%(MX%+A%,MY%+B%)=2THEN NM%=NM%+1
1180 NEXT
1190 NEXT
1200 PRINTTAB(1,3);NM%
1210*FX15,1
1220A$=GET$:DX%=0:DY%=0
1230DX%=(A$="Z")*1+(A$="X")*-1
1240DY%=(A$=":")*1+(A$="/")*-1
1250 IF(MX%=1ANDDX%=-1)OR(MX%=18ANDDX%=1)THENDX%=0
1260 IF(MY%=1ANDDY%=-1)OR(MY%=21ANDDY%=1)THENDY%=0
1270ENDPROC
1280
1290 DEFPROCshadow(T$,C1,C2,H,V)
1300 VDU5
1310 GCOL0,C1:MOVE64*H,32*V:PRINT T$
1320 GCOL0,C2:MOVE H*64-8,V*32+4:PRINT T$
1330 VDU4
1340 ENDPROC
�
�2
�setup
#�23;8202;0;0;0;
(" �shadow("MINEFIELD",1,3,5,24)
2H �shadow("I=instructions",4,7,2,19):�shadow("S=start game",4,7,2,17)
< �
F8 keyhit=�:� keyhit=73 � �1:�intro:�2:�intro2:�:�Tc@
P � keyhit=83
Z *FX15,1
d �2
n�23;8202;0;0;0;
x �screen
� �minefield
� �play
� �MF%(MX%+DX%,MY%+DY%)=1��tL@
� �MX%,MY%+6)" "
� MX%=MX%+DX%:MY%=MY%+DY%
�u �MF%(MX%,MY%)=2��0,-6,10,10:�1,3)" You hit a mine !";�6,5)"***":�1:�MX%,MY%+6);�231:MF%(MX%,MY%)=0:S%=0:�dz@
�� �MF%(MX%,MY%)=4 � flags = 0� :T%=T%-�(�/100):S%=S%+T%:�1,2)" You made it ! ";:�N%=120�200�10:�1,-15,N%,2:�:�1,-15,200,6:�MX%+1,MY%+6);�233:�dz@
�K � MF%(MX%,MY%)=6 � MF%(MX%,MY%)=0:flags=flags-1:�1,-12,100,2:S%=S%+10
� �MX%,MY%+6);�226
� �tL@
� �5
� S%<0�S%=0
�A%=1�18
�B%=1�21
"% �MF%(A%,B%)=2��A%,B%+6);�(224)
, �
6 �
@, �7:�1,31);"Another game ?? ";:*FX15,1
J inkey=�
T� �inkey=78 � �:� � �2:�1,29)"Last score ":�7:�13,29);S%;" ";�6,5);" ";�16,5);" ";:�S%>H%�H%=S%:�2:�1,30);"Best score ":�7:�13,30);H%
^ �1,31);�16,�(32));:� �tB@
h �
r
| ��setup
�#�23,224,0,60,90,102,102,90,60,0
�+�23,225,255,213,171,213,171,213,171,255
�# �23,226,28,28,8,62,73,85,20,54
�#�23,227,96,88,70,88,96,64,64,64
�$ �23,228,16,4,128,106,1,32,8,129
�# �23,229,73,8,106,1,36,128,98,4
�' �23,230,128,68,136,80,2,107,32,128
�& �23,231,0,136,136,232,235,63,63,0
�' �23,232,16,56,56,124,124,254,16,16
�% �23,233,28,93,73,127,8,20,34,65
� �MF%(19,22)
�H%=0
��
��intro
� �''''"Your task is to cross a minefield without getting yourself killed! In this game you only get ONE life!"
&� �''"To help you in this task you carry an automatic mine detector. This gives a continuously updated read out at the topof the screen. This will tell you how many mines there are in the eight squares around you."
0)�1:�''''"Any key to continue":A$=�:�7
: �
D
N
��intro2
X �''"THE CONTROLS:"
b �'" UP :"
l �" DOWN /"
v �" LEFT Z"
� �" RIGHT X"
� �''''"THE SCREEN:"
� �'" You= ";�226
� �" Tree= ";:�2:�;�232:�7
� �" Mystery= ";:�2:� �228:�7
� �"Boundary= ";:�1:�;�225:�7
� �" Start= S"
� �" Finish= ";:�11:�"F"
�'�1:�''"Any key to continue":�7:A$=�
��
�
�
��screen
�" �shadow("MINEFIELD",1,3,5,31)
# �2:�0,5)"SCORE";�10,5)"BONUS"
,�1:�1,6);�18,�(225));�1,28);�18,�(225))
. �N%=6�28:�0,N%);�(225):�19,N%);�(225):�
S%=0
* �
4
> ��minefield
H* MX%=1:MY%=11:DX%=0:DY%=0:flags=0:S%=0
R% �3:�0,17);"S":� 11:�19,17);"F"
\" �2:�1,2)" Flags to collect"
f �1,3)" Mines around you"
p �11:�4,17)"PLEASE WAIT"
z
�A%=1�18
� �B%=1�21
� �(6)>1�MF%(A%,B%)=0:�tvC
� �(4)=1�MF%(A%,B%)=1:�tvC
� �(4)=1�MF%(A%,B%)=6:�tvC
�MF%(A%,B%)=2
� �
� �
� MF%(18,11)=4
�@MF%(1,10)=0:MF%(1,12)=0:MF%(2,11)=0:MF%(1,11)=0:MF%(17,11)=0
�
�A%=1�18
� �B%=1�21
�< �MF%(A%,B%)=0 �MF%(A%,B%)=2 � �2:�A%,B%+6);�(227+�(3))
�& �MF%(A%,B%)=1 ��2:�A%,B%+6);�232
7 �MF%(A%,B%)=6 � �6:�A%,B%+6);�(227):flags=flags+1
�
�
$ �2:�18,17)�228
. �7:�1,17);�226:�=0
8 T%=600:�16,5);T%
B�
L
V
��play
`#�1,2);" ";�1,2);flags;�6,5)S%
j$�16,5);" ";�16,5);T%-�(�/100)
t
NM%=0
~
�A%=-1�1
�
�B%=-1�1
�& �MF%(MX%+A%,MY%+B%)=2� NM%=NM%+1
� �
� �
� �1,3);NM%
� *FX15,1
�A$=�:DX%=0:DY%=0
�#DX%=(A$="Z")*1+(A$="X")*-1
� DY%=(A$=":")*1+(A$="/")*-1
�) �(MX%=1�DX%=-1)�(MX%=18�DX%=1)�DX%=0
�) �(MY%=1�DY%=-1)�(MY%=21�DY%=1)�DY%=0
��
��shadow(T$,C1,C2,H,V)
�5
�0,C1:�64*H,32*V:� T$
( �0,C2:� H*64-8,V*32+4:� T$
2 �4
< �
� 00000000 0d 00 0a 05 db 0d 00 14 07 20 eb 32 0d 00 1e 0b |......... .2....|
00000010 20 f2 73 65 74 75 70 0d 00 23 13 ef 32 33 3b 38 | .setup..#..23;8|
00000020 32 30 32 3b 30 3b 30 3b 30 3b 0d 00 28 22 20 f2 |202;0;0;0;..(" .|
00000030 73 68 61 64 6f 77 28 22 4d 49 4e 45 46 49 45 4c |shadow("MINEFIEL|
00000040 44 22 2c 31 2c 33 2c 35 2c 32 34 29 0d 00 32 48 |D",1,3,5,24)..2H|
00000050 20 f2 73 68 61 64 6f 77 28 22 49 3d 69 6e 73 74 | .shadow("I=inst|
00000060 72 75 63 74 69 6f 6e 73 22 2c 34 2c 37 2c 32 2c |ructions",4,7,2,|
00000070 31 39 29 3a f2 73 68 61 64 6f 77 28 22 53 3d 73 |19):.shadow("S=s|
00000080 74 61 72 74 20 67 61 6d 65 22 2c 34 2c 37 2c 32 |tart game",4,7,2|
00000090 2c 31 37 29 0d 00 3c 06 20 f5 0d 00 46 38 20 6b |,17)..<. ...F8 k|
000000a0 65 79 68 69 74 3d a5 3a e7 20 6b 65 79 68 69 74 |eyhit=.:. keyhit|
000000b0 3d 37 33 20 8c 20 eb 31 3a f2 69 6e 74 72 6f 3a |=73 . .1:.intro:|
000000c0 eb 32 3a f2 69 6e 74 72 6f 32 3a db 3a e5 8d 54 |.2:.intro2:.:..T|
000000d0 63 40 0d 00 50 10 20 fd 20 6b 65 79 68 69 74 3d |c@..P. . keyhit=|
000000e0 38 33 0d 00 5a 0c 20 2a 46 58 31 35 2c 31 0d 00 |83..Z. *FX15,1..|
000000f0 64 07 20 eb 32 0d 00 6e 13 ef 32 33 3b 38 32 30 |d. .2..n..23;820|
00000100 32 3b 30 3b 30 3b 30 3b 0d 00 78 0b f2 73 63 72 |2;0;0;0;..x..scr|
00000110 65 65 6e 0d 00 82 0f 20 f2 6d 69 6e 65 66 69 65 |een.... .minefie|
00000120 6c 64 0d 00 8c 09 f2 70 6c 61 79 0d 00 96 20 e7 |ld.....play... .|
00000130 4d 46 25 28 4d 58 25 2b 44 58 25 2c 4d 59 25 2b |MF%(MX%+DX%,MY%+|
00000140 44 59 25 29 3d 31 8c 8d 74 4c 40 0d 00 a0 14 20 |DY%)=1..tL@.... |
00000150 f1 8a 4d 58 25 2c 4d 59 25 2b 36 29 22 20 22 0d |..MX%,MY%+6)" ".|
00000160 00 aa 1c 20 4d 58 25 3d 4d 58 25 2b 44 58 25 3a |... MX%=MX%+DX%:|
00000170 4d 59 25 3d 4d 59 25 2b 44 59 25 0d 00 b4 75 20 |MY%=MY%+DY%...u |
00000180 e7 4d 46 25 28 4d 58 25 2c 4d 59 25 29 3d 32 8c |.MF%(MX%,MY%)=2.|
00000190 d4 30 2c 2d 36 2c 31 30 2c 31 30 3a f1 8a 31 2c |.0,-6,10,10:..1,|
000001a0 33 29 22 20 20 59 6f 75 20 68 69 74 20 61 20 6d |3)" You hit a m|
000001b0 69 6e 65 20 21 22 3b 8a 36 2c 35 29 22 2a 2a 2a |ine !";.6,5)"***|
000001c0 22 3a fb 31 3a f1 8a 4d 58 25 2c 4d 59 25 2b 36 |":.1:..MX%,MY%+6|
000001d0 29 3b bd 32 33 31 3a 4d 46 25 28 4d 58 25 2c 4d |);.231:MF%(MX%,M|
000001e0 59 25 29 3d 30 3a 53 25 3d 30 3a e5 8d 64 7a 40 |Y%)=0:S%=0:..dz@|
000001f0 0d 00 be 9a 20 e7 4d 46 25 28 4d 58 25 2c 4d 59 |.... .MF%(MX%,MY|
00000200 25 29 3d 34 20 80 20 66 6c 61 67 73 20 3d 20 30 |%)=4 . flags = 0|
00000210 8c 20 3a 54 25 3d 54 25 2d a8 28 91 2f 31 30 30 |. :T%=T%-.(./100|
00000220 29 3a 53 25 3d 53 25 2b 54 25 3a f1 8a 31 2c 32 |):S%=S%+T%:..1,2|
00000230 29 22 20 20 59 6f 75 20 6d 61 64 65 20 69 74 20 |)" You made it |
00000240 21 20 20 20 22 3b 3a e3 4e 25 3d 31 32 30 b8 32 |! ";:.N%=120.2|
00000250 30 30 88 31 30 3a d4 31 2c 2d 31 35 2c 4e 25 2c |00.10:.1,-15,N%,|
00000260 32 3a ed 3a d4 31 2c 2d 31 35 2c 32 30 30 2c 36 |2:.:.1,-15,200,6|
00000270 3a f1 8a 4d 58 25 2b 31 2c 4d 59 25 2b 36 29 3b |:..MX%+1,MY%+6);|
00000280 bd 32 33 33 3a e5 8d 64 7a 40 0d 00 c8 4b 20 20 |.233:..dz@...K |
00000290 e7 20 4d 46 25 28 4d 58 25 2c 4d 59 25 29 3d 36 |. MF%(MX%,MY%)=6|
000002a0 20 8c 20 4d 46 25 28 4d 58 25 2c 4d 59 25 29 3d | . MF%(MX%,MY%)=|
000002b0 30 3a 66 6c 61 67 73 3d 66 6c 61 67 73 2d 31 3a |0:flags=flags-1:|
000002c0 d4 31 2c 2d 31 32 2c 31 30 30 2c 32 3a 53 25 3d |.1,-12,100,2:S%=|
000002d0 53 25 2b 31 30 0d 00 d2 16 20 f1 8a 4d 58 25 2c |S%+10.... ..MX%,|
000002e0 4d 59 25 2b 36 29 3b bd 32 32 36 0d 00 dc 09 e5 |MY%+6);.226.....|
000002f0 8d 74 4c 40 0d 00 fa 07 20 fb 35 0d 01 04 10 20 |.tL@.... .5.... |
00000300 e7 20 53 25 3c 30 8c 53 25 3d 30 0d 01 0e 0d 20 |. S%<0.S%=0.... |
00000310 e3 41 25 3d 31 b8 31 38 0d 01 18 0e 20 20 e3 42 |.A%=1.18.... .B|
00000320 25 3d 31 b8 32 31 0d 01 22 25 20 20 e7 4d 46 25 |%=1.21.."% .MF%|
00000330 28 41 25 2c 42 25 29 3d 32 8c f1 8a 41 25 2c 42 |(A%,B%)=2...A%,B|
00000340 25 2b 36 29 3b bd 28 32 32 34 29 0d 01 2c 06 20 |%+6);.(224)..,. |
00000350 ed 0d 01 36 06 20 ed 0d 01 40 2c 20 fb 37 3a f1 |...6. ...@, .7:.|
00000360 8a 31 2c 33 31 29 3b 22 41 6e 6f 74 68 65 72 20 |.1,31);"Another |
00000370 67 61 6d 65 20 3f 3f 20 20 22 3b 3a 2a 46 58 31 |game ?? ";:*FX1|
00000380 35 2c 31 0d 01 4a 0b 69 6e 6b 65 79 3d a5 0d 01 |5,1..J.inkey=...|
00000390 54 91 20 e7 69 6e 6b 65 79 3d 37 38 20 8c 20 db |T. .inkey=78 . .|
000003a0 3a e0 20 8b 20 fb 32 3a f1 8a 31 2c 32 39 29 22 |:. . .2:..1,29)"|
000003b0 4c 61 73 74 20 73 63 6f 72 65 20 22 3a fb 37 3a |Last score ":.7:|
000003c0 f1 8a 31 33 2c 32 39 29 3b 53 25 3b 22 20 20 22 |..13,29);S%;" "|
000003d0 3b 8a 36 2c 35 29 3b 22 20 20 20 22 3b 8a 31 36 |;.6,5);" ";.16|
000003e0 2c 35 29 3b 22 20 20 20 22 3b 3a e7 53 25 3e 48 |,5);" ";:.S%>H|
000003f0 25 8c 48 25 3d 53 25 3a fb 32 3a f1 8a 31 2c 33 |%.H%=S%:.2:..1,3|
00000400 30 29 3b 22 42 65 73 74 20 73 63 6f 72 65 20 22 |0);"Best score "|
00000410 3a fb 37 3a f1 8a 31 33 2c 33 30 29 3b 48 25 0d |:.7:..13,30);H%.|
00000420 01 5e 1f 20 f1 8a 31 2c 33 31 29 3b c4 31 36 2c |.^. ..1,31);.16,|
00000430 bd 28 33 32 29 29 3b 3a e5 20 8d 74 42 40 0d 01 |.(32));:. .tB@..|
00000440 68 06 20 e0 0d 01 72 05 20 0d 01 7c 0c 20 dd f2 |h. ...r. ..|. ..|
00000450 73 65 74 75 70 0d 01 86 23 ef 32 33 2c 32 32 34 |setup...#.23,224|
00000460 2c 30 2c 36 30 2c 39 30 2c 31 30 32 2c 31 30 32 |,0,60,90,102,102|
00000470 2c 39 30 2c 36 30 2c 30 0d 01 90 2b ef 32 33 2c |,90,60,0...+.23,|
00000480 32 32 35 2c 32 35 35 2c 32 31 33 2c 31 37 31 2c |225,255,213,171,|
00000490 32 31 33 2c 31 37 31 2c 32 31 33 2c 31 37 31 2c |213,171,213,171,|
000004a0 32 35 35 0d 01 9a 23 20 ef 32 33 2c 32 32 36 2c |255...# .23,226,|
000004b0 32 38 2c 32 38 2c 38 2c 36 32 2c 37 33 2c 38 35 |28,28,8,62,73,85|
000004c0 2c 32 30 2c 35 34 0d 01 a4 23 ef 32 33 2c 32 32 |,20,54...#.23,22|
000004d0 37 2c 39 36 2c 38 38 2c 37 30 2c 38 38 2c 39 36 |7,96,88,70,88,96|
000004e0 2c 36 34 2c 36 34 2c 36 34 0d 01 ae 24 20 ef 32 |,64,64,64...$ .2|
000004f0 33 2c 32 32 38 2c 31 36 2c 34 2c 31 32 38 2c 31 |3,228,16,4,128,1|
00000500 30 36 2c 31 2c 33 32 2c 38 2c 31 32 39 0d 01 b8 |06,1,32,8,129...|
00000510 23 20 ef 32 33 2c 32 32 39 2c 37 33 2c 38 2c 31 |# .23,229,73,8,1|
00000520 30 36 2c 31 2c 33 36 2c 31 32 38 2c 39 38 2c 34 |06,1,36,128,98,4|
00000530 0d 01 c2 27 20 ef 32 33 2c 32 33 30 2c 31 32 38 |...' .23,230,128|
00000540 2c 36 38 2c 31 33 36 2c 38 30 2c 32 2c 31 30 37 |,68,136,80,2,107|
00000550 2c 33 32 2c 31 32 38 0d 01 cc 26 20 ef 32 33 2c |,32,128...& .23,|
00000560 32 33 31 2c 30 2c 31 33 36 2c 31 33 36 2c 32 33 |231,0,136,136,23|
00000570 32 2c 32 33 35 2c 36 33 2c 36 33 2c 30 0d 01 d6 |2,235,63,63,0...|
00000580 27 20 ef 32 33 2c 32 33 32 2c 31 36 2c 35 36 2c |' .23,232,16,56,|
00000590 35 36 2c 31 32 34 2c 31 32 34 2c 32 35 34 2c 31 |56,124,124,254,1|
000005a0 36 2c 31 36 0d 01 e0 25 20 20 ef 32 33 2c 32 33 |6,16...% .23,23|
000005b0 33 2c 32 38 2c 39 33 2c 37 33 2c 31 32 37 2c 38 |3,28,93,73,127,8|
000005c0 2c 32 30 2c 33 34 2c 36 35 0d 01 ea 10 20 de 4d |,20,34,65.... .M|
000005d0 46 25 28 31 39 2c 32 32 29 0d 01 f4 08 48 25 3d |F%(19,22)....H%=|
000005e0 30 0d 01 fe 05 e1 0d 02 08 05 20 0d 02 12 0b dd |0......... .....|
000005f0 f2 69 6e 74 72 6f 0d 02 1c 80 20 20 f1 27 27 27 |.intro.... .'''|
00000600 27 22 59 6f 75 72 20 74 61 73 6b 20 69 73 20 74 |'"Your task is t|
00000610 6f 20 63 72 6f 73 73 20 61 20 6d 69 6e 65 66 69 |o cross a minefi|
00000620 65 6c 64 20 20 20 20 20 20 20 77 69 74 68 6f 75 |eld withou|
00000630 74 20 67 65 74 74 69 6e 67 20 79 6f 75 72 73 65 |t getting yourse|
00000640 6c 66 20 6b 69 6c 6c 65 64 21 20 20 20 20 20 20 |lf killed! |
00000650 20 20 49 6e 20 74 68 69 73 20 67 61 6d 65 20 79 | In this game y|
00000660 6f 75 20 6f 6e 6c 79 20 67 65 74 20 4f 4e 45 20 |ou only get ONE |
00000670 6c 69 66 65 21 22 0d 02 26 e5 20 f1 27 27 22 54 |life!"..&. .''"T|
00000680 6f 20 68 65 6c 70 20 79 6f 75 20 69 6e 20 74 68 |o help you in th|
00000690 69 73 20 74 61 73 6b 20 79 6f 75 20 63 61 72 72 |is task you carr|
000006a0 79 20 61 6e 20 20 20 61 75 74 6f 6d 61 74 69 63 |y an automatic|
000006b0 20 6d 69 6e 65 20 64 65 74 65 63 74 6f 72 2e 20 | mine detector. |
000006c0 54 68 69 73 20 67 69 76 65 73 20 61 20 20 20 63 |This gives a c|
000006d0 6f 6e 74 69 6e 75 6f 75 73 6c 79 20 75 70 64 61 |ontinuously upda|
000006e0 74 65 64 20 72 65 61 64 20 6f 75 74 20 61 74 20 |ted read out at |
000006f0 74 68 65 20 74 6f 70 6f 66 20 74 68 65 20 73 63 |the topof the sc|
00000700 72 65 65 6e 2e 20 54 68 69 73 20 77 69 6c 6c 20 |reen. This will |
00000710 74 65 6c 6c 20 79 6f 75 20 68 6f 77 20 20 20 6d |tell you how m|
00000720 61 6e 79 20 6d 69 6e 65 73 20 74 68 65 72 65 20 |any mines there |
00000730 61 72 65 20 20 69 6e 20 74 68 65 20 65 69 67 68 |are in the eigh|
00000740 74 20 20 20 20 20 20 73 71 75 61 72 65 73 20 61 |t squares a|
00000750 72 6f 75 6e 64 20 79 6f 75 2e 22 0d 02 30 29 fb |round you."..0).|
00000760 31 3a f1 27 27 27 27 22 41 6e 79 20 6b 65 79 20 |1:.''''"Any key |
00000770 74 6f 20 63 6f 6e 74 69 6e 75 65 22 3a 41 24 3d |to continue":A$=|
00000780 be 3a fb 37 0d 02 3a 06 20 e1 0d 02 44 05 20 0d |.:.7..:. ...D. .|
00000790 02 4e 0d 20 dd f2 69 6e 74 72 6f 32 0d 02 58 17 |.N. ..intro2..X.|
000007a0 20 f1 27 27 22 54 48 45 20 43 4f 4e 54 52 4f 4c | .''"THE CONTROL|
000007b0 53 3a 22 0d 02 62 14 20 f1 27 22 20 20 20 20 20 |S:"..b. .'" |
000007c0 20 20 55 50 20 3a 22 0d 02 6c 13 20 f1 22 20 20 | UP :"..l. ." |
000007d0 20 20 20 44 4f 57 4e 20 2f 22 0d 02 76 13 20 f1 | DOWN /"..v. .|
000007e0 22 20 20 20 20 20 4c 45 46 54 20 5a 22 0d 02 80 |" LEFT Z"...|
000007f0 13 20 f1 22 20 20 20 20 52 49 47 48 54 20 58 22 |. ." RIGHT X"|
00000800 0d 02 8a 17 20 f1 27 27 27 27 22 54 48 45 20 53 |.... .''''"THE S|
00000810 43 52 45 45 4e 3a 22 0d 02 94 18 20 f1 27 22 20 |CREEN:".... .'" |
00000820 20 20 20 20 59 6f 75 3d 20 22 3b bd 32 32 36 0d | You= ";.226.|
00000830 02 9e 20 20 f1 22 20 20 20 20 54 72 65 65 3d 20 |.. ." Tree= |
00000840 22 3b 3a fb 32 3a f1 3b bd 32 33 32 3a fb 37 0d |";:.2:.;.232:.7.|
00000850 02 a8 20 20 f1 22 20 4d 79 73 74 65 72 79 3d 20 |.. ." Mystery= |
00000860 22 3b 3a fb 32 3a f1 20 bd 32 32 38 3a fb 37 0d |";:.2:. .228:.7.|
00000870 02 b2 20 20 f1 22 42 6f 75 6e 64 61 72 79 3d 20 |.. ."Boundary= |
00000880 22 3b 3a fb 31 3a f1 3b bd 32 32 35 3a fb 37 0d |";:.1:.;.225:.7.|
00000890 02 bc 13 20 f1 22 20 20 20 53 74 61 72 74 3d 20 |... ." Start= |
000008a0 53 22 0d 02 c6 1c 20 f1 22 20 20 46 69 6e 69 73 |S".... ." Finis|
000008b0 68 3d 20 22 3b 3a fb 31 31 3a f1 22 46 22 0d 02 |h= ";:.11:."F"..|
000008c0 d0 27 fb 31 3a f1 27 27 22 41 6e 79 20 6b 65 79 |.'.1:.''"Any key|
000008d0 20 74 6f 20 63 6f 6e 74 69 6e 75 65 22 3a fb 37 | to continue":.7|
000008e0 3a 41 24 3d be 0d 02 da 05 e1 0d 02 e4 05 20 0d |:A$=.......... .|
000008f0 02 ee 0d 20 dd f2 73 63 72 65 65 6e 0d 02 f8 22 |... ..screen..."|
00000900 20 f2 73 68 61 64 6f 77 28 22 4d 49 4e 45 46 49 | .shadow("MINEFI|
00000910 45 4c 44 22 2c 31 2c 33 2c 35 2c 33 31 29 0d 03 |ELD",1,3,5,31)..|
00000920 02 23 20 fb 32 3a f1 8a 30 2c 35 29 22 53 43 4f |.# .2:..0,5)"SCO|
00000930 52 45 22 3b 8a 31 30 2c 35 29 22 42 4f 4e 55 53 |RE";.10,5)"BONUS|
00000940 22 0d 03 0c 2c fb 31 3a f1 8a 31 2c 36 29 3b c4 |"...,.1:..1,6);.|
00000950 31 38 2c bd 28 32 32 35 29 29 3b 8a 31 2c 32 38 |18,.(225));.1,28|
00000960 29 3b c4 31 38 2c bd 28 32 32 35 29 29 0d 03 16 |);.18,.(225))...|
00000970 2e 20 e3 4e 25 3d 36 b8 32 38 3a f1 8a 30 2c 4e |. .N%=6.28:..0,N|
00000980 25 29 3b bd 28 32 32 35 29 3a f1 8a 31 39 2c 4e |%);.(225):..19,N|
00000990 25 29 3b bd 28 32 32 35 29 3a ed 0d 03 20 09 20 |%);.(225):... . |
000009a0 53 25 3d 30 0d 03 2a 06 20 e1 0d 03 34 05 20 0d |S%=0..*. ...4. .|
000009b0 03 3e 10 20 dd f2 6d 69 6e 65 66 69 65 6c 64 0d |.>. ..minefield.|
000009c0 03 48 2a 20 4d 58 25 3d 31 3a 4d 59 25 3d 31 31 |.H* MX%=1:MY%=11|
000009d0 3a 44 58 25 3d 30 3a 44 59 25 3d 30 3a 66 6c 61 |:DX%=0:DY%=0:fla|
000009e0 67 73 3d 30 3a 53 25 3d 30 0d 03 52 25 20 fb 33 |gs=0:S%=0..R% .3|
000009f0 3a f1 8a 30 2c 31 37 29 3b 22 53 22 3a fb 20 31 |:..0,17);"S":. 1|
00000a00 31 3a f1 8a 31 39 2c 31 37 29 3b 22 46 22 0d 03 |1:..19,17);"F"..|
00000a10 5c 22 20 fb 32 3a f1 8a 31 2c 32 29 22 20 20 46 |\" .2:..1,2)" F|
00000a20 6c 61 67 73 20 74 6f 20 63 6f 6c 6c 65 63 74 22 |lags to collect"|
00000a30 0d 03 66 1f 20 f1 8a 31 2c 33 29 22 20 20 4d 69 |..f. ..1,3)" Mi|
00000a40 6e 65 73 20 61 72 6f 75 6e 64 20 79 6f 75 22 0d |nes around you".|
00000a50 03 70 1e 20 fb 31 31 3a f1 8a 34 2c 31 37 29 22 |.p. .11:..4,17)"|
00000a60 50 4c 45 41 53 45 20 20 57 41 49 54 22 0d 03 7a |PLEASE WAIT"..z|
00000a70 0d 20 e3 41 25 3d 31 b8 31 38 0d 03 84 0f 20 20 |. .A%=1.18.... |
00000a80 20 e3 42 25 3d 31 b8 32 31 0d 03 8e 1e e7 b3 28 | .B%=1.21......(|
00000a90 36 29 3e 31 8c 4d 46 25 28 41 25 2c 42 25 29 3d |6)>1.MF%(A%,B%)=|
00000aa0 30 3a e5 8d 74 76 43 0d 03 98 1e e7 b3 28 34 29 |0:..tvC......(4)|
00000ab0 3d 31 8c 4d 46 25 28 41 25 2c 42 25 29 3d 31 3a |=1.MF%(A%,B%)=1:|
00000ac0 e5 8d 74 76 43 0d 03 a2 1e e7 b3 28 34 29 3d 31 |..tvC......(4)=1|
00000ad0 8c 4d 46 25 28 41 25 2c 42 25 29 3d 36 3a e5 8d |.MF%(A%,B%)=6:..|
00000ae0 74 76 43 0d 03 ac 10 4d 46 25 28 41 25 2c 42 25 |tvC....MF%(A%,B%|
00000af0 29 3d 32 0d 03 b6 06 20 ed 0d 03 c0 06 20 ed 0d |)=2.... ..... ..|
00000b00 03 ca 11 20 4d 46 25 28 31 38 2c 31 31 29 3d 34 |... MF%(18,11)=4|
00000b10 0d 03 d4 40 4d 46 25 28 31 2c 31 30 29 3d 30 3a |...@MF%(1,10)=0:|
00000b20 4d 46 25 28 31 2c 31 32 29 3d 30 3a 4d 46 25 28 |MF%(1,12)=0:MF%(|
00000b30 32 2c 31 31 29 3d 30 3a 4d 46 25 28 31 2c 31 31 |2,11)=0:MF%(1,11|
00000b40 29 3d 30 3a 4d 46 25 28 31 37 2c 31 31 29 3d 30 |)=0:MF%(17,11)=0|
00000b50 0d 03 de 0d 20 e3 41 25 3d 31 b8 31 38 0d 03 e8 |.... .A%=1.18...|
00000b60 0f 20 20 20 e3 42 25 3d 31 b8 32 31 0d 03 f2 3c |. .B%=1.21...<|
00000b70 20 e7 4d 46 25 28 41 25 2c 42 25 29 3d 30 20 84 | .MF%(A%,B%)=0 .|
00000b80 4d 46 25 28 41 25 2c 42 25 29 3d 32 20 8c 20 fb |MF%(A%,B%)=2 . .|
00000b90 32 3a f1 8a 41 25 2c 42 25 2b 36 29 3b bd 28 32 |2:..A%,B%+6);.(2|
00000ba0 32 37 2b b3 28 33 29 29 0d 03 fc 26 20 e7 4d 46 |27+.(3))...& .MF|
00000bb0 25 28 41 25 2c 42 25 29 3d 31 20 8c fb 32 3a f1 |%(A%,B%)=1 ..2:.|
00000bc0 8a 41 25 2c 42 25 2b 36 29 3b bd 32 33 32 0d 04 |.A%,B%+6);.232..|
00000bd0 06 37 20 e7 4d 46 25 28 41 25 2c 42 25 29 3d 36 |.7 .MF%(A%,B%)=6|
00000be0 20 8c 20 fb 36 3a f1 8a 41 25 2c 42 25 2b 36 29 | . .6:..A%,B%+6)|
00000bf0 3b bd 28 32 32 37 29 3a 66 6c 61 67 73 3d 66 6c |;.(227):flags=fl|
00000c00 61 67 73 2b 31 0d 04 10 06 20 ed 0d 04 1a 06 20 |ags+1.... ..... |
00000c10 ed 0d 04 24 14 20 fb 32 3a f1 8a 31 38 2c 31 37 |...$. .2:..18,17|
00000c20 29 bd 32 32 38 0d 04 2e 18 20 fb 37 3a f1 8a 31 |).228.... .7:..1|
00000c30 2c 31 37 29 3b bd 32 32 36 3a d1 3d 30 0d 04 38 |,17);.226:.=0..8|
00000c40 16 20 54 25 3d 36 30 30 3a f1 8a 31 36 2c 35 29 |. T%=600:..16,5)|
00000c50 3b 54 25 0d 04 42 05 e1 0d 04 4c 05 20 0d 04 56 |;T%..B....L. ..V|
00000c60 0a dd f2 70 6c 61 79 0d 04 60 23 f1 8a 31 2c 32 |...play..`#..1,2|
00000c70 29 3b 22 20 20 22 3b 8a 31 2c 32 29 3b 66 6c 61 |);" ";.1,2);fla|
00000c80 67 73 3b 8a 36 2c 35 29 53 25 0d 04 6a 24 f1 8a |gs;.6,5)S%..j$..|
00000c90 31 36 2c 35 29 3b 22 20 20 20 22 3b 8a 31 36 2c |16,5);" ";.16,|
00000ca0 35 29 3b 54 25 2d a8 28 91 2f 31 30 30 29 0d 04 |5);T%-.(./100)..|
00000cb0 74 0a 20 4e 4d 25 3d 30 0d 04 7e 0d 20 e3 41 25 |t. NM%=0..~. .A%|
00000cc0 3d 2d 31 b8 31 0d 04 88 0d 20 e3 42 25 3d 2d 31 |=-1.1.... .B%=-1|
00000cd0 b8 31 0d 04 92 26 20 20 e7 4d 46 25 28 4d 58 25 |.1...& .MF%(MX%|
00000ce0 2b 41 25 2c 4d 59 25 2b 42 25 29 3d 32 8c 20 4e |+A%,MY%+B%)=2. N|
00000cf0 4d 25 3d 4e 4d 25 2b 31 0d 04 9c 06 20 ed 0d 04 |M%=NM%+1.... ...|
00000d00 a6 06 20 ed 0d 04 b0 0f 20 f1 8a 31 2c 33 29 3b |.. ..... ..1,3);|
00000d10 4e 4d 25 0d 04 ba 0b 2a 46 58 31 35 2c 31 0d 04 |NM%....*FX15,1..|
00000d20 c4 14 41 24 3d be 3a 44 58 25 3d 30 3a 44 59 25 |..A$=.:DX%=0:DY%|
00000d30 3d 30 0d 04 ce 23 44 58 25 3d 28 41 24 3d 22 5a |=0...#DX%=(A$="Z|
00000d40 22 29 2a 31 2b 28 41 24 3d 22 58 22 29 2a 2d 31 |")*1+(A$="X")*-1|
00000d50 20 20 20 20 20 0d 04 d8 1e 44 59 25 3d 28 41 24 | ....DY%=(A$|
00000d60 3d 22 3a 22 29 2a 31 2b 28 41 24 3d 22 2f 22 29 |=":")*1+(A$="/")|
00000d70 2a 2d 31 0d 04 e2 29 20 e7 28 4d 58 25 3d 31 80 |*-1...) .(MX%=1.|
00000d80 44 58 25 3d 2d 31 29 84 28 4d 58 25 3d 31 38 80 |DX%=-1).(MX%=18.|
00000d90 44 58 25 3d 31 29 8c 44 58 25 3d 30 0d 04 ec 29 |DX%=1).DX%=0...)|
00000da0 20 e7 28 4d 59 25 3d 31 80 44 59 25 3d 2d 31 29 | .(MY%=1.DY%=-1)|
00000db0 84 28 4d 59 25 3d 32 31 80 44 59 25 3d 31 29 8c |.(MY%=21.DY%=1).|
00000dc0 44 59 25 3d 30 0d 04 f6 05 e1 0d 05 00 05 20 0d |DY%=0......... .|
00000dd0 05 0a 1b 20 dd f2 73 68 61 64 6f 77 28 54 24 2c |... ..shadow(T$,|
00000de0 43 31 2c 43 32 2c 48 2c 56 29 0d 05 14 07 20 ef |C1,C2,H,V).... .|
00000df0 35 0d 05 1e 1a 20 e6 30 2c 43 31 3a ec 36 34 2a |5.... .0,C1:.64*|
00000e00 48 2c 33 32 2a 56 3a f1 20 54 24 0d 05 28 1f 20 |H,32*V:. T$..(. |
00000e10 e6 30 2c 43 32 3a ec 20 48 2a 36 34 2d 38 2c 56 |.0,C2:. H*64-8,V|
00000e20 2a 33 32 2b 34 3a f1 20 54 24 0d 05 32 07 20 ef |*32+4:. T$..2. .|
00000e30 34 0d 05 3c 06 20 e1 0d ff |4..<. ...|
00000e39 
.