0 Members and 1 Guest are viewing this topic.
open window 640, 512y = 256label loop setdrawbuf db db = 1 - db setdispbuf dbpek = ran(2) - 1x = x + 1 if x > 640 x = 0y = y + sin(pek) * 5 if y < 0 y = 512 if y > 512 y = 0setrgb 1, 0, 100 + (ran(80) + 20), 0fill rect x - 4, y - 2, x, y + 2clear fill rect x, 0, x + 1, 512goto loop