0 REM050685M100 1 CLS:PRINT:PRINTCHR$(27)"p"TAB(46)"THE TRAVELING MEMORY MANAGER"TAB(81)"(C) 1983-1985 Traveling Software, Inc."TAB(90)"Release version 2.33"TAB(40)CHR$(27)"q";:GOTO4 2 D="IN":IFN(P,3)THEND="" 3 PRINT" "F(P)TAB(15)D"VISIBLE"TAB(26);:PRINTUSING"##### BYTES";N(P,1);:RETURN 4 CLEAR256:ONERRORGOTO28:DEFSNGI-Z:R=FRE(0)+267:DEFSTRC-H:H=CHR$(27)+"p":G=CHR$(27)+"q":E="Kill ":DIMN(23,3),F(23):L=63897:FORK=1TO22:J=PEEK(L):IFJ<128THEN7ELSEO=O+1:N(O,3)=((J/8)MOD4=0) 5 N(O,2)=K-3:N(O,1)=(PEEK(L+1)+256*PEEK(L+2)):FORM=1TO8:F(O)=F(O)+CHR$(PEEK(L+2+M)):IFM=6THENF(O)=F(O)+"." 6 NEXTM 7 L=L+11:NEXTK:FORP=1TO7:C=C+CHR$(33-P+(P>3)*3):KEYP,"":NEXT:F(1)="basic .buf":F(2)="text .buf":M=O:GOSUB18 8 CLS:KEY1,"Visi"+CHR$(23):KEY2,E+CHR$(24):KEY3,"Name"+CHR$(25):KEY8,"Menu"+CHR$(26):FORP=1TOK:GOSUB2:PRINT:NEXTP:P=1:PRINT@0,; 9 SCREEN,1:PRINT@40*CSRLIN,H" "F(P)" "G; 10 PRINT@40*CSRLIN,;:ONINSTR(C,INKEY$)GOTO10,23,24,29,16,13,11:GOTO10 11 GOSUB26:IFN(P,3)THENN(P,3)=0:J=8ELSEN(P,3)=-1:J=-8 12 I=63919+11*N(P,2):POKEI,PEEK(I)+J:GOTO25 13 GOSUB26:SCREEN,0:IFRIGHT$(F(P),1)<>"A"THENPRINT@280,E;F(P)" Sure? ";ELSEBEEP:GOTO9 14 ONINSTR(" YyM",INKEY$)GOTO14,15,15,29:PRINT@40*I,;:GOTO9 15 PRINT"OK";:KILLF(P):GOTO4 16 GOSUB26:SCREEN,0:PRINT@280,"Name "F(P)" as ";:D="":INPUTD:CLS 17 D=LEFT$(D,6):D=D+SPACE$(6-LEN(D))+RIGHT$(F(P),3):NAMEF(P)ASD:F(P)=D:GOTO8 18 M=INT(M/2):IFM=0THEN21ELSEJ=1:K=O-M:I=J 19 L=I+M:IFN(I,1)==1THEN19 20 J=J+1:IFJ>KTHEN18ELSEI=J:GOTO19 21 N(O+1,1)=PEEK(-1102)+PEEK(-1101)*256:FORQ=1TOO:N(Q,1)=N(Q+1,1)-N(Q,1) 22 NEXTQ:O=O+1:N(O,1)=R:F(O)=H+"BYTES FREE":IFO<8THENK=O:RETURNELSEK=7:RETURN 23 GOSUB2:P=P+1:PRINT:IFP1THENGOSUB2:P=P-1:IFCSRLIN=0THENPRINT@0,CHR$(27)"L";ELSEPRINT@40*CSRLIN-40,G; 25 GOSUB2:GOTO9 26 IFN(P,2)<1THEN9ELSEI=CSRLIN:RETURN 28 BEEP:IFERL=17THENRESUME8ELSECLS:PRINTTAB(87)"ERROR"ERR"occurred in LINE"ERL;TAB(93)"PRESS ANY KEY";:K$=INPUT$(1) 29 CALL23164,0,23366:CALL27795:MENU