10 REM Kmouse test for Crash
  20 REM Simon N Goodwin 2020
  30   LET b= IN 64223
  40   LET w= INT (b/16)
  50 LET b=b-w*16
  60 LET b4=b>7: IF b4 THEN LET b=b-8
  65 BORDER b
  70 LET b3=b>3: IF b3 THEN LET b=b-4
  80 LET b2=b>1: IF b2 THEN LET b=b-2
  90 PRINT AT 0,0;
 100 PRINT "  X = "; IN 64479,"Y = "; IN 65503;"  W = ";w,
 110 PRINT "LMB = ";b2;"   MMB = ";b3;"  RMB = ";b;
 120   GO TO 30
9990  
9999 SAVE "MouseP3.bas" LINE 30