home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
filsiz.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
742b
|
11 lines
0 'FILSIZ.BA Unknown
1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
2 DEFINTA-Z:DEFSTRD-F:DIMF(23),A(23):FORX=-1408TO-1639STEP-11:IFPEEK(X)THENFORZ=0TO7:F(Y)=F(Y)+CHR$(PEEK(X+3+Z)):NEXT:GOSUB9
3 NEXT:F(Y-1)="NonameBA":F(Y-2)="Paste BF":X=-1103:GOSUB9:Y=Y-1:X=Y/2
4 FORZ=0TOY-X:W=Z
5 IFA(W)>A(W+X)THENB=A(W):A(W)=A(W+X):A(W+X)=B:E=F(W):F(W)=F(W+X):F(W+X)=E:W=W-X:IFW>-1THEN5
6 NEXT:X=X/2:IFXTHEN4ELSEF(Y)="Reserved":F(Y+1)="File BF":A(Y-1)=A(Y)+MAXRAM-HIMEM:Y=Y+2:A(Y)=A(Y-1)+MAXFILES*267:Z=0
7 CLS:FORW=ZTO15+Z:PRINT@(W-Z)*20,LEFT$(F(W),6)"."RIGHT$(F(W),2);:PRINTUSING" #####";A(W+1)-A(W);:IFW+1=YTHENW=98
8 NEXT:E=INPUT$(1):Z=W:IFW=99THENMENUELSE7
9 A(Y)=PEEK(X+2)*256+PEEK(X+1)-65536:Y=Y+1:RETURN