Problem printing boxes

[Schreiber FooF]

Hello All !

I have some problems to print boxes on my HP-8100...

I wanted to put boxes on a document, but there's no chars between 127 and 159. only "_"'s...
I use
-lng "French"
-cpcase French
-cpcoll Basic
-cpinternal iso8859-1
-cpstream iso8859-1
options in my startup.pf

How can I do to get those usefull semigraphics chars ???

Can I change my cp's without loose my accentuated chars???

Thank's

 

[Schreiber FooF]

Code page change ... doesn't change...?

I decided to get off my problem by using a code page change...

i used this program to search the page code that fits :
def var ligne as char format "x(35)".
def var i as integer.

output through lpr "-Plaser".
def var esc as char format "x(1)".
def var j as integer.
esc = chr(27).
j = 0.
do while j < 15.
put unformatted esc + "E" + chr(12) + chr(13).
put unformatted esc + "(" + string(j) + "U".
i = 13.
do while i < 256 :

Ligne = Ligne + " " + string(i) + " " + chr(i).
i = i + 1.
if length(ligne) > 30 then do :
put unformatted "(" + string(j) + ")" + ligne at 1 .
Ligne = "".
end.
End.
put unformatted Ligne + chr(12).
j = j + 1.
end.


I need to use the 10th code page, but when I only put unformatted the
put unformatted esc + "(" + string(10) + "U".
sequence the printer doesn't change code page...
??? why ??? how can I do it ???? Grr !