home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib41b.dsk / MOUSE.FIND.bas < prev    next >
BASIC Source File  |  2023-02-26  |  446b  |  10 lines
  1. 10  REM  PROGRAM MOUSE.FIND
  2. 20  REM  FINDS MOUSE FIRMWARE
  3. 30 S1 = 49420:S2 = 49659
  4. 40 SL = 1: REM  START LOOKING SLOT 1
  5. 50  IF  PEEK(S1) = 32  AND  PEEK(S2) = 214  THEN 90
  6. 60 SL = SL +1: IF SL = 3  THEN S1 = S1 +256:S2 = S2 +256: GOTO 60: REM  SKIP SLOT 3
  7. 70  IF SL <8  THEN S1 = S1 +256:S2 = S2 +256: GOTO 50
  8. 80  PRINT  CHR$(7): PRINT "NO MOUSE IN THE COMPUTER": END 
  9. 90  HOME : VTAB 10: HTAB 10:S = SL: PRINT "MOUSE FOUND IN SLOT# ";S
  10. 100  END