Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : CUSTDBM.ZIP
Filename : CAPACK.PRG

 
Output of file : CAPACK.PRG contained in archive : CUSTDBM.ZIP
*********************************************************
* CAPACK - PACK deleted records in data files *
* 9/11/86 *
*********************************************************

* Open files
DO caopen
RESTORE FROM camem ADDITIVE

* Ask user to verify command
DO borders WITH catitle,"PACK DATABASE FILES"
ok=.F.
@ 21, 24 SAY "Verify PACK command (Y or N)" GET ok PICTURE 'Y'
READ
@ 21, 1 CLEAR TO 22, 78

* If ok, pack files
IF ok
@ 5, 1 SAY 'PACKING cacust FILE'
SELECT cacust
DELETE FOR cust_id=' '
PACK
@ 6, 1 SAY 'PACKING catrans FILE'
SELECT catrans
DELETE FOR cust_id=' '
PACK
ENDIF

CLOSE DATABASES
RETURN


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : CUSTDBM.ZIP
Filename : CAPACK.PRG
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/