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