Qbasicnews.com

Hehehehehe, you've done it I guess!!!.
Ok,
1. nathan
2. Hard Rock
3. ???

who will win the 3rd place?, ok here comes challenge ver 3:

Guidelines:

all the old guidelines
PRINT not allowed

Now, I hope I haven't forgotten anything now again... :lol: :lol: :lol: .

A single question... Do you know to do it? :barf:
Just curiosity Big Grin

Yes

Code:
'$INCLUDE: 'QB.BI'

DIM InAry AS RegType, OutAry AS RegType

InAry.ax = &H13

CALL INTERRUPT(&H10, InAry, OutAry)

Don't forget to use qb/l ;-)

Quote:You can't use * or FOR either...
I

so what if...

Code:
SCREEN 13

DEF SEG=&HA000

i%=0

WHILE i%<64000

   POKE i%,0

   i%=i%+1

WEND

DEF SEG

Yup, we have three winners Big Grin

:

nathan, Hard Rock and wildcard.

Hmmm, I guess there must be a final:
But only nathan, Hard Rock and wildcard can enter...

Ok, here comes the final challenge:

Guidelines:
Make a rotating box in the middle of the screen, not a filled box.
It should rotate by itself.

The first to enter that program, wins...

Quote:
BlueKeyboard Wrote:You can't use * or FOR either...
I
so what if...

Code:
SCREEN 13 DEF SEG=&HA000 i%=0 WHILE i%<64000 POKE i%,0 i%=i%+1 WEND DEF SEG

Yup, it is that easy Big Grin

Pseduo bad entry ;-)

Code:
SCREEN 13

time! = TIMER

DO: del = del + 1: LOOP UNTIL TIMER - time! > .05

time2 = TIMER

FOR i = 0 TO 360

DRAW "M160,100TA" + STR$(i) + "C0L5C0C15U10R10D10L10"

FOR dell = 0 TO del: NEXT dell

WAIT 986, 8

CLS

NEXT i

wildcard won!!! :bounce:

BlueKeyboard

na_th_an

BlueKeyboard

wildcard

na_th_an

BlueKeyboard

BlueKeyboard

BlueKeyboard

wildcard

BlueKeyboard