home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
cobol
/
compiler
/
cobol600
/
temp.cob
< prev
next >
Wrap
Text File
|
1990-04-23
|
2KB
|
55 lines
00051 01 CLEAR-SCREEN PIC X(4)
00052 VALUE ""1B,5B,32,4A"".
00053 01 ERASE-TO-END-OF-LINE PIC X(3)
00054 VALUE ""1B,5B,4B"".
00055 01 BLACK-WHITE-40X25 PIC X(5)
00056 VALUE ""1B,5B,3D,30,68"".
00057 01 COLOR-40X25 PIC X(5)
00058 VALUE ""1B,5B,3D,31,68"".
00059 01 BLACK-WHITE-80X25 PIC X(5)
00060 VALUE ""1B,5B,3D,32,6C"".
00061 01 COLOR-80X25 PIC X(5)
00062 VALUE ""1B,5B,3D,33,6C"".
00063 01 REVERSE-ON PIC X(4)
00064 VALUE ""1B,5B,37,6D"".
00065 01 ATTRIBUTES-OFF PIC X(3)
00066 VALUE ""1B,5B,6D"".
00067 01 BOLD-ON PIC X(4)
00068 VALUE ""1B,5B,31,6D"".
00069 01 UNDERSCORE-ON PIC X(4)
00070 VALUE ""1B,5B,34,6D"".
00071 01 BLINK-ON PIC X(4)
00072 VALUE ""1B,5B,35,6D"".
00073 01 BLACK-FOREGROUND PIC X(5)
00074 VALUE ""1B,5B,33,30,6D"".
00075 01 RED-FOREGROUND PIC X(5)
00076 VALUE ""1B,5B,33,31,6D"".
00077 01 GREEN-FOREGROUND PIC X(5)
00078 VALUE ""1B,5B,33,32,6D"".
00079 01 YELLOW-FOREGROUND PIC X(5)
00080 VALUE ""1B,5B,33,33,6D"".
00081 01 BLUE-FOREGROUND PIC X(5)
00082 VALUE ""1B,5B,33,34,6D"".
00083 01 MAGENTA-FOREGROUND PIC X(5)
00084 VALUE ""1B,5B,33,35,6D"".
00085 01 CYAN-FOREGROUND PIC X(5)
00086 VALUE ""1B,5B,33,36,6D"".
00087 01 WHITE-FOREGROUND PIC X(5)
00088 VALUE ""1B,5B,33,37,6D"".
00089 01 BLACK-BACKGROUND PIC X(5)
00090 VALUE ""1B,5B,34,30,6D"".
00091 01 RED-BACKGROUND PIC X(5)
00092 VALUE ""1B,5B,34,31,6D"".
00093 01 GREEN-BACKGROUND PIC X(5)
00094 VALUE ""1B,5B,34,32,6D"".
00095 01 YELLOW-BACKGROUND PIC X(5)
00096 VALUE ""1B,5B,34,33,6D"".
00097 01 BLUE-BACKGROUND PIC X(5)
00098 VALUE ""1B,5B,34,34,6D"".
00099 01 MAGENTA-BACKGROUND PIC X(5)
00100 VALUE ""1B,5B,34,35,6D"".
00101 01 CYAN-BACKGROUND PIC X(5)
00102 VALUE ""1B,5B,34,36,6D"".
00103 01 WHITE-BACKGROUND PIC X(5)
00104 VALUE ""1B,5B,34,37,6D"".