geo4.bas

PIC BASIC PRO Development Suite

 REM FILE=GEO4.BAS
 REM R.D.BECK 27/2/95  GEOPHYSICS PRESENTATIONS
 CLS
 LOCATE 1, 16
 PRINT ; "GEOPHYSICS PRESENTATIONS                  R.D.BECK   1995"
 LOCATE 2, 15
 PRINT ; "-----------------------------------------------------------"
 LOCATE 3, 5: INPUT ; "SERIAL NO_________________  ", SN
 LOCATE 4, 5: INPUT ; "LOCATION__________________  ", LOC$
 LOCATE 5, 5: INPUT ; "GRID REFERENCE____________  ", GRD$
 LOCATE 6, 5: INPUT ; "LANDOWNER_________________  ", LND$
 LOCATE 7, 5: PRINT "DATE OF PRINT [M-D-Y]  ___  "; DATE$
 LOCATE 8, 5: INPUT ; "START DATE OF SURVEY______  ", SD$
 LOCATE 9, 5: INPUT ; "COMPLETION DATE OF SURVEY_  ", CD$
 LOCATE 10, 5: INPUT ; "TEMPERATURE_______________  ", T$
 LOCATE 11, 5: INPUT ; "SOIL MOISTURE_____________  ", SM$
 LOCATE 12, 5: INPUT ; "SOIL TYPE_________________  ", TYP$
 LOCATE 13, 5: INPUT ; "TYPE OF SURVEY____________  ", TS$
 LOCATE 14, 5: INPUT ; "PROBE SPACING_____________  ", PS$
 LOCATE 15, 5: INPUT ; "INSTRUMENT USED___________  ", IU$
 LOCATE 16, 5: INPUT ; "ARRAY_____________________  ", NOT$
 LOCATE 17, 5: INPUT ; "NOTES_____________________  ", NOT$
 CLS
10 LOCATE 16, 5: INPUT ; "HIGHEST READING"; HH
 LOCATE 17, 5: INPUT ; "LOWEST READING "; LL
 GOTO 20
30 LOCATE 16, 5: PRINT "                      ": LOCATE 17, 5: PRINT "                      "
 GOTO 10
20 LOCATE 15, 5: IF HH < LL THEN GOTO 30
 LOCATE 16, 35: PRINT ; "RANGE OF READINGS        ="; HH - LL
 LOCATE 17, 35: PRINT ; "STEP PER BAND            ="; (HH - LL) / 6
 M = LL
 N = LL + (HH - LL) / 6
 O = LL + 2 * ((HH - LL) / 6)
 P = LL + 3 * ((HH - LL) / 6)
 Q = LL + 4 * ((HH - LL) / 6)
 R = LL + 5 * ((HH - LL) / 6)
 S = LL + 6 * ((HH - LL) / 6)
 LOCATE 18, 35: PRINT "RESULT BAND-A- = "; M; " TO "; N
 LOCATE 19, 35: PRINT "RESULT BAND-B- = "; N; " TO "; O
 LOCATE 20, 35: PRINT "RESULT BAND-C- = "; O; " TO "; P
 LOCATE 21, 35: PRINT "RESULT BAND-D- = "; P; " TO "; Q
 LOCATE 22, 35: PRINT "RESULT BAND-E- = "; Q; " TO "; R
 LOCATE 23, 35: PRINT "RESULT BAND-F- = "; R; " TO "; S
 LOCATE 2, 5: INPUT ; "PRESS [ENTER] TO PRINT DATA OR [C] TO CONTINUE"; DD$
 IF DD$ = "C" GOTO 40
 LPRINT "                  GEOPHYSICS PRESENTATIONS            R.D.BECK    1995"
 LPRINT "________________________________________________________________________________"
 LPRINT "      SERIAL NO.________________ "; SN
 LPRINT "      LOCATION__________________ "; LOC$
 LPRINT "      GRID REFERENCE____________ "; GRD$
 LPRINT "      LANDOWNER_________________ "; LND$
 LPRINT "      DATE OF PRINT_____________ "; DATE$
 LPRINT "      DATE SURVEY STARTED_______ "; SD$
 LPRINT "      DATE SURVEY COMPLETED_____ "; CD$
 LPRINT "      TEMPERATURE_______________ "; T$
 LPRINT "      SOIL MOISTURE_____________ "; SM$
 LPRINT "      SOIL TYPE_________________ "; TYP$
 LPRINT "      TYPE OF SURVEY____________ "; TS$
 LPRINT "      PROBE SPACING_____________ "; PS$
 LPRINT "      INSTRUMENT USED___________ "; IU$
 LPRINT "      NOTES_____________________ "; NOT$: LPRINT "": LPRINT "": LPRINT ""
 LPRINT "      HIGHEST READING___________ "; HH
 LPRINT "      LOWEST READING____________ "; LL
 LPRINT "      RESULT BAND-A- = "; M; "TO"; N
 LPRINT "      RESULT BAND-B- = "; N; "TO"; O
 LPRINT "      RESULT BAND-C- = "; O; "TO"; P
 LPRINT "      RESULT BAND-D- = "; P; "TO"; Q
 LPRINT "      RESULT BAND-E- = "; Q; "TO"; R
 LPRINT "      RESULT BAND-F- = "; R; "TO"; S
