10 memory%=@MM%+@WRD%
20 Y%=@HDMMT%:X%=@MMALA%:A%=0:B%=&10000:CALLmemory%+@USEB%
30 IF @C% PRINT"Not enough memory available!!"'"Please RESET.":W=GET:END
40 handle%=@Y%
50 new_area%=@BHA%
60 Z%=PAGE
70 next$="BOOT"
80 .restart%
90 OSCLI("LOAD CARD:"+next$+" "+STR$~new_area%)
100 PAGE=new_area%:GOTOentry%
110 .reenter%
120 X%=@MMFND%:Y%=@HDMMT%:A%=new_area%:CALL@MM%+@WRD%
130 IF @ERC% PRINT"Can't locate last module; 'new_area%' not set!!":W=GET:END
140 next$=next$:IFnext$<>"":GOTOrestart%
150 Y%=@Y%:X%=@MMFP%:CALL@MM%+@WRD%
160 IF @ERC% PRINT"Can't free memory!!":W=GET:END
65355 OSCLI