10 REM *****************************
   20 REM   Mouse driver (threshold)
   30 REM Text cursor (Microsoft Mouse)
   40 REM        By Tim Surtell
   50 REM *****************************
   60 REM Version 6 : 1/2/98
   70 REM Downloaded from Tim's NC users' Site
   80 REM http://www.ncus.org.uk
   90 CLS
  100 X=0:Y=1:MX=240:MY=56:XC=0:YC=0:S=4:LB=FALSE:RB=FALSE
  110 ONERRORIF ERR=202 GOTO140 ELSE CLOSE#0:REPORT:PRINT" at line ";ERL:END
  120 MOVEMX,MY:PLOT102,MX+5,MY+7
  130 K=OPENUP("COM:")
  140 IF EOF#K=FALSE GOTO170
  150 G=INKEY(1)
  160 IF G=-1 GOTO140 ELSE PROCkey:GOTO140
  170 B1=BGET#K
  180 IF B1 AND 64 GOTO190 ELSE GOTO140
  190 B2=BGET#K:B3=BGET#K
  200 XI=(63 AND B2):YI=(63 AND B3)
  210 IF B1 AND 32 LB=TRUE:PROCbutton ELSE IF LB=TRUE LB=FALSE:PROCbutton
  220 IF B1 AND 16 RB=TRUE:PROCbutton ELSE IF RB=TRUE RB=FALSE:PROCbutton
  230 IF B1 AND 8 YC=YC+(64-YI) ELSE YC=YC-YI
  240 IF B1 AND 2 XC=XC-(64-XI) ELSE XC=XC+XI
  250 IF XC<-S AND MX>0 MOVEMX,MY:PLOT102,MX+5,MY+7:MX=MX-6:XC=0:MOVEMX,MY:PLOT102,MX+5,MY+7
  260 IF YC<-S AND MY>0 MOVEMX,MY:PLOT102,MX+5,MY+7:MY=MY-8:YC=0:MOVEMX,MY:PLOT102,MX+5,MY+7
  270 IF XC>S AND MX<474 MOVEMX,MY:PLOT102,MX+5,MY+7:MX=MX+6:XC=0:MOVEMX,MY:PLOT102,MX+5,MY+7
  280 IF YC>S AND MY<120 MOVEMX,MY:PLOT102,MX+5,MY+7:MY=MY+8:YC=0:MOVEMX,MY:PLOT102,MX+5,MY+7
  290 IF MX=474 XC=-S ELSE IF MX=0 XC=S
  300 IF MY=120 YC=-S ELSE IF MY=0 YC=S
  310 GOTO140
  320 DEF PROCkey
  330 PRINTTAB(0,3)"Key : ";:VDU27,G
  340 ENDPROC
  350 DEF PROCbutton
  360 IF LB=TRUE PRINTTAB(0,0)"Left Button" ELSE PRINTTAB(0,0)SPC12
  370 IF RB=TRUE PRINTTAB(0,1)"Right Button" ELSE PRINTTAB(0,1)SPC12
  380 ENDPROC