geo4test.bas

来自「PIC BASIC PRO Development Suite」· BAS 代码 · 共 34 行

 REM FILE=GEO4TEST - demo of data display for EPE photo
 REM modified extract from R.D.Beck's program

 SCREEN 9: COLOR 15, 1: CLS : deg$ = "42 deg."
 x = 250
 LINE (x, 100)-(x, 50), 15
 LINE (x, 50)-(x + 10, 60)
 LINE (x, 50)-(x - 10, 60)
 LOCATE 3, 29: PRINT ; deg$
 OPEN "result2.txt" FOR INPUT AS #1

 LOCATE 17, 3: PRINT "LOCATION = MOTE WALL"
 PRINT "  SERIAL No. 4/9/96a 1"
 Y1 = 20: Y2 = 30
 FOR Y = 1 TO 20
 X2 = 10
 FOR x = 1 TO 20
 X1 = X1 + 10: X2 = X2 + 10
 LOCATE 1, 3: PRINT "LINE"; Y; "COLUMN"; x; " = "; col / 2
80 LOCATE 1, 35:
PRINT "                                             "
INPUT #1, a$: col = VAL(a$) * 2 + 5:  ' PRINT a$: GOSUB hold
'90 LOCATE 1, 24: INPUT k:
'col = k * 2:
IF col < 2 THEN col = 3
'col = (col AND 1) * 15
150 LINE (X1, Y1)-(X2, Y2), col, BF
160 NEXT x
 Y1 = Y1 + 10: Y2 = Y2 + 10: X1 = 0
 NEXT Y
 END
hold: IF INKEY$ = "" THEN GOTO hold ELSE RETURN