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