1 DATA 22/46,29,72,15.7,39.13
2 DATA 20/50,50,8,15.76,41.91
3 DATA 19/36,20,25,15.74,40.51
4 DATA 19/50,50,44,15.96,41.25
5 DATA 18/30,49,6,17.06,39.21
6 DATA 18/4,50,27,16.14,40.71
7 DATA 15/34,24,44,16.08,40.58
8 DATA 15/18,48,10,15.99,40.56
9 DATA 14/52,49,21,15.82,42.22
10 DATA 11/42,48,14,15.93,37.71
11 DATA 21/42,20,47,15.65,40.98
12 DATA 20/14,50,31,15.89,40.89
13 DATA 19/58,20,22,15.42,41.5
14 DATA 18/26,50,38,15.78,41.02
15 DATA 16/6,24,24,15.96,42.26
16 DATA 14/46,48,36,15.89,42.34
17 DATA 12/58,48,33,16.01,39.76
80 DATA end,1,1,1,1
89 LPRINT "time   satellite   elevation    latitude     longitude":LPRINT
90 READ D$,S,E,T,G
91 IF D$="end" THEN 95
92 LPRINT USING "\     \  ###          ###       35  ##.##    120  ##.##";D$,S,E,T,G
94 GOTO 91
95 RESTORE
96 LPRINT:LPRINT:LPRINT
98 LPRINT " time       distance errors     direction  distance"
99 LPRINT "            lat.      long.     (degrees)   (feet)":LPRINT
100 READ D$,S,E,T,G
105 IF D$="end" THEN 300
110 E1=T-15.75:E2=41.19-G
120 D1=E1*6052:D2=E2*4984
125 D9=SQR(D1^2+D2^2)
130 A=ABS(57.29578000000002#*ATN(D1/D2))
160 IF D1<0 THEN 190
170 IF D2<0 THEN 187
180 A=90-A
186 GOTO 200
187 A=A+270
188 GOTO 200
190 IF D2<0 THEN 195
191 A=A+90
192 GOTO 200
195 A=270-A
200 LPRINT USING "\     \   #######   #######       #####      #######";D$,D1,D2,A,D9
210 GOTO 100
300 END
