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 '3dpie_task', 10240
 510 DATA 'Election92_task', 61440
 520 DATA 'ChaoTIC_SYS_I_obj', 4208
 530 DATA 'graph_lib', 5674
 540 DATA 'plantlife_obj', 4758
 550 DATA 'QLib_ext', 4096
 560 DATA 'Runtme_ext', 4096
 570 DATA 'SCP_obj', 5718
 580 DATA 's_edit_demo_obj', 11326