home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / utlty.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  48 lines
  1. 0 'UTLTY.BA - AUTHOR UNKNOWN
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLEAR200:GOSUB44:FORJ=-1606TO-1408STEP11:IFPEEK(J)=0THEN5
  4. 3 X=X+1:M(X)=J:FORI=3TO10:A$(X)=A$(X)+CHR$(PEEK(J+I)):IFI=8THENA$(X)=A$(X)+".
  5. 4 NEXT:A(X)=PEEK(J+1)+256*PEEK(J+2)-Z
  6. 5 NEXT:X=X+1:A$(X)="unsaved":A(X)=PEEK(B)+PEEK(B+1)*256-Z:X=X+1:A$(X)="pastebf":A(X)=PEEK(T)+PEEK(T+1)*256-Z:X=X+1:A4=MAXFILES:A$(X)=MID$(STR$(A4),2)+" files":A(X)=A4*267:X=X+1:A$(X)="protmem":A(X)=MAXRAM-HIMEM
  7. 6 K=X-4:KEYON:ONKEYGOSUB21,24,26,30,39,40,41,43:CLS:PRINT@14,QR" DIRECTORY "QN
  8. 7 FORI=1TOK:N(I)=(I+4)*10-10:PRINT@N(I),A$(I):NEXT:I=1:PRINT@N(I),QR;A$(I)QN
  9. 8 IFAB=1THEN10ELSEPRINT@280,"Name Move Vis  Lgth T100 Bull Kill Menu";
  10. 9 PRINT@268,QR" Size:"QNSPACE$(6);:GOSUB18:K=X-4
  11. 10 E$=INKEY$:IFE$=""THEN10
  12. 11 E=ASC(E$):PRINT@N(I),A$(I):IFE=28THENI=I+1:IFI>KTHENI=1
  13. 12 IFE=29THENI=I-1:IFI<1THENI=K
  14. 13 IFE=30THENI=I-4:IFI<1THENI=I+4
  15. 14 IFE=31THENI=I+4:IFI>KTHENI=I-4
  16. 15 PRINT@N(I),QR;A$(I)QN:IFE<>13THEN8
  17. 16 IFAB=1THENRETURN
  18. 17 E$=INKEY$:IFE$=""THEN17ELSE8
  19. 18 A3=A2:K=X-2:FORJ=1TOK:IFA(J)<=A(I)THEN20
  20. 19 A1=A(J):IFA1<A3THENA3=A1
  21. 20 NEXT:PRINT@274,A3-A(I);:RETURN
  22. 21 CLS:PRINT@80,"RENAMING --> "QR" "A$(I)" "QN:PRINT:INPUT"ENTER NEW NAME";N$:D=LEN(N$):IFD=0THEN6
  23. 22 IFD<6THENN$=N$+SPACE$(6-D)
  24. 23 FORJ=1TO6:POKEM(I)+2+J,ASC(MID$(N$,J,1)):NEXT:GOTO2
  25. 24 CLS:PRINT@10,"SELECT NEW LOCATION":PRINT@285,"    MOVING --> "QR" "A$(I)" "QN;:J=I:AB=1:GOSUB7:IFA$(I)=A$(J)THENAB=0:GOTO6
  26. 25 FORL=0TO10:C=PEEK(M(I)+L):D=PEEK(M(J)+L):POKEM(I)+L,D:POKEM(J)+L,C:NEXT:GOTO2
  27. 26 CLS:D=PEEK(M(I)):IFDMOD32=0THENDD=D+8ELSEDD=D-8
  28. 27 IFDD>DTHEND$="IN"ELSED$="
  29. 28 PRINT@80,"ENTER <.> TO MAKE "QR" "A$(I)" "QN" "D$"VISIBLE":INPUTY$:IFY$<>"."THEN6
  30. 29 POKEM(I),DD:GOTO2
  31. 30 GOSUB45:K=X-2:FORI=1TOK:A1=A2:FORJ=1TOK:IFA(J)<A1ANDA(J)>F(I-1)THENA1=A(J)
  32. 31 NEXT:F(I)=A1:NEXT:F(I)=A2:CLS:FORI=1TOX:FORJ=1TOK:IFI>KTHENJ=I:A4=A(I):GOTO34
  33. 32 IFA(J)<>F(I)THEN35
  34. 33 A4=-F(I)+F(I+1)
  35. 34 PRINTUSINGF$;A$(J),A4;:GOTO36
  36. 35 NEXTJ
  37. 36 IFIMOD3=0THENPRINT
  38. 37 NEXTI:PRINT@306,QR" Size:"QN;29638-FRE(0)-365CHR$(7);
  39. 38 IFINKEY$=""THEN38ELSE2
  40. 39 CLEAR0,60416:RUNM"TP100
  41. 40 CLEAR0,61888:RUNM"BULLET":MENU
  42. 41 CLS:PRINT@80,"ENTER <.> TO KILL --> "QR" "A$(I)" "QN:INPUTY$:IFY$<>"."THEN6
  43. 42 KILLA$(I):GOTO2
  44. 43 CLEAR14,MAXRAM:MAXFILES=0:GOSUB46:DATE$=LEFT$(DATE$,6)+"84":BEEP:BEEP:BEEP:MENU
  45. 44 SCREEN0,0:DEFINTA-Y:DEFSNGZ:DIMA$(25),A(25),M(25),N(25),F(25):DEFSTRQ:Q=CHR$(27):QR=Q+"p":QN=Q+"q":B=-1638:Z=65536:V=-1102:A2=PEEK(V)+256*PEEK(V+1)-Z:F$=" \     \#####":T=-1627:F(0)=-32768
  46. 45 CLS:PRINT@131,QR" ONE MOMENT PLEASE "QN:RETURN
  47. 46 FORX=1TO4:READN:POKEX+64267,N:NEXT:RETURN:DATA172,126,58,31
  48.