0 'UTLTY.BA - AUTHOR UNKNOWN 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLEAR200:GOSUB44:FORJ=-1606TO-1408STEP11:IFPEEK(J)=0THEN5 3 X=X+1:M(X)=J:FORI=3TO10:A$(X)=A$(X)+CHR$(PEEK(J+I)):IFI=8THENA$(X)=A$(X)+". 4 NEXT:A(X)=PEEK(J+1)+256*PEEK(J+2)-Z 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 6 K=X-4:KEYON:ONKEYGOSUB21,24,26,30,39,40,41,43:CLS:PRINT@14,QR" DIRECTORY "QN 7 FORI=1TOK:N(I)=(I+4)*10-10:PRINT@N(I),A$(I):NEXT:I=1:PRINT@N(I),QR;A$(I)QN 8 IFAB=1THEN10ELSEPRINT@280,"Name Move Vis Lgth T100 Bull Kill Menu"; 9 PRINT@268,QR" Size:"QNSPACE$(6);:GOSUB18:K=X-4 10 E$=INKEY$:IFE$=""THEN10 11 E=ASC(E$):PRINT@N(I),A$(I):IFE=28THENI=I+1:IFI>KTHENI=1 12 IFE=29THENI=I-1:IFI<1THENI=K 13 IFE=30THENI=I-4:IFI<1THENI=I+4 14 IFE=31THENI=I+4:IFI>KTHENI=I-4 15 PRINT@N(I),QR;A$(I)QN:IFE<>13THEN8 16 IFAB=1THENRETURN 17 E$=INKEY$:IFE$=""THEN17ELSE8 18 A3=A2:K=X-2:FORJ=1TOK:IFA(J)<=A(I)THEN20 19 A1=A(J):IFA1 "QR" "A$(I)" "QN:PRINT:INPUT"ENTER NEW NAME";N$:D=LEN(N$):IFD=0THEN6 22 IFD<6THENN$=N$+SPACE$(6-D) 23 FORJ=1TO6:POKEM(I)+2+J,ASC(MID$(N$,J,1)):NEXT:GOTO2 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 25 FORL=0TO10:C=PEEK(M(I)+L):D=PEEK(M(J)+L):POKEM(I)+L,D:POKEM(J)+L,C:NEXT:GOTO2 26 CLS:D=PEEK(M(I)):IFDMOD32=0THENDD=D+8ELSEDD=D-8 27 IFDD>DTHEND$="IN"ELSED$=" 28 PRINT@80,"ENTER <.> TO MAKE "QR" "A$(I)" "QN" "D$"VISIBLE":INPUTY$:IFY$<>"."THEN6 29 POKEM(I),DD:GOTO2 30 GOSUB45:K=X-2:FORI=1TOK:A1=A2:FORJ=1TOK:IFA(J)F(I-1)THENA1=A(J) 31 NEXT:F(I)=A1:NEXT:F(I)=A2:CLS:FORI=1TOX:FORJ=1TOK:IFI>KTHENJ=I:A4=A(I):GOTO34 32 IFA(J)<>F(I)THEN35 33 A4=-F(I)+F(I+1) 34 PRINTUSINGF$;A$(J),A4;:GOTO36 35 NEXTJ 36 IFIMOD3=0THENPRINT 37 NEXTI:PRINT@306,QR" Size:"QN;29638-FRE(0)-365CHR$(7); 38 IFINKEY$=""THEN38ELSE2 39 CLEAR0,60416:RUNM"TP100 40 CLEAR0,61888:RUNM"BULLET":MENU 41 CLS:PRINT@80,"ENTER <.> TO KILL --> "QR" "A$(I)" "QN:INPUTY$:IFY$<>"."THEN6 42 KILLA$(I):GOTO2 43 CLEAR14,MAXRAM:MAXFILES=0:GOSUB46:DATE$=LEFT$(DATE$,6)+"84":BEEP:BEEP:BEEP:MENU 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 45 CLS:PRINT@131,QR" ONE MOMENT PLEASE "QN:RETURN 46 FORX=1TO4:READN:POKEX+64267,N:NEXT:RETURN:DATA172,126,58,31