11 lines
147 B
QBasic
11 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
|