1  REM ****  HP BASIC PROGRAM LIBRARY  ********************************
2  REM
3  REM       FILDUM:    PAPER TAPE FILE DUMP   
4  REM
5  REM       36008  REV C  --  2/73
6  REM
7  REM ****  CONTRIBUTED PROGRAM **************************************
8000  FILES *
8010  DIM X$[72]
8020  PRINT "FILE  ";
8030  INPUT X$
8040  ASSIGN X$,1,I1
8050  IF I1>2 THEN 8020
9000  REM
9001  F$="F"
9002  GOSUB 9560
9030  DIM A$[72],F$[1]
9050  F=1
9060  PRINT "STOP DUMP OF FILES AT THE FIRST EOF (Y OR N)";
9070  INPUT Z$
9080  PRINT '10'10"TURN ON THE TAPE PUNCH PLEASE (LEADER OK?)."
9090  FOR I=1 TO 7000
9100  NEXT I
9110  PRINT F
9120  FOR I=1 TO F
9130  IF  END #I THEN 9170
9140  FOR J=1 TO N
9150  READ #I,J
9160  NEXT J
9170  PRINT J-1
9180  NEXT I
9190  LET I=1
9200  LET R=1
9210  READ #I,R
9220  GOTO TYP(-I) OF 9230,9270,9400,9520
9230  READ #I;A
9240  PRINT 1
9250  PRINT A
9260  GOTO 9220
9270  READ #I;A$
9280  IF A$[1,1]#" " THEN 9300
9290  LET A$[1,1]='17
9300  FOR J=1 TO LEN(A$)
9310  IF A$[J,J]#'10 THEN 9340
9320  LET A$[J,J]='30
9330  GOTO 9360
9340  IF A$[J,J]#'13 THEN 9360
9350  LET A$[J,J]='31
9360  NEXT J
9370  PRINT 2
9380  PRINT A$
9390  GOTO 9220
9400  IF Z$="Y" THEN 9460
9410  IF  END #I THEN 9460
9420  READ #I,R+1
9430  R=R+1
9440  PRINT 5
9450  GOTO 9220
9460  PRINT 3
9470  IF I >= F THEN 9510
9480  LET I=I+1
9490  LET R=1
9500  GOTO 9210
9510  STOP 
9520  PRINT 4
9530  LET R=R+1
9540  GOTO 9210
9550  STOP 
9560  IF F$="A" THEN 9580
9561  IF F$="E" THEN 9588
9562  IF F$="B" THEN 9580
9564  IF F$="C" THEN 9584
9565  IF F$="F" THEN 9584
9566  GOTO 9000
9580  N=128
9582  RETURN 
9584  N=32767
9586  RETURN 
9588  N=48
9590  RETURN 
9600  END 