40 CLS
 COLOR 15
 LOCATE 2, 5:
 INPUT ; "SELECT COLOUR SQUARES [CS] GREY SCALE SQUARES [GS] OR GRAPH [GR]"; A$
 CLS
 IF A$ = "CS" THEN GOTO 50
 IF A$ = "GS" THEN GOTO 50
 IF A$ = "GR" THEN GOTO 165
 BEEP: GOTO 40
50 INPUT ; "TOP OF COLOUR SQUARES & GREY SCALE SQUARES POINT TOWARDS [0-360DEG.]"; DEG$
 SCREEN 9
 INPUT ; "PRESS [ENTER] TO PRINT DATA. OR [C] TO CONTINUE"; XX$
LOCATE 1, 1: PRINT "                                            "
 IF XX$ = "C" GOTO 60
 LPRINT "": LPRINT "     FIGURES FOR COLOUR SQUARES SERIAL NO._____"; SN
 LPRINT "   LOCATION__________"; LOC$
 LPRINT "   DATE OF PRINT_____"; DATE$
 LPRINT "-----------------------------------------------"
 LPRINT "         C = COLUMN."
 LPRINT "         -----------"
60 CLS
 LINE (600, 100)-(600, 50)
 LINE (600, 50)-(610, 60)
 LINE (600, 50)-(590, 60)
 LOCATE 3, 76: PRINT ; DEG$
 Y1 = 20: Y2 = 30
 FOR Y = 1 TO 20
 X2 = 10
 FOR X = 1 TO 20
 X1 = X1 + 10: X2 = X2 + 10
 LOCATE 1, 1: PRINT "ENTER LINE"; Y; "COLUMN"; X; " = "
 GOTO 80
70 LOCATE 1, 35: BEEP: INPUT "CHANGE PRINTER PAPER THEN PRESS [ENTER]"; JJJ
80 LOCATE 1, 35:
PRINT "                                             "
90 LOCATE 1, 24: INPUT K
 IF XX$ = "C" GOTO 100
 IF Y = 1 AND X = 1 THEN LPRINT " LINE 1"
 IF Y = 2 AND X = 1 THEN LPRINT " LINE 2"
 IF Y = 3 AND X = 1 THEN LPRINT " LINE 3"
 IF Y = 4 AND X = 1 THEN LPRINT " LINE 4"
 IF Y = 5 AND X = 1 THEN LPRINT " LINE 5"
 IF Y = 6 AND X = 1 THEN LPRINT " LINE 6"
 IF Y = 7 AND X = 1 THEN LPRINT " LINE 7"
 IF Y = 8 AND X = 1 THEN LPRINT " LINE 8"
 IF Y = 9 AND X = 1 THEN LPRINT " LINE 9"
 IF Y = 10 AND X = 1 THEN LPRINT " LINE 10"
 IF Y = 11 AND X = 1 THEN LPRINT " LINE 11"
 IF Y = 12 AND X = 1 THEN LPRINT " LINE 12"
 IF Y = 13 AND X = 1 THEN LPRINT " LINE 13"
 IF Y = 14 AND X = 1 THEN LPRINT " LINE 14"
 IF Y = 15 AND X = 1 THEN LPRINT " LINE 15"
 IF Y = 16 AND X = 1 THEN LPRINT " LINE 16"
 IF Y = 17 AND X = 1 THEN LPRINT " LINE 17"
 IF Y = 18 AND X = 1 THEN LPRINT " LINE 18"
 IF Y = 19 AND X = 1 THEN LPRINT " LINE 19"
 IF Y = 20 AND X = 1 THEN LPRINT " LINE 20"
 IF X < 10 THEN GOTO 105
 IF XX$ = "C" GOTO 100
 LPRINT "C"; X; "=";
 GOTO 130
IF XX$ = "C" GOTO 100
105 LPRINT "C"; X; " =";
IF XX$ = "C" GOTO 100
130 LPRINT " "; K,
 IF Y = 1 AND X = 20 THEN
 LPRINT "                                                                 "
 ELSEIF Y = 2 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 3 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 4 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 5 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 6 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 7 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 8 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 9 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 10 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 11 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 12 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 13 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 14 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 15 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 16 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 17 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 18 AND X = 20 THEN
 LPRINT "                                                                  "
 ELSEIF Y = 19 AND X = 20 THEN
 LPRINT "                                                                  "
END IF
100 LOCATE 1, 24: PRINT "              ": LOCATE 1, 50: PRINT "                           "
 IF A$ = "CS" GOTO 110
 IF A$ = "GS" GOTO 120
110 IF K >= M AND K <= N THEN Z = 0: GOSUB 150
 IF K > N AND K <= O THEN Z = 8: GOSUB 150: REM USED FOR COLOR SQUARES
 IF K > O AND K <= P THEN Z = 6: GOSUB 150: REM Z = COLORS