home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / bmag / prnchar.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-26  |  1.3 KB  |  29 lines
  1. '─ Area: F-QUICKBASIC ─────────────────────────────────────────────────────────
  2. '  Msg#: 407                                          Date: 12 Apr 94  23:58:00
  3. '  From: Howard Hull Jr                               Read: Yes    Replied: No 
  4. '    To: Corey Seliger                                Mark:                     
  5. '  Subj: Qbasic Ascii Characters
  6. '──────────────────────────────────────────────────────────────────────────────
  7. 'CS> DC> My QBasic book has a table of ASCII characters in the back that lists
  8. 'CS> DC> 011 as the medical symbol for male, the circle with the arrow pointing
  9. 'CS> DC> out diagonally.  But when I do PRINT CHR$ (011), I get nothing.
  10. 'CS> DC> I know that the first 32 characters are supposed to be functions, but
  11. 'CS> DC> the other symbols in the table seem to print fine.  Is there a way to
  12. 'CS> DC> get that symbol to display?
  13.  
  14. '************* Program Start ******************
  15. '$INCLUDE:'\qb\qb.bi'
  16. CALL PrintChar(CHR$(11))
  17.  
  18. SUB PrintChar(Char$)
  19. '*****************
  20. '* This sub will print virtually all letters on
  21. '* the ASCII character chart. It will advance the
  22. '* cursor and scrool the screen as needed
  23. '* Characters not supported: 7, 10 & 13
  24. '*
  25. '******************
  26. DIM Reg AS RegTypeX
  27. Reg.ax = &HE00 + ASC(Char$)
  28. INTERRUPTX &H10, Reg, Reg
  29. END SUB