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