home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
clockcal.zip
/
GRPHCODE.PRG
< prev
next >
Wrap
Text File
|
1991-01-27
|
934b
|
45 lines
*** 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
*