' try a few times to find a mouse
for i = 1 to 5
 on error skip
 controller mouse open mouseport, LeftClick
 if MM.ERRNO = 0 then
   exit for
 endif
 pause 100
next i

if 5 < i then
 print @(300,300) "Sorry, this program needs a mouse."
 end
endif

Start here
mouseOK 0

Start here
mouseOK 40
DeviceId 0
DeviceId 3
404
400,300,0,0,0,0,0,0
399,299,0,0,0,-1,-1,0
398,299,0,0,0,-1,0,0
398,299,0,0,0,0,0,0
397,299,0,0,0,-1,0,0

Start here
mouseOK 41
DeviceId 0
DeviceId 3
444
400,300,0,0,0,0,0,0
442,285,0,0,0,42,-15,0
491,272,0,0,0,49,-13,0
498,270,0,0,0,7,-2,0

Serial.println("Start here ");
    mouseOK = checkMouse();
    Serial.print("mouseOK ");
    Serial.println(mouseOK);
   readStart = millis();
   mouse.initialize();
   readTime = (millis() - readStart);
 
    Serial.println(readTime);

Serial.println("Start here ");
 //   mouseOK = checkMouse();
    Serial.print("mouseOK ");
    Serial.println(mouseOK);
   readStart = millis();
   mouse.initialize();
   readTime = (millis() - readStart);
 
    Serial.println(readTime);

void setup() {
delayMicroseconds(1000); // new line added

 OPTION EXPLICIT
 OPTION DEFAULT NONE
 
 const clk_pin = 8    ' connect to PS/2 clock line via 100k resistor
 const dta_pin = 10   ' connect to PS/2 data  line via 100k resistor
 const clk2_pin = 12  ' connect to clk_pin
 const samples = 9000 ' enough time to store a startup sequence
 
 dim integer state ' 0 = device to host, 1 = host to device
 dim float time_now, time_start
 dim integer  Pbyte, ready = 1
 dim float clk_dta(samples), dta_dta(samples)
 
 cls
 setpin clk2_pin, din

 ADC OPEN 200000, dta_pin, clk_pin, ,alldone ' read inputs every 5uS
 adc trigger 2, -1.5 ' trigger on falling edge
 
 do
   if ready = 1 then
     ready = 0
     'do : loop until pin(clk2_pin) = 1 ' wait for clock to go high
     time_start = timer
     do
       if pin(clk2_pin) =0  then time_start = timer
     loop until (timer - time_start) > 0.4 ' clock must be high for 400uS
     adc start dta_dta(), clk_dta() ' aquisition will start on the next falling edge
   endif
 loop until inkey$ <>""
 
 adc close
 
sub alldone
 local integer n, st, tm, last_clk_state, startB, stopB, parityB, ackB, bitcount
 local integer bit_state, clk_state, bit
 local d$
 time_start = timer
 'state = 1
 clk_state = (clk_dta(0) > 1.6)
 bit_state = (dta_dta(0) > 1.6)
 for n = 0 to samples-1
   time_now = timer
   clk_state = (clk_dta(n) > 1.6) ' convert analog to digital
   bit_state = (dta_dta(n) > 1.6)
   if (n-st) > 100 then exit for  ' no activity for 500uS
   if clk_state <> last_clk_state then
   'if n > 2 then print clk_dta(n-2),clk_dta(n-1),clk_dta(n),clk_dta(n+1),clk_dta(n+2)
     tm = n - st ' number of time interval for last clock period
     st = n
     'print tm;
     if tm > 28 or (tm > 20 and bitcount > 5) then
       if bitcount > 10 then print d$+hex$(Pbyte,2)+" ";
       state = clk_state
       bitcount = 0
       Pbyte = 0
     endif
     if state = clk_state  then
       if bitcount = 0 then
         if state = 1 then d$="h" else d$ = " "
       endif
       bit = bit_state ' host to device = rising edge, device to host = falling edge
       select case bitcount
         case 0
           startB = bit ' start bit should always be 0
         case 1 to 8
           Pbyte = (Pbyte >> 1) + (bit << 7)
         case 9
           parityB = bit ' ignored for now
         case 10
           stopB = bit ' stop bit should always be 1
         case 11
           ackB = bit ' acknowledge bit 0 = good (host to device only)
       end select
       inc bitcount
     endif
   endif
   last_clk_state = clk_state
 next n
 print d$+hex$(Pbyte,2) ' the last byte in the sequence
 ready = 1
end sub

if (in_mode == 0) {
   // Serial.println("Start here ");
  //  mouseOK = checkMouse();
  //  Serial.print("mouseOK ");
  //  Serial.println(mouseOK);
  // readStart = millis();
   mouse.initialize();
  // readTime = (millis() - readStart);
 
   // Serial.println(readTime);
 } else {
   joy_initialize();
 }