5  REM HP CONTRIBUTED LIBRARY, 2/75
10  DIM A$[72],B$[72]
20  FILES *
30  PRINT "FILE NAME OR END";
40  INPUT A$
50  IF A$="END" THEN 510
60  ASSIGN A$,1,R
70  IF R <= 2 THEN 100
80  PRINT "ERROR CONDITION "
90  GOTO 30
100  PRINT "NUMBER OF RECORDS IN YOUR FILE = ";
110  IF  END #1 THEN 150
120  FOR I=1 TO 32767
130  READ #1,I
135  IF TYP(1)=3 THEN 150
140  NEXT I
150  L=I-1
160  PRINT L
170  PRINT "START RECORD,END RECORD OR 0,0";
180  INPUT S,E
190  IF S=0 THEN 30
200  PRINT "STOP AT FIRST EOF";
210  INPUT A$
220  E1=0
230  IF A$[1,1]="N" THEN 250
240  E1=1
250  IF  END #1 THEN 470
260  READ #1,S
270  PRINT 
280  PRINT "RECORD ";S
290  GOTO TYP(-1) OF 300,330,400,450
300  READ #1;A
310  PRINT A;
320  GOTO 290
330  READ #1;A$
340  IF LEN(A$)>70 THEN 490
350  B$[1,1]="<"
360  B$[2]=A$
370  B$[LEN(B$)+1,LEN(B$)+1]=">"
380  PRINT B$;
390  GOTO 290
400  PRINT "E O F"
410  IF E1=1 THEN 170
420  S=S+1
430  IF S>E THEN 170
440  GOTO 250
450  PRINT "E O R"
460  GOTO 420
470  PRINT "NO SUCH RECORD IN THIS FILE"
480  GOTO 170
490  PRINT A$;
500  GOTO 290
510  END 
