10 REM > Mouse 1.00 12-Sep-1992

   20 :

   30 REM Mouse & Pointer Routines

   40 :

   50 DEFPROCPointer_Init

   60 ENDPROC

   70 :

   80 DEFPROCPointer_Draw

   90 GCOL0,7:PLOT0,0,-12:PLOT2,0,12:PLOT2,12,0

  100 PLOT0,-12,0:PLOT2,32,-32:PLOT0,-32,32

  110 ENDPROC

  120 :

  130 DEFPROCPointer_UntilAction

  140 REPEAT

  150   MOVE mx%,my%:PROCPointer_Draw

  160   PROCMouse_UntilAction

  170   PROCPointer_Draw:MOVE mx%,my%

  180 UNTIL(obl%<>bl%)OR(obm%<>bm%)OR(obr%<>br%)OR(ADVAL(-1))

  190 ENDPROC

  200 :

  210 DEFPROCMouse_Init

  220 mx%=0:my%=0:bl%=0:bm%=0:br%=0

  230 ENDPROC

  240 :

  250 DEFPROCMouse_UntilAction

  260 omx%=mx%:omy%=my%:obl%=bl%:obm%=bm%:obr%=br%

  270 REPEAT

  280   PROCMouse_Read

  290 UNTIL(omx%<>mx%)OR(omy%<>my%)OR(obl%<>bl%)OR(obm%<>bm%)OR(obr%<>br%)OR(ADVAL(-1))

  300 ENDPROC

  310 :

  320 DEFPROCMouse_Read

  330 mx%=ADVAL(7):my%=ADVAL(8):bl%=INKEY-11:bm%=INKEY-12:br%=INKEY-13

  340 ENDPROC

  350 :