10  HIMEM: 35070: CALL 35070:VA$ =  CHR$ (129):VI$ =  CHR$ (137):VN$ =  CHR$ (142):VK$ =  CHR$ (139):VL$ =  CHR$ (140):WO$ =  CHR$ (143) +  CHR$ (143):WP$ =  CHR$ (143) +  CHR$ (144):VY$ =  CHR$ (153):VP$ =  CHR$ (144): HGR : POKE 49234,0: POKE 2050,173: POKE 2051,48: POKE 2052,192: POKE 2072,213: POKE 2073,170: CALL 2074: HCOLOR= 5: FOR Z = 0 TO 7: HPLOT 0,Z TO 279,Z: HPLOT 0,Z + 184 TO 279,184 + Z: NEXT Z
 8090  FOR Z = 0 TO 5: HPLOT Z,0 TO Z,191: HPLOT Z + 274,0 TO Z + 274,191: NEXT Z: HCOLOR= 7: FOR Z = 8 TO 64: HPLOT 6,Z TO 272,Z: NEXT Z: HCOLOR= 4: HPLOT 4,7 TO 4,184 TO 275,184 TO 275,7 TO 5,7 TO 5,7 TO 5,184: VTAB (3): HTAB (5): PRINT VA$4VK$VI$"V O Y A G E R    S O F T W A R E": HCOLOR= 4: HPLOT 23,26 TO 253,26: HPLOT 63,28 TO 213,28: HPLOT 83,30 TO 193,30: HTAB (16): PRINT VA$1VL$"PRESENTS": VTAB (6)
 9000  VTAB (2): HTAB (9): PRINT VA$1VL$;"(C) COPYRIGHT 1981 BY": VTAB (6)
 9040  HTAB (3): PRINT VA$4VK$"S T A R S H I P    C O M M A N D E R": HCOLOR= 2: FOR Z = 33 TO 37 STEP 2: HPLOT 7,Z TO 272,Z: HPLOT 7,Z + 16 TO 272,Z + 16: NEXT Z
 9060  VTAB (8): HTAB (13): PRINT VA$1VL$"BY "VA$0VK$"G"VL$"ILMAN "VK$"L"VL$"OUIE": HCOLOR= 4: HPLOT 158,145 TO 185,145 TO 180,140 TO 240,136 TO 240,133 TO 246,133 TO 208,128 TO 204,124 TO 194,125 TO 192,121 TO 184,121 TO 180,115 TO 176,115 TO 176,122
 10010  HPLOT  TO 162,122 TO 158,128 TO 150,128 TO 146,131 TO 136,131 TO 135,128 TO 130,128 TO 130,102 TO 122,102 TO 110,128 TO 30,134 TO 24,145 TO 70,145 TO 66,143: HPLOT  TO 152,143 TO 166,150 TO 156,157 TO 125,157 TO 70,155 TO 70,145: HPLOT 110,106 TO 124,106:X = 139: HCOLOR= 5: FOR Z = 134 TO 136: HPLOT 239,Z TO X,Z:X = X + 2: NEXT Z
 10042  HCOLOR= 4: FOR Z = 150 TO 178 STEP 5: HPLOT Z,140 TO Z + 4,145: NEXT Z: HPLOT 150,140 TO 180,140: HCOLOR= 7: HPLOT 239,133 TO 139,133: HCOLOR= 7:X = 67: FOR Z = 144 TO 147: HPLOT X,Z TO 152,Z:X = X + 2: NEXT Z: HCOLOR= 4:X = 161: FOR Z = 144 TO 147: HPLOT 152,Z TO X,Z + 6:X = X + 1: NEXT Z: HPLOT 168,150 TO 158,157:X = 80: FOR Z = 148 TO 154 STEP 2: HPLOT X,Z TO 152,Z: IF Z > 148 THEN X = X + 20
 10080  NEXT Z: HCOLOR= 1: FOR Z = 72 TO 81: HPLOT Z,148 TO Z,155: NEXT Z: HCOLOR= 4: FOR Z = 126 TO 128: HPLOT Z,104 TO Z,128: NEXT Z: HCOLOR= 5: FOR Z = 30 TO 60 STEP 6: HPLOT Z,142 TO Z + 4,142: NEXT Z
 10110  FOR Z = 165 TO 180 STEP 6: HPLOT Z,125 TO Z + 4,125: HPLOT Z,130 TO Z + 3,130: NEXT Z: HCOLOR= 4: HPLOT 198,125 TO 204,125: HPLOT 198,126 TO 206,126: HPLOT 187,123 TO 193,123: HCOLOR= 4: FOR Z = 90 TO 130 STEP 4: HPLOT Z,133 TO Z,136: NEXT Z: VTAB (22): HTAB (15): PRINT VA$4VK$VN$;"USS RANGER";:X = 0
 50000  IF X0 THEN X0 = 0: PRINT VA$4VK$VI$;: GOTO 50020
 50010 X0 = 1: PRINT VA$4VK$VN$;
 50020  VTAB (6): HTAB (2): PRINT " S T A R S H I P    C O M M A N D E R ";:Y = 40:X = X + 1:X = X + 2: IF X > 60 THEN 60000
 50030  POKE 2048,X: POKE 2049,Y: CALL 2050: GOTO 50000
 60000  CALL 2115: CALL 2115: CALL 2115: FOR Z = X TO 1 STEP  - 1: POKE 2048,Z: POKE 2049,3: CALL 2050: NEXT Z: PRINT VA$0VK$VN$: PRINT  CHR$ (4);"RUN DIM"