10 DEFFNS="LotResc" 20 MODE7 30 VDU23;8202;0;0;0; 40 PRINT''"If you have a can't extend error due"'"to not setting up your disc correctly"'"in the first place, this short"'"program will rescue data from the"'"ultimate lottery program by"'"C.J.Richardson." 60 PRINT'"Before running this program, delete"'"any unneeded programs and *COMPACT"'"the disc that the data is on." 70 PRINT'"BACK UP THE DISC BEFORE RUNNING THIS"'"PROGRAM!" 80 PRINT''"Are you ready to rescue the data? Y/N" 90 *FX 21 100 REPEATUNTILGET=89 110 F%=OPENIN"ULTDAT" 120 H%=EXT#F% DIV 7 130 G%=OPENOUT"NEWDAT" 140 FORI%=1 TO H% 150 FORL%=1 TO 7 160 A%=BGET#F% 170 BPUT#G%,A% 180 NEXT, 190 CLOSE#F% 200 CLOSE#G% 210 *AC. ULTDAT 220 *DEL. ULTDAT 230 *REN. NEWDAT ULTDAT