!Т > MouseLib 1.00 12-Sep-1992 : Т Mouse & Pointer Routines (: 2щРPointer_Init <А F: PщРPointer_Draw Z!Ф0,7:П0,0,-12:П2,0,12:П2,12,0 d П0,-12,0:П2,32,-32:П0,-32,32 nА x: ┌щРPointer_UntilAction ▄У √Л mx%,my%:РPointer_Draw ═РMouse_UntilAction ╙РPointer_Draw:Л mx%,my% Є0Щ(obl%<>bl%)└(obm%<>bm%)└(obr%<>br%)└(√(-1)) ЎА х: рщРMouse_Init э!mx%=0:my%=0:bl%=0:bm%=0:br%=0 ФА П: ЗщРMouse_UntilAction 0omx%=mx%:omy%=my%:obl%=bl%:obm%=bm%:obr%=br% У РMouse_Read "HЩ(omx%<>mx%)└(omy%<>my%)└(obl%<>bl%)└(obm%<>bm%)└(obr%<>br%)└(√(-1)) ,А 6: @щРMouse_Read J0mx%=√(7):my%=√(8):bl%=і-11:bm%=і-12:br%=і-13 TА ^: Ъ