35 lines
1.2 KiB
Plaintext
35 lines
1.2 KiB
Plaintext
DIM point$(32)
|
|
|
|
FUNCTION compasspoint$ (h)
|
|
LET x = h / 11.25 + 1.5
|
|
IF (x >= 33) THEN LET x = x - 32
|
|
LET compasspoint$ = point$(INT(x))
|
|
END FUNCTION
|
|
|
|
RESTORE
|
|
DATA "North ", "North by east ", "North-northeast ", "Northeast by north"
|
|
DATA "Northeast ", "Northeast by east ", "East-northeast ", "East by north "
|
|
DATA "East ", "East by south ", "East-southeast ", "Southeast by east "
|
|
DATA "Southeast ", "Southeast by south", "South-southeast ", "South by east "
|
|
DATA "South ", "South by west ", "South-southwest ", "Southwest by south"
|
|
DATA "Southwest ", "Southwest by west ", "West-southwest ", "West by south "
|
|
DATA "West ", "West by north ", "West-northwest ", "Northwest by west "
|
|
DATA "Northwest ", "Northwest by north", "North-northwest ", "North by west "
|
|
|
|
FOR i = 1 TO 32
|
|
READ d$
|
|
LET point$(i) = d$
|
|
NEXT i
|
|
|
|
FOR i = 0 TO 32
|
|
LET heading = i * 11.25
|
|
IF REMAINDER(i, 3) = 1 THEN
|
|
LET heading = heading + 5.62
|
|
ELSE
|
|
IF REMAINDER(i, 3) = 2 THEN LET heading = heading - 5.62
|
|
END IF
|
|
LET ind = REMAINDER(i, 32) + 1
|
|
PRINT ind, compasspoint$(heading), heading
|
|
NEXT i
|
|
END
|