1 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE 10 CLS:PRINT"BVW Program"'STS (c)1986 20 OPEN "COM:88N1E" FOR OUTPUT AS 1 21 PRINT#1,CHR$(27)+".N0;19:" 22 PRINT#1,CHR$(27)+".I10;;17:" 23 'lines 20-22 set up the proper 24 'Xon/Xoff handshaking for an HP7475A 25 'or compatible plotter (HP7550, 26 'HP7440 with graphics enhancement 27 'catridge, etc.) You will need 28 'either a "null modem" male-to-male 29 'RS232 cable, or a standard 25-pin 30 'direct male-to-male cable with a 31 'null modem convertor ($15 each at 32 'any Radio Shack). Set the plotter 33 'DIP switches for 9600 baud with no 34 'parity, direct mode (not remote). 35 INPUT "Well name=";W$ 40 INPUT "Operator=";O$ 50 INPUT "Location=";L$ 60 INPUT "County, State=";C$,S$ 70 LINE INPUT "Logs=";J$ 80 INPUT "Formation name=";F$ 90 INPUT "Top of zone (ft)=";T1 100 INPUT "Base of zone (ft)=";T2 110 INPUT "Calc increment (ft)=";S1 120 P=ABS(INT((T2-T1)/S1)) 130 IF P=0 THEN END 140 PRINT P;"Por/Sw pairs:" 150 FOR I=1 TO P 160 PRINT "Por";I;"/Sw";I 170 INPUT "%Por,%Sw=";A(I),B(I) 180 NEXT I 190 PRINT "plotting..." 200 PRINT#1,"INSC-10,60,-20,120SP1SI.18,.28VS5;" 210 PRINT#1,"PA-10,-20PD-10,120,60,120,60,-20,-10,-20PU;" 220 PRINT#1,"PA0,0PD0,100PU40,0PD0,0PUSP2;" 230 PRINT#1,"PA5,0XT;" 240 PRINT#1,"CP-.5,-1LB5"+CHR$(3) 250 FOR I=10 TO 40 STEP 5 260 PRINT#1,"PA";I;0;"XT;" 270 PRINT#1,"CP-1.5,-1LB";I;CHR$(3) 280 NEXT I 290 FOR I=10 TO 90 STEP 10 300 PRINT#1,"PA";0;I;"YT;" 310 PRINT#1,"CP-4,-.25LB";I;CHR$(3) 320 NEXT I 330 PRINT#1,"PA0,100YTCP-4,-.25LB100"+CHR$(3)+"SP3;" 340 FOR V=200 TO 1200 STEP 200 350 PRINT#1,"PU";V/100;100;"PD;" 360 FOR X=V/100 TO 40 370 PRINT#1,"PA";X;V/X;";" 380 NEXT X 390 NEXT V 400 PRINT#1,"SP3PU23,50LB12%"+CHR$(3)+"PA22,45LB10%"+CHR$(3)+"PA20,39LB8%"+CHR$(3) 410 PRINT#1,"PA18,32LB6%"+CHR$(3)+"PA15,26LB4%"+CHR$(3)+"PA10,20LB2%"+CHR$(3) 420 PRINT#1,"PA25,60LBBVW%"+CHR$(3)+"SP2PA-6,50CP0,-.25LBSw%"+CHR$(3) 430 PRINT#1,"PA20,-10CP-5,-.25LBPorosity%"+CHR$(3) 440 PRINT#1,"SI.35,.6SL.577PA20,105CP-6.5,0SP1LBBVW ANALYSIS"+CHR$(3) 445 PRINT#1,"SI.2,.3SP2;" 450 PRINT#1,"PA40,100LB"+F$ 460 PRINT#1,T1;"-";T2;"'" 470 PRINT#1,S1;"' increment" 480 PRINT#1,"" 489 PRINT#1,O$ 490 PRINT#1,W$ 500 PRINT#1,L$ 510 PRINT#1,C$;" Co., ";S$ 520 PRINT#1,"Logs: ";J$;CHR$(3) 530 FOR I=1 TO P 540 PRINT#1,"PA";A(I);B(I);"SC;" 550 PRINT#1,"EW75,90,360,120WG75,90,360,120SC-10,60,-20,120;" 560 NEXT I 570 PRINT "BVW cutoff (Y/N)?" 575 L1$="Y":L2$="N":GOSUB 1000 580 IF Z$="N" THEN 710 650 INPUT "BVW cutoff(decimal)=";Z 660 PRINT#1,"LT2PU";Z*100;100;"PD;" 670 FOR I=Z*100 TO 40 680 PRINT#1,"PA";I;Z*10000/I;";" 690 NEXT I 700 PRINT#1,"PUCP3,-.25LBCUTOFF="+CHR$(3)+"LB";Z;CHR$(3) 710 PRINT "Comments? (Y/N)":GOSUB 1000 720 IF Z$="N" THEN 810 725 PRINT#1,"SP4;" 730 PRINT "22 characters/line, maximum" 740 PRINT "5 lines, [ENTER] to end:" 750 PRINT#1,"PA20,100;" 760 FOR I=1 TO 5 770 LINE INPUT "Comment(<22char)=";Z$ 780 IF Z$="" THEN PRINT#1,CHR$(3):GOTO 810 790 PRINT#1,"PA";20;100-5*I;"LB";Z$;CHR$(3) 800 NEXT I 810 PRINT#1,"SP0PA60,120IN;" 820 PRINT "***FINISHED***":CLOSE 1 830 END 1000 A=ASC(INPUT$(1)) AND 95 1010 IF A=ASC(L1$)THENZ$=L1$:RETURNELSE IF A=ASC(L2$)THENZ$=L2$:RETURN ELSE1000