home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / memmgr.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  31 lines
  1. 0 REM050685M100
  2. 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
  3. 2 D="IN":IFN(P,3)THEND=""
  4. 3 PRINT" "F(P)TAB(15)D"VISIBLE"TAB(26);:PRINTUSING"##### BYTES";N(P,1);:RETURN
  5. 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)
  6. 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)+"."
  7. 6 NEXTM
  8. 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
  9. 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,;
  10. 9 SCREEN,1:PRINT@40*CSRLIN,H" "F(P)" "G;
  11. 10 PRINT@40*CSRLIN,;:ONINSTR(C,INKEY$)GOTO10,23,24,29,16,13,11:GOTO10
  12. 11 GOSUB26:IFN(P,3)THENN(P,3)=0:J=8ELSEN(P,3)=-1:J=-8
  13. 12 I=63919+11*N(P,2):POKEI,PEEK(I)+J:GOTO25
  14. 13 GOSUB26:SCREEN,0:IFRIGHT$(F(P),1)<>"A"THENPRINT@280,E;F(P)" Sure? ";ELSEBEEP:GOTO9
  15. 14 ONINSTR(" YyM",INKEY$)GOTO14,15,15,29:PRINT@40*I,;:GOTO9
  16. 15 PRINT"OK";:KILLF(P):GOTO4
  17. 16 GOSUB26:SCREEN,0:PRINT@280,"Name "F(P)" as ";:D="":INPUTD:CLS
  18. 17 D=LEFT$(D,6):D=D+SPACE$(6-LEN(D))+RIGHT$(F(P),3):NAMEF(P)ASD:F(P)=D:GOTO8
  19. 18 M=INT(M/2):IFM=0THEN21ELSEJ=1:K=O-M:I=J
  20. 19 L=I+M:IFN(I,1)=<N(L,1)THEN20ELSEFORQ=1TO3:P=N(I,Q):N(I,Q)=N(L,Q):N(L,Q)=P:NEXTQ:D=F(I):F(I)=F(L):F(L)=D:I=I-M:IFI>=1THEN19
  21. 20 J=J+1:IFJ>KTHEN18ELSEI=J:GOTO19
  22. 21 N(O+1,1)=PEEK(-1102)+PEEK(-1101)*256:FORQ=1TOO:N(Q,1)=N(Q+1,1)-N(Q,1)
  23. 22 NEXTQ:O=O+1:N(O,1)=R:F(O)=H+"BYTES FREE":IFO<8THENK=O:RETURNELSEK=7:RETURN
  24. 23 GOSUB2:P=P+1:PRINT:IFP<OANDCSRLIN<7THENGOTO25
  25. 24 IFP>1THENGOSUB2:P=P-1:IFCSRLIN=0THENPRINT@0,CHR$(27)"L";ELSEPRINT@40*CSRLIN-40,G;
  26. 25 GOSUB2:GOTO9
  27. 26 IFN(P,2)<1THEN9ELSEI=CSRLIN:RETURN
  28. 28 BEEP:IFERL=17THENRESUME8ELSECLS:PRINTTAB(87)"ERROR"ERR"occurred in LINE"ERL;TAB(93)"PRESS ANY KEY";:K$=INPUT$(1)
  29. 29 CALL23164,0,23366:CALL27795:MENU
  30.  
  31.