10 'a=(angle)*0.01745329
20 DIM X(50),Y(50)
30 LPRINT "S4":LPRINT "M2000,1500":LPRINT "Q1":LPRINT "PNorth"
40 N=1
50 LPRINT "M1980,1500":LPRINT "D1700,1500"
60 X(1)=1602:Y(1)=1440
70 'DATA 1272,90,1365,211.45,562,270,1164,0,0,0
71 DATA 204,90,234,180,60,90,91,180,426,97.569,368,187.569,270,277.569,36.0,7.569,90,277.569,186,187.569,246,277.569,522,7.569,84,270,297,0
80 DATA 0,0
100 FOR I= 2 TO 100
110 READ D,Z
120 IF D=0 THEN 180
130 N=N+1
140 X(I)=X(I-1)+D*(COS(Z*.01745329#))
150 Y(I)=Y(I-1)-D*(SIN(Z*.01745329#))
160 PRINT X(I),Y(I)
170 NEXT I
180 X1=INT(X(1)):Y1=INT(Y(1))
190 PRINT X1,Y1
200 XD=X(N)-X(1):YD=Y(1)-Y(N)
205 D9=SQR(XD^2+YD^2)
210 PRINT XD,YD,D9
220 LPRINT "M";X1;",";Y1:LPRINT "N1"
230 FOR I=2 TO N
240 X1=INT(X(I)):Y1=INT(Y(I))
250 LPRINT "D";X1;",";Y1:LPRINT "N5"
260 NEXT I
265 INPUT "again (n)";Z$:IF Z$="n" THEN 270
266 LPRINT "M1602,1440":X(1)=1602:Y(1)=1440:GOTO 100
270 LPRINT "M1000,1750":LPRINT "S3":LPRINT "PError; Initial Point":LPRINT "M960,1700":LPRINT "Pto Final Point":LPRINT "M900,1700":LPRINT "P";XD:LPRINT "P north":LPRINT "M860,1700":LPRINT "P";YD:LPRINT "P east":LPRINT "M820,1700"
280 LPRINT "PDistance":LPRINT "P";D9
285 LPRINT "S4"
290 LPRINT "H"
300 RESTORE
310 FOR I=1 TO N-1
320 READ E,F
330 LPRINT "M";2200-I*40;",";800:LPRINT "P";E:LPRINT "M";2200-I*40;",";600:LPRINT "P";F
340 NEXT I
350 LPRINT "M2300,800":LPRINT "Pdist":LPRINT "M2300,600":LPRINT "Pangle"
360 LPRINT "S6":LPRINT "M2200,1600":LPRINT "PDILLS":LPRINT "M2100,1600":LPRINT "P1371 AVALON":LPRINT "M2000,1600":LPRINT "P        ":LPRINT "S4":LPRINT "M1800,1500":LPRINT "PSan Luis Obispo":LPRINT "M1700,1500"
370 LPRINT "M200,500":LPRINT "PC E Dills  8/23/87"
380 LPRINT "H"
390 STOP
400 INPUT "deg,min,sec";D,M,S
410 D1=(M*60+S)/3600
420 PRINT D,M,S,D1
430 GOTO 400
440 LPRINT "H"
1000 LPRINT "H"
