02-27-2005, 08:50 PM
Okay, under new rules this complies:
[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]
As for bright colors Mitth, I have a comment above telling why its wrong to judge aganst 'em.. :wink: [/code]
[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]
As for bright colors Mitth, I have a comment above telling why its wrong to judge aganst 'em.. :wink: [/code]