uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add support for generating lower-case ASCII.

This commit is contained in:
Quinn Evans 2015-10-03 12:58:51 -06:00
parent d4096da49d
commit 23cb6a229b
1 changed files with 78 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
ENCASCII.COB
View File

@ -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