home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib41b.dsk
/
MOUSE.BUTTON.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
878b
|
20 lines
10 REM PROGRAM MOUSE.BUTTON
20 S1 = 49420:S2 = 49659
30 SL = 1: REM START LOOKING SLOT ONE
40 IF PEEK(S1) = 32 AND PEEK(S2) = 214 THEN 80
50 SL = SL +1: IF SL = 3 THEN S1 = S1 +256:S2 = S2 +256: GOTO 50: REM SKIP SLOT 3
60 IF SL <8 THEN S1 = S1 +256:S2 = S2 +256: GOTO 40
70 PRINT CHR$(7): PRINT "NO MOUSE IN THE COMPUTER": END
80 PRINT CHR$(4)"PR#";SL: REM CALL MOUSE SLOT
90 PRINT CHR$(1): REM TURN ON MOUSE FIRMWARE
100 PRINT CHR$(4)"PR#0": REM RETURN INPUT TO KEYBOARD
110 HOME : PRINT "PRESS ANY KEY TO ACTIVATE THE MOUSE"
120 GET A$
130 PRINT CHR$(4)"IN#";SL
140 INPUT "";X,Y,S
150 IF S <1 THEN PRINT CHR$(4)"IN#0": GOTO 190: REM RETURN TO KEYBOARD
160 VTAB 12: PRINT "THE SWITCH STATUS IS ";S
170 FOR D = 1 TO 200: NEXT : REM DELAY LOOP TO SEE 'S' CHANGE
180 GOTO 140
190 VTAB 15: PRINT "A KEY WAS PRESSED ON THE KEYBOARD"
200 END