MOUS]
SW 1 , SW 2, and SW3 designate th e sw itches on th e Mous
(here th e HAWLEY MARK n Mouse), which can be on o
o ff. X is th e Mouse position on the X coord in ate; y th
Mouse position on th e Y coordinate.
10
REM
REM MOOSE 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
CALL SETMAX(XM,YM)
20
REM SET MOUSE POSITION
X0=0
Y0 = 0
CALL SETPOS(X0,Y0)
C$="N"
100
REM LOOP MOUSE ACTION
FOR 1=0 TO 0 STEP 0
CALL GMOUS(SW3,SW2,SW1,Y,X)
DISPLAY AT (5,1) USING " X=tHM t Y=#####*" :X,Y
DISPLAY AT(7,1):" SWITCH l:*;SWl;" SWITCH 3:";SW3 ;" SWITCH 2:";SW
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);"01"
END
8 -1 ]
To Next Page
Loading...