20 *LOAD CODEFIL 900
   30 ?&72=30
   40 *LOAD TOPGUN2 2000
   50 CALL &900
   60 GOTO50