Power-Programmierung/CD1.mdf/xbase/library/dbase/dict/dict.prg

Text File | 1986-02-17 | 2.3 KB | 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