New challenge - most annoying program

[LinkMaster Sab]

Code:

DECLARE SUB MouseDriver (AX%, bx%, CX%, DX%, lb%, RB%, EX%)

DIM SHARED mouse$
SCREEN 9
DRAW "M320,175"
CLS
MouseDriver 1, bx%, CX%, DX%, lb%, RB%, 1
DO

MouseDriver 3, bx%, CX%, DX%, lb%, RB%, 0
side = INT(RND * 4) + 1
SELECT CASE side
CASE 1
x = INT(RND * 640) + 1
y = 1
CASE 2
x = 640
y = INT(RND * 350) + 1
CASE 3
x = INT(RND * 640) + 1
y = 350
CASE 4
x = 1
y = INT(RND * 350) + 1
END SELECT
col = INT(RND * 16) + 1
LINE STEP(0, 0)-(x, y), col
x$ = LTRIM$(RTRIM$(STR$(CX%)))
y$ = LTRIM$(RTRIM$(STR$(DX%)))
DRAW "BM" + x$ + "," + y$
LOOP UNTIL lb% = -1 OR RB% = -1
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

SUB MouseDriver (AX%, bx%, CX%, DX%, lb%, RB%, EX%)
IF EX% = 1 THEN
mouse$ = SPACE$(57)
FOR I% = 1 TO 57
READ A$
H$ = CHR$(VAL("&H" + A$))
MID$(mouse$, I%, 1) = H$
NEXT I%


CLS
END IF
DEF SEG = VARSEG(mouse$)
CALL Absolute(AX%, bx%, CX%, DX%, SADD(mouse$))
lb% = ((bx% AND 1) <> 0)
RB% = ((bx% AND 2) <> 0)
END SUB

I changed it so that it follows the mouse using someone's mouse drivers, and I removed the beep. Not annoying anymore, but still, cool .