10 MODE128:REPEAT:CLS:PRINT"ADFS Compacter By C.J.Richardson.":OSCLI"MAP":IF VPOS<>3:OSCLI"COM. 0F 71":UNTILVPOS=3:PRINT"Done!" ELSE UNTILVPOS=3:PRINT"Done!"