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(4) = 1
 40  DEF  FN RF(X) = ((3700 - X) / 3700) ^ 2.86: SCALE= 1: ROT= 0: POKE 49234,0: POKE 2072,213: POKE 2073,170: CALL 2074:Z$ = VA$ + "1" + VK$ + VI$ + " E" + VA$ + "4"
 45  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$"CREW    ";
 50045  PRINT Z$"STATION ";: PRINT Z$"POWER   ";: PRINT VN$VA$3;"  CHANGE  ";VI$;: PRINT Z$"CREW    ";: PRINT Z$"ORGANIZ.";: PRINT Z$"POWER   ";: PRINT Z$"RETURN  ";: PRINT : PRINT Z$"WEAPONS ";
 50120  PRINT Z$"ENGINES ";: PRINT Z$"NAVIGAT.";: PRINT Z$"DEFENSE ";: PRINT : PRINT Z$"TEAM 1  ";: PRINT Z$"TEAM 2  ";: PRINT Z$"TEAM 3  ";: PRINT : VTAB (21): PRINT VA$3VI$"  COUNTER ";
 50185  PRINT VI$" ";: PRINT VN$"        ";: PRINT VI$" ";: PRINT VA$1VK$"X"VL$"RDY  "VK$"X"VL$"ENT";: PRINT VY$VN$;: VTAB (2): HTAB (2): PRINT VV$;: VTAB (21)
 50186  HTAB (27): PRINT VW$VP$;: VTAB (23): HTAB (1): PRINT VN$VV$;: VTAB (23): HTAB (27): PRINT VW$VP$;
 50220  PRINT VY$;: VTAB (1): HTAB (9): PRINT VI$VA$3VK$;"LIFE SUPPORT";: VTAB (1): HTAB (1): PRINT VA$0VN$VK$: PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"LIFE": STOP