0 'DCPREP.200 Copyright 1986 David W. Willman, modified for auto-execute by Tony Anderson 1 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):GOTO3ELSEPRINT"An m/l program is already resident.":PRINT"Do you wish to overwrite?"; 2 A$=INPUT$(1):PRINTA$;:IFA$="Y"ORA$="y"THEN3ELSEIFA$<>"N"ANDA$<>"n"THENPRINTCHR$(8)" "CHR$(8);:GOTO2ELSEB=HIMEM-A 3 CLEAR256,B-1:READA:READA:DEFINTL-Z:DIMH(A),L(A):CLS:PRINT:PRINT"Loading relative addresses." 4 B=HIMEM+1:C=B:FORN=1TOA:READX:C=C+X:H(N)=INT(C/256):L(N)=C-H(N)*256:NEXT:C=B:PRINT"Loading memory addresses." 5 READA$:IFA$="END"THEN6ELSED=VAL(A$):IFD>=0THENPOKEC,D:C=C+1:GOTO5ELSED=ABS(D):POKEC,L(D):POKEC+1,H(D):C=C+2:GOTO5 6 CALLB 9 DATA870,51 10 DATA35,42,25,14,20,11,15,7,4,28 11 DATA11,15,10,6,21,9,8,6,15,33 12 DATA13,5,14,23,3,14,2,13,3,7,22,25 13 DATA8,27,1,5,3,6,1,2,2,4,31,20 14 DATA26,54,31,29,61,30,38 15 DATA33,-43,205,-2,205,69,79,33 16 DATA-48,205,246,109,205,247,18,231,254 17 DATA89,202,-1,254,121,202,-1,33 18 DATA-49,195,-5,205,77,79,205,62,79,33 19 DATA-51,205,246,109,205,-8,33,-46 20 DATA205,246,109,205,-28,33,-50 21 DATA205,246,109,205,-18,33,-47,205 22 DATA246,109,195,-6,229,205,77,79,205 23 DATA62,79,205,42,42,205,69,79,225,205 24 DATA246,109,205,240,84,33,112,239,229,43 25 DATA35,205,19,16,119,254,46,202,-4 26 DATA183,194,-3,17,-41,6,4,205 27 DATA186,65,209,62,10,205,79,110,194,-7 28 DATA33,-44,229,205,136,79,225,205 29 DATA246,109,205,141,79,205,69,79,33,-42 30 DATA205,246,109,205,247,18,195,164,103 31 DATA205,140,110,34,-39,201,42,-39 32 DATA43,35,126,254,26,200,254,123,242,-13 33 DATA254,97,242,-10,254,91,242,-13 34 DATA254,65,250,-13,198,32,119,35 35 DATA126,254,26,194,-11,205,-15,201 36 DATA254,45,202,-10,254,39,202,-10 37 DATA254,123,250,-14,62,100,50,56,239 38 DATA54,44,195,-9,205,-16,195,-9 39 DATA254,97,242,-10,254,91,242,-12 40 DATA254,65,250,-12,198,32,119,195 41 DATA-10,62,44,205,156,130,218,-17 42 DATA201,1,1,0,205,218,130,43,201,33 43 DATA-45,195,-5,175,50,-38,42 44 DATA-39,229,205,-26,34,-40,225 45 DATA235,72,42,-40,229,205,-26,34 46 DATA-40,225,120,183,202,-20,197,213 47 DATA229,205,-24,225,209,193,220,-21 48 DATA195,-19,62,100,50,56,239,58,-38 49 DATA183,194,-18,201,197,229,17,112,239,126,18,35,19,5 50 DATA194,-22,209,235,12,43,27,13,126,18,43,27,13,194,-23 51 DATA17,112,239,193,4,205,-37,65,62 52 DATA255,50,-38,201,235,5,13,26,190,192,19 53 DATA5,55,200,175,35,13,194,-25,201,6,0 54 DATA126,254,26,200,35,4,200,254,44,194 55 DATA-27,201,42,-39,205,-31,183 56 DATA200,235,72,42,-40,205,-31,183 57 DATA194,-32,62,100,50,56,239,235,205 58 DATA-26,195,-29,229,205,-26,34 59 DATA-40,225,120,254,2,192,213,197,1 60 DATA2,0,205,218,130,193,209,195,-31 61 DATA213,197,229,121,184,194,-34,26,190 62 DATA194,-34,35,5,19,13,194,-33 63 DATA225,193,197,72,6,0,205,218,130,34 64 DATA-40,195,-35,225,193,209,195,-30 65 DATA26,119,19,35,5,194,-36,201,0,0,0,0,0,46,68,79,0 66 DATA72,105,116,32,97,110,121,32,107,101 67 DATA121,32,116,111,32,114,101,116,117,114 68 DATA110,32,116,111,32,109,101,110,117,46 69 DATA0,82,65,77,32,102,105,108,101,32 70 DATA116,111,32,112,114,111,99,101,115,115 71 DATA0,82,65,77,32,102,105,108,101,32 72 DATA119,97,115,32,110,111,116,32,102,111 73 DATA117,110,100,46,13,10,0,77,101,109,111,114 74 DATA121,32,119,97,115,32,105,110,97,100 75 DATA101,113,117,97,116,101,46,13,10,80 76 DATA108,101,97,115,101,32,114,101,109,111 77 DATA118,101,32,101,120,99,101,115,115,32 78 DATA102,105,108,101,115,46,13,10,0,87,111,114 79 DATA100,32,108,105,115,116,32,104,97,115 80 DATA32,98,101,101,110,32,99,111,109,112 81 DATA105,108,101,100,46,13,10,0,87,111,114,100 82 DATA32,108,105,115,116,32,104,97,115,32 83 DATA98,101,101,110,32,115,111,114,116,101 84 DATA100,46,13,10,0,84,104,105,115,32,112,114 85 DATA111,103,114,97,109,32,100,101,115,116 86 DATA114,111,121,115,32,116,104,101,32,111 87 DATA114,105,103,105,110,97,108,46,13,10 88 DATA68,111,32,121,111,117,32,104,97,118 89 DATA101,32,97,32,98,97,99,107,45,117 90 DATA112,63,32,0,66,97,99,107,45,117 91 DATA112,32,102,105,108,101,32,97,110,100 92 DATA32,116,114,121,32,97,103,97,105,110 93 DATA46,13,10,0,68,117,112,108,105,99,97,116 94 DATA101,32,119,111,114,100,115,32,104,97 95 DATA118,101,32,98,101,101,110,32,115,116 96 DATA114,105,112,112,101,100,46,13,10,0,87,111 97 DATA114,107,105,110,103,46,46,46,13,10,0,END