home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / bmag / qbascii.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-13  |  1.1 KB  |  25 lines
  1. '─ Area: F-QUICKBASIC ─────────────────────────────────────────────────────────
  2. '  Msg#: 352                                          Date: 11 Apr 94  15:48:00
  3. '  From: Matt Hart                                    Read: Yes    Replied: No 
  4. '    To: ?????????                                    Mark:                     
  5. '  Subj: QBasic ASCII characters
  6. '──────────────────────────────────────────────────────────────────────────────
  7. 'DC>out diagonally.  But when I do PRINT CHR$ (011), I get nothing.
  8.  
  9. 'These lower characters must be poked into memory if you are using only
  10. 'BASIC's built in PRINT statement.  Some other print routines, such as
  11. 'QuickPak QPrintRC will show these characters.  Here's a routine for
  12. 'printing directly to video:
  13.  
  14. SUB PrintRC(Strg$, Row, Col, Fg, Bg)
  15.     Attr = Fg + Bg * 16
  16.     DEF SEG = &HB800   ' B000 for monochrome systems
  17.     Offset = (Row-1)*160 + (Col-1)*2
  18.     FOR i = 1 TO LEN(Strg$)
  19.         POKE Offset, ASC(MID$(Strg$,i,1)) : Offset = Offset + 1
  20.         POKE Offset, Attr : Offset = Offset + 1
  21.     NEXT
  22.     DEF SEG
  23. END SUB
  24.  
  25.