9000  REM FILIST, HP 36009D, 6/74
9010  REM  *****  VERSION 2  *****  10/3/70  *****
9020  REM  LISTS THE CONTENTS OF A FILE ON THE TTY
9030  DIM A$[72],F$[72]
9035  FILES *
9040  LET N=1
9045  PRINT 
9046  PRINT 
9047  PRINT "FILENAME OR 'END'";
9050  INPUT F$
9052  IF F$[1,3]="END" THEN 9390
9055  ASSIGN F$,1,R0
9056  IF R0>2 THEN 9045
9058  PRINT "RANDOM ACCESS? (Y OR N)";
9060  INPUT Y$
9061  IF Y$="N" THEN 9068
9062  PRINT "WHAT RECORD";
9063  INPUT J
9064  GOTO 9400
9068  PRINT "STOP LISTING ";F$;" AT THE FIRST EOF (Y OR N OR Q)";
9070  INPUT Y$
9080  Q=32000
9090  IF Y$="Y" THEN 9180
9100  IF Y$="N" THEN 9130
9110  IF Y$="Q" THEN 9047
9120  STOP 
9130  IF  END #N THEN 9170
9140  FOR I=1 TO 32000
9150  READ #N,I
9160  NEXT I
9170  Q=I-1
9180  LET I=0
9190  LET I=I+1
9200  PRINT 
9210  IF I>Q THEN 9045
9220  READ #N,I
9230  PRINT 
9240  PRINT "FILE "F$", RECORD"I
9250  PRINT 
9260  GOTO TYP(-N) OF 9270,9300,9330,9190
9270  READ #N;A
9280  PRINT A;
9290  GOTO 9260
9300  READ #N;A$
9310  PRINT A$,
9320  GOTO 9260
9330  IF Y$="Y" THEN 9360
9340  PRINT "EOF-EOR"
9350  IF I<Q THEN 9190
9360  PRINT "END OF FILE "F$
9380  GOTO 9047
9390  STOP 
9400  READ #N,J
9410  PRINT 
9415  PRINT "FILE "F$", RECORD"J
9420  PRINT 
9425  GOTO TYP(-N) OF 9570,9600,9630,9045
9570  READ #N;A
9575  PRINT A;
9580  GOTO 9425
9600  READ #N;A$
9610  PRINT A$,
9615  GOTO 9425
9630  PRINT "END OF RECORD ";J;" ON FILE ";F$
9635  GOTO 9045
9650  END 
