15 lines
946 B
Plaintext
15 lines
946 B
Plaintext
100 PROGRAM "Compass.bas"
|
|
110 STRING DR$(1 TO 33)*18
|
|
120 FOR I=1 TO 33
|
|
130 READ DR$(I)
|
|
140 NEXT
|
|
150 DO
|
|
160 READ IF MISSING EXIT DO:D
|
|
170 LET DIR=COMP(D)
|
|
180 PRINT D;TAB(12);DIR,DR$(DIR)
|
|
190 LOOP
|
|
200 DEF COMP(D)=CEIL(MOD((D+360/64),360)*32/360)
|
|
210 DATA North,North by east,North-northeast,Northeast by north,Northeast,Northeast by east,East-northeast,East by north,East,East by south,East-southeast,Southeast by east,Southeast,Southeast by south,South-southeast,South by east
|
|
220 DATA South,South by west,South-southwest,Southwest by south,Southwest,Southwest by west,West-southwest,West by south,West,West by north,West-northwest,Northwest by west,Northwest,Northwest by north,North-northwest,North by west,North
|
|
230 DATA 0.0,16.87,16.88,33.75,50.62,50.63,67.5,84.37,84.38,101.25,118.12,118.13,135.0,151.87,151.88,168.75,185.62,185.63,202.5,219.37,219.38,236.25,253.12,253.13,270.0,286.87,286.88,303.75,320.62,320.63,337.5,354.37,354.38
|