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?"; 20 A$=INPUT$(1):PRINTA$;:IFA$="Y"ORA$="y"THEN30ELSEIFA$<>"N"ANDA$<>"n"THENPRINTCHR$(8)" "CHR$(8);:GOTO20ELSEB=HIMEM-A 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?"; 40 A$=INPUT$(1):PRINTA$;:IFA$="Y"ORA$="y"THEN70ELSEIFA$<>"N"ANDA$<>"n"THENPRINTCHR$(8)" "CHR$(8);:GOTO40 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=0THENPOKEC,D:C=C+1:GOTO90ELSED=ABS(D):POKEC,L(D):POKEC+1,H(D):C=C+2:GOTO90 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?"; 120 A$=INPUT$(1):PRINTA$;:A=VAL(A$):IFA<1ORA>8THENPRINTCHR$(8)" "CHR$(8);:GOTO120ELSEKEYA,"PREP"+CHR$(21)+"CALL"+RIGHT$(STR$(B),LEN(STR$(B))-1)+CHR$(13):MENU 900 DATA822,46 910 DATA35,30,25,14,20,11,15,7,4,28 920 DATA11,15,10,6,21,9,8,6,15,33 930 DATA13,29,3,14,2,13,3,7,22,25 940 DATA8,27,1,5,1,2,2,4,31,20 950 DATA24,52,29,27,61,28 1000 DATA33,-39,205,-2,205,41,66,33 1010 DATA-44,205,145,87,205,203,18,231,254 1020 DATA89,202,-1,254,121,202,-1,33 1030 DATA-45,195,-5,205,-8,33,-42 1040 DATA205,145,87,205,-26,33,-46 1050 DATA205,145,87,205,-18,33,-43,205 1060 DATA145,87,195,-6,229,205,49,66,205 1070 DATA34,66,205,58,31,205,41,66,225,205 1080 DATA145,87,205,62,70,33,133,246,229,43 1090 DATA35,205,232,15,119,254,46,202,-4 1100 DATA183,194,-3,17,-37,6,4,205 1110 DATA105,52,209,62,10,205,171,90,194,-7 1120 DATA33,-40,229,205,105,66,225,205 1130 DATA145,87,205,110,66,205,41,66,33,-38 1140 DATA205,145,87,205,203,18,195,151,87 1150 DATA205,227,90,34,-35,201,42,-35 1160 DATA43,35,126,254,26,200,254,123,242,-13 1170 DATA254,97,242,-10,254,91,242,-13 1180 DATA254,65,250,-13,198,32,119,35 1190 DATA126,254,26,194,-11,205,-15,201 1200 DATA254,45,202,-10,254,39,202,-10 1210 DATA254,123,250,-14,62,100,50,49,249 1220 DATA54,44,195,-9,205,-16,195,-9 1230 DATA254,97,242,-10,254,91,242,-12 1240 DATA254,65,250,-12,198,32,119,195 1250 DATA-10,62,44,205,97,107,218,-17 1260 DATA201,1,1,0,205,159,107,43,201,33 1270 DATA-41,195,-5,175,50,-34,42 1280 DATA-35,229,205,-24,34,-36,225 1290 DATA235,72,42,-36,229,205,-24,34 1300 DATA-36,225,120,183,202,-20,197,213 1310 DATA229,205,-22,225,209,193,220,-21 1320 DATA195,-19,62,100,50,49,249,58,-34 1330 DATA183,194,-18,201,197,229,17,133 1340 DATA246,205,66,37,209,235,12,205,232,46 1350 DATA17,133,246,193,4,205,108,52,65,62 1360 DATA255,50,-34,201,235,5,13,26,190,192,19 1370 DATA5,55,200,175,35,13,194,-23,201,6,0 1380 DATA126,254,26,200,35,4,200,254,44,194 1390 DATA-25,201,42,-35,205,-29,183 1400 DATA200,235,72,42,-36,205,-29,183 1410 DATA194,-30,62,100,50,49,249,235,205 1420 DATA-24,195,-27,229,205,-24,34 1430 DATA-36,225,120,254,2,192,213,197,1 1440 DATA2,0,205,159,107,193,209,195,-29 1450 DATA213,197,229,121,184,194,-32,26,190 1460 DATA194,-32,35,5,19,13,194,-31 1470 DATA225,193,197,72,6,0,205,159,107,34 1480 DATA-36,195,-33,225,193,209,195,-28 1490 DATA0,0,0,0,0,46,68,79,0 1500 DATA72,105,116,32,97,110,121,32,107,101 1510 DATA121,32,116,111,32,114,101,116,117,114 1520 DATA110,32,116,111,32,109,101,110,117,46 1530 DATA0,82,65,77,32,102,105,108,101,32 1540 DATA116,111,32,112,114,111,99,101,115,115 1550 DATA0,82,65,77,32,102,105,108,101,32 1560 DATA119,97,115,32,110,111,116,32,102,111 1570 DATA117,110,100,46,0,77,101,109,111,114 1580 DATA121,32,119,97,115,32,105,110,97,100 1590 DATA101,113,117,97,116,101,46,13,10,80 1600 DATA108,101,97,115,101,32,114,101,109,111 1610 DATA118,101,32,101,120,99,101,115,115,32 1620 DATA102,105,108,101,115,46,0,87,111,114 1630 DATA100,32,108,105,115,116,32,104,97,115 1640 DATA32,98,101,101,110,32,99,111,109,112 1650 DATA105,108,101,100,46,0,87,111,114,100 1660 DATA32,108,105,115,116,32,104,97,115,32 1670 DATA98,101,101,110,32,115,111,114,116,101 1680 DATA100,46,0,84,104,105,115,32,112,114 1690 DATA111,103,114,97,109,32,100,101,115,116 1700 DATA114,111,121,115,32,116,104,101,32,111 1710 DATA114,105,103,105,110,97,108,46,13,10 1720 DATA68,111,32,121,111,117,32,104,97,118 1730 DATA101,32,97,32,98,97,99,107,45,117 1740 DATA112,63,32,0,66,97,99,107,45,117 1750 DATA112,32,102,105,108,101,32,97,110,100 1760 DATA32,116,114,121,32,97,103,97,105,110 1770 DATA46,0,68,117,112,108,105,99,97,116 1780 DATA101,32,119,111,114,100,115,32,104,97 1790 DATA118,101,32,98,101,101,110,32,115,116 1800 DATA114,105,112,112,101,100,46,0,30,84 1810 DATA127,68,1,0,0,206,227,240,END