Home » Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » Mine/MINE2
Mine/MINE2
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 ADFS disks » Electron » Micropower.ADF |
| Filename: | Mine/MINE2 |
| Read OK: | ✔ |
| File size: | 038F bytes |
| Load address: | 0E00 |
| Exec address: | 8023 |
Duplicates
There are 9 duplicate copies of this file in the archive:
- AEW website » beau_jolly » beau_jolly_5_25_discs_10-Computer-Hits-4_HD-10C4.dsd » I.MINE2
- AEW website » micropower » micropower_5_25_discs_Micro-Power-Magic-2_HD-MPM2.dsd » D.MINE2
- AEW website » micropower » micropower_5_25_discs_The-Mine-V1_HD-MINE.ssd » MINE2
- AEW website » micropower » micropower_5_25_discs_The-Mine-V2_HD-MINE.ssd » MINE2
- AEW website » micropower » micropower_tapes_The-Mine-V1_TheMine_E.uef » MINE2
- AEW website » micropower » micropower_tapes_The-Mine-V2_TheMine_E.uef » MINE2
- Personal collection » Acorn ADFS disks » Electron » Micropower.ADF » Mine/MINE2
- Personal collection » Acorn hard disk » zipped_disks » elk08 » micropower/Mine/MINE2
- Personal collection » Acorn tapes » Commercial_Releases » micropower_tape04a_acorn_the_mine.wav » MINE2
- Personal collection » Acorn tapes » Commercial_Releases » micropower_tape04a_acorn_the_mine.wav » MINE2
File contents
10REM /// The Mine ///
20REM // Version 1 //
30REM // W.Mansell //
40*LOAD"MINE3"
50MODE4:S%=12
60!&73=RND
70?&70=&53
80?&71=&B5
90?&72=&76
100VDU23,224,204,51,204,51,204,51,204,51
110VDU23,225,255,255,255,255,255,255,255,255
120VDU23;10,32,0;0;0;
130PRINT:PRINT:PRINT
140COLOUR1
150MOVE0,840:DRAW1280,840
160MOVE0,948:DRAW1280,948
170MOVE528,904
180VDU5
190PRINT"THE MINE"
200VDU4
210PRINT:PRINT:PRINT
220PRINT'SPC6"KEYS:"
230PRINTSPCS%" Z - LEFT"
240PRINTSPCS%" X - RIGHT"
250PRINTSPCS%" : - UP"
260PRINTSPCS%" / - DOWN"
270PRINTSPCS%"RETURN - STUN/PUMP"
280PRINT
290PRINTSPCS%"ESCAPE - RESTART"
300PRINTSPCS%" COPY - FREEZE"
310PRINTSPCS%"DELETE - CONTINUE"
320PRINT:PRINT:PRINT" Use 'S' and 'Q' to turn"
330PRINT" the sound ON or OFF"
340:PRINT:PRINT
350PRINT" Press SPACE BAR to start"
360PRINT'':PROCP(" W.Mansell (C) 1984")
370*FX15
380*FX4,1
390CALL&1100
400DEFPROCPD(A$)FORI%=0TO1:VDU&9D81;&8D83;:PRINTSPC(16-LENA$DIV2)A$:NEXT:ENDPROC
410DEFPROCP(A$)PRINTSPC(20-LENA$DIV2)A$:ENDPROC
420DEFPROCDEFINE(A$) FORI%=1TOLENA$:PROCCHAR(ASC(MID$(A$,I%,1))):NEXT:ENDPROC
� /// The Mine ///
� // Version 1 //
� // W.Mansell //
(*LOAD"MINE3"
2�4:S%=12
< !&73=�
F ?&70=&53
P ?&71=&B5
Z ?&72=&76
d'�23,224,204,51,204,51,204,51,204,51
n+�23,225,255,255,255,255,255,255,255,255
x�23;10,32,0;0;0;
� �:�:�
��1
��0,840:�1280,840
��0,948:�1280,948
�
�528,904
��5
��"THE MINE"
��4
� �:�:�
��'�6"KEYS:"
��S%" Z - LEFT"
��S%" X - RIGHT"
��S%" : - UP"
�S%" / - DOWN"
�S%"RETURN - STUN/PUMP"
�
"�S%"ESCAPE - RESTART"
,�S%" COPY - FREEZE"
6�S%"DELETE - CONTINUE"
@/�:�:�" Use 'S' and 'Q' to turn"
J+�" the sound ON or OFF"
T:�:�
^,�" Press SPACE BAR to start"
h!�'':�P(" W.Mansell (C) 1984")
r *FX15
|
*FX4,1
�
�&1100
�4��PD(A$)�I%=0�1:�&9D81;&8D83;:�(16-�A$�2)A$:�:�
���P(A$)�(20-�A$�2)A$:�
�2��DEFINE(A$) �I%=1��A$:�CHAR(�(�A$,I%,1))):�:�
� 00000000 0d 00 0a 16 f4 20 2f 2f 2f 20 54 68 65 20 4d 69 |..... /// The Mi|
00000010 6e 65 20 2f 2f 2f 0d 00 14 18 f4 20 20 20 2f 2f |ne ///..... //|
00000020 20 56 65 72 73 69 6f 6e 20 31 20 2f 2f 20 0d 00 | Version 1 // ..|
00000030 1e 18 f4 20 20 20 2f 2f 20 57 2e 4d 61 6e 73 65 |... // W.Manse|
00000040 6c 6c 20 2f 2f 20 0d 00 28 11 2a 4c 4f 41 44 22 |ll // ..(.*LOAD"|
00000050 4d 49 4e 45 33 22 20 0d 00 32 0e eb 34 3a 53 25 |MINE3" ..2..4:S%|
00000060 3d 31 32 20 20 0d 00 3c 0b 21 26 37 33 3d b3 20 |=12 ..<.!&73=. |
00000070 0d 00 46 0c 3f 26 37 30 3d 26 35 33 0d 00 50 0c |..F.?&70=&53..P.|
00000080 3f 26 37 31 3d 26 42 35 0d 00 5a 0c 3f 26 37 32 |?&71=&B5..Z.?&72|
00000090 3d 26 37 36 0d 00 64 27 ef 32 33 2c 32 32 34 2c |=&76..d'.23,224,|
000000a0 32 30 34 2c 35 31 2c 32 30 34 2c 35 31 2c 32 30 |204,51,204,51,20|
000000b0 34 2c 35 31 2c 32 30 34 2c 35 31 0d 00 6e 2b ef |4,51,204,51..n+.|
000000c0 32 33 2c 32 32 35 2c 32 35 35 2c 32 35 35 2c 32 |23,225,255,255,2|
000000d0 35 35 2c 32 35 35 2c 32 35 35 2c 32 35 35 2c 32 |55,255,255,255,2|
000000e0 35 35 2c 32 35 35 0d 00 78 14 ef 32 33 3b 31 30 |55,255..x..23;10|
000000f0 2c 33 32 2c 30 3b 30 3b 30 3b 0d 00 82 09 f1 3a |,32,0;0;0;.....:|
00000100 f1 3a f1 0d 00 8c 06 fb 31 0d 00 96 14 ec 30 2c |.:......1.....0,|
00000110 38 34 30 3a df 31 32 38 30 2c 38 34 30 0d 00 a0 |840:.1280,840...|
00000120 14 ec 30 2c 39 34 38 3a df 31 32 38 30 2c 39 34 |..0,948:.1280,94|
00000130 38 0d 00 aa 0d ec 35 32 38 2c 39 30 34 20 0d 00 |8.....528,904 ..|
00000140 b4 06 ef 35 0d 00 be 0f f1 22 54 48 45 20 4d 49 |...5....."THE MI|
00000150 4e 45 22 0d 00 c8 06 ef 34 0d 00 d2 09 f1 3a f1 |NE".....4.....:.|
00000160 3a f1 0d 00 dc 0f f1 27 89 36 22 4b 45 59 53 3a |:......'.6"KEYS:|
00000170 22 0d 00 e6 19 f1 89 53 25 22 20 20 20 20 20 5a |"......S%" Z|
00000180 20 2d 20 4c 45 46 54 22 20 20 0d 00 f0 18 f1 89 | - LEFT" ......|
00000190 53 25 22 20 20 20 20 20 58 20 2d 20 52 49 47 48 |S%" X - RIGH|
000001a0 54 22 0d 00 fa 15 f1 89 53 25 22 20 20 20 20 20 |T"......S%" |
000001b0 3a 20 2d 20 55 50 22 0d 01 04 1a f1 89 53 25 22 |: - UP"......S%"|
000001c0 20 20 20 20 20 2f 20 2d 20 44 4f 57 4e 22 20 20 | / - DOWN" |
000001d0 20 0d 01 0e 1c f1 89 53 25 22 52 45 54 55 52 4e | ......S%"RETURN|
000001e0 20 2d 20 53 54 55 4e 2f 50 55 4d 50 22 0d 01 18 | - STUN/PUMP"...|
000001f0 05 f1 0d 01 22 1a f1 89 53 25 22 45 53 43 41 50 |...."...S%"ESCAP|
00000200 45 20 2d 20 52 45 53 54 41 52 54 22 0d 01 2c 19 |E - RESTART"..,.|
00000210 f1 89 53 25 22 20 20 43 4f 50 59 20 2d 20 46 52 |..S%" COPY - FR|
00000220 45 45 5a 45 22 0d 01 36 1b f1 89 53 25 22 44 45 |EEZE"..6...S%"DE|
00000230 4c 45 54 45 20 2d 20 43 4f 4e 54 49 4e 55 45 22 |LETE - CONTINUE"|
00000240 0d 01 40 2f f1 3a f1 3a f1 22 20 20 20 20 20 20 |..@/.:.:." |
00000250 20 20 20 55 73 65 20 27 53 27 20 61 6e 64 20 27 | Use 'S' and '|
00000260 51 27 20 74 6f 20 74 75 72 6e 22 20 20 20 20 0d |Q' to turn" .|
00000270 01 4a 2b f1 22 20 20 20 20 20 20 20 20 20 20 20 |.J+." |
00000280 74 68 65 20 73 6f 75 6e 64 20 4f 4e 20 6f 72 20 |the sound ON or |
00000290 4f 46 46 22 20 20 20 20 20 20 0d 01 54 08 3a f1 |OFF" ..T.:.|
000002a0 3a f1 0d 01 5e 2c f1 22 20 20 20 20 20 20 20 20 |:...^,." |
000002b0 20 50 72 65 73 73 20 53 50 41 43 45 20 42 41 52 | Press SPACE BAR|
000002c0 20 74 6f 20 73 74 61 72 74 22 20 20 20 20 0d 01 | to start" ..|
000002d0 68 21 f1 27 27 3a f2 50 28 22 20 57 2e 4d 61 6e |h!.'':.P(" W.Man|
000002e0 73 65 6c 6c 20 28 43 29 20 31 39 38 34 22 29 0d |sell (C) 1984").|
000002f0 01 72 09 2a 46 58 31 35 0d 01 7c 0a 2a 46 58 34 |.r.*FX15..|.*FX4|
00000300 2c 31 0d 01 86 0a d6 26 31 31 30 30 0d 01 90 34 |,1.....&1100...4|
00000310 dd f2 50 44 28 41 24 29 e3 49 25 3d 30 b8 31 3a |..PD(A$).I%=0.1:|
00000320 ef 26 39 44 38 31 3b 26 38 44 38 33 3b 3a f1 89 |.&9D81;&8D83;:..|
00000330 28 31 36 2d a9 41 24 81 32 29 41 24 3a ed 3a e1 |(16-.A$.2)A$:.:.|
00000340 0d 01 9a 1b dd f2 50 28 41 24 29 f1 89 28 32 30 |......P(A$)..(20|
00000350 2d a9 41 24 81 32 29 41 24 3a e1 0d 01 a4 32 dd |-.A$.2)A$:....2.|
00000360 f2 44 45 46 49 4e 45 28 41 24 29 20 e3 49 25 3d |.DEFINE(A$) .I%=|
00000370 31 b8 a9 41 24 3a f2 43 48 41 52 28 97 28 c1 41 |1..A$:.CHAR(.(.A|
00000380 24 2c 49 25 2c 31 29 29 29 3a ed 3a e1 0d ff |$,I%,1))):.:...|
0000038f 
Mine/MINE2.m0
Mine/MINE2.m1
Mine/MINE2.m2
Mine/MINE2.m4
Mine/MINE2.m5
.