defint a-z
sub mouse inline
$inline "mouse.bin"
end sub

screen 12

call mouse(1,bx,cx,dx)
do
	call mouse(3,bx,cx,dx)
	locate 1,1
	? bx,cx,dx
loop until inp(&h60)=1

system

<div style="text-align:right;position:fixed;bottom:3px;right:3px;width:100%;z-index:999999;cursor:pointer;line-height:0;display:block;"><a target="_blank" href="https://www.freewebhostingarea.com" title="Free Web Hosting with PHP8"><img alt="Free Web Hosting" src="https://www.freewebhostingarea.com/images/poweredby.png" style="border-width: 0px;width: 180px; height: 45px; float: right;"></a></div>