DarkCat09/mobilebasic
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add files via upload

Browse source
This commit is contained in:
Андрей 2021-03-29 20:43:07 +04:00 • committed by GitHub
parent 64c6352265
commit 35131ba393
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
90 changed files with 1738 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Examples/Graphics/fillcircle.bas Normal file
View file

@ -0,0 +1,21 @@
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