Sorry - COMPASS.IN contains:
CHARACTER*1 UP, DOWN, LLEFT, RRIGHT
CHARACTER*1 ULA, URA, DLA, DRA, ESCAPE
DATA ESCAPE/Z'1B'/
DATA UP/Z'17'/
DATA DOWN/Z'1A'/
DATA LLEFT/Z'19'/
DATA RRIGHT/Z'18'/
DATA ULA/Z'5C'/ ! Up left angle
DATA URA/Z'5D'/ ! Up right angle
DATA DLA/Z'5E'/ ! Down...