OpenEuphoria

Re: A Little QBasic help

• Posted by Doug Cox <cox.family at SK.SYMPATICO.CA> Aug 07, 1998
• 590 views

Dear Euphorians,

Thanks for all the help. It's very much appreciated.
I've found the original source for the program, so
I've posted it below. I've had a little problem with
drawing lines (it tells me I can't do it with sequences)
and with the IF statement, which it says it requires
an atom for. Here's the code, and thanks again!

Chris Cox
cox.family at sk.sympatico.ca

BEE.BAS

DEFINT A-Z
RANDOMIZE TIMER
CONST anzbee = 100
DIM g(anzbee, 1), p(anzbee, 1), pa(anzbee, 1), pa2(anzbee, 1)
FOR a = 0 TO anzbee
g(a, 0) = INT(RND * 7 - 3)
g(a, 1) = INT(RND * 7 - 3)
p(a, 0) = INT(RND * 640)
p(a, 1) = INT(RND * 480)
pa(a, 0) = INT(RND * 640)
pa(a, 1) = INT(RND * 480)
NEXT
SCREEN 12
DO
LINE (pa2(0, 0), pa2(0, 1))-(pa(0, 0), pa(0, 1)), 0
LINE (pa(0, 0), pa(0, 1))-(p(0, 0), p(0, 1)), 14
pa2(0, 0) = pa(0, 0)
pa2(0, 1) = pa(0, 1)
pa(0, 0) = p(0, 0)
pa(0, 1) = p(0, 1)
p(0, 0) = p(0, 0) + g(0, 0)
p(0, 1) = p(0, 1) + g(0, 1)
g(0, 0) = (g(0, 0) + RND * 2 - 1) MOD 10
IF p(0, 0) < 8 OR p(0, 0) > 632 THEN g(0, 0) = -g(0, 0)
g(0, 1) = (g(0, 1) + RND * 2 - 1) MOD 10
IF p(0, 1) < 8 OR p(0, 1) > 472 THEN g(0, 1) = -g(0, 1)
FOR a = 1 TO anzbee
LINE (pa2(a, 0), pa2(a, 1))-(pa(a, 0), pa(a, 1)), 0
LINE (pa(a, 0), pa(a, 1))-(p(a, 0), p(a, 1)), 12
pa2(a, 0) = pa(a, 0)
pa2(a, 1) = pa(a, 1)
pa(a, 0) = p(a, 0)
pa(a, 1) = p(a, 1)
p(a, 0) = p(a, 0) + g(a, 0)
p(a, 1) = p(a, 1) + g(a, 1)
g(a, 0) = (g(a, 0) + ((p(0, 0) - p(a, 0)) \ 100)) MOD 10
g(a, 1) = (g(a, 1) + ((p(0, 1) - p(a, 1)) \ 100)) MOD 10
NEXT
LOOP WHILE INKEY$ = ""
SYSTEM