home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
workdb.zip
/
MENU.PRG
< prev
next >
Wrap
Text File
|
1988-08-15
|
1KB
|
49 lines
*!!* dBASE CONVERT - dBASE III File Conversion Aid v2.01 1/10/86
*
SET HEADING OFF
SET SAFETY OFF
* MENU.SIG 08/14/83
* This is the traffic cop of the system - routes you to
* the proper data base
* make sure all is written
*!! 'RESET' is no longer valid.
CLEAR
STORE .T. TO TRUE
STORE '?' TO COMMAND
DO WHILE TRUE
@ 2,12 SAY "SIG/M AMATEUR COMPUTER GROUP OF NEW JERSEY"
@ 5,25 SAY "MAIN MENU"
@ 8,17 SAY "1 - Run Orders Program"
@ 10,17 SAY "2 - Run Inventory Program"
@ 12,17 SAY "3 - Quit to dBASEIII+"
@ 14,17 SAY "4 - Quit to MSDOS"
@ 16,21 SAY "ENTER SELECTION"
@ 16,38 GET COMMAND PICTURE '9'
READ
DO CASE
CASE COMMAND = '1'
STORE .F. TO TRUE
USE
DO MAIN.PRG
CASE COMMAND = '2'
STORE .F. TO TRUE
USE
DO MAIN.PRG
CASE COMMAND = '3'
CLEAR
@ 08,00 SAY "HIT ESCAPE KEY for dBASE - - any other key to continue this program"
WAIT
CLEAR
STORE '?' TO COMMAND
CASE COMMAND = '4'
STORE .F. TO TRUE
SET CONSOLE OFF
CLEAR
QUIT
ENDCASE
ENDDO WHILE TRUE