geo4.bas

PIC BASIC PRO Development Suite

 IF K > P AND K <= Q THEN Z = 9: GOSUB 150
 IF K > Q AND K <= R THEN Z = 14: GOSUB 150
 IF K > R AND K <= S THEN Z = 4: GOSUB 150
120 IF K >= M AND K <= N THEN Z = 14: GOSUB 150
 IF K > N AND K <= O THEN Z = 11: GOSUB 150: REM  USED FOR GREY SCALE PRINT
 IF K > O AND K <= P THEN Z = 10: GOSUB 150: REM Z = COLORS THAT PRINT AS GREY SCALE ON B&W. PRINTER
 IF K > P AND K <= Q THEN Z = 12: GOSUB 150
 IF K > Q AND K <= R THEN Z = 8: GOSUB 150
 IF K > R AND K <= S THEN Z = 1: GOSUB 150: GOTO 140
140 IF K < M OR K > S THEN BEEP: LOCATE 1, 50: PRINT "ERROR IN LINE"; Y; "COLUMN"; X: GOTO 90
 GOTO 160
150 LINE (X1, Y1)-(X2, Y2), Z, BF: RETURN
160 NEXT X
 Y1 = Y1 + 10: Y2 = Y2 + 10: X1 = 0
 NEXT Y
 LOCATE 24, 5: PRINT ; "PRESS [SCREEN PRINT] THEN PRESS [ENTER] AFTER PRINT STOPS";
 FOR T = 1 TO 5000: NEXT T
 LOCATE 24, 5: PRINT ; "                                                          "
 LOCATE 1, 34: INPUT ; "                                      ", KK

 END
165 CLS
 SCREEN 9
 LOCATE 1, 1: INPUT ; "LHS. OF GRAPH POINTS TOWARD [ENTER 0-360 DEG.]"; DEGR$
 LOCATE 2, 1: INPUT ; "FSD OF Y AXIS[2.5 5 10 25 50 100 250 500 1K 2.5K 5K 10K]"; Z$
 CLS
 COLOR 15
 LOCATE 25, 1: PRINT ; "LHS OF GRAPH POINTS TOWARD "; DEGR$: LOCATE 2, 20: PRINT ; "LOCATION "; LOC$
 LOCATE 25, 40: PRINT ; "R.D.BECK  SERIAL NO."; SN
 Y1 = 90: Y2 = 90: REM 90 SETS SPACING OF FIRST LINE FROM TOP
 FOR L = 0 TO 10: REM 10 SETS THE NO. OF HORIZONTAL LINES
 LINE (10, Y1)-(616, Y2)
 Y1 = Y1 + 21: Y2 = Y2 + 21
 NEXT L
 X1 = 10: X2 = 10
 FOR L = 0 TO 20
 LINE (X1, 90)-(X2, 300)
 X1 = X1 + 32: X2 = X2 + 32
 NEXT L
 IF Z$ = "2.5" THEN GOTO 163
 IF Z$ = "5" THEN GOTO 164
 IF Z$ = "10" THEN GOTO 166
 IF Z$ = "25" THEN GOTO 168
 IF Z$ = "50" THEN GOTO 169
 IF Z$ = "100" THEN GOTO 170
 IF Z$ = "250" THEN GOTO 175
 IF Z$ = "500" THEN GOTO 176
 IF Z$ = "1K" THEN GOTO 180
 IF Z$ = "2.5K" THEN GOTO 185
 IF Z$ = "5K" THEN GOTO 186
 IF Z$ = "10K" THEN GOTO 190
163 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "0.5": LOCATE 16, 1: PRINT "1":
 LOCATE 13, 1: PRINT "1.5": LOCATE 10, 1: PRINT "2": LOCATE 7, 1: PRINT "2.5":  U = 84: GOTO 200
164 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "1": LOCATE 16, 1: PRINT "2":
 LOCATE 13, 1: PRINT "3": LOCATE 10, 1: PRINT "4": LOCATE 7, 1: PRINT "5":  U = 42: GOTO 200
166 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "2": LOCATE 16, 1: PRINT "4":
 LOCATE 13, 1: PRINT "6": LOCATE 10, 1: PRINT "8": LOCATE 7, 1: PRINT "10":  U = 21: GOTO 200
168 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "5": LOCATE 16, 1: PRINT "10":
 LOCATE 13, 1: PRINT "15": LOCATE 10, 1: PRINT "20": LOCATE 7, 1: PRINT "25":  U = 8.4: GOTO 200
169 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "10": LOCATE 16, 1: PRINT "20":
 LOCATE 13, 1: PRINT "30": LOCATE 10, 1: PRINT "40": LOCATE 7, 1: PRINT "50":  U = 4.2: GOTO 200
170 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "20": LOCATE 16, 1: PRINT "40":
 LOCATE 13, 1: PRINT "60": LOCATE 10, 1: PRINT "80": LOCATE 7, 1: PRINT "100": U = 2.1: GOTO 200
175 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "50": LOCATE 16, 1: PRINT "100":
 LOCATE 13, 1: PRINT "150": LOCATE 10, 1: PRINT "200": LOCATE 7, 1: PRINT "250":  U = .84: GOTO 200
