Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3SALES.ZIP
Filename : GAKILL.PRO

 
Output of file : GAKILL.PRO contained in archive : DB3SALES.ZIP
*
* GAKILL.PRO - DELETE RECALL AND PACK DATABASE
*
*
DO WHILE .T.
CLEAR
TEXT
1. DELETE RECORDS
2. RECALL RECORDS
3. PACK DATABASE
RETURN - exits

Delete marks a record and tells database not to use it.
You may delete records as you work in database by pressing ^U.
Recall brings a deleted record back.
Pack completely erases deleted records and frees disk space.

ENDTEXT
WAIT TO KILL
DO CASE KILL
CASE KILL = '1'
TEXT
1. Delete one record by #
2. Delete mutiple records from a marked field.
ENDTEXT
WAIT TO DEL
DO CASE DEL
CASE DEL = '1'
ACCEPT 'Which record # to delete... 'to gad
DELETE RECORD &gad
LOOP
CASE DEL = '2'
ACCEPT 'Field name... ' to gaf
ACCEPT 'Delete mark.. ' to gam
DELETE ALL FOR &gaf = '&gam'$
LOOP
OTHERWISE
LOOP
ENDCASE
CASE KILL = '2'
TEXT
1. Recall one record by #
2. Recall a group of records
3. Recall all deleted records
ENDTEXT
WAIT TO REC
DO CASE REC
CASE REC = '1'
ACCEPT 'Record # to recall...' to gar
RECALL RECORD &gar
LOOP
CASE REC = '2'
ACCEPT 'Recall Field...' to gaf
ACCEPT 'Recall mark....' to gam
RECALL ALL FOR &gaf = "&gam"$
LOOP
CASE REC = '3'
SET TALK ON
RECALL ALL
LOOP
OTHERWISE
LOOP
ENDCASE
CASE KILL = '3'
SET TALK ON
PACK
OTHERWISE
CLEAR
RETURN
ENDCASE
ENDDO

RETURN


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3SALES.ZIP
Filename : GAKILL.PRO

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

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

  3. 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/