geotest2.bas

PIC BASIC PRO Development Suite

 REM FILE=GEOTEST2.BAS data demo for EPE photos
 REM modified extract from R.D.Beck's program

 SCREEN 9: COLOR 15, 1: CLS

 OPEN "result1.txt" FOR INPUT AS #1

 '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$
 degr$ = "273 DEGREES": z$ = "2.5"
 'COLOR 15
FOR c = 1 TO 20: CLS
 LOCATE 25, 1: PRINT ; "LHS OF GRAPH POINTS TOWARD "; degr$
 LOCATE 7, 20: PRINT ; "LOCATION = MOAT"
 LOCATE 25, 43: PRINT ; "SERIAL NO. 3/9/96c"; c
 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), 14
 Y1 = Y1 + 21: Y2 = Y2 + 21
 NEXT L
 X1 = 10: X2 = 10
 FOR L = 0 TO 20
 LINE (X1, 90)-(X2, 300), 14
 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, 2: 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":

x = 10: y = 300: INPUT #1, a$: b = VAL(a$) * 150 - 300
PSET (x, y - b), 15: FOR a = 1 TO 19: INPUT #1, a$: b = VAL(a$) * 150 - 300
x = x + 32: LINE -(x, y - b), 15: NEXT:
GOSUB hold: NEXT c

CLOSE : END

hold: IF INKEY$ = "" THEN GOTO hold ELSE RETURN