ebray@pacsbb.UUCP (Eric Bray) (07/14/89)
90 ! Program by WALT HOWE 100 CALL GRAPHICS(2,2) 110 CALL TCOLOR(2,15) 120 CLS 130 MOUSE ON ! Activates interrupts 140 CALL CHAR(252,"36361C3C7CF81818") ! Sets the mouse character shape 150 CALL DCOLOR(5,1) ! Sets the color of the rectangle to be drawn in 230 160 CALL SEEMOUSE(100,100,3) ! Makes the mouse visible at location 100,100 170 DISPLAY AT(2,5):"MOVE ME AROUND" 180 FOR N=1 TO 1000 :: NEXT N ! Delay loop to let you move the mouse around 190 DISPLAY AT(4,5):"NOW, PRESS THE LEFT BUTTON" 200 CALL MKEY(A,B,C,D,E) :: IF A=0 THEN 200 ! Repeats until you press butto 210 CALL MOUSEDRAG( ON ,7) ! Turns on the mouse drawing command 220 CALL MKEY(A,B,C,D,E) ! Sets up the loop while button 1 is pressed per 2 230 CALL RECTANGLE(1,166,16,166,92,190,16) 240 DISPLAY AT(22,4)SIZE(8):"LOCATION" 250 DISPLAY AT(23,4)SIZE(10)INVERT :D;E ! Displays pixel values of position 260 IF A=1 THEN 220 ! Loops as long as button 1 is pressed, allowing drawin 270 PRINT "DONE" 280 END