20  HIMEM: 35070:ADRS = 35070: CALL ADRS: POKE 232,0: POKE 233,145: DEF  FN DG(H) = (H / 360 -  INT (H / 360)) * 360: DEF  FN D(H) =  FN DG( FN DG(H + 360)): DEF  FN RD(X) =  INT (X + .5): DEF  FN RN(X) =  INT ( RND (1) * X + 1):VA$ =  CHR$ (129):VN$ =  CHR$ (142):VI$ =  CHR$ (137):VP$ =  CHR$ (144):VY$ =  CHR$ (153):VV$ =  CHR$ (150):VW$ =  CHR$ (151):VK$ =  CHR$ (139):VL$ =  CHR$ (140)
 25 CX(5) = 1
 40  DEF  FN RF(X) = ((3700 - X) / 3700) ^ 2.86: SCALE= 1: ROT= 0: GOSUB 50000: VTAB (1): PRINT VA$0VN$VK$: PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"N": STOP 
 50000  POKE 2072,213: POKE 2073,170: CALL 2074:Z$ = VA$ + "1" + VK$ + VI$ + " E" + VA$ + "4": PRINT VY$;: VTAB (1): HTAB (30): PRINT VV$;: VTAB (24): HTAB (10): PRINT VW$;: VTAB (2): HTAB (1): PRINT VK$VA$3;"  STATUS  ";: PRINT Z$"NAVIGAT ";: PRINT Z$"ENGINE  ";: PRINT Z$"DISTANCE";
 50055  PRINT Z$"SPEED   ";: PRINT Z$"POSITION";: PRINT Z$"EVASIVE ";: PRINT VN$;: VTAB (10): PRINT VK$VA$3;"  ACTION  ";: PRINT Z$"AUTO N. ";: PRINT Z$"MANUAL N";: PRINT Z$"EVASIVE ";
 50120  VTAB (14): PRINT Z$"RETURN  ";: VTAB (16): PRINT VN$VK$VA$3;"  SHIP    ";: PRINT Z$"DETAS   ";: PRINT Z$"MILAS   ";: PRINT Z$"KAMAS   ";: VTAB (21)
 50123  PRINT VA$3;: PRINT VI$;: PRINT "  COUNTER ";: PRINT VI$" ";: PRINT VN$"        ";: PRINT VI$" ";
 50170  PRINT VI$VA$1VK$"X";VL$;"RDY  "VK$"X"VL$"ENT";: PRINT VY$VN$;: VTAB (2): HTAB (2): PRINT VV$;: VTAB (19): HTAB (27): PRINT VW$VP$;: PRINT VY$;: VTAB (21): HTAB (2): PRINT VI$VV$Z$: PRINT Z$: PRINT Z$;: VTAB (21): HTAB (3): PRINT VN$VV$;: VTAB (23): HTAB (25): PRINT VW$VP$;
 50220  PRINT VY$;: VTAB (1): HTAB (10): PRINT VI$VA$3VK$;"NAVIGATION";: DATA 6,8,-4,16,-8,10,-12,-4,-6,-8,8,-16,8,-6,10,0,6,6,0,12,-4,6,-12,0,-6,-4,0,-12,8 ,-6,12,-2,35,28,53,28,53,36: RETURN