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 'backup', 500
 510 DATA 'CPA_DMP', 4096
 520 DATA 'FUJ_DMP', 4096
 530 DATA 'FX_DMP', 4096
 540 DATA 'GEM_DMP', 4096
 550 DATA 'INSTALL_EXE', 3944
 560 DATA 'LOG_DMP', 4096
 570 DATA 'NEC_DMP', 4096
 580 DATA 'PDTK_rext', 0
 590 DATA 'QDUMP', 4096
 600 DATA 'QL_DMP', 4096
 610 DATA 'XCHANGEd', 12288