1 'DCPREP.LDR Copyright 1986 David W. Willman [75775,202]
10 CLS:READA:PRINT:A$=STR$(A):PRINTRIGHT$(A$,LEN(A$)-1)" memory locations are required.":A=A+1:B=MAXRAM-A:IFHIMEM=MAXRAMTHENPRINT"Hit any key to continue.";:A$=INPUT$(1):GOTO30ELSEPRINT"An m/l program is already resident.":PRINT"Do you wish to overwrite?";
30 CLS:PRINT:PRINT"MAXRAM is currently at "MAXRAM".":PRINT"HIMEM is currently at "HIMEM".":PRINT"Start address will be at"B".":PRINT"Is this alright?";
50 CLS:B=0:PRINT:PRINT"MAXRAM is currently at"MAXRAM".":PRINT"HIMEM is currently at"HIMEM".":A$=STR$(A-1):PRINTRIGHT$(A$,LEN(A$)-1)" memory locations are required.":INPUT"What start address do you wish";B
60 IFB=0THENMENUELSEIFHIMEM=>B+ATHEN70ELSEIFMAXRAM<B+ATHENCLS:PRINT:PRINT"You cannot overwrite MAXRAM.":PRINT"Hit any key to continue.";:A$=INPUT$(1):RESTORE:GOTO10ELSEPRINT"Sure you want to overwrite HIMEM?";:GOTO40
100 CALL17064:BEEP:PRINT"Do you wish to set-up a function":PRINT"key to call this prep routine?";
110 A$=INPUT$(1):PRINTA$;:IFA$="N"ORA$="n"THENMENUELSEIFA$<>"Y"ANDA$<>"y"THENPRINTCHR$(8)" "CHR$(8);:GOTO110ELSEPRINT:PRINT"What number function key?";