Elite 3: Elite3OS.B

  1 REM  GO SUB [ POKE /!@[M] RESTORE  STEP = STEP @[M] LLIST  GO SUB [ POKE / NEXT  CLEAR © OR > GO SUB y- STEP = STEP @[M]STR$ > GO SUB y GO SUB [ POKE /!0um STEP = STEP 0u GO SUB ^!@@ GO SUB VAL 6G GO SUB VAL p GO SUB VAL ![P]]P MERGE  GO SUB VAL <>1 LIST W> CLEAR © OR  GO SUB y! MOVE [% GO SUB [Q] REM PSTR$ > GO SUB y!6Q~#PI(A RETURN (# MERGE  RESTORE o&)))< GO SUB [2Q FOR  RESTORE w$ IF  LLIST ,"2Q LLIST  MOVE  CLOSE # RESTORE *2Q} NEW  LPRINT  AND  o | AND g>o"2Q LLIST INT !4Q RUN  STEP &QVAL$ w LOAD  STEP &Q THEN O V THEN G TVAL$ w25Q![R]X :5Q25Q0>D>Gw GO SUB :4Q25Q:5Q25Q0>D>Gw GO SUB ![R]X[S]X> GO SUB VAL #=  PLOT  [H]6 COPY CODE  THEN F(2][S]2.USR  THEN N(2PIPEEK 2IN  THEN V(2RND OVER  THEN ^(2CHR$  FLASH 2 CIRCLE  FLASH 2 STOP  FLASH  THEN f(2)ABS 2p FLASH 2 CONTINUE  THEN n(2[N]y23[U] THEN v(2[B]x THEN ~(2 GO TO f1 ANOT  OVER ]CODE Ox FLASH  RETURN / NEW   RUN y<>INKEY$@1 Super Protection2 Nuclear Laser Gun3 Space Refuelling4 Hyper - Mounting5 Super Cargo Bay6 Reproducing Missile7 Reproducing Bomb8 Momentary Rescue9 All Infinitives0 Exit To Continue
  2 BORDER NOT PI: INK NOT PI: PAPER NOT PI: CLEAR VAL "25E3": RANDOMIZE USR 0