主题:[改编]鼠标程序
程序改编自[url]http://www.qbasic.com/files/wmouse.bas[/url]
DECLARE SUB MouseDriver (AX%, bx%, CX%, DX%, lb%, RB%)
DIM SHARED mouse$
mouse$ = SPACE$(57)
FOR I% = 1 TO 57
READ A$
H$ = CHR$(VAL("&H" + A$))
MID$(mouse$, I%, 1) = H$
NEXT I%
DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B
DATA 5E,08,8B,0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53
DATA 8B,5E,0C,89,07,58,8B,5E,0A,89,07,8B,5E,08,89,0F
DATA 8B,5E,06,89,17,5D,CA,08,00
SCREEN 12: COLOR 15
CLS
DO
MouseDriver 3, bx%, CX%, DX%, lb%, RB%
CIRCLE (CX%, DX%), 5, 12
PSET (CX%, DX%), 12
LOCATE 1, 1: PRINT lb%
LOCATE 2, 1: PRINT RB%
LOCATE 3, 1: PRINT CX%
LOCATE 4, 1: PRINT DX%
CIRCLE (CX%, DX%), 5, 0
PSET (CX%, DX%), 0
LOOP
SUB MouseDriver (AX%, bx%, CX%, DX%, lb%, RB%)
DEF SEG = VARSEG(mouse$)
CALL Absolute(AX%, bx%, CX%, DX%, SADD(mouse$))
lb% = ((bx% AND 1) <> 0)
RB% = ((bx% AND 2) <> 0)
END SUB
DECLARE SUB MouseDriver (AX%, bx%, CX%, DX%, lb%, RB%)
DIM SHARED mouse$
mouse$ = SPACE$(57)
FOR I% = 1 TO 57
READ A$
H$ = CHR$(VAL("&H" + A$))
MID$(mouse$, I%, 1) = H$
NEXT I%
DATA 55,89,E5,8B,5E,0C,8B,07,50,8B,5E,0A,8B,07,50,8B
DATA 5E,08,8B,0F,8B,5E,06,8B,17,5B,58,1E,07,CD,33,53
DATA 8B,5E,0C,89,07,58,8B,5E,0A,89,07,8B,5E,08,89,0F
DATA 8B,5E,06,89,17,5D,CA,08,00
SCREEN 12: COLOR 15
CLS
DO
MouseDriver 3, bx%, CX%, DX%, lb%, RB%
CIRCLE (CX%, DX%), 5, 12
PSET (CX%, DX%), 12
LOCATE 1, 1: PRINT lb%
LOCATE 2, 1: PRINT RB%
LOCATE 3, 1: PRINT CX%
LOCATE 4, 1: PRINT DX%
CIRCLE (CX%, DX%), 5, 0
PSET (CX%, DX%), 0
LOOP
SUB MouseDriver (AX%, bx%, CX%, DX%, lb%, RB%)
DEF SEG = VARSEG(mouse$)
CALL Absolute(AX%, bx%, CX%, DX%, SADD(mouse$))
lb% = ((bx% AND 1) <> 0)
RB% = ((bx% AND 2) <> 0)
END SUB