home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_PACK.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  369 b   |  20 lines
  1. //
  2. // Module Name: AD_PACK.COD - Menu_Act = 12
  3. // Description: Delete and pack
  4. // Syntax     : PACK
  5. //
  6. lc_say='Looking for DELETED Records...'
  7. DO info_box WITH lc_say
  8. //
  9. LOCATE FOR DELETED()
  10. IF .NOT. EOF()
  11.    lc_say='Purging DELETED Records...'
  12.    DO info_box WITH lc_say
  13.    SET TALK ON
  14.    PACK 
  15.    SET TALK OFF
  16.    GO TOP
  17. ENDIF
  18. //
  19. // EOP AD_PACK.COD
  20.