diff --git a/ENCASCII.COB b/ENCASCII.COB index 35044a2..93c5a2d 100644 --- a/ENCASCII.COB +++ b/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