*==============================================================
*  PRTTEST.PRG - demo of printer driver
*                (c) 1989 BERNATH COMPUTER
*                12:15:51  10/27/1989
*==============================================================
CALL DBTOOLS WITH "7,2,0,3,0"

EXITNOW = .F.
OKPRINT = .F.
mKEY = gPRT
DO SELPRT WITH .F.,mKEY


IF .NOT. EXITNOW
   SET COLOR TO +W/B,+BG/N,,B
   CLEAR
   CALL DBTOOLS WITH "1,S,2,10,1,3,0,This is a test of the printer driver escape codes."
   mPRNAME = SPACE(36)
   mNUMCMDS = 0
   mPRTYPE = 0
   mTYPEDESC = SPACE(20)
   DO GETPRINFO WITH mNUMCMDS,mPRTYPE,mPRNAME,mTYPEDESC
   @ 6,10 SAY "Are you ready to continue (Y/N)?"
   mYN = " "
   @ 6,43 SAY mYN
   DO YESNO WITH mYN
   IF mYN = "Y"

   set printer on
   set console off
   IF mPRTYPE = 3
      mPRTRLOOP = 2
      CALL DBTOOLS WITH "11,18"
   ELSE
      mPRTRLOOP = 1
   ENDIF
   DO WHILE mPRTRLOOP > 0
   ?
   ? "PRINTER TEST"
   ? mPRNAME + "   " + mTYPEDESC
   ?

   ? "This is normal print"
   ? "This is normal print"
   ? "This is normal print"
   ?
   call dbtools with "11,3"
   ? "This is 12 CPI"
   ? "This is 12 CPI"
   ? "This is 12 CPI"
   ?
   call dbtools with "11,2"
   call dbtools with "11,4"
   ? "This is compressed print"
   ? "This is compressed print"
   ? "This is compressed print"
   ?
   call dbtools with "11,5"
   call dbtools with "11,8"
   ? "This should be BOLD"
   ? "This should be BOLD"
   ? "This should be BOLD"
   ?
   call dbtools with "11,9"
   call dbtools with "11,10"
   ? "Is this italic?"
   ? "Is this italic?"
   ? "Is this italic?"
   ?
   call dbtools with "11,11"
   call dbtools with "11,12"
   ? "Here's some underline"
   ? "Here's some underline"
   ? "Here's some underline"
   ?
   call dbtools with "11,13"
   call dbtools with "11,6"
   ? "DOUBLE WIDE"
   ? "DOUBLE WIDE"
   ? "DOUBLE WIDE"
   ?
   call dbtools with "11,7"
   call dbtools with "11,18"
   ? "Near letter quality"
   ? "Near letter quality"
   ? "Near letter quality"
   ?
   call dbtools with "11,19"
   ? "Here we have "
   call dbtools with "11,14"
   ?? "superscript"
   call dbtools with "11,15"
   ?? " and here we have "
   call dbtools with "11,16"
   ?? "subscript."
   call dbtools with "11,17"
   ?
   ? "6 lines per inch"
   ? "6 lines per inch"
   ? "6 lines per inch"
   ?
   call dbtools with "11,21"
   ? "8 lines per inch"
   ? "8 lines per inch"
   ? "8 lines per inch"
   ? "8 lines per inch"
   ?
   call dbtools with "11,22"
   ? "4 lines per inch"
   ? "4 lines per inch"
   ? "4 lines per inch"
   ?
   call dbtools with "11,20"
   ?  "Character graphics:     ÚÄÄÄÄÄÂÄÄÄÄÄ¿   ÉÍÍÍÍÍËÍÍÍÍÍ»"
   ?  "    °°±±²²ÛÛ            ³     ³     ³   º     º     º"
   ?  "    °°±±²²ÛÛ            ÀÄÄÄÄÄÁÄÄÄÄÄÙ   ÈÍÍÍÍÍÊÍÍÍÍͼ"
   eject
   IF mPRTYPE = 3
      CALL DBTOOLS WITH "11,19"                 && switch to landscape
   ENDIF
   mPRTRLOOP = mPRTRLOOP - 1
   ENDDO
   IF mPRTYPE = 3
      CALL DBTOOLS WITH "11,18"                 && switch to portrait
   ENDIF
   set printer off
   set console on
   ENDIF
ENDIF
EXITNOW = .F.
gNUMOPT = 4
RELEASE ALL EXCEPT g*
RETURN