176 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "100": LOCATE 16, 1: PRINT "200":
 LOCATE 13, 1: PRINT "300": LOCATE 10, 1: PRINT "400": LOCATE 7, 1: PRINT "500":  U = .42: GOTO 200
180 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "200": LOCATE 16, 1: PRINT "400":
 LOCATE 13, 1: PRINT "600": LOCATE 10, 1: PRINT "800": LOCATE 7, 1: PRINT "1000": U = .21: GOTO 200
185 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "0.5K": LOCATE 16, 1: PRINT "1K":
 LOCATE 13, 1: PRINT "1.5K": LOCATE 10, 1: PRINT "2K": LOCATE 7, 1: PRINT "2.5K":  U = 84: GOTO 200
186 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "1K": LOCATE 16, 1: PRINT "2K":
 LOCATE 13, 1: PRINT "3K": LOCATE 10, 1: PRINT "4K": LOCATE 7, 1: PRINT "5K":  U = 42: GOTO 200
190 LOCATE 22, 1: PRINT "0": LOCATE 19, 1: PRINT "2K": LOCATE 16, 1: PRINT "4K":
 LOCATE 13, 1: PRINT "6K": LOCATE 10, 1: PRINT "8K": LOCATE 7, 1: PRINT "10K": U = 21: GOTO 200
200 LOCATE 23, 1: PRINT "1": LOCATE 23, 6: PRINT "2": LOCATE 23, 10: PRINT "3":
 LOCATE 23, 14: PRINT "4": LOCATE 23, 18: PRINT "5": LOCATE 23, 22: PRINT "6":
 LOCATE 23, 26: PRINT "7": LOCATE 23, 30: PRINT "8": LOCATE 23, 34: PRINT "9":
 LOCATE 23, 38: PRINT "10": LOCATE 23, 42: PRINT "11": LOCATE 23, 46: PRINT "12":
 LOCATE 23, 50: PRINT "13": LOCATE 23, 54: PRINT "14": LOCATE 23, 58: PRINT "15":
 LOCATE 23, 62: PRINT "16": LOCATE 23, 66: PRINT "17": LOCATE 23, 70: PRINT "18":
 LOCATE 23, 74: PRINT "19": LOCATE 23, 78: PRINT "20":
210 LOCATE 2, 1: INPUT ; "POINT 1 = ", A
 IF A > HH OR A < LL THEN BEEP: LOCATE 2, 1: PRINT ; "               ": LOCATE 1, 10: PRINT "ERROR": GOTO 210
 LINE (10, 300)-(10, 300): LINE -STEP(0, -(A * U)): LOCATE 1, 10: PRINT "       "
220 LOCATE 3, 1: INPUT ; "POINT 2 = ", B
 IF B > HH OR B < LL THEN BEEP: LOCATE 3, 1: PRINT ; "               ": LOCATE 1, 10: PRINT "ERROR": GOTO 220
 LINE -STEP(32, -((B - A)) * U), 2: LOCATE 1, 10: PRINT "       "
230 LOCATE 4, 1: INPUT ; "POINT 3 = ", C
 IF C > HH OR C < LL THEN BEEP: LOCATE 4, 1: PRINT ; "               ": LOCATE 1, 10: PRINT "ERROR": GOTO 230
  LINE -STEP(32, -((C - B)) * U), 2: LOCATE 1, 10: PRINT "       "
240 LOCATE 5, 1: INPUT ; "POINT 4 = ", D
 IF D > HH OR D < LL THEN BEEP: LOCATE 5, 1: PRINT ; "               ": LOCATE 1, 10: PRINT "ERROR": GOTO 240:
  LINE -STEP(32, -((D - C)) * U), 2: LOCATE 1, 10: PRINT "       "
250 LOCATE 6, 1: INPUT ; "POINT 5 = ", E
 IF E > HH OR E < LL THEN BEEP: LOCATE 6, 1: PRINT ; "               ": LOCATE 1, 10: PRINT "ERROR": GOTO 250:
 LINE -STEP(32, -((E - D)) * U), 2: LOCATE 1, 10: PRINT "       "
260 LOCATE 2, 20: INPUT ; "POINT 6 = ", F
 IF F > HH OR F < LL THEN BEEP: LOCATE 2, 20: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 260:
 LINE -STEP(32, -((F - E)) * U), 2: LOCATE 1, 10: PRINT "       "
270 LOCATE 3, 20: INPUT ; "POINT 7 = ", G
 IF G > HH OR G < LL THEN BEEP: LOCATE 3, 20: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 270:
 LINE -STEP(32, -((G - F)) * U), 2: LOCATE 1, 10: PRINT "       "
280 LOCATE 4, 20: INPUT ; "POINT 8 = ", H
 IF H > HH OR H < LL THEN BEEP: LOCATE 4, 20: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 280:
 LINE -STEP(32, -((H - G)) * U), 2: LOCATE 1, 10: PRINT "       "
290 LOCATE 5, 20: INPUT ; "POINT 9 = ", I
 IF I > HH OR I < LL THEN BEEP: LOCATE 5, 20: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 290:
 LINE -STEP(32, -((I - H)) * U), 2: LOCATE 1, 10: PRINT "       "
