home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / clockcal.zip / GRPHCODE.PRG < prev    next >
Text File  |  1991-01-27  |  934b  |  45 lines
  1. *** GRPHCODE.prg
  2. *
  3. * (c) CTS, MRI 1991
  4. *
  5. SET TALK OFF
  6. SET CURS OFF
  7. SET ESCA OFF
  8. DEFI WIND GRAPCODE FROM 2,2 TO 14,35 COLOR W+/B,GR+/R,GR+/R
  9. ACTI WIND GRAPCODE
  10. @0,6 SAY "Graphics ASCII codes" COLOR G+/B
  11. @1,22 TO 9,22
  12. @1,2 SAY "201     205     187" COLOR GR+/B
  13. @1,25 SAY "210 "+CHR(210)
  14. @2,3 SAY CHR(201)
  15. @2,11 SAY CHR(205)
  16. @2,19 SAY CHR(187)
  17. @3,25 SAY "208 "+CHR(208)
  18. @4,3 SAY CHR(204)
  19. @4,5 SAY "204  206  185" COLOR GR+/B
  20. @4,19 SAY CHR(185)
  21. @5,25 SAY "219 "+CHR(219)
  22. @5,11 SAY CHR(206)
  23. @6,3 SAY CHR(186)
  24. @6,5 SAY "186       186" COLOR GR+/B
  25. @6,19 SAY CHR(186)
  26. @7,25 SAY "220 "+CHR(220)
  27. @8,3 SAY CHR(200)
  28. @8,11 SAY CHR(205)
  29. @8,19 SAY CHR(188)
  30. @9,2 SAY "200     205     188" COLOR GR+/B
  31. @9,25 SAY "223 "+CHR(223)
  32. @10,10 SAY "Press ESC to Exit..." COLOR W/B
  33. DO WHILE .T.
  34.   I=INKEY()
  35.   IF I=27
  36.     EXIT
  37.   ENDIF
  38. ENDDO
  39. DEAC WIND GRAPCODE
  40. SET ESCA ON
  41. SET CURS ON
  42. RETURN
  43. *** End of GRPHCODE.prg
  44. *
  45.