0005 SUB BENCH
0010 DIM A(15),L$(5),P$[80],D$[71]
0012 ON ERROR GOTO 18
0013 READ #3;P$
0014 GOTO 13
0018 OFF ERROR
0019 ON ERROR GOSUB 340
0020 PRINT #3;"-----------------------------------------------------------------------"
0025 PRINT #3;"BACKSIGHT BENCHMARK"
0030 INPUT "ENTER BM POINT # >";B$
0039 OFF ERROR
0040 IF B$="" THEN BEEP @ GOTO 350
0050 IF B$="EXIT" THEN BEEP @ GOTO 350
0060 B=VAL(B$)
0070 B4=B+4
0080 READ #1,B4;N,E,Z
0090 IF Z#-999999 THEN 130
0100 BEEP @ DISP USING 110;B$
0110 IMAGE "NO ELEVATION ON Pt #",K
0120 WAIT 1.5 @ GOTO 30
0130 INPUT "HAND ENTER BM SHOT >";S$
0140 IF S$="" THEN BEEP @ GOTO 30
0145 IF S$="EXIT" THEN BEEP @ GOTO 30
0150 S=VAL(S$)
0160 ASSIGN #50 TO SAVE
0170 READ #50,0;A(),L$()
0180 A(4)=Z-S-A(8)+A(9)
0190 PRINT #50,0;A(),L$()
0200 P$=""
0209 ON ERROR GOSUB 340
0210 PRINT #3;P$
0220 P$[1,6]="BM Pt#" @ P$[10,18]="ELEVATION" @ P$[22,31]="DESCRIPTOR"
0230 PRINT #3;P$ @ P$=""
0240 READ #4,B;D$
0250 FIX 3 @ Z$=STR$(Z)
0260 P$[1,4]=B$ @ P$[10,19]=Z$ @ P$[22,70]=D$[1,49]
0270 PRINT #3;P$ @ P$=""
0280 H=Z-S+A(9) @ H$=STR$(H)
0290 PRINT #3;"BENCHMARK SHOT = "&S$
0300 PRINT #3;"HEIGHT OF INSTRUMENT = "&H$
0310 PRINT #3;P$
0320 ASSIGN #50 TO *
0330 GOTO 350
0340 RETURN 
0350 OFF ERROR @ STD 
0355 RUN SUPRSURV
0360 END SUB 
