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