* -----------------------------------------------------------------------------
*   Program Name ............:  DupRec
*   Written By ..............:  Mark Mainwaring, Rocky Mountain Software Inc.
*   Copyright Owned By ......:  PUBLIC DOMAIN
*   Location ................:  Vancouver  BC  CANADA
*   Telephone ...............:  (604) 736-1731
*   Fax Number ..............:  (604) 736-0404
*   CompuServe ID ...........:  71321,2043
*   Date of Creation ........:  April 1990
* -----------------------------------------------------------------------------

FUNCTION  DupRec

     PRIVATE   N_record, X
     PARAMETER N_record
     
     N_record = IF( PCOUNT() = 0, RECNO(), N_record )
     GOTO N_record
     
     PRIVATE CONTENTS_[ FCOUNT() ]
     FOR X = 1 TO FCOUNT()
          C_field = FIELD( X )
          CONTENTS_[ X ] = &C_field
     NEXT
     
     APPEND BLANK
     FOR X = 1 TO FCOUNT()
          C_field = FIELD( X )
          REPLACE &C_field. WITH CONTENTS_[ X ]
     NEXT

* -----------------------------------------------------------------------------
* End of File.