Home | Reviews | GUIpedia | Forum | Fun500

DickQBasic Program
SCREEN 9
a = 1
DO
i = i - .1
SCREEN , , a, b
LINE (0, 0)-(220, 349), 0, BF
LINE (200, 300)-STEP(200, 10), 15, BF
LINE (350, 300)-STEP(50, 10), 6, BF
FOR y = 0 TO 300
   x = SIN(y * .05 + i) * y \ 5 - y \ 3
   x1 = COS(y * .05 + i) * y \ 5 - y \ 3
   IF x1 < x THEN SWAP x, x1
   LINE (200 + x - y \ 20, 300 - y)-(200 + x1 + y \ 20, 300 - y), 7, , &H5555
NEXT
a = a XOR 1
b = b XOR 1
LOOP UNTIL INP(&H60) = 1
SYSTEM
2010-03-2712:06 AM
HorvatMRe:QBasic Program
Wow... this is beautiful!		2010-03-277:19 AM

BASIC Programming Help

2021 Brandon Cornell