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 'TURBO_ST_QL', 2048
 510 DATA 'qshell_exe', 10410
 520 DATA 'HRDslow_mann', 35000
 530 DATA 'HRDslow_eps', 35500
 540 DATA 'HRDmed_mann', 35000
 550 DATA 'HRDmed_eps', 34500
 560 DATA 'HRDfast_mann', 35072
 570 DATA 'WINDOWS_EXT', 4096
 580 DATA 'GBWINDOWS_EXT', 4096
 590 DATA 'loader_exe', 20000
 600 DATA 'digcode', 500
 610 DATA 'ram_obj', 500
 620 DATA 'analisi_code', 500
 630 DATA 'look_exe', 3072
 640 DATA 'flusher_cde', 256
 650 DATA 'cad_exe', 40170
 660 DATA 'opens_cde', 500
 670 DATA 'jtool_cde', 500
 680 DATA 'ftool_cde', 500
 690 DATA 'wipe_cde', 500
 700 DATA 'res_cde', 500
 710 DATA 'kill_cde', 500
 720 DATA 'st_ql_exe', 0
 730 DATA 'weiss_utilit_obj', 500
 740 DATA 'mem_exe', 256
 750 DATA 'convert_exe', 3712
 760 DATA 'config_task', 4096
 770 DATA 'config_xtras', 4096
 780 DATA 'help_xtras', 4096
 790 DATA 'code', 500
 800 DATA 'help_task', 25600