New Challenge Forum

[BlueKeyboard]

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: .

[na_th_an]

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

[BlueKeyboard]

Yes

[wildcard]

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 ;-)

[na_th_an]

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

[BlueKeyboard]

Yup, we have three winners :

nathan, Hard Rock and wildcard.

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

[BlueKeyboard]

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...

[BlueKeyboard]

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

[wildcard]

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

[BlueKeyboard]

wildcard won!!! :bounce: