MINEFIELD
FILE INFORMATION
FILENAME(S): MINEFIELD
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-12-02 02:08:07
APPEARS ON: 1 disk(s)
FILE HASH
da92e7a947e74ae7def6ee5b28e81eafd01e7c78dc4fdac66ebeb20420754bfb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PLAY2 | MINEFIELD | PRG | Shocktrooper | 34 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 01 00 97 37 38 38 2C 35 32 00 34 08 |.......788,52.4.|
00000010: 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 00 5A 08 14 00 8F 20 2A 47 41 4D 45 |****.Z.... *GAME|
00000040: 53 20 50 52 4F 47 52 41 4D 20 2D 20 53 45 45 20 |S PROGRAM - SEE |
00000050: 49 46 20 59 4F 55 20 43 41 4E 00 82 08 1E 00 8F |IF YOU CAN......|
00000060: 20 2A 53 55 43 43 45 53 53 46 55 4C 4C 59 20 43 | *SUCCESSFULLY C|
00000070: 52 4F 53 53 20 54 48 45 20 4D 49 4E 45 46 49 45 |ROSS THE MINEFIE|
00000080: 4C 44 00 A9 08 28 00 8F 20 2A 2A 2A 2A 2A 2A 2A |LD...(.. *******|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CA 08 32 00 8F 20 |*********...2.. |
000000B0: 53 45 54 20 55 50 20 4D 49 4E 45 46 49 45 4C 44 |SET UP MINEFIELD|
000000C0: 20 49 4E 20 41 52 52 41 59 53 00 D7 08 37 00 97 | IN ARRAYS...7..|
000000D0: 35 33 32 38 31 2C 31 00 FB 08 3C 00 4E 4D B2 31 |53281,1...<.NM.1|
000000E0: 30 3A 8F 20 4E 4F 20 4D 49 4E 45 53 20 3D 20 31 |0:. NO MINES = 1|
000000F0: 30 20 49 4E 49 54 49 41 4C 4C 59 00 0B 09 46 00 |0 INITIALLY...F.|
00000100: 86 20 41 24 28 31 35 2C 31 36 29 00 16 09 50 00 |. A$(15,16)...P.|
00000110: 8D 20 31 33 31 30 00 25 09 5A 00 81 20 49 B2 31 |. 1310.%.Z.. I.1|
00000120: 20 A4 20 31 35 00 34 09 64 00 81 20 4A B2 31 20 | . 15.4.d.. J.1 |
00000130: A4 20 31 35 00 44 09 6E 00 41 24 28 49 2C 4A 29 |. 15.D.n.A$(I,J)|
00000140: B2 22 2E 22 00 4C 09 78 00 82 20 4A 00 54 09 82 |.".".L.x.. J.T..|
00000150: 00 82 20 49 00 71 09 8C 00 8F 20 53 45 54 20 55 |.. I.q.... SET U|
00000160: 50 20 4D 49 4E 45 53 20 41 54 20 52 41 4E 44 4F |P MINES AT RANDO|
00000170: 4D 00 80 09 96 00 81 20 49 B2 31 20 A4 20 4E 4D |M...... I.1 . NM|
00000180: 00 91 09 A0 00 58 25 B2 BB 28 31 29 AC 31 35 AA |.....X%..(1).15.|
00000190: 31 00 A2 09 AA 00 59 25 B2 BB 28 31 29 AC 31 35 |1.....Y%..(1).15|
000001A0: AA 31 00 B4 09 B4 00 41 24 28 58 25 2C 59 25 29 |.1.....A$(X%,Y%)|
000001B0: B2 22 4D 22 00 BC 09 BE 00 82 20 49 00 CC 09 C8 |."M"...... I....|
000001C0: 00 41 24 28 31 2C 31 29 B2 22 2E 22 00 DE 09 D2 |.A$(1,1)."."....|
000001D0: 00 41 24 28 31 35 2C 31 35 29 B2 22 2E 22 00 05 |.A$(15,15)."."..|
000001E0: 0A DC 00 99 22 1C 93 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
000001F0: 1D 1D 1D 1D 1D 4C 20 41 20 4E 20 44 20 4D 20 49 |.....L A N D M I|
00000200: 20 4E 20 45 22 00 2B 0A E6 00 99 22 90 1D 1D 1D | N E".+...."....|
00000210: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 A3 A3 A3 A3 |................|
00000220: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 44 0A F0 00 |..........".D...|
00000230: 99 22 4E 4F 20 4F 46 20 4D 49 4E 45 53 20 3D 20 |."NO OF MINES = |
00000240: 22 3B 4E 4D 00 64 0A FA 00 8F 20 50 52 49 4E 54 |";NM.d.... PRINT|
00000250: 20 4D 49 4E 45 46 49 45 4C 44 20 4F 4E 20 53 43 | MINEFIELD ON SC|
00000260: 52 45 45 4E 00 82 0A 04 01 43 4C B2 31 35 3A 4E |REEN.....CL.15:N|
00000270: 4F B2 31 35 3A 5A 24 B2 22 2E 22 3A 54 24 B2 22 |O.15:Z$.".":T$."|
00000280: 48 22 00 92 0A 0E 01 81 20 52 57 B2 35 20 A4 20 |H"...... RW.5 . |
00000290: 31 39 00 9C 0A 18 01 8D 20 39 36 30 00 A5 0A 22 |19...... 960..."|
000002A0: 01 82 20 52 57 00 C8 0A 2C 01 43 4C B2 31 34 3A |.. RW...,.CL.14:|
000002B0: 4E 4F B2 31 37 3A 52 57 B2 34 3A 5A 24 B2 22 A6 |NO.17:RW.4:Z$.".|
000002C0: 22 3A 54 24 B2 22 48 22 00 D2 0A 36 01 8D 20 39 |":T$."H"...6.. 9|
000002D0: 36 30 00 DC 0A 40 01 52 57 B2 32 30 00 E6 0A 4A |60...@.RW.20...J|
000002E0: 01 8D 20 39 36 30 00 09 0B 54 01 43 4C B2 31 34 |.. 960...T.CL.14|
000002F0: 3A 4E 4F B2 31 37 3A 52 57 B2 34 3A 5A 24 B2 22 |:NO.17:RW.4:Z$."|
00000300: A6 22 3A 54 24 B2 22 56 22 00 13 0B 5E 01 8D 20 |.":T$."V"...^.. |
00000310: 39 36 30 00 1D 0B 68 01 43 4C B2 33 30 00 27 0B |960...h.CL.30.'.|
00000320: 72 01 8D 20 39 36 30 00 35 0B 7C 01 58 25 B2 31 |r.. 960.5.|.X%.1|
00000330: 3A 59 25 B2 31 00 3F 0B 86 01 89 20 36 36 30 00 |:Y%.1.?.... 660.|
00000340: 4A 0B 90 01 8D 20 31 32 34 30 00 54 0B 9A 01 99 |J.... 1240.T....|
00000350: 22 D1 22 3B 00 6D 0B A4 01 A1 20 47 47 24 3A 8B |".";.m.... GG$:.|
00000360: 20 47 47 24 B2 22 22 20 A7 20 34 30 30 00 7B 0B | GG$."" . 400.{.|
00000370: AE 01 47 47 B2 C5 28 47 47 24 29 00 93 0B B8 01 |..GG..(GG$).....|
00000380: 8B 20 47 47 B3 31 20 B0 20 47 47 B1 39 20 A7 20 |. GG.1 . GG.9 . |
00000390: 34 30 30 00 C1 0B C2 01 91 20 47 47 89 20 34 36 |400...... GG. 46|
000003A0: 30 2C 34 38 30 2C 35 30 30 2C 35 32 30 2C 35 34 |0,480,500,520,54|
000003B0: 30 2C 35 35 30 2C 35 37 30 2C 35 39 30 2C 36 31 |0,550,570,590,61|
000003C0: 30 00 E1 0B CC 01 58 58 25 B2 58 25 AB 31 3A 59 |0.....XX%.X%.1:Y|
000003D0: 59 25 B2 59 25 AA 31 3A 43 52 24 B2 22 9C 9D 11 |Y%.Y%.1:CR$."...|
000003E0: 22 00 EB 0B D6 01 89 20 36 32 30 00 07 0C E0 01 |"...... 620.....|
000003F0: 58 58 25 B2 58 25 3A 59 59 25 B2 59 25 AA 31 3A |XX%.X%:YY%.Y%.1:|
00000400: 43 52 24 B2 22 11 22 00 11 0C EA 01 89 20 36 32 |CR$."."...... 62|
00000410: 30 00 31 0C F4 01 58 58 25 B2 58 25 AA 31 3A 59 |0.1...XX%.X%.1:Y|
00000420: 59 25 B2 59 25 AA 31 3A 43 52 24 B2 22 1F 1D 11 |Y%.Y%.1:CR$."...|
00000430: 22 00 3B 0C FE 01 89 20 36 32 30 00 57 0C 08 02 |".;.... 620.W...|
00000440: 58 58 25 B2 58 25 AB 31 3A 59 59 25 B2 59 25 3A |XX%.X%.1:YY%.Y%:|
00000450: 43 52 24 B2 22 9D 22 00 61 0C 12 02 89 20 36 32 |CR$.".".a.... 62|
00000460: 30 00 6B 0C 1C 02 89 20 34 30 30 00 87 0C 26 02 |0.k.... 400...&.|
00000470: 58 58 25 B2 58 25 AA 31 3A 59 59 25 B2 59 25 3A |XX%.X%.1:YY%.Y%:|
00000480: 43 52 24 B2 22 1D 22 00 91 0C 30 02 89 20 36 32 |CR$."."...0.. 62|
00000490: 30 00 B0 0C 3A 02 58 58 25 B2 58 25 AB 31 3A 59 |0...:.XX%.X%.1:Y|
000004A0: 59 25 B2 59 25 AB 31 3A 43 52 24 B2 22 91 9D 22 |Y%.Y%.1:CR$.".."|
000004B0: 00 BA 0C 44 02 89 20 36 32 30 00 D6 0C 4E 02 58 |...D.. 620...N.X|
000004C0: 58 25 B2 58 25 3A 59 59 25 B2 59 25 AB 31 3A 43 |X%.X%:YY%.Y%.1:C|
000004D0: 52 24 B2 22 91 22 00 E0 0C 58 02 89 20 36 32 30 |R$."."...X.. 620|
000004E0: 00 FF 0C 62 02 58 58 25 B2 58 25 AA 31 3A 59 59 |...b.XX%.X%.1:YY|
000004F0: 25 B2 59 25 AB 31 3A 43 52 24 B2 22 91 1D 22 00 |%.Y%.1:CR$."..".|
00000500: 19 0D 6C 02 8B 58 58 25 B3 31 20 B0 20 58 58 25 |..l..XX%.1 . XX%|
00000510: B1 31 35 20 A7 20 34 30 30 00 33 0D 76 02 8B 59 |.15 . 400.3.v..Y|
00000520: 59 25 B3 31 20 B0 20 59 59 25 B1 31 35 20 A7 20 |Y%.1 . YY%.15 . |
00000530: 34 30 30 00 45 0D 80 02 58 25 B2 58 58 25 3A 59 |400.E...X%.XX%:Y|
00000540: 25 B2 59 59 25 00 6B 0D 8A 02 8F 20 4E 4F 57 20 |%.YY%.k.... NOW |
00000550: 43 48 45 43 4B 20 46 4F 52 20 4D 49 4E 45 53 20 |CHECK FOR MINES |
00000560: 49 4E 20 56 49 43 49 4E 49 54 59 00 85 0D 94 02 |IN VICINITY.....|
00000570: 8B 20 41 24 28 58 25 2C 59 25 29 B2 22 4D 22 20 |. A$(X%,Y%)."M" |
00000580: A7 20 38 32 30 00 97 0D 9E 02 41 24 28 58 25 2C |. 820.....A$(X%,|
00000590: 59 25 29 B2 22 D1 22 00 B1 0D A8 02 8B 20 58 25 |Y%)."."...... X%|
000005A0: B2 31 35 20 AF 20 59 25 B2 31 35 20 A7 20 37 38 |.15 . Y%.15 . 78|
000005B0: 30 00 CD 0D B2 02 8F 20 43 48 45 43 4B 20 46 4F |0...... CHECK FO|
000005C0: 52 20 31 20 4D 4F 56 45 20 41 57 41 59 00 DE 0D |R 1 MOVE AWAY...|
000005D0: BC 02 4D 53 25 B2 31 3A 8D 20 31 30 39 30 00 F0 |..MS%.1:. 1090..|
000005E0: 0D C6 02 8B 20 4D 4E B3 B1 30 20 A7 20 37 34 30 |.... MN..0 . 740|
000005F0: 00 0D 0E D0 02 8F 20 43 48 45 43 4B 20 46 4F 52 |...... CHECK FOR|
00000600: 20 32 20 4D 4F 56 45 53 20 41 57 41 59 00 1E 0E | 2 MOVES AWAY...|
00000610: DA 02 4D 53 25 B2 32 3A 8D 20 31 30 39 30 00 42 |..MS%.2:. 1090.B|
00000620: 0E E4 02 8F 20 52 45 53 45 54 20 43 55 52 53 4F |.... RESET CURSO|
00000630: 52 20 57 49 54 48 49 4E 20 4D 49 4E 45 46 49 45 |R WITHIN MINEFIE|
00000640: 4C 44 00 4D 0E EE 02 8D 20 31 32 34 30 00 57 0E |LD.M.... 1240.W.|
00000650: F8 02 89 20 34 30 30 00 7C 0E 02 03 8F 20 4D 49 |... 400.|.... MI|
00000660: 4E 45 46 49 45 4C 44 20 43 52 4F 53 53 45 44 20 |NEFIELD CROSSED |
00000670: 53 55 43 43 45 53 53 46 55 4C 4C 59 00 97 0E 0C |SUCCESSFULLY....|
00000680: 03 43 4C B2 31 3A 4E 4F B2 31 3A 52 57 B2 32 33 |.CL.1:NO.1:RW.23|
00000690: 3A 54 24 B2 22 48 22 00 C4 0E 16 03 5A 24 B2 22 |:T$."H".....Z$."|
000006A0: 4D 49 4E 45 46 49 45 4C 44 20 53 55 43 43 45 53 |MINEFIELD SUCCES|
000006B0: 53 46 55 4C 4C 59 20 43 52 4F 53 53 45 44 20 20 |SFULLY CROSSED |
000006C0: 20 20 20 22 00 CE 0E 20 03 8D 20 39 36 30 00 D8 | "... .. 960..|
000006D0: 0E 2A 03 89 20 38 36 30 00 F0 0E 34 03 8F 20 4C |.*.. 860...4.. L|
000006E0: 41 4E 44 4D 49 4E 45 20 45 58 50 4C 4F 44 45 53 |ANDMINE EXPLODES|
000006F0: 00 0B 0F 3E 03 43 4C B2 31 3A 4E 4F B2 31 3A 52 |...>.CL.1:NO.1:R|
00000700: 57 B2 32 33 3A 54 24 B2 22 48 22 00 24 0F 48 03 |W.23:T$."H".$.H.|
00000710: 5A 24 B2 22 42 20 41 20 4E 20 47 20 21 21 21 21 |Z$."B A N G !!!!|
00000720: 21 21 21 22 00 4D 0F 4D 03 5A 24 B2 5A 24 AA 22 |!!!".M.M.Z$.Z$."|
00000730: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000740: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 57 0F | ".W.|
00000750: 52 03 8D 20 39 36 30 00 69 0F 5C 03 41 24 28 58 |R.. 960.i.\.A$(X|
00000760: 25 2C 59 25 29 B2 22 D6 22 00 78 0F 66 03 81 20 |%,Y%).".".x.f.. |
00000770: 59 B2 31 20 A4 20 31 35 00 8D 0F 70 03 58 25 B2 |Y.1 . 15...p.X%.|
00000780: 31 3A 59 25 B2 59 3A 8D 20 31 32 34 30 00 9C 0F |1:Y%.Y:. 1240...|
00000790: 7A 03 81 20 58 B2 31 20 A4 20 31 35 00 AB 0F 84 |z.. X.1 . 15....|
000007A0: 03 99 20 41 24 28 58 2C 59 29 3B 00 B3 0F 8E 03 |.. A$(X,Y);.....|
000007B0: 82 20 58 00 BB 0F 98 03 82 20 59 00 D4 0F A2 03 |. X...... Y.....|
000007C0: A1 20 47 4F 24 3A 8B 20 47 4F 24 B2 22 22 20 A7 |. GO$:. GO$."" .|
000007D0: 20 39 33 30 00 E0 0F AC 03 4E 4D B2 4E 4D AA 32 | 930.....NM.NM.2|
000007E0: 00 E9 0F B6 03 89 20 39 30 00 11 10 C0 03 8F 20 |...... 90...... |
000007F0: 53 55 42 52 4F 55 54 49 4E 45 20 54 4F 20 44 52 |SUBROUTINE TO DR|
00000800: 41 57 20 4C 49 4E 45 20 4F 4E 20 53 43 52 45 45 |AW LINE ON SCREE|
00000810: 4E 00 34 10 CA 03 8F 20 43 4C 3D 53 54 41 52 54 |N.4.... CL=START|
00000820: 20 43 4F 4C 55 4D 4E 2C 52 57 3D 53 54 41 52 54 | COLUMN,RW=START|
00000830: 20 52 4F 57 00 5E 10 D4 03 8F 20 4E 4F 3D 4E 4F | ROW.^.... NO=NO|
00000840: 20 4F 46 20 43 48 41 52 53 2C 54 24 3D 20 56 28 | OF CHARS,T$= V(|
00000850: 56 45 52 54 29 2C 48 28 48 4F 52 49 5A 29 00 75 |VERT),H(HORIZ).u|
00000860: 10 DE 03 8F 20 5A 24 3D 54 45 58 54 20 54 4F 20 |.... Z$=TEXT TO |
00000870: 50 52 49 4E 54 00 7F 10 E8 03 99 22 90 13 22 00 |PRINT......"..".|
00000880: 9A 10 F2 03 81 20 49 B2 31 20 A4 20 43 4C AB 31 |..... I.1 . CL.1|
00000890: 3A 99 22 1D 22 3B 3A 82 20 49 00 B5 10 FC 03 81 |:.".";:. I......|
000008A0: 20 49 B2 31 20 A4 20 52 57 AB 31 3A 99 22 11 22 | I.1 . RW.1:."."|
000008B0: 3B 3A 82 20 49 00 CA 10 06 04 8B 20 54 24 B2 22 |;:. I...... T$."|
000008C0: 48 22 20 A7 20 49 24 B2 22 22 00 E1 10 10 04 8B |H" . I$.""......|
000008D0: 20 54 24 B2 22 56 22 20 A7 20 49 24 B2 22 11 9D | T$."V" . I$."..|
000008E0: 22 00 F0 10 1A 04 81 20 49 B2 31 20 A4 20 4E 4F |"...... I.1 . NO|
000008F0: 00 FC 10 24 04 99 5A 24 3B 49 24 3B 00 04 11 2E |...$..Z$;I$;....|
00000900: 04 82 20 49 00 0A 11 38 04 8E 00 2C 11 42 04 8F |.. I...8...,.B..|
00000910: 20 43 48 45 43 4B 20 46 4F 52 20 4D 49 4E 45 53 | CHECK FOR MINES|
00000920: 20 49 4E 20 56 49 43 49 4E 49 54 59 00 57 11 4C | IN VICINITY.W.L|
00000930: 04 8F 20 4D 53 25 3D 31 20 43 4C 4F 53 45 20 53 |.. MS%=1 CLOSE S|
00000940: 45 41 52 43 48 2C 4D 53 25 3D 32 20 57 49 44 45 |EARCH,MS%=2 WIDE|
00000950: 20 53 45 41 52 43 48 00 60 11 56 04 4D 4E B2 30 | SEARCH.`.V.MN.0|
00000960: 00 78 11 60 04 81 20 49 B2 58 25 AB 4D 53 25 20 |.x.`.. I.X%.MS% |
00000970: A4 20 58 25 AA 4D 53 25 00 90 11 6A 04 81 20 4A |. X%.MS%...j.. J|
00000980: B2 59 25 AB 4D 53 25 20 A4 20 59 25 AA 4D 53 25 |.Y%.MS% . Y%.MS%|
00000990: 00 A7 11 74 04 8B 20 49 B3 31 20 B0 20 4A B3 31 |...t.. I.1 . J.1|
000009A0: 20 A7 20 31 31 37 30 00 C0 11 7E 04 8B 20 49 B1 | . 1170...~.. I.|
000009B0: 31 35 20 B0 20 4A B1 31 35 20 A7 20 31 31 37 30 |15 . J.15 . 1170|
000009C0: 00 DC 11 88 04 8B 20 41 24 28 49 2C 4A 29 B2 22 |...... A$(I,J)."|
000009D0: 4D 22 20 A7 20 4D 4E B2 4D 4E AA 31 00 E4 11 92 |M" . MN.MN.1....|
000009E0: 04 82 20 4A 00 EC 11 9C 04 82 20 49 00 15 12 A6 |.. J...... I....|
000009F0: 04 5A 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |.Z$." |
00000A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A10: 20 20 20 20 22 00 28 12 B0 04 8B 20 4D 4E B3 B2 | ".(.... MN..|
00000A20: 30 20 A7 20 31 32 31 30 00 42 12 B4 04 5A 24 B2 |0 . 1210.B...Z$.|
00000A30: C4 28 4D 4E 29 AA 22 20 4D 49 4E 45 53 28 53 29 |.(MN)." MINES(S)|
00000A40: 20 22 00 61 12 B6 04 5A 24 B2 5A 24 AA C4 28 4D | ".a...Z$.Z$..(M|
00000A50: 53 25 29 AA 22 20 4D 4F 56 45 53 20 41 57 41 59 |S%)." MOVES AWAY|
00000A60: 22 00 7C 12 BA 04 43 4C B2 31 3A 4E 4F B2 31 3A |".|...CL.1:NO.1:|
00000A70: 52 57 B2 32 33 3A 54 24 B2 22 48 22 00 86 12 C4 |RW.23:T$."H"....|
00000A80: 04 8D 20 39 36 30 00 8C 12 CE 04 8E 00 B5 12 D8 |.. 960..........|
00000A90: 04 8F 20 43 55 52 53 4F 52 20 41 44 44 52 45 53 |.. CURSOR ADDRES|
00000AA0: 53 20 54 4F 20 57 49 54 48 49 4E 20 4D 49 4E 45 |S TO WITHIN MINE|
00000AB0: 46 49 45 4C 44 00 D0 12 E2 04 8F 20 58 25 3D 58 |FIELD...... X%=X|
00000AC0: 20 41 58 49 53 2C 20 59 25 3D 59 20 41 58 49 53 | AXIS, Y%=Y AXIS|
00000AD0: 00 DA 12 EC 04 99 22 13 22 3B 00 F6 12 F6 04 81 |......".";......|
00000AE0: 20 49 B2 31 20 A4 20 58 25 AA 31 34 3A 99 22 1D | I.1 . X%.14:.".|
00000AF0: 22 3B 3A 82 20 49 00 11 13 00 05 81 20 49 B2 31 |";:. I...... I.1|
00000B00: 20 A4 20 59 25 AA 34 3A 99 22 11 22 3B 3A 82 20 | . Y%.4:.".";:. |
00000B10: 49 00 1B 13 0A 05 99 22 9D 22 3B 00 21 13 14 05 |I......".";.!...|
00000B20: 8E 00 4A 13 1E 05 8F 20 49 4E 54 52 4F 44 55 43 |..J.... INTRODUC|
00000B30: 54 49 4F 4E 20 26 20 49 4E 53 54 52 55 43 54 49 |TION & INSTRUCTI|
00000B40: 4F 4E 53 20 46 4F 4C 4C 4F 57 00 71 13 28 05 99 |ONS FOLLOW.q.(..|
00000B50: 22 90 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000B60: 1D 4C 20 41 20 4E 20 44 20 4D 20 49 20 4E 20 45 |.L A N D M I N E|
00000B70: 22 00 96 13 32 05 99 22 1D 1D 1D 1D 1D 1D 1D 1D |"...2.."........|
00000B80: 1D 1D 1D 1D 1D 1D A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000B90: A3 A3 A3 A3 A3 22 00 BB 13 3C 05 99 22 54 48 45 |....."...<.."THE|
00000BA0: 20 4F 42 4A 45 43 54 20 4F 46 20 54 48 49 53 20 | OBJECT OF THIS |
00000BB0: 47 41 4D 45 20 49 53 20 54 4F 22 00 E2 13 46 05 |GAME IS TO"...F.|
00000BC0: 99 22 54 52 41 56 45 52 53 45 20 41 20 4D 49 4E |."TRAVERSE A MIN|
00000BD0: 45 46 49 45 4C 44 2E 20 59 4F 55 52 20 4D 49 4E |EFIELD. YOUR MIN|
00000BE0: 45 22 00 05 14 50 05 99 22 44 45 54 45 43 54 4F |E"...P.."DETECTO|
00000BF0: 52 20 47 49 56 45 53 20 53 4F 4D 45 20 57 41 52 |R GIVES SOME WAR|
00000C00: 4E 49 4E 47 22 00 27 14 5A 05 99 22 4F 46 20 4E |NING".'.Z.."OF N|
00000C10: 45 41 52 42 59 20 4D 49 4E 45 53 2E 20 42 55 54 |EARBY MINES. BUT|
00000C20: 20 43 41 4E 27 54 22 00 49 14 64 05 99 22 47 49 | CAN'T".I.d.."GI|
00000C30: 56 45 20 54 48 45 49 52 20 45 58 41 43 54 20 4C |VE THEIR EXACT L|
00000C40: 4F 43 41 54 49 4F 4E 2E 22 00 64 14 6E 05 99 22 |OCATION.".d.n.."|
00000C50: 53 4F 20 42 45 20 43 41 52 45 46 55 4C 20 4F 52 |SO BE CAREFUL OR|
00000C60: 20 3A C3 22 00 7F 14 78 05 99 22 12 20 20 20 42 | :."...x..". B|
00000C70: 20 41 20 4E 20 47 20 21 21 21 20 20 20 92 22 00 | A N G !!! .".|
00000C80: A7 14 82 05 99 22 59 4F 55 20 53 54 41 52 54 20 |....."YOU START |
00000C90: 41 54 20 54 48 45 20 54 4F 50 20 4C 45 46 54 20 |AT THE TOP LEFT |
00000CA0: 43 4F 52 4E 45 52 22 00 CC 14 8C 05 99 22 41 4E |CORNER"......"AN|
00000CB0: 44 20 46 49 4E 49 53 48 20 28 48 4F 50 45 46 55 |D FINISH (HOPEFU|
00000CC0: 4C 4C 59 29 20 41 54 20 54 48 45 22 00 E1 14 91 |LLY) AT THE"....|
00000CD0: 05 99 22 42 4F 54 54 4F 4D 20 52 49 47 48 54 2E |.."BOTTOM RIGHT.|
00000CE0: 22 00 05 15 96 05 99 22 55 53 45 20 54 48 45 20 |"......"USE THE |
00000CF0: 4E 55 4D 45 52 49 43 20 50 41 44 20 54 4F 20 4D |NUMERIC PAD TO M|
00000D00: 4F 56 45 2C 22 00 2E 15 A0 05 99 22 57 49 54 48 |OVE,"......"WITH|
00000D10: 20 59 4F 55 52 20 50 4F 53 49 54 49 4F 4E 20 42 | YOUR POSITION B|
00000D20: 45 49 4E 47 20 52 45 4C 41 54 45 44 20 22 00 45 |EING RELATED ".E|
00000D30: 15 AA 05 99 22 54 4F 20 54 48 45 20 35 20 4B 45 |...."TO THE 5 KE|
00000D40: 59 2E 11 1C 22 00 59 15 B4 05 99 22 20 20 20 20 |Y...".Y...." |
00000D50: 20 20 20 20 37 20 38 20 39 00 6C 15 BE 05 99 22 | 7 8 9.l...."|
00000D60: 20 20 20 20 20 20 20 20 20 CD C2 CE 00 80 15 C8 | .......|
00000D70: 05 99 22 20 20 20 20 20 20 20 20 34 C0 D1 C3 36 |.." 4...6|
00000D80: 00 93 15 D2 05 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000D90: CE C2 CD 00 A7 15 DC 05 99 22 20 20 20 20 20 20 |........." |
00000DA0: 20 20 31 20 32 20 33 00 CC 15 E6 05 99 22 11 12 | 1 2 3......"..|
00000DB0: 1F 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 57 |.PRESS ANY KEY W|
00000DC0: 48 45 4E 20 52 45 41 44 59 2E 92 22 00 E6 15 F0 |HEN READY.."....|
00000DD0: 05 A1 20 47 47 24 3A 8B 20 47 47 24 B2 22 22 20 |.. GG$:. GG$."" |
00000DE0: A7 20 31 35 32 30 00 EC 15 FA 05 8E 00 00 00 |. 1520......... |
.......788,52.4.... ********************
************.Z.... *GAMES PROGRAM - SEE
IF YOU CAN...... *SUCCESSFULLY CROSS THE
MINEFIELD...(.. ***********************
*********.J.2.. SET UP MINEFIELD IN ARRA
YS.W.7..53281,1...<.NM.10:. NO MINES = 1
0 INITIALLY...F.. A$(15,16)...P.. 1310.%
.Z.. I.1 . 15.4.D.. J.1 . 15.D.N.A$(I,J)
.".".L.X.. J.T.... I.Q.... SET UP MINES
AT RANDOM...... I.1 . NM... .X%..(1).15.
1.....Y%..(1).15.1.....A$(X%,Y%)."M"....
.. I.L.H.A$(1,1)."."...R.A$(15,15)."."..
...."................L A N D M I N E".+.
..."..............................".D...
."NO OF MINES = ";NM.D.... PRINT MINEFIE
LD ON SCREEN.....CL.15:NO.15:Z$.".":T$."
H"...... RW.5 . 19...... 960...".. RW.H.
,.CL.14:NO.17:RW.4:Z$.".":T$."H".R.6.. 9
60...@.RW.20...J.. 960...T.CL.14:NO.17:R
W.4:Z$.".":T$."V"...^.. 960...H.CL.30.'.
R.. 960.5.|.X%.1:Y%.1.?.... 660.J.... 12
40.T...."Q";.M.... GG$:. GG$."" . 400.{.
..GG.E(GG$)...... GG.1 . GG.9 . 400.A.B.
. GG. 460,480,500,520,540,550,570,590,61
0...L.XX%.X%.1:YY%.Y%.1:CR$."..."...V..
620.....XX%.X%:YY%.Y%.1:CR$."."...... 62
0.1...XX%.X%.1:YY%.Y%.1:CR$."...".;....
620.W...XX%.X%.1:YY%.Y%:CR$.".".A.... 62
0.K.... 400...&.XX%.X%.1:YY%.Y%:CR$.".".
..0.. 620...:.XX%.X%.1:YY%.Y%.1:CR$.".."
...D.. 620.V.N.XX%.X%:YY%.Y%.1:CR$."."..
.X.. 620...B.XX%.X%.1:YY%.Y%.1:CR$."..".
..L..XX%.1 . XX%.15 . 400.3.V..YY%.1 . Y
Y%.15 . 400.E...X%.XX%:Y%.YY%.K.... NOW
CHECK FOR MINES IN VICINITY...... A$(X%,
Y%)."M" . 820.....A$(X%,Y%)."Q"...... X%
.15 . Y%.15 . 780.M.... CHECK FOR 1 MOVE
AWAY.....MS%.1:. 1090...F.. MN..0 . 740
...P.. CHECK FOR 2 MOVES AWAY...Z.MS%.2:
. 1090.B.... RESET CURSOR WITHIN MINEFIE
LD.M.... 1240.W.... 400.|.... MINEFIELD
CROSSED SUCCESSFULLY.....CL.1:NO.1:RW.23
:T$."H".D...Z$."MINEFIELD SUCCESSFULLY C
ROSSED ".N. .. 960.X.*.. 860...4.. L
ANDMINE EXPLODES...>.CL.1:NO.1:RW.23:T$.
"H".$.H.Z$."B A N G !!!!!!!".M.M.Z$.Z$."
".W.R.. 960.
I.\.A$(X%,Y%)."V".X.F.. Y.1 . 15...P.X%.
1:Y%.Y:. 1240...Z.. X.1 . 15...... A$(X,
Y);...... X...... Y.T.... GO$:. GO$."" .
930.....NM.NM.2...... 90...... SUBROUTI
NE TO DRAW LINE ON SCREEN.4.J.. CL=START
COLUMN,RW=START ROW.^.T.. NO=NO OF CHAR
S,T$= V(VERT),H(HORIZ).U.... Z$=TEXT TO
PRINT.....".."...... I.1 . CL.1:.".";:.
I...... I.1 . RW.1:.".";:. I.J.... T$."
H" . I$.""...... T$."V" . I$.".."......
I.1 . NO...$..Z$;I$;...... I...8...,.B..
CHECK FOR MINES IN VICINITY.W.L.. MS%=1
CLOSE SEARCH,MS%=2 WIDE SEARCH.`.V.MN.0
.X.`.. I.X%.MS% . X%.MS%...J.. J.Y%.MS%
. Y%.MS%...T.. I.1 . J.1 . 1170...~.. I.
15 . J.15 . 1170...... A$(I,J)."M" . MN.
MN.1...... J...... I.....Z$."
".(.... MN..0 . 1210
.B...Z$.D(MN)." MINES(S) ".A...Z$.Z$.D(M
S%)." MOVES AWAY".|...CL.1:NO.1:RW.23:T$
."H"...D.. 960...N.....X.. CURSOR ADDRES
S TO WITHIN MINEFIELD.P.... X%=X AXIS, Y
%=Y AXIS.Z....".";...... I.1 . X%.14:.".
";:. I...... I.1 . Y%.4:.".";:. I......"
.";.!.....J.... INTRODUCTION & INSTRUCTI
ONS FOLLOW.Q.(.."................L A N D
M I N E"...2.."........................
....."...<.."THE OBJECT OF THIS GAME IS
TO"...F.."TRAVERSE A MINEFIELD. YOUR MIN
E"...P.."DETECTOR GIVES SOME WARNING".'.
Z.."OF NEARBY MINES. BUT CAN'T".I.D.."GI
VE THEIR EXACT LOCATION.".D.N.."SO BE CA
REFUL OR :C"..X..". B A N G !!! .".
....."YOU START AT THE TOP LEFT CORNER".
L...."AND FINISH (HOPEFULLY) AT THE"....
.."BOTTOM RIGHT."......"USE THE NUMERIC
PAD TO MOVE,"... .."WITH YOUR POSITION B
EING RELATED ".E...."TO THE 5 KEY...".Y.
..." 7 8 9.L...." MBN...H
.." 4.QC6...R.." NBM.....
." 1 2 3.L...."...PRESS ANY KEY W
HEN READY.."...... GG$:. GG$."" . 1520..
.......
> CLICK IMAGE PREVIEW FOR FULL MODAL