[Tiny-cobol-users] Re: Bold and underline not working

[Massimo C. <mas...@ya...>]

Hello,
 
I think Roland is right. By configuring Tiny Cobol 0.62, everything goes ok when the test for color_set is positive. When this test fails, the whole make of TC is not correct and the screen layout is bot working.
 
Look here, this is a example program I am running on a VT 510 genuine terminal, but it also fails on the system console with TERM=linux:
 

IDENTIFICATION DIVISION.

PROGRAM-ID. TSCR.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 W-SOMETHING PIC X(20).

SCREEN SECTION.

01 S-TESTSCREEN BLANK SCREEN.

03 LINE 10 COLUMN 10 VALUE "Enter something:".

03 LINE 10 COLUMN 27 PIC X(20) USING W-SOMETHING

HIGHLIGHT UNDERLINE.

PROCEDURE DIVISION.

MOVE SPACES TO W-SOMETHING.

DISPLAY S-TESTSCREEN.

ACCEPT S-TESTSCREEN.

DISPLAY SPACES.

DISPLAY "$" W-SOMETHING "$".

STOP RUN.

 

The second term erases the first one and the screen flashes with every key pressed. The output of ./tscr | tee tscr.out is here uuencoded:

begin 600 tscr.out

M&S<;6S$[,C1R&S@;6T@;6S)*&ULQ,#LQ2"`@("`@("`@($5N=&5R('-O;65T

M:&EN9SH;6T@;6S)*&ULQ,#LT-T@;6T@;6S)*&ULQ,#LR-T@;6T@;6S)*&ULQ

M,#LQ2"`@("`@("`@("`@("`@("`@("`@("`@("`@2!M;2!M;,DH;6S$P.S%(

M("`@("`@("`@("`@("`@("`@("`@("`@("!(91M;2!M;,DH;6S$P.S%(("`@

M("`@("`@("`@("`@("`@("`@("`@("!(96P;6T@;6S)*&ULQ,#LQ2"`@("`@

M("`@("`@("`@("`@("`@("`@("`@2&5L;!M;2!M;,DH;6S$P.S%(("`@("`@

M("`@("`@("`@("`@("`@("`@("!(96QL;QM;2!M;,DH;6S$P.S%(("`@("`@

M("`@("`@("`@("`@("`@("`@("!(96QL;R`@("`@("`@("`@("`@(!M;,3`[

M,C=((!M;,3$[,D@D&ULQ,CLR2$AE;&QO("`@("`@("`@("`@("`@&ULQ,SLR

;2"0;6S(T.S%(&UL_,C5H&S<;6S$[,C1R&S@-

`

end

 

I hope this works because my Windows does not seem to like this cut-and-paste.

 

I tried several versions of TC. Like Roland said, the problem occurs since version 0.56 here, too.

 

Massimo

 


		
---------------------------------
Yahoo! Mail: gratis 1GB per i messaggi, antispam, antivirus, POP3