02-27-2005, 06:59 PM
[syntax="qbasic"]REM $INCLUDE: 'QB.BI'
DIM inregs AS RegType
DIM outregs AS RegType
SCREEN 13
r = 1: rv = 1
inregs.ax = 0: CALL INTERRUPT(&H33, inregs, outregs)
inregs.ax = 3: CALL INTERRUPT(&H33, inregs, outregs): ox = outregs.cx: oy = outregs.dx
DO
FOR c = 1 TO 110
CIRCLE (160, 100), r, c
r = r + rv
IF r > 320 THEN r = 1: rv = INT(RND * 10) + 1
IF INKEY$ <> "" THEN END
inregs.ax = 3: CALL INTERRUPT(&H33, inregs, outregs)
IF ox <> outregs.cx AND y <> outregs.dx THEN END
WAIT &H3DA, 8
NEXT
LOOP UNTIL INKEY$ <> ""[/syntax]
This complies whith current set rules, 18Lines and Mouse support!!
Enjoy this, :wink: ,...
DIM inregs AS RegType
DIM outregs AS RegType
SCREEN 13
r = 1: rv = 1
inregs.ax = 0: CALL INTERRUPT(&H33, inregs, outregs)
inregs.ax = 3: CALL INTERRUPT(&H33, inregs, outregs): ox = outregs.cx: oy = outregs.dx
DO
FOR c = 1 TO 110
CIRCLE (160, 100), r, c
r = r + rv
IF r > 320 THEN r = 1: rv = INT(RND * 10) + 1
IF INKEY$ <> "" THEN END
inregs.ax = 3: CALL INTERRUPT(&H33, inregs, outregs)
IF ox <> outregs.cx AND y <> outregs.dx THEN END
WAIT &H3DA, 8
NEXT
LOOP UNTIL INKEY$ <> ""[/syntax]
This complies whith current set rules, 18Lines and Mouse support!!
Enjoy this, :wink: ,...