22 lines
258 B
QBasic
22 lines
258 B
QBasic
|
SUB MAIN
|
||
|
|
DIM CX, CY, R AS INTEGER
|
||
|
|
|
||
|
|
GRAPHICS
|
||
|
|
|
||
|
|
CY=SCREENHEIGHT()/2
|
||
|
|
CX=SCREENWIDTH()/2
|
||
|
|
|
||
|
|
IF (CX < CY) THEN
|
||
|
|
R=CX/2
|
||
|
|
ELSE
|
||
|
|
R=CY/2
|
||
|
|
END IF
|
||
|
|
|
||
|
|
SETCOLOR 0,0,0
|
||
|
|
CLS
|
||
|
|
SETCOLOR 255,255,255
|
||
|
|
FILLCIRCLE CX,CY,R
|
||
|
|
REPAINT
|
||
|
|
SLEEP 5000
|
||
|
|
END SUB
|