home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / duperec.zip / DUPREC.PRG
Text File  |  1990-06-06  |  1KB  |  34 lines
  1. * -----------------------------------------------------------------------------
  2. *   Program Name ............:  DupRec
  3. *   Written By ..............:  Mark Mainwaring, Rocky Mountain Software Inc.
  4. *   Copyright Owned By ......:  PUBLIC DOMAIN
  5. *   Location ................:  Vancouver  BC  CANADA
  6. *   Telephone ...............:  (604) 736-1731
  7. *   Fax Number ..............:  (604) 736-0404
  8. *   CompuServe ID ...........:  71321,2043
  9. *   Date of Creation ........:  April 1990
  10. * -----------------------------------------------------------------------------
  11.  
  12. FUNCTION  DupRec
  13.  
  14.      PRIVATE   N_record, X
  15.      PARAMETER N_record
  16.      
  17.      N_record = IF( PCOUNT() = 0, RECNO(), N_record )
  18.      GOTO N_record
  19.      
  20.      PRIVATE CONTENTS_[ FCOUNT() ]
  21.      FOR X = 1 TO FCOUNT()
  22.           C_field = FIELD( X )
  23.           CONTENTS_[ X ] = &C_field
  24.      NEXT
  25.      
  26.      APPEND BLANK
  27.      FOR X = 1 TO FCOUNT()
  28.           C_field = FIELD( X )
  29.           REPLACE &C_field. WITH CONTENTS_[ X ]
  30.      NEXT
  31.  
  32. * -----------------------------------------------------------------------------
  33. * End of File.
  34.