100 dev$='RAM1_' :REM CD TASK Fixer
 110 RESTORE :REM By Simon N Goodwin
 120 REP fix
 130   IF EOF THEN EXIT fix
 140   READ name$,size
 150   file$=dev$ & name$
 160   length=FLEN(\file$)
 170   IF length>0
 180     heap=ALCHP(length)
 190     IF heap<=0
 200       PRINT 'No room for'!name$
 210     ELSE
 220       LBYTES file$,heap
 230       DELETE file$
 240       SEXEC file$,heap,length,size
 250       RECHP heap
 260     END IF
 270   END IF
 280 END REP fix
 290 PRINT dev$&'scanned.'
 500 DATA 'InfoZip_unzip_funzip', 37934
 510 DATA 'InfoZip_unzip_unzip', 40268
 520 DATA 'InfoZip_unzip_makesfx', 50
 530 DATA 'InfoZip_unzip_unzipsfx', 40128
 540 DATA 'InfoZip_zip_zip', 225654
 550 DATA 'InfoZip_zip_zipnote', 2818
 560 DATA 'InfoZip_zip_zipsplit', 2784