29 lines
1.1 KiB
Plaintext
29 lines
1.1 KiB
Plaintext
100 array n$
|
|
110 for c = 0 to 31
|
|
120 read a$
|
|
130 let n$(c) = a$
|
|
140 next c
|
|
150 array d
|
|
160 for c = 0 to 33
|
|
170 read b
|
|
180 let d(c) = b
|
|
190 next c
|
|
200 for i = 1 to 33
|
|
210 let j = int((d(i)+5.625)/11.25)
|
|
220 if j > 31 then let j = j-32
|
|
230 print d(i);" ";j;" ";n$(j)
|
|
240 next i
|
|
250 end
|
|
260 data "North","North by east","North-northeast","Northeast by north"
|
|
270 data "Northeast","Northeast by east","East-northeast","East by north"
|
|
280 data "East","East by south","East-southeast","Southeast by east"
|
|
290 data "Southeast","Southeast by south","South-southeast","South by east"
|
|
300 data "South","South by west","South-southwest","Southwest by south"
|
|
310 data "Southwest","Southwest by west","West-southwest","West by south"
|
|
320 data "West","West by north","West-northwest","Northwest by west","Northwest"
|
|
330 data "Northwest by north","North-northwest","North by west","North"
|
|
340 data 0,16.87,16.88,33.75,50.62,50.63,67.5,84.37,84.38,101.25
|
|
350 data 118.12,118.13,135,151.87,151.88,168.75,185.62,185.63,202.5,219.37
|
|
360 data 219.38,236.25,253.12,253.13,270,286.87,286.88,303.75,320.62,320.63
|
|
370 data 337.5,354.37,354.38
|