[comp.sys.ti] MOUSE ABASIC DEMO

ebray@pacsbb.UUCP (Eric Bray) (07/02/89)

100 CALL GRAPHICS(3,3)
110 CALL CHAR(255,"E0C0A01")
120 CALL SEEMOUSE(100,100,3)
130 MOUSE ON 
140 CALL MOUSEDRAG( ON ,16)
150 CALL MKEY(B1,B2,B3,J,K)
160 DISPLAY AT(24,1):B1,B2,B3,J,K
170 GOTO 150