300 LOCATE 6, 20: INPUT ; "POINT 10 = ", J
 IF J > HH OR J < LL THEN BEEP: LOCATE 6, 20: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 300:
 LINE -STEP(32, -((J - I)) * U), 2: LOCATE 1, 10: PRINT "       "
310 LOCATE 2, 40: INPUT ; "POINT 11 = ", K
 IF K > HH OR K < LL THEN BEEP: LOCATE 2, 40: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 310:
 LINE -STEP(32, -((K - J)) * U), 2: LOCATE 1, 10: PRINT "       "
320 LOCATE 3, 40: INPUT ; "POINT 12 = ", L
 IF L > HH OR L < LL THEN BEEP: LOCATE 3, 40: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 320:
 LINE -STEP(32, -((L - K)) * U), 2: LOCATE 1, 10: PRINT "       "
330 LOCATE 4, 40: INPUT ; "POINT 13 = ", M
 IF M > HH OR M < LL THEN BEEP: LOCATE 4, 40: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 330:
 LINE -STEP(32, -((M - L)) * U), 2: LOCATE 1, 10: PRINT "       "
340 LOCATE 5, 40: INPUT ; "POINT 14 = ", N
 IF N > HH OR N < LL THEN BEEP: LOCATE 5, 40: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 340:
 LINE -STEP(32, -((N - M)) * U), 2: LOCATE 1, 10: PRINT "       "
350 LOCATE 6, 40: INPUT ; "POINT 15 = ", O
 IF O > HH OR O < LL THEN BEEP: LOCATE 6, 40: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 350:
 LINE -STEP(32, -((O - N)) * U), 2: LOCATE 1, 10: PRINT "       "
360 LOCATE 2, 60: INPUT ; "POINT 16 = ", P
 IF P > HH OR P < LL THEN BEEP: LOCATE 2, 60: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 360:
 LINE -STEP(32, -((P - O)) * U), 2: LOCATE 1, 10: PRINT "       "
370 LOCATE 3, 60: INPUT ; "POINT 17 = ", Q
 IF Q > HH OR Q < LL THEN BEEP: LOCATE 3, 60: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 370:
 LINE -STEP(32, -((Q - P)) * U), 2: LOCATE 1, 10: PRINT "       "
380 LOCATE 4, 60: INPUT ; "POINT 18 = ", R
 IF R > HH OR R < LL THEN BEEP: LOCATE 4, 60: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 380:
 LINE -STEP(32, -((R - Q)) * U), 2: LOCATE 1, 10: PRINT "       "
390 LOCATE 5, 60: INPUT ; "POINT 19 = ", S
 IF S > HH OR S < LL THEN BEEP: LOCATE 5, 60: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 390:
 LINE -STEP(32, -((S - R)) * U), 2: LOCATE 1, 10: PRINT "       ":
400 LOCATE 6, 60: INPUT ; "POINT 20 = ", T
IF T > HH OR T < LL THEN BEEP: LOCATE 6, 60: PRINT ; "              ": LOCATE 1, 10: PRINT "ERROR": GOTO 400:
 LINE -STEP(32, -((T - S)) * U), 2: LOCATE 1, 10: PRINT "       "
IF DD$ = "C" GOTO 410
 LPRINT ""
 LPRINT ""
 LPRINT "      POINT 1 = "; A
 LPRINT "      POINT 2 = "; B
 LPRINT "      POINT 3 = "; C
 LPRINT "      POINT 4 = "; D
 LPRINT "      POINT 5 = "; E
 LPRINT "      POINT 6 = "; F
 LPRINT "      POINT 7 = "; G
 LPRINT "      POINT 8 = "; H
 LPRINT "      POINT 9 = "; I
 LPRINT "     POINT 10 = "; J
 LPRINT "     POINT 11 = "; K
 LPRINT "     POINT 12 = "; L
 LPRINT "     POINT 13 = "; M
 LPRINT "     POINT 14 = "; N
 LPRINT "     POINT 15 = "; O
 LPRINT "     POINT 16 = "; P
 LPRINT "     POINT 17 = "; Q
 LPRINT "     POINT 18 = "; R
 LPRINT "     POINT 19 = "; S
 LPRINT "     POINT 20 = "; T
410 LOCATE 24, 5: BEEP: INPUT ; "CHANGE PAPER IN PRINTER THEN PRESS [ENTER]", PP: BEEP
 LOCATE 2, 1: PRINT ; "                                                                             "
 LOCATE 3, 1: PRINT ; "                                                                           "
 LOCATE 4, 1: PRINT ; "                                                                            "
 LOCATE 5, 1: PRINT ; "                                                                           "
 LOCATE 6, 1: PRINT ; "                                                                              "
 LOCATE 24, 5: PRINT ; "PRESS [PRINT SCREEN] THEN PRESS [ENTER] AFTER PRINT STOPS";
 FOR T = 1 TO 5000: NEXT T
 LOCATE 24, 5: INPUT ; "                                                          ", JJ
 LOCATE 2, 1: PRINT "                                                      "
 END