27 lines
976 B
Plaintext
27 lines
976 B
Plaintext
10 DATA "North","North by east","North-northeast"
|
|
20 DATA "Northeast by north","Northeast","Northeast by east","East-northeast"
|
|
30 DATA "East by north","East","East by south","East-southeast"
|
|
40 DATA "Southeast by east","Southeast","Southeast by south","South-southeast"
|
|
50 DATA "South by east","South","South by west","South-southwest"
|
|
60 DATA "Southwest by south","Southwest","Southwest by west","West-southwest"
|
|
70 DATA "West by south","West","West by north","West-northwest"
|
|
80 DATA "Northwest by west","Northwest","Northwest by north","North-northwest"
|
|
90 DATA "North by west"
|
|
100 DIM p$(32,18)
|
|
110 FOR i=1 TO 32
|
|
120 READ p$(i)
|
|
130 NEXT i
|
|
140 FOR i=0 TO 32
|
|
150 LET h=i*11.25
|
|
160 LET r=FN m(i,3)
|
|
170 IF r=1 THEN LET h=h+5.62: GO TO 190
|
|
180 IF r=2 THEN LET h=h-5.62
|
|
190 LET ind=FN m(i,32)+1
|
|
200 PRINT ind;TAB 4;
|
|
210 LET x=h/11.25+1.5
|
|
220 IF x>=33 THEN LET x=x-32
|
|
230 PRINT p$(INT x);TAB 25;h
|
|
240 NEXT i
|
|
250 STOP
|
|
260 DEF FN m(i,n)=((i/n)-INT (i/n))*n : REM modulus function
|