QPrint

 BBS: Inland Empire Archive
Date: 04-06-92 (19:26)             Number: 196
From: ROBBIE CHURCH                Refer#: 186
  To: JOHN GALLAS                   Recvd: NO  
Subj: QPrint                         Conf: (2) Quik_Bas

JG>     I thought I heard of a sub somewhere that would use
JG>  pokes to print stuff on the screen so it would be printed
JG>  really fast.  Could someone either post the source for it,

I swiped this from Jean Crepeau (Thank you Jean) to David Bliss on 3-11-92:
___________________________________________________________________________
         First of all, you must define the data segment where your video
   memory (VRAM) is.  This is done with DEF SEG
   DEF SEG = &HB000   '  for monochrome  (Hercules) cards
   DEF SEG = &HB800   '  for color (CGA, EGA & VGA) cards

         For text modes, the address is
   A = (Row + 80 * Column) * 2

         PEEK(A)   returns the ASCII character and PEEK(A + 1) returns the
   attributes of that character.
___________________________________________________________________________

To print, you can substitute the PEEKs for POKEs.  You need to POKE the
character to print at the address (A) returned.  You must POKE the attribute
at the address + 1.  Hope this helps.

-Rob


 * SLMR 2.1a * Floggings will continue until morale improves!

--- Maximus 2.01wb
 * Origin: Mostly Mail (1:105/319)