> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 00 00 97 34 35 2C C2 28 31 37 34 29 |.......45,.(174)|
00000010: 3A 97 34 36 2C C2 28 31 37 35 29 3A 9C 00 30 08 |:.46,.(175):..0.|
00000020: 0A 00 8D 31 30 30 3A 8D 37 30 30 3A 8D 37 32 30 |...100:.700:.720|
00000030: 00 39 08 14 00 8D 32 30 30 00 42 08 1E 00 8D 33 |.9....200.B....3|
00000040: 30 30 00 4B 08 28 00 8D 35 30 30 00 51 08 63 00 |00.K.(..500.Q.c.|
00000050: 80 00 86 08 64 00 97 35 33 32 36 35 2C C2 28 35 |....d..53265,.(5|
00000060: 33 32 36 35 29 B0 36 34 3A 97 35 33 32 38 31 2C |3265).64:.53281,|
00000070: 31 32 3A 97 35 33 32 38 30 2C 31 32 3A 97 35 33 |12:.53280,12:.53|
00000080: 32 38 33 2C 31 35 00 AB 08 65 00 97 35 33 32 38 |283,15...e..5328|
00000090: 32 2C 31 3A 97 35 33 32 38 34 2C 31 31 3A 50 47 |2,1:.53284,11:PG|
000000A0: B2 C2 28 32 33 33 38 33 29 3A 8E 00 E3 08 C8 00 |..(23383):......|
000000B0: 53 B2 35 34 32 37 32 3A 81 58 B2 53 A4 53 AA 32 |S.54272:.X.S.S.2|
000000C0: 34 3A 97 58 2C 30 3A 82 58 3A 97 53 AA 32 34 2C |4:.X,0:.X:.S.24,|
000000D0: 31 35 3A 97 53 AA 35 2C 33 35 3A 97 53 AA 36 2C |15:.S.5,35:.S.6,|
000000E0: 31 34 34 00 1B 09 C9 00 81 58 B2 31 A4 35 3A 87 |144......X.1.5:.|
000000F0: 48 2C 4C 2C 44 3A 97 53 AA 31 2C 48 3A 97 53 2C |H,L,D:.S.1,H:.S,|
00000100: 4C 3A 97 53 AA 34 2C 33 33 3A 81 59 B2 31 A4 44 |L:.S.4,33:.Y.1.D|
00000110: 3A 82 59 3A 97 53 AA 34 2C 33 32 00 37 09 CA 00 |:.Y:.S.4,32.7...|
00000120: 81 59 B2 31 A4 35 30 3A 82 59 3A 82 58 3A 97 53 |.Y.1.50:.Y:.X:.S|
00000130: AA 32 34 2C 30 3A 8E 00 67 09 2C 01 4E B2 B5 28 |.24,0:..g.,.N..(|
00000140: BB 28 30 29 AC C2 28 31 36 33 38 34 29 29 AA 31 |.(0)..(16384)).1|
00000150: 3A 8B 4E B1 C2 28 31 36 33 38 34 29 A7 4E B2 C2 |:.N..(16384).N..|
00000160: 28 31 36 33 38 34 29 00 74 09 2D 01 8B 4E B3 31 |(16384).t.-..N.1|
00000170: A7 33 30 30 00 B4 09 2F 01 52 B2 31 36 33 38 34 |.300.../.R.16384|
00000180: 3A 46 24 B2 22 22 3A 58 B2 C2 28 52 29 3A 52 B2 |:F$."":X..(R):R.|
00000190: 52 AA 31 3A 81 59 B2 31 A4 58 3A 52 B2 52 AA 31 |R.1:.Y.1.X:R.R.1|
000001A0: 3A 4C B2 C2 28 52 29 3A 81 5A B2 31 A4 4C 3A 52 |:L..(R):.Z.1.L:R|
000001B0: B2 52 AA 31 00 E4 09 30 01 4A 24 B2 C7 28 C2 28 |.R.1...0.J$..(.(|
000001C0: 52 29 29 3A 46 24 B2 46 24 AA 4A 24 3A 82 5A 3A |R)):F$.F$.J$:.Z:|
000001D0: 4E 4D 24 28 59 29 B2 46 24 3A 46 24 B2 22 22 3A |NM$(Y).F$:F$."":|
000001E0: 82 59 3A 8E 00 10 0A F4 01 99 22 13 11 11 12 97 |.Y:.......".....|
000001F0: 22 A6 34 29 22 4F 49 4C 20 48 41 53 20 42 45 45 |".4)"OIL HAS BEE|
00000200: 4E 20 46 4F 55 4E 44 20 53 45 45 50 49 4E 47 22 |N FOUND SEEPING"|
00000210: 00 39 0A F5 01 99 A6 34 29 22 12 46 52 4F 4D 20 |.9.....4)".FROM |
00000220: 54 48 45 20 47 52 4F 55 4E 44 20 4F 4E 20 41 20 |THE GROUND ON A |
00000230: 50 52 4F 50 45 52 54 59 22 00 4E 0A F6 01 99 A6 |PROPERTY".N.....|
00000240: 34 29 22 12 4F 57 4E 45 44 20 42 59 3A 22 00 5F |4)".OWNED BY:"._|
00000250: 0A F7 01 81 58 B2 31 A4 32 30 30 30 3A 82 58 00 |....X.1.2000:.X.|
00000260: 81 0A F8 01 99 A6 31 39 AB C3 28 4E 4D 24 28 4E |......19..(NM$(N|
00000270: 29 29 AD 32 29 22 12 11 95 22 3B 4E 4D 24 28 4E |)).2)"...";NM$(N|
00000280: 29 00 AC 0A F9 01 99 A6 34 29 22 12 11 97 50 4C |).......4)"...PL|
00000290: 45 41 53 45 20 45 4E 54 45 52 20 54 48 45 20 46 |EASE ENTER THE F|
000002A0: 49 52 53 54 20 4C 45 54 54 45 52 22 00 D6 0A FA |IRST LETTER"....|
000002B0: 01 99 A6 34 29 22 12 4F 46 20 41 20 54 45 52 52 |...4)".OF A TERR|
000002C0: 41 49 4E 20 54 59 50 45 20 4C 49 53 54 45 44 20 |AIN TYPE LISTED |
000002D0: 42 45 4C 4F 57 22 00 FC 0A FB 01 99 A6 34 29 22 |BELOW".......4)"|
000002E0: 12 4F 4E 20 57 48 49 43 48 20 59 4F 55 20 57 49 |.ON WHICH YOU WI|
000002F0: 53 48 20 54 4F 20 50 4C 41 43 45 22 00 24 0B FC |SH TO PLACE".$..|
00000300: 01 99 A6 34 29 22 12 54 48 49 53 20 4E 45 57 20 |...4)".THIS NEW |
00000310: 57 45 4C 4C 2E 20 54 48 45 20 53 49 54 45 20 4D |WELL. THE SITE M|
00000320: 55 53 54 22 00 46 0B FD 01 99 A6 34 29 22 12 42 |UST".F.....4)".B|
00000330: 45 20 4F 57 4E 45 44 20 42 59 20 22 3B 4E 4D 24 |E OWNED BY ";NM$|
00000340: 28 4E 29 22 2E 22 00 70 0B FE 01 99 A6 34 29 22 |(N)".".p.....4)"|
00000350: 12 11 49 46 20 4E 4F 4E 45 20 4F 46 20 54 48 45 |..IF NONE OF THE|
00000360: 20 4C 49 53 54 45 44 20 54 45 52 52 41 49 4E 22 | LISTED TERRAIN"|
00000370: 00 8D 0B FF 01 99 A6 34 29 22 12 54 59 50 45 53 |.......4)".TYPES|
00000380: 20 49 53 20 4F 57 4E 45 44 20 42 59 22 00 AD 0B | IS OWNED BY"...|
00000390: 00 02 99 A6 34 29 22 12 22 3B 4E 4D 24 28 4E 29 |....4)".";NM$(N)|
000003A0: 22 20 54 48 45 4E 20 50 52 45 53 53 22 00 D6 0B |" THEN PRESS"...|
000003B0: 01 02 99 A6 34 29 22 12 41 4E 59 20 4F 54 48 45 |....4)".ANY OTHE|
000003C0: 52 20 4B 45 59 20 41 4E 44 20 4E 4F 20 4E 45 57 |R KEY AND NO NEW|
000003D0: 20 57 45 4C 4C 22 00 FE 0B 02 02 99 A6 34 29 22 | WELL".......4)"|
000003E0: 12 57 49 4C 4C 20 42 45 20 47 49 56 45 4E 2E 20 |.WILL BE GIVEN. |
000003F0: 20 59 4F 55 20 4D 41 59 20 4F 4E 4C 59 22 00 24 | YOU MAY ONLY".$|
00000400: 0C 03 02 99 A6 34 29 22 12 53 45 4C 45 43 54 20 |.....4)".SELECT |
00000410: 41 4E 20 55 4E 45 58 50 4C 4F 52 45 44 20 53 49 |AN UNEXPLORED SI|
00000420: 54 45 21 22 00 36 0C 04 02 81 58 B2 31 A4 31 35 |TE!".6....X.1.15|
00000430: 30 30 30 3A 82 58 00 44 0C 05 02 8D 37 30 30 3A |000:.X.D....700:|
00000440: 8D 37 32 30 00 6E 0C 06 02 99 22 13 97 11 11 12 |.720.n....".....|
00000450: 22 A6 38 29 22 54 45 52 52 41 49 4E 20 54 59 50 |".8)"TERRAIN TYP|
00000460: 45 53 20 41 56 41 49 4C 41 42 4C 45 3A 22 00 A4 |ES AVAILABLE:"..|
00000470: 0C 07 02 99 A6 31 34 29 22 12 28 44 29 45 53 45 |.....14)".(D)ESE|
00000480: 52 54 22 3A 99 A6 31 34 29 22 12 28 43 29 4F 41 |RT":..14)".(C)OA|
00000490: 53 54 22 3A 99 A6 31 34 29 22 12 28 4A 29 55 4E |ST":..14)".(J)UN|
000004A0: 47 4C 45 22 00 DA 0C 08 02 99 A6 31 34 29 22 12 |GLE".......14)".|
000004B0: 28 50 29 4C 41 49 4E 53 22 3A 99 A6 31 34 29 22 |(P)LAINS":..14)"|
000004C0: 12 28 46 29 4F 52 45 53 54 22 3A 99 A6 31 34 29 |.(F)OREST":..14)|
000004D0: 22 12 28 53 29 57 41 4D 50 22 00 06 0D 09 02 99 |".(S)WAMP"......|
000004E0: A6 31 34 29 22 12 28 42 29 52 55 53 48 4C 41 4E |.14)".(B)RUSHLAN|
000004F0: 44 22 3A 99 A6 31 34 29 22 12 28 4D 29 4F 55 4E |D":..14)".(M)OUN|
00000500: 54 41 49 4E 53 22 00 1D 0D 0A 02 99 A6 34 29 22 |TAINS".......4)"|
00000510: 11 12 22 3B 4E 4D 24 28 4E 29 22 3A 22 00 40 0D |..";NM$(N)":".@.|
00000520: 0B 02 99 A6 37 29 22 11 12 50 52 45 53 53 20 54 |....7)"..PRESS T|
00000530: 48 45 20 46 49 52 53 54 20 4C 45 54 54 45 52 22 |HE FIRST LETTER"|
00000540: 00 68 0D 0C 02 99 A6 34 29 22 12 4F 46 20 54 48 |.h.....4)".OF TH|
00000550: 45 20 54 45 52 52 41 49 4E 20 54 59 50 45 20 54 |E TERRAIN TYPE T|
00000560: 48 41 54 20 59 4F 55 22 00 85 0D 0D 02 99 A6 34 |HAT YOU".......4|
00000570: 29 22 12 57 41 4E 54 20 54 48 49 53 20 57 45 4C |)".WANT THIS WEL|
00000580: 4C 20 4F 4E 2E 00 AB 0D 0E 02 99 A6 37 29 22 11 |L ON........7)".|
00000590: 12 50 52 45 53 53 20 41 4E 59 20 4F 54 48 45 52 |.PRESS ANY OTHER|
000005A0: 20 4C 45 54 54 45 52 20 49 46 22 00 D5 0D 0F 02 | LETTER IF".....|
000005B0: 99 A6 34 29 22 12 59 4F 55 20 44 4F 20 4E 4F 54 |..4)".YOU DO NOT|
000005C0: 20 4F 57 4E 20 50 52 4F 50 45 52 54 59 20 4F 4E | OWN PROPERTY ON|
000005D0: 20 41 4E 59 22 00 FF 0D 10 02 99 A6 34 29 22 12 | ANY".......4)".|
000005E0: 4F 46 20 54 48 45 20 41 42 4F 56 45 20 54 59 50 |OF THE ABOVE TYP|
000005F0: 45 53 20 4F 46 20 54 45 52 52 41 49 4E 2E 22 00 |ES OF TERRAIN.".|
00000600: 12 0E 12 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 |.....A$:.A$."".5|
00000610: 33 30 00 28 0E 13 02 8B 41 24 B2 22 44 22 A7 54 |30.(....A$."D".T|
00000620: 54 B2 31 3A 89 35 35 30 00 3E 0E 14 02 8B 41 24 |T.1:.550.>....A$|
00000630: B2 22 50 22 A7 54 54 B2 32 3A 89 35 35 30 00 54 |."P".TT.2:.550.T|
00000640: 0E 15 02 8B 41 24 B2 22 42 22 A7 54 54 B2 33 3A |....A$."B".TT.3:|
00000650: 89 35 35 30 00 6A 0E 16 02 8B 41 24 B2 22 43 22 |.550.j....A$."C"|
00000660: A7 54 54 B2 36 3A 89 35 35 30 00 80 0E 17 02 8B |.TT.6:.550......|
00000670: 41 24 B2 22 46 22 A7 54 54 B2 37 3A 89 35 35 30 |A$."F".TT.7:.550|
00000680: 00 96 0E 18 02 8B 41 24 B2 22 4D 22 A7 54 54 B2 |......A$."M".TT.|
00000690: 38 3A 89 35 35 30 00 AC 0E 19 02 8B 41 24 B2 22 |8:.550......A$."|
000006A0: 4A 22 A7 54 54 B2 39 3A 89 35 35 30 00 C3 0E 1A |J".TT.9:.550....|
000006B0: 02 8B 41 24 B2 22 53 22 A7 54 54 B2 31 30 3A 89 |..A$."S".TT.10:.|
000006C0: 35 35 30 00 CC 0E 1B 02 89 36 30 30 00 DA 0E 26 |550......600...&|
000006D0: 02 8D 37 30 30 3A 8D 37 32 30 00 0B 0F 27 02 99 |..700:.720...'..|
000006E0: 22 13 11 11 11 12 22 A6 34 29 22 50 4C 45 41 53 |".....".4)"PLEAS|
000006F0: 45 20 45 4E 54 45 52 20 54 48 45 20 43 4F 4F 52 |E ENTER THE COOR|
00000700: 44 49 4E 41 54 45 53 20 4F 46 22 00 32 0F 28 02 |DINATES OF".2.(.|
00000710: 99 A6 34 29 22 12 4E 45 57 20 57 45 4C 4C 20 53 |..4)".NEW WELL S|
00000720: 49 54 45 2E 20 20 49 46 20 49 4D 50 52 4F 50 45 |ITE. IF IMPROPE|
00000730: 52 22 00 5E 0F 29 02 99 A6 34 29 22 12 43 4F 4F |R".^.)...4)".COO|
00000740: 52 44 49 4E 41 54 45 53 20 41 52 45 20 45 4E 54 |RDINATES ARE ENT|
00000750: 45 52 45 44 2C 20 95 4E 4F 20 4E 45 57 22 00 82 |ERED, .NO NEW"..|
00000760: 0F 2A 02 99 A6 34 29 22 12 57 45 4C 4C 20 57 49 |.*...4)".WELL WI|
00000770: 4C 4C 20 42 45 20 52 45 47 49 53 54 45 52 45 44 |LL BE REGISTERED|
00000780: 21 22 00 AD 0F 30 02 85 22 11 11 1D 1D 1D 1D 1D |!"...0..".......|
00000790: 1D 12 48 4F 52 49 5A 4F 4E 54 41 4C 20 3E 22 3B |..HORIZONTAL >";|
000007A0: 43 31 24 3A 43 31 B2 C5 28 43 31 24 29 00 C1 0F |C1$:C1..(C1$)...|
000007B0: 31 02 8B 43 31 B3 31 B0 43 31 B1 35 30 A7 36 30 |1..C1.1.C1.50.60|
000007C0: 30 00 EC 0F 32 02 85 22 11 11 1D 1D 1D 1D 1D 1D |0...2.."........|
000007D0: 1D 1D 12 56 45 52 54 49 43 41 4C 20 3E 22 3B 43 |...VERTICAL >";C|
000007E0: 32 24 3A 43 32 B2 C5 28 43 32 24 29 00 00 10 33 |2$:C2..(C2$)...3|
000007F0: 02 8B 43 32 B3 31 B0 43 32 B1 34 30 A7 36 30 30 |..C2.1.C2.40.600|
00000800: 00 1F 10 3A 02 52 B2 31 36 36 36 30 AA 28 28 43 |...:.R.16660.((C|
00000810: 31 AB 31 29 AC 34 30 29 AA 28 43 32 AB 31 29 00 |1.1).40).(C2.1).|
00000820: 36 10 3B 02 8B 28 C2 28 52 29 AF 31 35 29 B3 B1 |6.;..(.(R).15)..|
00000830: 54 54 A7 36 30 30 00 4D 10 3C 02 8B 28 C2 28 52 |TT.600.M.<..(.(R|
00000840: 29 AF 32 34 30 29 B3 B1 30 A7 36 30 30 00 5C 10 |).240)..0.600.\.|
00000850: 3D 02 97 52 2C C2 28 52 29 B0 33 32 00 83 10 3E |=..R,.(R).32...>|
00000860: 02 52 B2 32 32 36 36 30 AA 28 28 28 4E AB 31 29 |.R.22660.(((N.1)|
00000870: AC 31 33 29 AA 28 54 54 AB 31 29 29 3A 5A B2 C2 |.13).(TT.1)):Z..|
00000880: 28 52 29 00 92 10 3F 02 5A B2 5A AA 31 3A 97 52 |(R)...?.Z.Z.1:.R|
00000890: 2C 5A 00 A0 10 44 02 8D 37 30 30 3A 8D 37 32 30 |,Z...D..700:.720|
000008A0: 00 BC 10 45 02 99 22 13 11 11 11 11 11 12 97 22 |...E.."........"|
000008B0: A6 34 29 4E 4D 24 28 4E 29 22 3A 22 00 E4 10 46 |.4)NM$(N)":"...F|
000008C0: 02 99 A6 34 29 22 11 12 50 4C 45 41 53 45 20 50 |...4)"..PLEASE P|
000008D0: 4C 41 43 45 20 41 4E 20 41 43 54 49 56 45 20 57 |LACE AN ACTIVE W|
000008E0: 45 4C 4C 22 00 17 11 47 02 99 A6 34 29 22 12 4D |ELL"...G...4)".M|
000008F0: 41 52 4B 45 52 20 41 54 20 43 4F 4F 52 44 49 4E |ARKER AT COORDIN|
00000900: 41 54 45 53 20 28 22 43 31 3B 22 9D 2C 22 3B 43 |ATES ("C1;".,";C|
00000910: 32 3B 22 9D 29 2E 22 00 2D 11 48 02 81 58 B2 31 |2;".).".-.H..X.1|
00000920: A4 35 30 30 30 3A 82 58 3A 89 38 30 30 00 33 11 |.5000:.X:.800.3.|
00000930: 57 02 80 00 41 11 58 02 8D 37 30 30 3A 8D 37 32 |W...A.X..700:.72|
00000940: 30 00 67 11 59 02 99 22 13 11 11 11 11 11 11 12 |0.g.Y.."........|
00000950: 97 22 A6 34 29 22 53 4F 52 52 59 20 22 3B 4E 4D |.".4)"SORRY ";NM|
00000960: 24 28 4E 29 22 2C 22 00 93 11 5A 02 99 A6 34 29 |$(N)","...Z...4)|
00000970: 22 12 11 59 4F 55 20 48 41 56 45 20 45 4E 54 45 |"..YOU HAVE ENTE|
00000980: 52 45 44 20 49 4D 50 52 4F 50 45 52 20 44 41 54 |RED IMPROPER DAT|
00000990: 41 2E 22 00 BE 11 5B 02 99 A6 34 29 22 12 54 48 |A."...[...4)".TH|
000009A0: 45 52 45 46 4F 52 45 2C 20 4E 4F 20 4E 45 57 20 |EREFORE, NO NEW |
000009B0: 57 45 4C 4C 20 48 41 53 20 42 45 45 4E 22 00 DD |WELL HAS BEEN"..|
000009C0: 11 5C 02 99 A6 34 29 22 12 52 45 47 49 53 54 45 |.\...4)".REGISTE|
000009D0: 52 45 44 20 46 4F 52 20 59 4F 55 2E 22 00 F3 11 |RED FOR YOU."...|
000009E0: 5D 02 81 58 B2 31 A4 35 30 30 30 3A 82 58 3A 89 |]..X.1.5000:.X:.|
000009F0: 38 30 30 00 F9 11 BB 02 80 00 3E 12 BC 02 50 47 |800.......>...PG|
00000A00: B2 50 47 AA 31 3A 99 22 93 12 90 1D 1D 1D 20 54 |.PG.1:."...... T|
00000A10: 48 45 20 4F 49 4C 20 53 54 52 45 45 54 20 4A 4F |HE OIL STREET JO|
00000A20: 55 52 4E 41 4C 20 20 20 50 41 47 45 20 20 20 9D |URNAL PAGE .|
00000A30: 9D 9D 22 3B 50 47 3A 81 58 B2 31 A4 32 33 00 6F |..";PG:.X.1.23.o|
00000A40: 12 BD 02 99 22 12 1D 1D 1D 20 20 20 20 20 20 20 |....".... |
00000A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A60: 20 20 20 20 20 20 20 20 20 20 A0 22 3A 82 58 00 | .":.X.|
00000A70: 9E 12 BE 02 99 22 12 1D 1D 1D 1D A0 A0 A0 A0 A0 |....."..........|
00000A80: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |................|
00000A90: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 3B 00 AE |............";..|
00000AA0: 12 BF 02 99 22 13 22 3A 8D 37 30 39 3A 8E 00 DC |....".":.709:...|
00000AB0: 12 C5 02 99 A6 34 29 22 12 90 3D 3D 3D 3D 3D 3D |.....4)"..======|
00000AC0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000AD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3A 8E 00 FA 12 D0 |=========":.....|
00000AE0: 02 99 22 13 22 3B 3A 81 58 B2 31 A4 32 32 3A 99 |..".";:.X.1.22:.|
00000AF0: 3A 82 58 3A 8D 37 30 39 3A 8E 00 07 13 20 03 93 |:.X:.709:.... ..|
00000B00: 22 43 4B 41 22 2C 38 00 3F 13 84 03 83 32 35 2C |"CKA",8.?....25,|
00000B10: 33 30 2C 32 32 35 2C 32 32 2C 39 36 2C 35 30 2C |30,225,22,96,50,|
00000B20: 32 31 2C 33 31 2C 31 32 35 2C 31 38 2C 32 30 39 |21,31,125,18,209|
00000B30: 2C 31 30 30 2C 31 36 2C 31 39 35 2C 33 30 30 00 |,100,16,195,300.|
00000B40: 00 00 |.. |
.......45,B(174):.46,B(175):..0....100:.
700:.720.9....200.B....300.K.(..500.Q.C.
....D..53265,B(53265).64:.53281,12:.5328
0,12:.53283,15...E..53282,1:.53284,11:PG
.B(23383):....H.S.54272:.X.S.S.24:.X,0:.
X:.S.24,15:.S.5,35:.S.6,144...I..X.1.5:.
H,L,D:.S.1,H:.S,L:.S.4,33:.Y.1.D:.Y:.S.4
,32.7.J..Y.1.50:.Y:.X:.S.24,0:..G.,.N..(
.(0).B(16384)).1:.N.B(16384).N.B(16384).
T.-..N.1.300.../.R.16384:F$."":X.B(R):R.
R.1:.Y.1.X:R.R.1:L.B(R):.Z.1.L:R.R.1...0
.J$.G(B(R)):F$.F$.J$:.Z:NM$(Y).F$:F$."":
.Y:.......".....".4)"OIL HAS BEEN FOUND
SEEPING".9.....4)".FROM THE GROUND ON A
PROPERTY".N.....4)".OWNED BY:"._....X.1.
2000:.X.......19.C(NM$(N)).2)"...";NM$(N
).......4)"...PLEASE ENTER THE FIRST LET
TER".V.....4)".OF A TERRAIN TYPE LISTED
BELOW".......4)".ON WHICH YOU WISH TO PL
ACE".$.....4)".THIS NEW WELL. THE SITE M
UST".F.....4)".BE OWNED BY ";NM$(N)".".P
.....4)"..IF NONE OF THE LISTED TERRAIN"
.......4)".TYPES IS OWNED BY".......4)".
";NM$(N)" THEN PRESS".V.....4)".ANY OTHE
R KEY AND NO NEW WELL".......4)".WILL BE
GIVEN. YOU MAY ONLY".$.....4)".SELECT
AN UNEXPLORED SITE!".6....X.1.15000:.X.D
....700:.720.N....".....".8)"TERRAIN TYP
ES AVAILABLE:".......14)".(D)ESERT":..14
)".(C)OAST":..14)".(J)UNGLE".Z.....14)".
(P)LAINS":..14)".(F)OREST":..14)".(S)WAM
P".......14)".(B)RUSHLAND":..14)".(M)OUN
TAINS".......4)"..";NM$(N)":".@.....7)".
.PRESS THE FIRST LETTER".H.....4)".OF TH
E TERRAIN TYPE THAT YOU".......4)".WANT
THIS WELL ON........7)"..PRESS ANY OTHER
LETTER IF".U.....4)".YOU DO NOT OWN PRO
PERTY ON ANY".......4)".OF THE ABOVE TYP
ES OF TERRAIN."......A$:.A$."".530.(....
A$."D".TT.1:.550.>....A$."P".TT.2:.550.T
....A$."B".TT.3:.550.J....A$."C".TT.6:.5
50......A$."F".TT.7:.550......A$."M".TT.
8:.550......A$."J".TT.9:.550.C....A$."S"
.TT.10:.550.L....600.Z.&..700:.720...'..
".....".4)"PLEASE ENTER THE COORDINATES
OF".2.(...4)".NEW WELL SITE. IF IMPROPE
R".^.)...4)".COORDINATES ARE ENTERED, .N
O NEW"...*...4)".WELL WILL BE REGISTERED
!"...0..".........HORIZONTAL >";C1$:C1.E
(C1$).A.1..C1.1.C1.50.600...2.."........
...VERTICAL >";C2$:C2.E(C2$)...3..C2.1.C
2.40.600...:.R.16660.((C1.1).40).(C2.1).
6.;..(B(R).15)..TT.600.M.<..(B(R).240)..
0.600.\.=..R,B(R).32...>.R.22660.(((N.1)
.13).(TT.1)):Z.B(R)...?.Z.Z.1:.R,Z. .D..
700:.720...E.."........".4)NM$(N)":"...F
...4)"..PLEASE PLACE AN ACTIVE WELL"...G
...4)".MARKER AT COORDINATES ("C1;".,";C
2;".).".-.H..X.1.5000:.X:.800.3.W...A.X.
.700:.720.G.Y..".........".4)"SORRY ";NM
$(N)","...Z...4)"..YOU HAVE ENTERED IMPR
OPER DATA."...[...4)".THEREFORE, NO NEW
WELL HAS BEEN"...\...4)".REGISTERED FOR
YOU."...]..X.1.5000:.X:.800.......>...PG
.PG.1:."...... THE OIL STREET JOURNAL
PAGE ...";PG:.X.1.23.O...."....
":.X......"..
... ";..
....".":.709:....E...4)"..==============
=================":....P..".";:.X.1.22:.
:.X:.709:.... .."CKA",8.?....25,30,225,2
2,96,50,21,31,125,18,209,100,16,195,300.
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL