21 lines
300 B
QBasic
21 lines
300 B
QBasic
|
SUB MAIN
|
||
|
|
DIM W, H AS INTEGER
|
||
|
|
DIM RW, RH AS INTEGER
|
||
|
|
DIM X, Y AS INTEGER
|
||
|
|
|
||
|
|
GRAPHICS
|
||
|
|
|
||
|
|
W = SCREENWIDTH()
|
||
|
|
H = SCREENHEIGHT()
|
||
|
|
RW = W / 2
|
||
|
|
RH = H / 2
|
||
|
|
X = RW / 2
|
||
|
|
Y = RH / 2
|
||
|
|
|
||
|
|
SETCOLOR 0,0,0
|
||
|
|
CLS
|
||
|
|
SETCOLOR 255,255,255
|
||
|
|
DRAWROUNDRECT X,Y,RW,RH,50,50
|
||
|
|
REPAINT
|
||
|
|
SLEEP 5000
|
||
|
|
END SUB
|