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 'PLOD_obj', 4824
 510 DATA 'QLIB3.22_runtimes', 4096
 520 DATA 'BEANO_obj', 6100
 530 DATA 'CLONE_obj', 3698