10 MODE 1   
   20 *LOAD"P.ASTRO"FFFF3000   
   30 A$=GET$
   40 *LOAD"P.SATURN"FFFF3000 
   50 A$=GET$
   60 MODE 1
   70 VDU19,1,4,0,0,0
   80 VDU19,2,6,0,0,0
   90 *LOAD"P.NEPTUNE"FFFF3000  
  100 A$=GET$
  110 *DIR $
  120 END