Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3SALES.ZIP
Filename : GAMAIN.PRO
*
*
*
*
*
CLEAR
SET BELL OFF
SET ESCAPE OFF
SET DELETED ON
*
* password system and all public memvars from GAMEM.PRO
* password logon database named GALOG.PRO
* gampass is password memvar
* gacolor is color set up
* gasysa is drive for program, memory and logon files and default drive
* gasysb is drive for database and index files
* gaboot is dBASE boot drive (used for DOS access)
* gadata memvars refer to cosmetic field names
*
TEXT
(C)Copyright, Glenn Abelson/Sales 1985
P.O. Box 1031
Rockville Ctr. NY 11571
516 766 7782
ENDTEXT
PUBLIC gampass, gamcolor, gasysa, gasysb, mname, gadata1,;
gadata2, gadata3, gadata4
RESTORE FROM GAMEM.PRO
*
* These stores set up uses and dos to proper drives
* must come after RESTORE
*
PUBLIC gafile, gause, gado, gakey, gacompany, gaindex, ganame,;
gause1, gaprospects
SET CONSOLE OFF
STORE 'PROSPECTS ' TO gafile
STORE 'USE 'TO gause
STORE 'DO ' to gado
STORE 'KEY, 'TO gakey
STORE 'COMPANY, 'TO gacompany
STORE 'INDEX ' TO gaindex
STORE 'NAME ' TO ganame
STORE '&gause&gasysb&gafile&gaindex&gasysb&gakey&gasysb;
&gacompany&gasysb&ganame' to gause1
STORE '&gado&gasysb&gafile' to gaprospects
SET CONSOLE ON
SET DEFAULT TO &gasysa
USE GALOG.PRO
DO WHILE .T.
?
ACCEPT 'User name ... ' to mname
*
* Find the name in the logon database
*
SET CONSOLE OFF
LOCATE FOR USER = "&mname"
SET CONSOLE ON
IF EOF()
? 'Hi, either you are not a valid user,'
? 'you forgot to use GASETUP.PRO'
?'or you did not enter your name exactly'
?'as it appears in the file.'
?
?' Please try again'
LOOP
*
* Loop if user name doesn't match
*
ENDIF
CLOSE DATABASE
ACCEPT 'Password...' to mpass
If substr(gampass,3,10) <> mpass
? chr(7)
? 'Sorry, wrong password'
CANCEL
ENDDO
ENDIF
*
* MAIN MENU PORTION OF PROGRAM
*
SELECT 1
&gause1
DO WHILE .T.
CLEAR
TEXT
******************************************************************
THE SALES PROSPECTOR --
1. Let's add some names
2. Find a specific name or company
3. Edit and Change (Dialing for dollars)
4. Ugh, Maintanence
5. DOS access, please
6. SAVE AND CONTINUE
7. Quit -- to dbase or DOS
*****************************************************************
ENDTEXT
*
* Print date and time along row 2 of menu
* Convert 24 hour clock to AM, PM clock
*
PUBLIC mtime, mmin, mampm
SET CONSOLE OFF
STORE SUBSTR(TIME(),1,2) TO mtime
IF mtime <= '12'
STORE SUBSTR(time(),3,3) to mmin
STORE ' ' to mampm
ELSE
STORE ' PM' to mampm
STORE VAL(mtime) - 12 to mtime
STORE SUBSTR (time(),3,3) to mmin
SET CONSOLE ON
ENDIF
*
* Print date and time information
*
@ 2,5 SAY CMONTH(DATE())
@ 2,17 SAY DAY(DATE())
@ 2,22 SAY YEAR(DATE())
@ 2,30 SAY CDOW(DATE())
@ 2,50 SAY mtime picture '@B'
@ 2,52 SAY mmin
@ 2,55 SAY mampm
*
* Enter Main DO CASE section
*
@ 20,0 say 'Press any key when ready, &mname '
SET CONSOLE OFF
WAIT TO SALES
SET CONSOLE ON
DO CASE SALES
CASE SALES = '1'
DO GAADD.PRO
CASE SALES = '2'
DO GAFIND.PRO
CASE SALES = '3'
DO GAEDIT.PRO
CASE SALES = '4'
DO GAUPDATE.PRO
CASE SALES = '5'
? ' Type EXIT to return to dBASE'
STORE 'COMMAND' TO gados
!&gaboot&gados
CLEAR
CASE SALES = '6'
?' SAVING FILE'
CLOSE DATABASES
SELECT 1
&gause1
CASE SALES = '7'
? 'To exit to DOS press return'
? 'To exit to DBASE press any key except return'
WAIT TO OUT
IF OUT < "!"
QUIT
ENDIF
SET ESCAPE ON
CANCEL
ENDCASE
ENDDO
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/