'************************************************
'*                CLIMouse.AMOS                 *
'*          ©1992 by Volker Stepprath           *
'*  Checks the mousebuttons on workbenchscreen  *
'************************************************
'
Amos To Back 
'
Do 
  If Not Btst(6,$BFE001) Then Print "left mousebutton" : Exit 
  If Not Btst(10,$DFF016) Then Print "right mousebutton" : Exit 
Loop 
'
Amos To Front 
'
Wait 50
Edit