Add support for generating lower-case ASCII.
This commit is contained in:
parent
d4096da49d
commit
23cb6a229b
1 changed files with 78 additions and 0 deletions
78
ENCASCII.COB
78
ENCASCII.COB
|
@ -102,6 +102,32 @@
|
|||
88 ASCII-LETX VALUES "X".
|
||||
88 ASCII-LETY VALUES "Y".
|
||||
88 ASCII-LETZ VALUES "Z".
|
||||
88 ASCII-LOWA VALUES "LOWA".
|
||||
88 ASCII-LOWB VALUES "LOWB".
|
||||
88 ASCII-LOWC VALUES "LOWC".
|
||||
88 ASCII-LOWD VALUES "LOWD".
|
||||
88 ASCII-LOWE VALUES "LOWE".
|
||||
88 ASCII-LOWF VALUES "LOWF".
|
||||
88 ASCII-LOWG VALUES "LOWG".
|
||||
88 ASCII-LOWH VALUES "LOWH".
|
||||
88 ASCII-LOWI VALUES "LOWI".
|
||||
88 ASCII-LOWJ VALUES "LOWJ".
|
||||
88 ASCII-LOWK VALUES "LOWK".
|
||||
88 ASCII-LOWL VALUES "LOWL".
|
||||
88 ASCII-LOWM VALUES "LOWM".
|
||||
88 ASCII-LOWN VALUES "LOWN".
|
||||
88 ASCII-LOWO VALUES "LOWO".
|
||||
88 ASCII-LOWP VALUES "LOWP".
|
||||
88 ASCII-LOWQ VALUES "LOWQ".
|
||||
88 ASCII-LOWR VALUES "LOWR".
|
||||
88 ASCII-LOWS VALUES "LOWS".
|
||||
88 ASCII-LOWT VALUES "LOWT".
|
||||
88 ASCII-LOWU VALUES "LOWU".
|
||||
88 ASCII-LOWV VALUES "LOWV".
|
||||
88 ASCII-LOWW VALUES "LOWW".
|
||||
88 ASCII-LOWX VALUES "LOWX".
|
||||
88 ASCII-LOWY VALUES "LOWY".
|
||||
88 ASCII-LOWZ VALUES "LOWZ".
|
||||
88 ASCII-LSQB VALUE "LSQB".
|
||||
88 ASCII-BKSL VALUE "BKSL".
|
||||
88 ASCII-RSQB VALUE "RSQB".
|
||||
|
@ -312,6 +338,58 @@
|
|||
MOVE 95 TO CHAR-CODE
|
||||
ELSE IF ASCII-BKTK THEN
|
||||
MOVE 96 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWA THEN
|
||||
MOVE 97 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWB THEN
|
||||
MOVE 98 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWC THEN
|
||||
MOVE 99 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWD THEN
|
||||
MOVE 100 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWE THEN
|
||||
MOVE 101 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWF THEN
|
||||
MOVE 102 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWG THEN
|
||||
MOVE 103 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWH THEN
|
||||
MOVE 104 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWI THEN
|
||||
MOVE 105 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWJ THEN
|
||||
MOVE 106 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWK THEN
|
||||
MOVE 107 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWL THEN
|
||||
MOVE 108 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWM THEN
|
||||
MOVE 109 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWN THEN
|
||||
MOVE 110 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWO THEN
|
||||
MOVE 111 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWP THEN
|
||||
MOVE 112 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWQ THEN
|
||||
MOVE 113 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWR THEN
|
||||
MOVE 114 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWS THEN
|
||||
MOVE 115 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWT THEN
|
||||
MOVE 116 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWU THEN
|
||||
MOVE 117 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWV THEN
|
||||
MOVE 118 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWW THEN
|
||||
MOVE 119 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWX THEN
|
||||
MOVE 120 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWY THEN
|
||||
MOVE 121 TO CHAR-CODE
|
||||
ELSE IF ASCII-LOWZ THEN
|
||||
MOVE 122 TO CHAR-CODE
|
||||
ELSE IF ASCII-LCRB THEN
|
||||
MOVE 123 TO CHAR-CODE
|
||||
ELSE IF ASCII-PIPE THEN
|
||||
|
|
Loading…
Reference in a new issue