97 lines
3.3 KiB
COBOL
97 lines
3.3 KiB
COBOL
*
|
|
* copy file to ease the use of the new features of screen section.
|
|
*
|
|
* You can now define field on the screen section like:
|
|
*
|
|
* 01 field-scr pic x(4) line 1 col 1 foreground-color bright-white
|
|
* background-color red.
|
|
*
|
|
*
|
|
* You can also use 'color' like this
|
|
*
|
|
* 01 field-scr pic x(4) line 1 col 1 color color-wor.
|
|
*
|
|
* and then befor displaying
|
|
* compute color-wor = bright-white + background-red + blink.
|
|
*
|
|
* you can also use variabnle lines and columns like that
|
|
*
|
|
* 01 field-scr pic x(4) line line-wor col col-wor color color-wor.
|
|
*
|
|
* NOTE: line-wor,col-wor and color-wor must be s9(.) comp fields.
|
|
*
|
|
77 black pic s9(5) comp value 0.
|
|
77 blue pic s9(5) comp value 1.
|
|
77 green pic s9(5) comp value 2.
|
|
77 cyan pic s9(5) comp value 3.
|
|
77 red pic s9(5) comp value 4.
|
|
77 magenta pic s9(5) comp value 5.
|
|
77 brown pic s9(5) comp value 6.
|
|
77 white pic s9(5) comp value 7.
|
|
|
|
77 grey pic s9(5) comp value 8.
|
|
77 bright-blue pic s9(5) comp value 9.
|
|
77 bright-green pic s9(5) comp value 10.
|
|
77 bright-cyan pic s9(5) comp value 11.
|
|
77 bright-red pic s9(5) comp value 12.
|
|
77 bright-magenta pic s9(5) comp value 13.
|
|
77 yellow pic s9(5) comp value 14.
|
|
77 bright-white pic s9(5) comp value 15.
|
|
|
|
77 background-black pic s9(5) comp value 0.
|
|
77 background-blue pic s9(5) comp value 16.
|
|
77 background-green pic s9(5) comp value 32.
|
|
77 background-cyan pic s9(5) comp value 48.
|
|
77 background-reg pic s9(5) comp value 64.
|
|
77 background-magenta pic s9(5) comp value 80.
|
|
77 background-brown pic s9(5) comp value 96.
|
|
77 background-white pic s9(5) comp value 112.
|
|
|
|
77 color-highlight pic s9(5) comp value 512.
|
|
77 color-lowlight pic s9(5) comp value 1024.
|
|
77 color-underline pic s9(5) comp value 2048.
|
|
77 color-reverse pic s9(5) comp value 4096.
|
|
77 color-blink pic s9(5) comp value 8192.
|
|
*
|
|
* This field it to help people handle key codes.
|
|
* You have to define in the configuration section
|
|
* crt status is crt-status.
|
|
* and the on the program you can use sentences like this:
|
|
*
|
|
* accept some-var.
|
|
* if f3
|
|
* stop run
|
|
* end-if.
|
|
*
|
|
* or like this:
|
|
*
|
|
* accept some-var.
|
|
* evaluate true
|
|
* when ret perform function1
|
|
* when f1 perform function1
|
|
* when f2 perform function1
|
|
* when f3 stop run
|
|
* end-evaluate.
|
|
*
|
|
*
|
|
|
|
01 crt-status pic x(4).
|
|
88 ret value "0013".
|
|
88 f1 value "0265".
|
|
88 f2 value "0266".
|
|
88 f3 value "0267".
|
|
88 f4 value "0268".
|
|
88 f5 value "0269".
|
|
88 f6 value "0270".
|
|
88 f7 value "0271".
|
|
88 f8 value "0272".
|
|
88 f9 value "0273".
|
|
88 f10 value "0274".
|
|
88 f11 value "0275".
|
|
88 f12 value "0276".
|
|
88 up-key value "0259".
|
|
88 down-key value "0367".
|
|
88 pgup value "0339".
|
|
88 pgdown value "0338".
|
|
|