home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / cobol600 / temp.cob < prev    next >
Encoding:
Text File  |  1990-04-23  |  2.0 KB  |  55 lines
  1. 00051 01 CLEAR-SCREEN PIC X(4)
  2. 00052         VALUE ""1B,5B,32,4A"".
  3. 00053 01 ERASE-TO-END-OF-LINE PIC X(3)
  4. 00054         VALUE ""1B,5B,4B"".
  5. 00055 01 BLACK-WHITE-40X25 PIC X(5)
  6. 00056         VALUE ""1B,5B,3D,30,68"".
  7. 00057 01 COLOR-40X25 PIC X(5)
  8. 00058         VALUE ""1B,5B,3D,31,68"".
  9. 00059 01 BLACK-WHITE-80X25 PIC X(5)
  10. 00060         VALUE ""1B,5B,3D,32,6C"".
  11. 00061 01 COLOR-80X25 PIC X(5)
  12. 00062         VALUE ""1B,5B,3D,33,6C"".
  13. 00063 01 REVERSE-ON PIC X(4)
  14. 00064         VALUE ""1B,5B,37,6D"".
  15. 00065 01 ATTRIBUTES-OFF PIC X(3)
  16. 00066         VALUE ""1B,5B,6D"".
  17. 00067 01 BOLD-ON PIC X(4)
  18. 00068         VALUE ""1B,5B,31,6D"".
  19. 00069 01 UNDERSCORE-ON PIC X(4)
  20. 00070         VALUE ""1B,5B,34,6D"".
  21. 00071 01 BLINK-ON PIC X(4)
  22. 00072         VALUE ""1B,5B,35,6D"".
  23. 00073 01 BLACK-FOREGROUND PIC X(5)
  24. 00074         VALUE ""1B,5B,33,30,6D"".
  25. 00075 01 RED-FOREGROUND PIC X(5)
  26. 00076         VALUE ""1B,5B,33,31,6D"".
  27. 00077 01 GREEN-FOREGROUND PIC X(5)
  28. 00078         VALUE ""1B,5B,33,32,6D"".
  29. 00079 01 YELLOW-FOREGROUND PIC X(5)
  30. 00080         VALUE ""1B,5B,33,33,6D"".
  31. 00081 01 BLUE-FOREGROUND PIC X(5)
  32. 00082         VALUE ""1B,5B,33,34,6D"".
  33. 00083 01 MAGENTA-FOREGROUND PIC X(5)
  34. 00084         VALUE ""1B,5B,33,35,6D"".
  35. 00085 01 CYAN-FOREGROUND PIC X(5)
  36. 00086         VALUE ""1B,5B,33,36,6D"".
  37. 00087 01 WHITE-FOREGROUND PIC X(5)
  38. 00088         VALUE ""1B,5B,33,37,6D"".
  39. 00089 01 BLACK-BACKGROUND PIC X(5)
  40. 00090         VALUE ""1B,5B,34,30,6D"".
  41. 00091 01 RED-BACKGROUND PIC X(5)
  42. 00092         VALUE ""1B,5B,34,31,6D"".
  43. 00093 01 GREEN-BACKGROUND PIC X(5)
  44. 00094         VALUE ""1B,5B,34,32,6D"".
  45. 00095 01 YELLOW-BACKGROUND PIC X(5)
  46. 00096         VALUE ""1B,5B,34,33,6D"".
  47. 00097 01 BLUE-BACKGROUND PIC X(5)
  48. 00098         VALUE ""1B,5B,34,34,6D"".
  49. 00099 01 MAGENTA-BACKGROUND PIC X(5)
  50. 00100         VALUE ""1B,5B,34,35,6D"".
  51. 00101 01 CYAN-BACKGROUND PIC X(5)
  52. 00102         VALUE ""1B,5B,34,36,6D"".
  53. 00103 01 WHITE-BACKGROUND PIC X(5)
  54. 00104         VALUE ""1B,5B,34,37,6D"".
  55.