*** GRPHCODE.prg
*
* (c) CTS, MRI 1991
*
SET TALK OFF
SET CURS OFF
SET ESCA OFF
DEFI WIND GRAPCODE FROM 2,2 TO 14,35 COLOR W+/B,GR+/R,GR+/R
ACTI WIND GRAPCODE
@0,6 SAY "Graphics ASCII codes" COLOR G+/B
@1,22 TO 9,22
@1,2 SAY "201     205     187" COLOR GR+/B
@1,25 SAY "210 "+CHR(210)
@2,3 SAY CHR(201)
@2,11 SAY CHR(205)
@2,19 SAY CHR(187)
@3,25 SAY "208 "+CHR(208)
@4,3 SAY CHR(204)
@4,5 SAY "204  206  185" COLOR GR+/B
@4,19 SAY CHR(185)
@5,25 SAY "219 "+CHR(219)
@5,11 SAY CHR(206)
@6,3 SAY CHR(186)
@6,5 SAY "186       186" COLOR GR+/B
@6,19 SAY CHR(186)
@7,25 SAY "220 "+CHR(220)
@8,3 SAY CHR(200)
@8,11 SAY CHR(205)
@8,19 SAY CHR(188)
@9,2 SAY "200     205     188" COLOR GR+/B
@9,25 SAY "223 "+CHR(223)
@10,10 SAY "Press ESC to Exit..." COLOR W/B
DO WHILE .T.
  I=INKEY()
  IF I=27
    EXIT
  ENDIF
ENDDO
DEAC WIND GRAPCODE
SET ESCA ON
SET CURS ON
RETURN
*** End of GRPHCODE.prg
*