10 MODE2
   20 *LO. :0.I.GOSDC
   30 REPEAT UNTIL GET
   40 *DR.0
   50 *DIR $
   60 *EX.!BOOT