10  HIMEM: 35070:ADRS = 35070: CALL ADRS: POKE 49234,0: POKE 2072,85: POKE 2073,42:VA$ =  CHR$ (129):VN$ =  CHR$ (142):VI$ =  CHR$ (137):VP$ =  CHR$ (144):VY$ =  CHR$ (153):VV$ =  CHR$ (150):VW$ =  CHR$ (151)
 11 VK$ =  CHR$ (139):VL$ =  CHR$ (140): GOSUB 20000: PRINT VA$0VN$VK$: PRINT  CHR$ (4);"BLOAD CHAIN,A520": CALL 520"WEAPONS"
 1030  STOP 
 20000 Z$ = VA$ + "1 E" + VA$ + "4": PRINT VA$;1;VL$: CALL 2074: VTAB (1): HTAB (9): PRINT VA$3VK$VI$;" WEAPONS STATION ": PRINT VN$VK$;VA$;3: VTAB (2)
 20010  HTAB (2): PRINT "SHIP ";VI$: VTAB (3): HTAB (2): PRINT Z$" D ";: VTAB (4): HTAB (2): PRINT Z$" M ";: VTAB (5): HTAB (2): PRINT Z$;" K "
 20070  VTAB (7): HTAB (2): PRINT VN$;VA$;3;"TORP ";VI$: FOR Z = 1 TO 6: VTAB (7 + Z): HTAB (2): PRINT Z$" ";Z;" ";: NEXT Z: VTAB (15): HTAB (2): PRINT VN$VA$;3;"POSIT";VI$: FOR Z = 1 TO 4: VTAB (15 + Z): HTAB (2): PRINT Z$;" ";Z;" ": NEXT Z
 20138  VTAB (21): HTAB (2): PRINT VN$;VA$;3;"LOCK ";VI$: VTAB (22): HTAB (2): PRINT Z$;" Y ": VTAB (23): HTAB (2): PRINT Z$;" N ": VTAB (22): HTAB (9): PRINT Z$;"LOAD": VTAB (23): HTAB (9): PRINT Z$;"FIRE": VTAB (2): HTAB (28): PRINT VN$;VA$;3;"   REPORT   ";VI$: VTAB (3): HTAB (28): PRINT Z$;"POSIT STAT": VTAB (4): HTAB (28): PRINT Z$;"POSIT PROB"
 20180  VTAB (5): HTAB (28): PRINT Z$;"TORP STAT ": VTAB (6): HTAB (28): PRINT Z$;"TORP PROB ": VTAB (7): HTAB (28): PRINT Z$;"POSITION  ": VTAB (8): HTAB (28): PRINT Z$;"TARGET    ": VTAB (9): HTAB (28): PRINT "   INFO     ": VTAB (11): HTAB (28): PRINT VA$;3VN$;"FIRE CONTROL";VI$: VTAB (12): HTAB (28): PRINT Z$;"POSITRON  ": VTAB (13): HTAB (28): PRINT Z$;"TORPEDO   "
 20235 : VTAB (16): HTAB (28): PRINT VI$Z$;"RETURN    ": VTAB (18): HTAB (28): PRINT VA$;3VN$;"  CONTROL  ";VI$: VTAB (19): HTAB (28): PRINT Z$;"AUTOMATIC"
 20247  VTAB (20): HTAB (28): PRINT Z$;"MANUAL   ": VTAB (22): HTAB (20): PRINT VA$;3;VI$;"COUNTER-";VN$;"          "
 20249  PRINT VI$;VL$: VTAB (23): HTAB (20): PRINT VA$;1;VK$;"X";VL$;VA$;1;"-READY   ";VA$;1;VK$;"X";VL$;VA$;1;"-ENTER ";VK$
 20265  VTAB (19): HTAB (8): PRINT VN$;VA$;3"--MESSAGE CENTER---": VTAB (20): HTAB (8): PRINT "                   ": HCOLOR= 1: HPLOT 49,151 TO 181,151
 20270  GOSUB 39000: HCOLOR= 1: HPLOT 275,5 TO 185,5 TO 185,130 TO 275,130 TO 275,5: PRINT VA$;4;: RETURN 
 39000  PRINT VN$VY$: VTAB (2): HTAB (8): PRINT VV$: VTAB (18): HTAB (19): PRINT VW$: PRINT VP$: RETURN