9000  REM  ****** HP TIME-SHARED BASIC PROGRAM LIBRARY *******************
9002  REM
9005  REM           FLCOPY: COPIES ONE FILE INTO ANOTHER
9006  REM
9008  REM           36012   REV B    3/72
9009  REM
9010  REM  ************* CONTRIBUTED PROGRAM ******************************
9020  REM  COPIES THE CONTENTS OF ONE FILE INTO ANOTHER
9030  DIM A$[72]
9040  IF  END #2 THEN 9180
9050  LET I=0
9060  LET I=I+1
9070  READ #1,I
9080  READ #2,I
9090  GOTO TYP(-1) OF 9100,9130,9160,9060
9100  READ #1;N
9110  PRINT #2;N
9115  IF  END #1 THEN 9250
9120  GOTO 9090
9130  READ #1;A$
9140  PRINT #2;A$
9145  IF  END #1 THEN 9250
9150  GOTO 9090
9160  PRINT #2; END 
9170  GOTO 9060
9180  IF  END #1 THEN 9250
9190  IF TYP(-1)#3 THEN 9230
9200  I=I+1
9210  READ #1,I
9220  GOTO 9190
9230  PRINT "RECORD #";I;"OF FILE #1 CONTAINS DATA THAT CANNOT BE WRITTEN"
9240  PRINT "ONTO FILE #2, BECAUSE FILE #2 IS TOO SMALL."
9250  END 
