1 REM ===================================== 2 REM WELLSYM.BAS 3 REM 4 REM By Jim Thomson 5 REM 6 REM 7 REM Edited for COGS Disk by J Phillips 8 REM 14 April 1984 9 REM ===================================== 10 REM Last Modified: 8 JUNE 1984 15 BKG=15: REM Inverse background color for IBM-PC 80 REM ====================== 82 REM TITLE PAGE 84 REM ====================== 90 CLS 92 PRINT " . " 93 PRINT " . : . " 94 PRINT " '. ....... .' " 95 PRINT " . . " 96 PRINT " ..... ..... W E L L S Y M B O L P L O T T E R" 97 PRINT " . . " 98 PRINT " . ....... . BY JIM THOMSON " 99 PRINT " .' : '. " 100 PRINT " ' " 105 PRINT "-------------------------------------------------------------------------" 110 PRINT "This program will cause a programmable printer (e.g. Star Gemini 10X or" 120 PRINT "Epson FX-series) to substitute common oil and gas industry well symbols" 130 PRINT "in place of designated ASCII characters." 140 PRINT 150 PRINT "The '+' is replaced with a DRY HOLE symbol" 160 PRINT "The '@' is replaced with an OIL WELL symbol" 170 PRINT "The '*' is replaced with a GAS WELL symbol" 180 PRINT 190 PRINT "Designed to be run before C.O.G.S. TWPPLAT.BAS or BASEMAP.WKS programs" 200 PRINT 220 PRINT "------------------------------------------------------------ J.A.T. 3/84" 222 LOCATE 24,1: PRINT " to continue; to exit....."; 224 Q$=INKEY$: IF Q$="" THEN 224 226 IF Q$=CHR$(27) THEN 20000 228 IF Q$ <> " " THEN BEEP: GOTO 224 230 REM ====================== 231 REM PRINTER TYPE 232 REM ====================== 233 CLS: LOCATE 5,1,1,0,12: PRINT "Select printer type:": PRINT 234 PRINT " 1...Epson FX-series": PRINT 235 PRINT " 2...Star Gemini 10X": PRINT: PRINT 236 PRINT "Enter number of choice (1-2)......."; 237 WHILE (PRINTER <> 1 AND PRINTER <> 2) 238 Q$ = INKEY$: IF Q$ = "" THEN 238 239 PRINTER = VAL(Q$) 240 WEND 241 GOSUB 500 242 IF PRINTER = 1 THEN 600 244 REM ====================== 245 REM CONFIGURE GEMINI 246 REM ====================== 248 ESC$=CHR$(27) :REM Define the ESCAPE character 260 LPRINT ESC$;CHR$(42);CHR$(0); :REM Copy ROM characters to RAM 270 REM --- DEFINE DRY HOLE SYMBOL IN PLACE OF '+' --- 280 LPRINT ESC$;CHR$(42);CHR$(1);CHR$(43);CHR$(0);CHR$(8);CHR$(0);CHR$(8);CHR$(20);CHR$(99);CHR$(20);CHR$(8);CHR$(0);CHR$(8); 290 REM --- DEFINE GAS WELL SYMBOL IN PLACE OF '*' --- 300 LPRINT ESC$;CHR$(42);CHR$(1);CHR$(42);CHR$(0);CHR$(8);CHR$(34);CHR$(8);CHR$(20);CHR$(99);CHR$(20);CHR$(8);CHR$(34);CHR$(8); 310 REM --- DEFINE OIL WELL SYMBOL IN PLACE OF '@' --- 320 LPRINT ESC$;CHR$(42);CHR$(1);CHR$(64);CHR$(0);CHR$(12);CHR$(18);CHR$(12);CHR$(51);CHR$(12);CHR$(51);CHR$(12);CHR$(18);CHR$(12); 340 LPRINT ESC$;CHR$(36);CHR$(1); :REM Select the downloaded (RAM) characters 342 REM ====================== 344 REM CONFIRM AND TEST PRINT 350 REM ====================== 352 PRINT 360 PRINT "The printer will now print oil well symbols in place of '+', '*', and '@'" 370 PRINT 372 PRINT "Would you like a test print (Y/N).........."; 374 Q$=INKEY$: IF Q$="" THEN 374 376 IF Q$="N" OR Q$="n" THEN GOTO 90 378 IF Q$ <> "Y" AND Q$ <> "y" THEN BEEP: GOTO 374 380 GOSUB 500 384 LPRINT " SYMBOLS ": LPRINT 386 LPRINT "+ = dry hole": LPRINT 390 LPRINT "* = gas well": LPRINT 400 LPRINT "@ = oil well": LPRINT 420 GOTO 90 430 END 490 REM ====================== 492 REM MISC SUBROUTINES 494 REM ====================== 496 REM --- PRINTER PROMPT ----- 500 CLS: LOCATE 12,1,1,0,12 510 PRINT "Turn printer ONLINE. Press a key to continue......"; 520 Q$=INKEY$: IF Q$="" THEN 520 530 RETURN 590 REM ====================== 592 REM CONFIGURE EPSON 594 REM ====================== 600 ESC$=CHR$(27): REM Define the ESCAPE character 610 LPRINT ESC$;":";CHR$(0);CHR$(0);CHR$(0); :REM Copy ROM characters to RAM 620 REM --- DEFINE DRY HOLE SYMBOL IN PLACE OF '+' --- 630 LPRINT ESC$;"&";CHR$(0);"++"; 632 LPRINT CHR$(139); 634 LPRINT CHR$(0);CHR$(8);CHR$(0);CHR$(8);CHR$(20);CHR$(99);CHR$(20);CHR$(8);CHR$(0);CHR$(8);CHR$(0); 640 REM --- DEFINE GAS WELL SYMBOL IN PLACE OF '*' --- 650 LPRINT ESC$;"&";CHR$(0);"**"; 652 LPRINT CHR$(139); 654 LPRINT CHR$(0);CHR$(8);CHR$(34);CHR$(8);CHR$(20);CHR$(99);CHR$(20);CHR$(8);CHR$(34);CHR$(8);CHR$(0); 660 REM --- DEFINE OIL WELL SYMBOL IN PLACE OF '@' --- 670 LPRINT ESC$;"&";CHR$(0);"@@"; 672 LPRINT CHR$(139); 674 LPRINT CHR$(0);CHR$(12);CHR$(18);CHR$(12);CHR$(51);CHR$(12);CHR$(51);CHR$(12);CHR$(18);CHR$(12);CHR$(0); 680 LPRINT ESC$;"%";CHR$(1);: REM Select the downloaded (RAM) characters 690 GOTO 352 700 END 19990 REM ********************** 19992 REM EXIT ROUTINE 19994 REM ********************** 20000 CLS: PRINT TAB(28) "E X I T P R O G R A M" 20005 LOCATE 8,20: PRINT "EXIT TO:" 20010 M$(1) = " 1. MENU, to run another program. " 20015 M$(2) = " 2. BASIC " 20020 M$(3) = " 3. MS-DOS System level " 20025 M$(4) = " 4. CANCEL Exit Command " 20030 FOR Y = 1 TO 4: LOCATE 2*Y + 8, 20: PRINT M$(Y): NEXT Y 20035 LOCATE 23,1: PRINT "Enter number or use arrows to make selection; then press " 20037 LOCATE ,,0: REM Cursor OFF 20040 Y=1: MVE=NO :X=1:Q$="" 20045 WHILE Q$ <> CHR$(13) 20050 LOCATE 2*Y + 8, 20: COLOR 0,BKG: PRINT M$(Y): COLOR 7,0 20055 Q$=INKEY$: IF Q$="" THEN 20055 20060 IF LEN(Q$) = 2 AND ASC(RIGHT$(Q$,1)) = 72 THEN MVE=YES: X=Y-1: IF X<1 THEN X=4 20065 IF LEN(Q$) = 2 AND ASC(RIGHT$(Q$,1)) = 80 THEN MVE=YES: X=Y+1: IF X>4 THEN X=1 20067 IF Q$ >="1" AND Q$ <= "4" THEN X=VAL(Q$): MVE=YES 20070 IF MVE=YES THEN LOCATE 2*Y + 8, 20: PRINT M$(Y): Y=X: MVE=NO 20075 WEND 20080 LOCATE ,,1: REM Cursor ON 20085 CLS 20100 IF Y = 1 THEN LOCATE 12,1: PRINT "Loading.....MENU": RUN "MENU" 20110 IF Y = 2 THEN END 20120 IF Y = 3 THEN SYSTEM 20130 IF Y = 4 THEN 90: REM Title Page 30000 CLS: END