16 lines
No EOL
245 B
QBasic
16 lines
No EOL
245 B
QBasic
SUB MAIN
|
|
DIM WIDTH, HEIGHT AS INTEGER
|
|
|
|
GRAPHICS
|
|
WIDTH=SCREENWIDTH()
|
|
HEIGHT=SCREENHEIGHT()
|
|
|
|
SETCOLOR 0,0,0
|
|
CLS
|
|
|
|
WHILE true
|
|
SETCOLOR RND(256),RND(256),RND(256)
|
|
PLOT RND(WIDTH),RND(HEIGHT)
|
|
REPAINT
|
|
END WHILE
|
|
END SUB |