Keskustelu: Koodit: QB: Vuodenajat-animaatio

SCREEN 8
RANDOMIZE TIMER
PAINT (1, 1), 6
FOR i = 1 TO 999999
kokonat = 0
kokonatt = 0
kokonattt = 0
kokonatttt = 0
DO
kokonat = kokonat + 1
y = INT(RND * 200)
x = INT(RND * 640)
y2 = INT(RND * 200)
x2 = INT(RND * 640)
cola = INT(RND * 2) + 1
IF cola = 2 THEN colo = 10
IF cola = 1 THEN colo = 2
PSET (x, y), colo
PSET (x2, y2), colo
IF INKEY$ <> "" THEN END
LOOP UNTIL kokonat = 600000
DO
kokonatt = kokonatt + 1
y = INT(RND * 200)
x = INT(RND * 640)
y2 = INT(RND * 200)
x2 = INT(RND * 640)
cola = INT(RND * 2) + 1
IF cola = 2 THEN colo = 6
IF cola = 1 THEN colo = 14
PSET (x, y), colo
PSET (x2, y2), colo
IF INKEY$ <> "" THEN END
LOOP UNTIL kokonatt = 600000
DO
kokonattt = kokonattt + 1
y = INT(RND * 200)
x = INT(RND * 640)
y2 = INT(RND * 200)
x2 = INT(RND * 640)
cola = INT(RND * 2) + 1
IF cola = 2 THEN colo = 15
IF cola = 1 THEN colo = 7
PSET (x, y), colo
PSET (x2, y2), colo
IF INKEY$ <> "" THEN END
LOOP UNTIL kokonattt = 600000
DO
kokonatttt = kokonatttt + 1
y = INT(RND * 200)
x = INT(RND * 640)
y2 = INT(RND * 200)
x2 = INT(RND * 640)
cola = INT(RND * 2) + 1
IF cola = 2 THEN colo = 14
IF cola = 1 THEN colo = 2
PSET (x, y), colo
PSET (x2, y2), colo
IF INKEY$ <> "" THEN END
LOOP UNTIL kokonatttt = 600000
NEXT