Announcement

Collapse
No announcement yet.

Font height / width control in PB DOS?

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Font height / width control in PB DOS?

    Is there any way to display to the screen in a readable?

    I would appreciate being able to use double wide, double high
    characters to get the user's attention. Has anyone done this,
    and made it work with a NEC monitor?

    Sometimes I come across a need to display more than 90
    characters in a row. Rare, thank goodness, but can the opposite
    of the first question be done? Make the characters temporarily
    smaller? 110 CPL would be nice.

    Thank you.

    Robert

    ------------------

  • #2
    maybe this solution help you

    edited:

    screen 7
    print "robert e. carneal"

    ------------------
    arthur gomide
    como diria nosso profeta da bola, dadá maravilha: "para toda problemática existe uma solucionática!"



    [this message has been edited by arthur gomide (edited january 15, 2007).]
    "The trouble with quotes on the Internet is that you can never know if they are genuine." - Abraham Lincoln.

    Comment


    • #3

      the simplest way I've found is:

      WIDTH 40

      this will produce a slightly larger and more readable font.

      You can also use the vesa modes, if your card supports them(most do).
      modes 109 thru 10C support 132 columns of text. A little hard to get
      started but probably worth the effort. I have some code for using the
      vesa modes here
      but there is nothing on how to print in text mode. you might try
      something like this:

      Code:
      '****************************************************************************
      SUB TTYPrint(Letter AS STRING)
      DIM I AS STATIC INTEGER
      DIM TX AS STATIC BYTE
      DIM Clr AS STATIC BYTE
         Clr = 7 'vScrnTxtFG
         FOR I = 1 TO LEN(Letter)
            TX? = ASCII(MID$(Letter, I, 1))
            REG %AX, (&H0E00 + TX?)
            REG %BX, (&H0000 + Clr)
            CALL INTERRUPT &H10
         NEXT I
      END SUB
      
      '****************************************************************************
      SUB TTYLocate(Row AS BYTE, Col AS BYTE)
      DIM TX AS STATIC WORD
         REG %AX, &H0200
         REG %BX, &H0000
         TX?? = Row
         ROTATE RIGHT TX??, 8
         REG %DX, (TX??+Col)
         CALL INTERRUPT &H10
      END SUB
      You can probably do much better. I havn't messed with text modes
      very much. there is also some crude font stuff in there as well
      don't know if that will help or not?

      buck


      ------------------

      Comment

      Working...
      X