Re: CHR$(...)

 BBS: Inland Empire Archive
Date: 04-06-92 (19:29)             Number: 197
From: ROBBIE CHURCH                Refer#: 76
  To: ERIC MILLER                   Recvd: NO  
Subj: Re: CHR$(...)                  Conf: (2) Quik_Bas

EM>  value.  Also depending on
EM>  whether you use monochrome or color, you might need to use a different
EM>  routine because mine works for color text in SCREEN 0.  I have no idea

EM>  DEF SEG = &HB800          'Color text memory segment
EM>  Ch = ASC(C$)              'Get ASCII value of your character
EM>  Addr = (Y - 1) * 160 + (X - 1) * 2   'find location of X,Y
EM>  POKE Addr, Ch                        'Place Chr$(Ch) at X,Y
EM>  DEF SEG


FYI
To do the same thing on a monochrome, you change DEF SEG = &HB800 to
DEF SEG = &HB000.  That's it!

-Rob


 * SLMR 2.1a * Real programmers use COPY CON MYPROG.EXE

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