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