Add files via upload

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

View file

@ -0,0 +1,21 @@
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
DRAWRECT X,Y,RW,RH
REPAINT
SLEEP 5000
END SUB