Mview Code 2 Of 5

 BBS: Inland Empire Archive
Date: 03-20-93 (00:54)             Number: 177
From: STEVE DEMO                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Mview Code 2 Of 5              Conf: (2) Quik_Bas
'>>> Start of page 2.

FUNCTION MouseInstalled%
    DEF SEG = 0
    MouseSeg& = 256& * PEEK(207) + PEEK(206)
    MouseOfs& = 256& * PEEK(205) + PEEK(204) + 2
    DEF SEG = MouseSeg&
    IF (MouseSeg& = 0 AND MouseOfs& = 0) OR PEEK(MouseOfs&) = 207 THEN
       MouseInstalled% = 0
       EXIT FUNCTION
    ELSE
       MouseInstalled% = -1
    END IF
    DEF SEG
    RegX.ax = 0
    CALL INTERRUPTX(&H33, RegX, RegX)
    IF RegX.ax = -1 THEN
       MouseInstalled% = -1
    ELSE
       MouseInstalled% = 0
    END IF
END FUNCTION

SUB MouseLocate (Xpos%, Ypos%)
    RegX.dx = (Xpos% * 8) - 1
    RegX.cx = (Ypos% * 8) - 1
    RegX.ax = 4
    CALL INTERRUPTX(&H33, RegX, RegX)
END SUB

SUB mouseoff
    RegX.ax = 2
    CALL INTERRUPTX(&H33, RegX, RegX)
END SUB

SUB mouseon
    RegX.ax = 1
    CALL INTERRUPTX(&H33, RegX, RegX)
END SUB

SUB MouseSetHor (Min%, Max%)
    RegX.cx = (Min% * 8) - 1
    RegX.dx = (Max% * 8) - 1
    RegX.ax = 7
    CALL INTERRUPTX(&H33, RegX, RegX)
END SUB

SUB MouseSetVert (Min%, Max%)
    RegX.cx = (Min% * 8) - 1
    RegX.dx = (Max% * 8) - 1
    RegX.ax = 8
    CALL INTERRUPTX(&H33, RegX, RegX)
END SUB

SUB MouseStatus (vert%, hor%, Mbuttons$)
    RegX.ax = 3
    CALL INTERRUPTX(&H33, RegX, RegX)
    vert% = (RegX.dx / 8) + 1
    hor% = (RegX.cx / 8) + 1
    SELECT CASE RegX.bx
    CASE 0
        Mbuttons$ = ""
    CASE 1
        Mbuttons$ = "L"
    CASE 2
        Mbuttons$ = "R"
    CASE 3
        Mbuttons$ = "LR"
    CASE 4
        Mbuttons$ = "C"
    END SELECT
END SUB

SUB ViewHdcat (File$)
    CONST False = 0
    CONST True = NOT False
                          ' Build Screen
    WIDTH 80, 43                                  ' Switch to EGA 43
' line
    COLOR 14, 0: CLS                              ' Mode
    LOCATE 42, 1: COLOR 9, 7
    PRINT STRING$(80, CHR$(219));
    LOCATE 43, 1
    PRINT STRING$(80, CHR$(219));
    LOCATE 1, 1
    PRINT STRING$(240, CHR$(219));
    COLOR 15, 1
    LOCATE 2, 1
    PRINT STRING$(80, " ");
    LOCATE 2, 15
    PRINT "MView-EGA  ESC   Pgup   Pgdn  end  home  "; CHR$(24);
    PRINT SPACE$(2); CHR$(25); SPACE$(2); CHR$(27); SPACE$(2); CHR$(26);
    PRINT SPACE$(2); "Print";

'>>> Continued on page 3.

___ Blue Wave/QWK v2.11

--- Maximus 2.01wb
 * Origin: Semper Fi BBS  Ft. Wayne, IN  (219) 424-4292 (1:236/21)
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