* Program..: PRTMENU.PRG
* Author...: S. BERNARDI
* Date.....: 10:35:43  10/25/1989
* Notice...: Copyright (c) 1989 BERNATH COMPUTER
*

SET ESCAPE OFF
SET CONFIRM ON
EXITNOW = .F.
gFG=0
gBG=3
gNUMOPT = 1
DO WHILE .NOT. EXITNOW

   CLEAR
   DO SCRHEAD WITH "Printer Control Menu"
   DO MENUMSG WITH 1,14,2
   mMENUSTR="20,"+STR(gNUMOPT,2)+",0,7,27,12,49,14,2,1,1,10,0,2,"
   mMENUSTR=mMENUSTR+"Select New Printer,Edit Printer Codes,Test Printer,List Printer Codes,@"
   CALL DBTOOLS WITH mMENUSTR
   selectnum = VAL(mMENUSTR)

   DO CASE
      CASE selectnum = 0
         EXITNOW = .T.

      CASE selectnum = 1
         mKEY = gPRT
         gFG=3
         DO SELPRT WITH .T.,mKEY
      CASE selectnum = 2
         DO PRNDEF
      CASE selectnum = 3
        DO PRTTEST
      CASE selectnum = 4
        mKEY = gPRT
        gFG=3
        DO SELPRT WITH .F.,mKEY
        SELECT B
        USE PRNDEF INDEX PRNDEF
        SELECT A
        USE ESCCODES INDEX ESCCODES
        SET RELATION TO KEY INTO PRNDEF
        GO TOP
        SET FILTER TO KEY=mKEY
        CALL DBTOOLS WITH "11,3"
        SET CONSOLE OFF
        REPORT FORM PRNDEF TO PRINT
        CALL DBTOOLS WITH "11,2"
        SET FILTER TO
        SET CONSOLE ON
        CLOSE DATABASES
   ENDCASE
   gFG=0
ENDDO  (EXITNOW)
RELEASE ALL EXCEPT g*
EXITNOW = .F.
RETURN