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