Re: QLB

 BBS: Inland Empire Archive
Date: 03-15-92 (16:12)             Number: 117
From: BOB SEWELL                   Refer#: NONE
  To: K.L. LEE                      Recvd: NO  
Subj: Re: QLB                        Conf: (2) Quik_Bas

KL>     Thanks your kindly help, do you know how to load ANSI file,
KL>    it must be have color.

   One way is to open the screen as an output file, and
open the ANSI file for input. Read a line from the ANSI
file, then print it to the screen file, making sure to add
the ";" character at the end so you don't get an undesired
carriage return/line feed. The following is off the top of
my head, so if it doesn't work right, fiddle with it until
it does.

   OPEN "cons" FOR OUTPUT AS #1         'opens the screen as a file
   OPEN "ansifile.ans" FOR INPUT AS #2  'open your ansi file
   WHILE NOT EOF(2)                     'perform loop until end of file
     LINE INPUT #2, a$                  'get a complete ANSI line
     PRINT #1, a$;                      'put tha line on the screen    WEND
   CLOSE

  That oughta do it.

--- Echodor 3.10a
 * Origin: Strawberry Fields - Nashville (1:116/5.0)