Re: Quickbasic.

 BBS: Inland Empire Archive
Date: 06-13-93 (10:40)             Number: 369
From: STEVE DEMO                   Refer#: NONE
  To: JIM COYLE                     Recvd: NO  
Subj: Re: Quickbasic.                Conf: (2) Quik_Bas

 -=> Quoting Jim Coyle to All <=-

 JC> Can someone tell me how to get Quickbasic to print on the 25th line.
 JC> It keeps  scrolling on the 24th. Here's what I am doing:

 Try
 ----------------/
  VIEW PRINT <-/

 JC> CLS
 JC> COLOR 0, 7
 JC> LOCATE 24, 1
 JC> PRINT STRING$(80, " ");
 JC> LOCATE 25, 1
 JC> PRINT STRING$(80, " ");
 JC> COLOR 7, 0
 JC> VIEW PRINT 1 TO 23

 That Will fix your problem. Or you could do this.

CLS
RANDOMIZE TIMER
VIEW PRINT
LOCATE 1, 1
COLOR 0, 7
PRINT STRING$(80, " ");
LOCATE 25, 1
PRINT STRING$(80, " ");
VIEW PRINT 2 TO 24
COLOR 7, 0
DO UNTIL LEN(INKEY$)
  clr = INT(RND * 15) + 1
  IF clr = 0 THEN clr = 4
  COLOR clr
  LOCATE , 34
  PRINT "Hello"
  LOCATE , 29
  COLOR (clr - 1)
  PRINT "Did This Help ?"
  FOR slow = 1 TO 400: NEXT slow
LOOP
SLEEP


Type Ya,

Steve Demo

$$
--- XHEd-OS/2 1.22
 * Origin: The Pit (1:380/16)