10 lines
147 B
QBasic
10 lines
147 B
QBasic
SUB MAIN
|
|
DIM I AS INTEGER
|
|
GRAPHICS
|
|
FOR I=1 TO 20
|
|
SETCOLOR RND(256),RND(256),RND(256)
|
|
CLS
|
|
REPAINT
|
|
SLEEP 500
|
|
END FOR
|
|
END SUB
|