Re:Microhelp Muscle Mous

 BBS: Inland Empire Archive
Date: 07-11-92 (12:57)             Number: 214
From: MIKE WEGNER                  Refer#: NONE
  To: MIKE CLARK                    Recvd: NO  
Subj: Re:Microhelp Muscle Mous       Conf: (2) Quik_Bas
MC>That hand would be useful.  If you wouldn't mind posting it up I would
  >use it for sure!  Thanks.

Sure think Mike.  Here it is ...


setmousecursor:

FOR i = 1 TO 32
    READ cur(i)
NEXT

DATA &he1ff,&he1ff,&he1ff,&he1ff,&he1ff
DATA &he000,&he000,&he000,0,0,0,0,0,0,0,0
DATA &h0000,&h0c00,&h0c00,&h0c00,&h0c00,&h0c00
DATA &h0db6,&h0db6,&h0db6,&h6ffe,&h6ffe,&h6ffe
DATA &h7ffe,&h7ffe,&h7ffe,&h0000


    inregs.ax = 9
    inregs.bx = 4
    inregs.cx = 0
    inregs.es = VARSEG(cur(1))
    inregs.dx = VARPTR(cur(1))

    CALL interruptx(&H33, inregs, outregs)

RETURN


The above cursor was used in the game mentioned in the tagline.
Take a look and see what you think.

--Mike--


 * SLMR 2.1a * Try Mule's End Poker Slots today!
-------------------------
 * Origin: Phoenix BBS (1:375/8)
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