5 CLEAR 256:IF MAXFILES<2 THEN MAXFILES=2 6 Q$="YyNn":CLS:PRINT"Loader/Relocator":PRINT"(C) 1984 Custom Software":PRINT"All rights reserved":PRINT:INPUT"Locate Men-u-tility at address";SA:GOSUB 42:IF SA+1954>MAXRAM THEN BEEP:PRINT "Program would exceed high memory limits.":END 13 OPEN "MCODE.DO" FOR INPUT AS 1:X=SA 15 LINEINPUT#1,B$:L=L+1:FOR V=1 TO LEN(B$):CS=CS+ASC(MID$(B$,V,1)):NEXT:READ CC:IF CS<>CC THEN PRINT"Line";L;"in the MCODE.DO file is incorrect":PRINT"Please retype":CLOSE:END: ELSE CS=0 16 R=1:A$="" 17 IF MID$(B$,R,1)="*" THEN A$=MID$(B$,R+1,INSTR(R+1,B$,"*")-R-1):R=R+LEN(A$)+2:GOSUB 33: ELSE A$=MID$(B$,R,2):R=R+2:GOSUB 37 18 PRINT@240,"Loading at";X: 19 IF R < LEN(B$) THEN GOTO 17 20 IF NOT EOF(1) THEN 15 21 CLOSE:CLS:PRINT"Program loaded from";SA"to";SA+1953:SAVEM "MENUTL.CO",SA,SA+1953,SA:END 33 VA=SA+VAL(A$):POKE X+1,INT(VA/256): POKE X,VA-(INT(VA/256)*256):X=X+2:RETURN 37 CV$=A$:GOSUB 39:POKE X,CV:X=X+1:RETURN 39 CV=0:T=LEN(CV$):FOR I=1 TO T:K=ASC(MID$(CV$,I,1))-48:IF K>9 THEN K=K-7 40 K=K+32*(K>41):IF K>15 THEN RETURN ELSE CV=CV*16+K 41 NEXT I:RETURN 42 IF SA