Re: changing the text mo

 BBS: Inland Empire Archive
Date: 12-23-92 (14:23)             Number: 340
From: BOB PERKINS                  Refer#: NONE
  To: DIK COATES                    Recvd: NO  
Subj: Re: changing the text mo       Conf: (2) Quik_Bas
 DC> Yes, please do... I thought the cursor colours were determined only by
 DC> the colour attributes of the cell... Will try a little ASM procedure
 DC> to save location attrib, change it for the mouse, then restore it...

  I've played around with it and this is what I've found.
If you just want to replace the text mode cursor with
another character (with your choice of attributes) this is
all you need.

  $include: 'qb.bi'
  dim regs as regtype
  regs.ax = &hA
  regs.bx = 0          'select software cursor
  scrncharacter% = 0   'if either of these are non-zero they'll affect the
  scrnattribute% = 0   'character/attribute at the current cursor position.
  'But if you want to play with them, this is how you'd set them..
  regs.cx = (scrnattribute% * 256) + scrncharacter%
  '
  cursorattribute% = 79   'Set the color attributes (White on Red here)
  cursorcharacter% = 18   'Choose the character we want to use
  '
  regs.dx = (cursorattribute% * 256) + cursorcharacter%
  '
  interrupt &h33, regs, regs


--- Msg V4.5
 * Origin: Reciprocity Failure  (1:124/4115.236)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET