'===========================================================================
' Subject: COPY A FILE                        Date: 03-02-92 (19:11)       
'  Author: John Sneeringer                    Code: QB, QBasic, PDS        
'  Origin: QBFAQ                            Packet: TEXT.ABC
'===========================================================================
       ' ===========================================================
       '  Copy File From Command Line -> Named to whatever F2$ is.
       ' ===========================================================

       F1$ = COMMAND$    ' Target filename from command line

       INPUT "New Name?"; F2$      ' name of file you want to copy to

       OPEN "B", 1, F1$
       OPEN "B", 2, F2$
       A$ = SPACE$(1024)
       FOR i = 1 TO LOF(1) \ 1024
          GET 1, , A$
          PUT 2, , A$
       NEXT i
       IF LOF(1) MOD 1024 > 0 THEN
           A$ = SPACE$(LOF(1) MOD 1024)
           GET 1, , A$
           PUT 2, , A$
       END IF
       CLOSE 1, 2