Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : GOFER002.ZIP
Filename : GOFER.TMP
Output of file : GOFER.TMP contained in archive : GOFER002.ZIP
* && can be empty.
alias=[] && alias of any open workarea
norder =1 && gofer will set index to order
loval=[] && leave empty for string when no browse key range is required.
hival=[] && must be numberic for numeric index
subset=!EMPTY(loval+hival) && if .t. then browse uses the BROW KEY option
ok2edit=1 && 1 TO EDIT, 0 TO disallow any EDIT (all fields)
keydelay=.45 && delay for keyboard search and leftmouse double click
coord=[1,40,23,79] && browse window coordinates
TITLE=[ Test ] && title of browse window
FIELDS=[] && :R TO disallow indiv FIELD EDIT. List fields separated by
* a ',' or leave blank to disp all fields. ok2edit must =1 for :R option.
F1=IIF(TYPE([F1])#[C],[on key label F1],F1) && save hotkey status
F5=IIF(TYPE([F5])#[C],[on key label F5],F5) && save hotkey status
msgclr=scheme(2,5) && COLOR of HELP ON TOP line (0)
hlpclr=scheme(2) && COLOR HELP SCREEN (F1)
brwclr=scheme(10) && COLOR of BROWSE WINDOW
edtclr=scheme(7) && color of edit window (^L)
wrdclr=scheme(7) && color of word edit
genpara=[NOEDIT NOAPPEND NODELE KEY loval,hival WIDTH 16 TIMEOUT 600]
IF gofer(&coord) && .or. golfer(1,40,23,79)
WAIT [True] WINDOW && returns true if selected
ELSE
WAIT [False] WINDOW && returns false if ESCAPED
ENDIF
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/