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)
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