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

 
Output of file : GAFIND.PRO contained in archive : DB3SALES.ZIP
*
* GAFIND.PRO from GAMAIN.PRO
* Quick find by key
*
SET CONSOLE OFF
STORE 'KEY' to gasetting
STORE 'SET INDEX TO ' TO gaset
STORE 'SET FORMAT TO 'to gaform
STORE 'PROSPECTS' TO gapro
SET CONSOLE ON
&gaform&gasysb&gapro
DO WHILE .T.
CLEAR
TEXT
Quick find by indexed field

1. Find by KEY (default)

2. Find by COMPANY

3. Find by NAME

RETURN exits
Upper/lower case counts when searching.


ENDTEXT
@ 11,9 SAY 'CURRENT SETTING IS &gasetting'
ACCEPT '# and or string to search for and ...' to;
GAFIND
DO CASE GAFIND
CASE GAFIND = '1'
STORE 'KEY' TO gasetting
&gaset&gasysb&gasetting
CASE GAFIND = '2'
STORE 'COMPANY' TO gasetting
&gaset&gasysb&gasetting
CASE GAFIND = '3'
STORE 'NAME' TO gasetting
&gaset&gasysb&gasetting
OTHERWISE
IF GAFIND < "!"
&gaset&gasysb&gakey&gasysb&gacompany&gasysb&ganame
RETURN
ENDIF
FIND &GAFIND
IF .NOT. EOF()
EDIT
ELSE
? CHR(7)
WAIT
ENDIF
ENDCASE
ENDDO


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3SALES.ZIP
Filename : GAFIND.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/