home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbdict.zip
/
DICT.PRG
< prev
next >
Wrap
Text File
|
1986-02-17
|
2KB
|
87 lines
* DICT.PRG
* Paul Ferrara [70075,252]
* Bill Lonborg [70045,1237]
* Last Change: 02-17-86 00:05
SET BELL OFF
SET TALK OFF
SET SAFETY OFF
SET DELIMITER TO '<>'
SET DELIMITER ON
SET DELETE ON
PUBLIC mnorf, mnorb, menhf, menhb, mbord, mtitl, mblnk, mmess
* set default colors
IF FILE("COLOR.MEM")
RESTORE FROM color ADDITIVE
ELSE
STORE "W " TO mnorf, menhb
STORE " " TO mnorb, menhf, mbord
STORE "W+ " TO mtitl, mblnk, mmess
ENDIF
DO WHILE .T.
SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
CLEAR
@ 1, 0 SAY "MAIN MENU"
@ 1,32 SAY "DATA DICTIONARY"
@ 1,72 SAY date()
@ 2, 0 SAY "═══════════════════════════════════════════════════════"
@ 2,55 SAY "═════════════════════════"
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
@ 6, 0 SAY "A. Add Files To The Dictionary"
@ 7, 0 SAY "B. Edit The Dictionary"
@ 8, 0 SAY "C. Print The Dictionary"
@ 9, 0 SAY "D. Print The Variable Listing"
@ 10, 0 SAY "E."
@ 11, 0 SAY "F."
@ 12, 0 SAY "G."
@ 13, 0 SAY "H."
@ 14, 0 SAY "I."
@ 15, 0 SAY "J."
@ 16, 0 SAY "K."
@ 17, 0 SAY "L."
@ 18, 0 SAY "M."
@ 6,40 SAY "N. Select Screen Attributes"
@ 7,40 SAY "O. Select Print Parameters"
@ 8,40 SAY "P."
@ 9,40 SAY "Q."
@ 10,40 SAY "R."
@ 11,40 SAY "S."
@ 12,40 SAY "T."
@ 13,40 SAY "U."
@ 14,40 SAY "V."
@ 15,40 SAY "W."
@ 16,40 SAY "X."
@ 17,40 SAY "Y. Exit To dBase III"
@ 18,40 SAY "Z. Exit To PC-DOS"
SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
@ 23, 0 SAY "═══════════════════════════════════════════════════════"
@ 23,55 SAY "═════════════════════════"
@ 24,26 SAY "Select option (A through Z)"
SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
SET CONSOLE OFF
WAIT TO choice
SET CONSOLE ON
DO CASE
CASE UPPER(choice)='A'
DO dict.add
CASE UPPER(choice)='B'
DO dict.edt
CASE UPPER(choice)='C'
DO dict.prn
CASE UPPER(choice)='D'
DO fldvars.rpt
CASE UPPER(choice)='N'
DO color.sel
CASE UPPER(choice)='O'
DO param.sel
CASE UPPER(choice)='Y'
SET TALK ON
CLEAR
CANCEL
CASE UPPER(choice)='Z'
CLEAR
CLEAR ALL
QUIT
ENDCASE
ENDDO
* END