03-30-2006, 04:07 PM
z!re:
Seph:
Code:
cls
screen 13
do
pset (rnd * 320, rnd * 200), rnd * 255
loop until inkey$<>""
Seph:
Code:
cls
screen 13
c = 15
do
c = not c
line (0,0)-(319,199), c, bf
loop until inkey$<>""