[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

very tricky corners ...

Posted on 2000-03-20
3
Medium Priority
?
223 Views
Last Modified: 2010-04-16
How can I create new or modify appearance of ascii characters in text mode...

I need smoother versions of the single frame corners... I.e. characters 191, 217, 192, 218 look like quarter circles.

[if possible provide a way to use the standard one simultaneously...]

thanx, in advance
0
Comment
Question by:DaNorty
3 Comments
 
LVL 5

Accepted Solution

by:
scrapdog earned 120 total points
ID: 2638463
pass the ASCII index and the character data to this procedure

the character data is typically 16 bytes per character



Procedure setasciiChar(Charnum : Byte; Var data);
Var
  offset : Word;
begin
  offset := CharNum * 32;
  Inline($FA);
  PortW[$3C4] := $0402;
  PortW[$3C4] := $0704;
  PortW[$3CE] := $0204;
  PortW[$3CE] := $0005;
  PortW[$3CE] := $0006;
  Move(data, Ptr($A000, offset)^, 16);
  PortW[$3C4] := $0302;
  PortW[$3C4] := $0304;
  PortW[$3CE] := $0004;
  PortW[$3CE] := $1005;
  PortW[$3CE] := $0E06;
  Inline($FB);
end;
0
 

Author Comment

by:DaNorty
ID: 2706969
The modified character display on screen but however do not print on the printer...  I now need a way to send  them to the printer...
0
 
LVL 3

Expert Comment

by:Mathias
ID: 2712233
Hey, I saw your question, but I saw it to late. Well, here is my code for you for nothing...
It includes load and save procedures.

procedure getchar(ch: char; var data);
begin
  outpw($3C4, $0402);
  outpw($3C4, $0704);
  outpw($3CE, $0204);
  outpw($3CE, $0005);
  outpw($3CE, $0006);
  Move(Ptr(SegA000, Ord(ch) shl 5)^, Data, 16);
  outpw($3C4, $0302);
  outpw($3C4, $0304);
  outpw($3CE, $0004);
  outpw($3CE, $1005);
  outpw($3CE, $0E06);
end;

procedure setchar(ch:char; var data);
begin
  outpw($3C4, $0402);
  outpw($3C4, $0704);
  outpw($3CE, $0204);
  outpw($3CE, $0005);
  outpw($3CE, $0006);
  move(Data, Ptr(segA000, Ord(ch) shl 5)^, 16);
  outpw($3C4, $0302);
  outpw($3C4, $0304);
  outpw($3CE, $0004);
  outpw($3CE, $1005);
  outpw($3CE, $0E06);
end;
0

Featured Post

Upgrade your Question Security!

Add Premium security features to your question to ensure its privacy or anonymity. Learn more about your ability to control Question Security today.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article will help to fix the below errors for MS Exchange Server 2016 I. Certificate error "name on the security certificate is invalid or does not match the name of the site" II. Out of Office not working III. Make Internal URLs and Externa…
Strategic internal linking is often considered an SEO power technique, especially for content marketing. Do you need to hire an SEO agency to optimize you internal linking? No, this article will help you understand the basics of internal linking and…
We’ve all felt that sense of false security before—locking down external access to a database or component and feeling like we’ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many w…
Is your OST file inaccessible, Need to transfer OST file from one computer to another? Want to convert OST file to PST? If the answer to any of the above question is yes, then look no further. With the help of Stellar OST to PST Converter, you can e…
Suggested Courses

873 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question