diff --git a/DECASCII.COB b/DECASCII.COB index f402ed9..323101b 100644 --- a/DECASCII.COB +++ b/DECASCII.COB @@ -40,7 +40,7 @@ 88 ASCII-US VALUE 31. * PRINTABLE CHARACTERS. 88 ASCII-SPC VALUE 32. - + 88 ASCII-EXC VALUE 33. 88 ASCII-DBQT VALUE 34. 88 ASCII-PND VALUE 35. 88 ASCII-DLR VALUE 36. @@ -110,91 +110,92 @@ 88 ASCII-TLDE VALUE 126. * LONELY CONTROL CHAR 88 ASCII-DEL VALUE 127. - 03 COBOL-STRING PIC X(6). + 03 COBOL-STRING PIC X(5). 03 FIRST-CHAR REDEFINES COBOL-STRING PIC X. PROCEDURE DIVISION USING CONVERSION. + MOVE SPACES TO COBOL-STRING. IF ASCII-NUL THEN - MOVE "" TO COBOL-STRING + MOVE "$NUL" TO COBOL-STRING ELSE IF ASCII-SOH THEN - MOVE "" TO COBOL-STRING + MOVE "$SOH" TO COBOL-STRING ELSE IF ASCII-STX THEN - MOVE "" TO COBOL-STRING + MOVE "$STX" TO COBOL-STRING ELSE IF ASCII-ETX THEN - MOVE "" TO COBOL-STRING + MOVE "$ETX" TO COBOL-STRING ELSE IF ASCII-EOT THEN - MOVE "" TO COBOL-STRING + MOVE "$EOT" TO COBOL-STRING ELSE IF ASCII-ENQ THEN - MOVE "" TO COBOL-STRING + MOVE "$ENQ" TO COBOL-STRING ELSE IF ASCII-ACK THEN - MOVE "" TO COBOL-STRING + MOVE "$ACK" TO COBOL-STRING ELSE IF ASCII-BEL THEN - MOVE "" TO COBOL-STRING + MOVE "$BEL" TO COBOL-STRING ELSE IF ASCII-BS THEN - MOVE "" TO COBOL-STRING + MOVE "$BS" TO COBOL-STRING ELSE IF ASCII-TAB THEN - MOVE "" TO COBOL-STRING + MOVE "$TAB" TO COBOL-STRING ELSE IF ASCII-LF THEN - MOVE "" TO COBOL-STRING + MOVE "$LF" TO COBOL-STRING ELSE IF ASCII-VT THEN - MOVE "" TO COBOL-STRING + MOVE "$VT" TO COBOL-STRING ELSE IF ASCII-FF THEN - MOVE "" TO COBOL-STRING + MOVE "$FF" TO COBOL-STRING ELSE IF ASCII-CR THEN - MOVE "" TO COBOL-STRING + MOVE "$CR" TO COBOL-STRING ELSE IF ASCII-SO THEN - MOVE "" TO COBOL-STRING + MOVE "$SO" TO COBOL-STRING ELSE IF ASCII-SI THEN - MOVE "" TO COBOL-STRING + MOVE "$SI" TO COBOL-STRING ELSE IF ASCII-DLE THEN - MOVE "" TO COBOL-STRING + MOVE "$DLE" TO COBOL-STRING ELSE IF ASCII-DC1 THEN - MOVE "" TO COBOL-STRING + MOVE "$DC1" TO COBOL-STRING ELSE IF ASCII-DC2 THEN - MOVE "" TO COBOL-STRING + MOVE "$DC2" TO COBOL-STRING ELSE IF ASCII-DC3 THEN - MOVE "" TO COBOL-STRING + MOVE "$DC3" TO COBOL-STRING ELSE IF ASCII-DC4 THEN - MOVE "" TO COBOL-STRING + MOVE "$DC4" TO COBOL-STRING ELSE IF ASCII-NAK THEN - MOVE "" TO COBOL-STRING + MOVE "$NAK" TO COBOL-STRING ELSE IF ASCII-SYN THEN - MOVE "" TO COBOL-STRING + MOVE "$SYN" TO COBOL-STRING ELSE IF ASCII-ETB THEN - MOVE "" TO COBOL-STRING + MOVE "$ETB" TO COBOL-STRING ELSE IF ASCII-CAN THEN - MOVE "" TO COBOL-STRING + MOVE "$CAN" TO COBOL-STRING ELSE IF ASCII-EM THEN - MOVE "" TO COBOL-STRING + MOVE "$EM" TO COBOL-STRING ELSE IF ASCII-SUB THEN - MOVE "" TO COBOL-STRING + MOVE "$SUB" TO COBOL-STRING ELSE IF ASCII-ESC THEN - MOVE "" TO COBOL-STRING + MOVE "$ESC" TO COBOL-STRING ELSE IF ASCII-FS THEN - MOVE "" TO COBOL-STRING + MOVE "$FS" TO COBOL-STRING ELSE IF ASCII-GS THEN - MOVE "" TO COBOL-STRING + MOVE "$GS" TO COBOL-STRING ELSE IF ASCII-RS THEN - MOVE "" TO COBOL-STRING + MOVE "$RS" TO COBOL-STRING ELSE IF ASCII-US THEN - MOVE "" TO COBOL-STRING + MOVE "$US" TO COBOL-STRING ELSE IF ASCII-SPC THEN MOVE SPACE TO COBOL-STRING ELSE IF ASCII-EXC THEN - MOVE "" TO COBOL-STRING + MOVE "$EXC" TO COBOL-STRING ELSE IF ASCII-DBQT THEN MOVE SPACES TO COBOL-STRING MOVE QUOTE TO FIRST-CHAR ELSE IF ASCII-PND THEN - MOVE "" TO COBOL-STRING + MOVE "$PND" TO COBOL-STRING ELSE IF ASCII-DLR THEN MOVE "$" TO COBOL-STRING ELSE IF ASCII-PCNT THEN - MOVE "" TO COBOL-STRING + MOVE "$PCNT" TO COBOL-STRING ELSE IF ASCII-AMP THEN - MOVE "" TO COBOL-STRING + MOVE "$AMP" TO COBOL-STRING ELSE IF ASCII-SGQT THEN - MOVE "" TO COBOL-STRING + MOVE "$SGQT" TO COBOL-STRING ELSE IF ASCII-LPRN THEN MOVE "(" TO COBOL-STRING ELSE IF ASCII-RPRN THEN @@ -232,7 +233,7 @@ ELSE IF ASCII-NUM9 THEN MOVE "9" TO COBOL-STRING ELSE IF ASCII-COLN THEN - MOVE "" TO COBOL-STRING + MOVE "$COLN" TO COBOL-STRING ELSE IF ASCII-SCLN THEN MOVE ";" TO COBOL-STRING ELSE IF ASCII-LESS THEN @@ -242,9 +243,9 @@ ELSE IF ASCII-GRTR THEN MOVE ">" TO COBOL-STRING ELSE IF ASCII-QUES THEN - MOVE "" TO COBOL-STRING + MOVE "$QUES" TO COBOL-STRING ELSE IF ASCII-AT THEN - MOVE "" TO COBOL-STRING + MOVE "$AT" TO COBOL-STRING ELSE IF ASCII-LETA THEN MOVE "A" TO COBOL-STRING ELSE IF ASCII-LETB THEN @@ -298,26 +299,26 @@ ELSE IF ASCII-LETZ THEN MOVE "Z" TO COBOL-STRING ELSE IF ASCII-LSQB THEN - MOVE "" TO COBOL-STRING + MOVE "$LSQB" TO COBOL-STRING ELSE IF ASCII-BKSL THEN - MOVE "" TO COBOL-STRING + MOVE "$BKSL" TO COBOL-STRING ELSE IF ASCII-RSQB THEN - MOVE "" TO COBOL-STRING + MOVE "$RSQB" TO COBOL-STRING ELSE IF ASCII-CRT THEN - MOVE "" TO COBOL-STRING + MOVE "$CRT" TO COBOL-STRING ELSE IF ASCII-UNDS THEN - MOVE "" TO COBOL-STRING + MOVE "$UNDS" TO COBOL-STRING ELSE IF ASCII-BKTK THEN - MOVE "" TO COBOL-STRING + MOVE "$BKTK" TO COBOL-STRING ELSE IF ASCII-LCRB THEN - MOVE "" TO COBOL-STRING + MOVE "$LCRB" TO COBOL-STRING ELSE IF ASCII-PIPE THEN - MOVE "" TO COBOL-STRING + MOVE "$PIPE" TO COBOL-STRING ELSE IF ASCII-RCRB THEN - MOVE "" TO COBOL-STRING + MOVE "$RCRB" TO COBOL-STRING ELSE IF ASCII-TLDE THEN - MOVE "" TO COBOL-STRING + MOVE "$TLDE" TO COBOL-STRING ELSE IF ASCII-DEL THEN - MOVE "" TO COBOL-STRING - ELSE STRING "<", CHAR-CODE, ">" INTO COBOL-STRING. + MOVE "$DEL" TO COBOL-STRING + ELSE STRING "$", CHAR-CODE INTO COBOL-STRING. EXIT PROGRAM.