MOUS
SW 1, SW 2 , and SW3 designate th e sw itches on th e Moue
(h ere the HAWLEY MARK n Mouse), which can be on c
o f f. X is th e Mouse position on th e X coordinate; y t±
Mouse position on th e Y coordinate.
REM
REM MOUSE TEST PROGRAM BASIC
REM
USES MOUSE
INTEGER SW1,SW2,SW3,X,Y,X0,Y0,XM,YM
DIM C$*l
SUB FIN (C$)
REM PROMPT FOR FINISH
INPUT AT (19,1)" DO YOU WANT TO FINISH? Y/N ":C$
SUBEND
REM CLEAR SCREEN, CURSOR INVISIBLE
DISPLAY ERASE ALL:CHR$(27);"£0"
DISPLAY AT (2,1): " ****** MOUSE EXAMPLE BASIC *****
DISPLAY AT (17,1):" TO STOP PRESS SWITCH 1 "
REM SET MOUSE MAX VAL
XM=10000
YM=10000
10 CALL SETMAX(XM,YM)
REM SET MOUSE POSITION
X0 = 0
Y0 = 0
20 CALL SETPOS(X0,Y0)
C$=”N"
REM LOOP MOUSE ACTION
FOR 1=0 TO 0 STEP 0
100 CALL GMOUS(SW3,SW2,SW1,Y,X)
DISPLAY AT(5,1) USING " X=#####* Y=####»#":X,Y
DISPLAY AT (7 ,1) :" SWITCH l:";SWl," SWITCH 3:";SW3;" SWITCH 2:";S
REM SET OR CLEAR PROMPT FOR FINISH DEPENDING ON SW1
IF SW1=1 THEN CALL FIN(C$) ELSE DISPLAY AT (19,1):CHR$(27);"L";
IF C$="Y" OR C$="y" THEN 1=1
NEXT I
1000 REM CURSOR VISIBLE
DISPLAY AT (1,1):CHR$(27);"@1"
END
8-1
To Next Page
Loading...