🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.pascal.borland
Article #70

Re: screen printing

#70
From: Lior Kretzer
Date: Mon, 12 Feb 1996 09:43
35 lines
1750 bytes
On 10 Feb 1996, Aaron Gale wrote:

> Does anyone have, or know of a routine to
> print the graphics screen in turbo pascal V.7.  The screen is
> VGA 640 x 480 x 16 colours.  The background is black and the
> line colour is white and these are the only colours that need to
> be printed.  Output is to an old serial 9 pin dot matrix printer
> that used to be used on a BBC micro.
> 

First of all, did you try to load GRAPHICS from dos ? 
It's the TSR graphic support for printers...

Now, about printing -
Just call Interrupt 5, which is exact what's happening when you strike 
the Print Screen.

You can do it either with the asm {} procedure, or just call INTR() with 
inetrrupt 5. Don't forget to declare dummy registers variable.


                         \|/   
                         @ @
/--------------------oOO-(_)-OOo---\
|   Kretzer Lior                   |
|   Tel Aviv University            |
|   Israel                         |
|                                  |
|   E-Mail:                        |  
|   kretzer@zoot.tau.ac.il         |
\----------------------------------/

 
 
Technical Details
Message-ID: <Pine.SGI.3.91-heb-2.05.960212114041.23735C-100000@zoot.tau.ac.il>
Path: arc1-ca.pugleaf.net!zoot.tau.ac.il!kretzer
References: <4fguvf$sm3@zeus.tcp.co.uk>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!zoot.tau.ac.il!kretzer
From: Lior Kretzer <kretzer@zoot.tau.ac.il>
Newsgroups: comp.lang.pascal.borland,comp.lang.pascal.mac,comp.lang.pascal.ansi-iso,comp.lang.pascal.misc,comp.sys.amiga.programmer,comp.graphics.misc
Subject: Re: screen printing
Date: Mon, 12 Feb 1996 11:43:59 +0200
Organization: Tel-Aviv University Computation Center
Message-ID: <Pine.SGI.3.91-heb-2.05.960212114041.23735C-100000@zoot.tau.ac.il>
References: <4fguvf$sm3@zeus.tcp.co.uk>
NNTP-Posting-Host: zoot.tau.ac.il
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
In-Reply-To: <4fguvf$sm3@zeus.tcp.co.uk>