Unicode, Codepage 437, and line characters

[Joe Caverly]

I am using;

TCC  20.11.40 x64   Windows 7 [Version 6.1.7601]
TCC Build 40   Windows 7 Build 7601  Service Pack 1

I remember reading, quite a while ago on this forum, about Unicode, Codepage 437, and line characters, however, I now cannot find it.

I am re-compiling some of my Turbo Pascal DOS code to FreePascal x86-64. The problem is with line drawing characters. For example;

GotoXY(XCor-1, yCor-1); Write(#218);             
FOR co := 1 to Wid DO Write(#196); Write(#191);  
FOR ro := yCor to yCor + Choices -1 DO           
  BEGIN                                         
    GotoXY(xCor-1, ro); Write(#179);             
    GotoXY(xCor+Wid, ro); Write(#179);           
  END;                                           
  GotoXY(XCor-1, yCor+Choices); Write(#192);     
  FOR co := 1 to Wid DO Write(#196); Write(#217);

...produces this with Codepage 437 under 4DOS 8.00;

..but produces this with Codepage 437 under Windows;

CHCP under both OSes returns;

Active code page: 437

The @FONT function returns;

Font[0] = Consolas
Font[1] = 6
Font[2] = 12
Font[3] = 700
Font[4] = 54
Font[5] = 6

I would appreciate either links to the previous answers on this question (I am sure it has been asked before), or any new constructive solutions.

Thanks!

Joe

 

[rconn]

This is a font issue, not codepage.

 

[Joe Caverly]

Changing the font to Terminal produces the same results as 4DOS, which is what I want.

Thanks.

Joe

 

[rconn]

This is one of the rare cases where a non-Unicode font works better.

The line drawing characters in Terminal are high-bit ASCII (128-255) characters. The line drawing characters in Unicode are mapped to different locations -- if you use something like DRAWBOX / DRAWxLINE in TCC, it will use the Unicode characters, not the ASCII characters.