Help

 BBS: Inland Empire Archive
Date: 02-13-93 (12:36)             Number: 204
From: ROB MCKEE                    Refer#: NONE
  To: ZACK JONES                    Recvd: NO  
Subj: Help                           Conf: (2) Quik_Bas

Hello Zack!
   You wrote in a message to Hugh Martin:

 ZJ> Howdy Hugh!

 ZJ> 08 Feb 93, Hugh Martin writes to Zack Jones:

 HM> You're funny, Zack.

 ZJ> I don't know 'bout that - considering some of the mail I've
 ZJ> gotten here lately. I wonder if there's a way to use an asm
 ZJ> routine to print 2000 characters and not scroll the screen?

 Yes, see below...

 ZJ> I'll ask Tom Hanlin over on BASNet and see what he says.

WHAT! When I'm here? Traitor <G> <giggle> ;)

Int 10 Func 9
    ' $INCLUDE: 'qbx.bi'
    DIM r AS RegType
    LOCATE 1, 1 ' can use this or INTERRUPT &h10
(r.ax=&h0200)     Char2Write% = 179 ' can be 0 to 255
      Page% = 0
      Attribute = 7
      CountOfrepeat = 1920             ' 2000 for full
screen       r.ax = &H9 * 256 + Char2Write%
      r.bx = Page% * 256 + Attribute
      r.cx = CountOfrepeat
      Interrupt &H10, r, r
      ' Returns None
    DO: IF INKEY$ = CHR$(27) THEN END
    : LOOP

 Catcha Later , I'll see you on the flip side - Rob


--- timEd/B6
 * Origin: Another Quik_Bas Point in Richmond, CA (1:125/411)