If there is a way to get UniBasic into the picture, consider using
char(XX). Some code follows...
*R0 Bill Brutzman Dec.2005
crt @(0)
prompt ''
crt @(-1)
for Char.Count = 32 to 255
This.Char = char(Char.Count)
*This.Char = 'x'
Crt.Str = @(-5)
Crt.Str := Char.Count 'R#3' : ' ' : @(-6)
Crt.Str := This.Char
begin case
case Char.Count <= 21 ; X.Posn =
1 ; Y.Posn = Char.Count
case Char.Count > 21 and Char.Count <= 43 ; X.Posn =
7 ; Y.Posn = Char.Count - 22
case Char.Count > 43 and Char.Count <= 65 ; X.Posn =
14 ; Y.Posn = Char.Count - 44
case Char.Count > 65 and Char.Count <= 87 ; X.Posn =
21 ; Y.Posn = Char.Count - 66
case Char.Count > 87 and Char.Count <= 109 ; X.Posn =
28 ; Y.Posn = Char.Count - 88
case Char.Count > 109 and Char.Count <= 131 ; X.Posn =
35 ; Y.Posn = Char.Count - 110
case Char.Count > 131 and Char.Count <= 153 ; X.Posn =
42 ; Y.Posn = Char.Count - 132
case Char.Count > 153 and Char.Count <= 175 ; X.Posn =
49 ; Y.Posn = Char.Count - 154
case Char.Count > 175 and Char.Count <= 197 ; X.Posn =
56 ; Y.Posn = Char.Count - 176
case Char.Count > 197 and Char.Count <= 219 ; X.Posn =
63 ; Y.Posn = Char.Count - 198
case Char.Count > 219 and Char.Count <= 241 ; X.Posn =
70 ; Y.Posn = Char.Count - 220
case Char.Count > 241 and Char.Count <= 255 ; X.Posn =
77 ; Y.Posn = Char.Count - 242
end case
crt @(X.Posn, Y.Posn) : Crt.Str
next Char.Count
crt @(76, 18) : ' _________ '
crt @(76, 19) : ' / \ '
crt @(76, 20) : ' \ ASCII / '
crt @(76, 21) : ' \_______/ '
crt @(76, 23) : ' [<] ' :
input Ans, 1
*-----------------------------------------------------------------------
-------
The.End:
crt @(-1)
END
*-----------------------------------------------------------------------
-------
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Bjorn Behr
Sent: Monday, May 04, 2009 5:59 AM
To: [email protected]
Subject: [U2][SB+] Extended Character Set (ALT+...)
Morning all
Does anybody know of a way / setting that I can get the extended
character setting to work in UniVerse / SB+ / SB Client
ie
ALT+148 = v
If I type this in, I get nothing. I think it is because there are seen
as non-prinitable characters by UniVerse, but I am no sure.
System Info
~~~~~~~~
Universe 10.1.24 (PICK)
System Builder 5.3
Emulator: SB Client 5.3
Regards
Bjvrn Behr
SUMMIT CORE Developer
Tel No: +27 12 673 3251
Fax No: +27 12 673 4681
E-Mail: [email protected]<mailto:[email protected]>
________________________________
The information in or attached to this e-mail message is confidential
and may be subject to legal privilege and client confidentiality. If you
are not the intended recipient of this e-mail or the authorised
representative of the recipient then please notify the sender of this
e-mail immediately by return e-mail and delete this message from your
system. You may not print, store, forward or copy this message or any
part thereof or disclose or cause information in this message to be
disclosed to any other person.
FRSTIA cannot be held liable for any harm or loss resulting from
malicious software code or viruses in this message or attachments,
including data corruption resulting there from.
Employees or representatives of FRSTIA are not permitted to send
unsolicited messages ("spam") and FRSTIA cannot be held liable for their
sending of such mail. If you regard this message as spam, please inform
us immediately by sending an email to [email protected].
If this message contains offensive, derogatory or defamatory statements
or materials, it means the message has been sent outside the sender's
scope of employment with FRSTIA and only the sender can be held liable
in his/her personal capacity.
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
