* PACK.PRG written by Michael MacDonald (c)1991 Last revision 2/25/91
* NOT Compatible with ROBOCOMM 3.x
*
SET TALK OFF
SET CURSOR OFF
CLEAR
@1,21 SAY "PACK v1.1 by Michael MacDonald (c)1991"
@2,13 SAY "A program to pack and reindex Robocomm's NEWFILES.DBF"
IF FILE("new30.dbf")
   @ 4,12 SAY "Sorry, PACK will not work properly with ROBOCOMM ver 3.x"
   @ 5,33 SAY "Ending program"
   ?
   ?
   SET CURSOR ON
   QUIT
ENDIF
IF ! FILE("newfiles.dbf")
   @ 4,13 SAY "Can't find NEWFILES.DBF"
   ?
   ?
   SET CURSOR ON
   QUIT
ENDIF
USE newfiles
@ 4,13 SAY "Packing NEWFILES.DBF"
PACK
@ 5,13 SAY "Writing new index files."
@ 6,13 SAY "Indexing on FILE_NAME to FILES.NTX"
INDEX ON file_name+id TO files
@ 7,13 SAY "Indexing on ID to BBS.NTX"
INDEX ON id+file_name TO bbs
@ 8,13 SAY "Indexing on BBS_DATE to BDATE.NTX"
INDEX ON DESCEND(DTOS(bbs_date))+id TO bdate
@ 9,13 SAY "All Done!"
?
?
CLOSE ALL
SET CURSOR ON
QUIT
*
*EOF PACK.PRG