cQFLIST ;List Files ;cQFLIST; [ 06/29/01  10:39 AM ]
 ;
START N E,FILE,K,L,S W !?10,$P($T(+1),";",2),!
 ;
FILE W !,"Filename: " R K
 G FILE:K?.E1C.E I K="-"!(K="^") G YZ
 S FILE=K W !!
SCROLL S S=0 W !,"Srcoll ?  <Y>: " R K I "Yy"[K S S=1
 W !!
 ;
OPEN I $$TST^cA710(FILE) W "File ",FILE," does not exist!",! G FILE
 S E=$$OR^cA710(FILE) I E W "Could not open file ",FILE,! G FILE
 S K=" Start of "_FILE_" ",L="",$P(L,"-",70)="-",$E(L,35-($L(K)/2),34+($L(K)/2))=K
 U 0 S $Y=0 W L,! S L=""
 F  S E=$$RF^cA710(FILE,.K) Q:E  D  I "-^"[L&$L(L) S E="Operator break" Q
 . U 0 W K,! I S I $Y=22 W "<NEXT>" R L S $Y=0 F I=1:1:$X W *8," ",*8
 I E'=99 u 0 W !,"End of file not reached!  Errorcode = ",E,!
 S E=$$CF^cA710(FILE)
 S K=" End of "_FILE_" ",L="",$P(L,"-",70)="-",$E(L,35-($L(K)/2),34+($L(K)/2))=K U 0 W L,!
 ;
YZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8