10MODE128:REPEAT:CLS:PRINT"ADFS Compa cter By C.J.Richardson.":OSCLI"MAP":IF V POS<>3:OSCLI"COM. 0F 71":UNTILVPOS=3:PRI NT"Done!" ELSE UNTILVPOS=3:PRINT"Done!"