home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
utlty.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
3KB
|
48 lines
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<A3THENA3=A1
20 NEXT:PRINT@274,A3-A(I);:RETURN
21 CLS:PRINT@80,"RENAMING --> "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)<A1ANDA(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