0 ' FLSTAT.BA - BY SETH RINGHEISER          413/499-4605
1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
20 'After entering filename + extension,    do not press ENTER.
30 CLS:DIMP(7):Y$=CHR$(235)+CHR$(205)+CHR$(169)+CHR$(90)+CHR$(200)+CHR$(34)+CHR$(208)+CHR$(245)+CHR$(201):FORX=62901TO62925:READMM:POKEX,MM:NEXT:P(7)=4:P(6)=11:P(5)=18:P(4)=25:P(3)=31
40 CLS:FILES:J=63842:PRINT@280,"Status on what file ?  ";:GOSUB160:GOTO220
50 E=LEN(FL$):S$="ALLOFT":IFFL$="M"THEN200ELSEIFLEN(FL$)=1ORLEN(FL$)=2THENIFVAL(FL$)=0ORVAL(FL$)>23THENRUNELSEE=8:GOTO140
60 FORX=JTO64122:A=A+1:IFINKEY$="C"THENRUN
70 IFA=11ANDFL$=A$THEN90ELSEIFA=11THENA=0:A$=""ELSEIFA=3THEN120
80 NEXT:PRINT"File not in directory ":FORX=1TO600:NEXT:GOTO200
90 CLS:IFS=0THENPRINT"No status in directory location "L:GOSUB210:GOTO110ELSEPRINT@6,"FL#    Name     DL      L":PRINTTAB(5)BTAB(11)A$TAB(20)LTAB(26)MSB*256+LSB
100 PRINTTAB(4)"VE"TAB(11)"TF"TAB(18)"MF"TAB(25)"RF"TAB(31)"IV":GOTO170:GOSUB210
110 Q$=INKEY$:IFQ$=""THEN110ELSEIFQ$="m"ORQ$="M"THEN200ELSEIFQ$="I"ORQ$="i"THENPOKEL,S+8:RUNELSEIFQ$="V"ORQ$="v"THENPOKEL,S-8:RUNELSEIFQ$="C"THENFL$=S$:A=0:A$="":NEXTX:ELSERUN
120 B=B+1:L=X-2:S=PEEK(X-2):LSB=PEEK(X-1):MSB=PEEK(X):FORC=1TOE:A$=A$+CHR$(PEEK(X+C)):NEXTC:GOSUB150:IFFL$=S$THENFL$=A$:NEXTX:ELSENEXTX
130 DATA 62,0,86,186,35,194,183,245,86,186,35,194,183,245,86,186,35,194,183,245,43,34,208,245,201
140 J=VAL(FL$):J=J-1:B=J:J=63842+(11*J):FL$=S$:GOTO60
150 D=INSTR(A$," "):IFD=0THENRETURNELSEMID$(A$,D,1)=".":A$=LEFT$(A$,D)+RIGHT$(A$,2):RETURN
160 PRINTCHR$(27)"P";:FORX=1TO200:R$=INKEY$:IFR$=""THENNEXTX:PRINTCHR$(27)"Q";:IFFL$=""THEN160ELSE:RETURNELSEFL$=FL$+R$:PRINTR$;:GOTO160
170 FORV=7TO3STEP-1:IFSAND2^VTHENPRINTTAB(P(V))"*";
180 NEXTV:RESTORE:IFSAND2^5ORSAND2^6THENPRINT:PRINTTAB(12)"Can't find end":GOTO190ELSEHL=MSB*256+LSB:CALL62901,0,HL:EF=PEEK(62929)*256+PEEK(62928):EF=EF-1:PRINT:PRINTTAB(12)"End"TAB(21)"Size":PRINTTAB(11)EFTAB(20)EF-HL
190 GOSUB210:GOTO110
200 CLEAR0,MAXRAM:MENU
210 PRINT@280,"(I)nvisible (V)isable (M)enu (#)Entry";:RETURN
220 K$=RIGHT$(FL$,2):IFK$="DO"ORK$="CO"ORK$="BA"THEN230ELSE50
230 FL$=FL$+CHR$(0):ML=VARPTR(Y$):UU=PEEK(ML+1)+PEEK(ML+2)*256:SS=VARPTR(FL$):BB=PEEK(SS+1)+PEEK(SS+2)*256:POKE62928,0:POKE62929,0
240 CALLUU,0,BB:J=PEEK(62929)*256+PEEK(62928):IFJ=0THENCLS:PRINT@0,"Error Numbers in name.":GOTO190ELSEFL$=S$:B=(J-63842)/11:E=8:GOTO60