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,32 @@
SUB MAIN
DIM HEIGHT, WIDTH AS INTEGER
DIM I AS INTEGER
GRAPHICS
HEIGHT=SCREENHEIGHT()
WIDTH=SCREENWIDTH()
SETCOLOR 0,0,0 // BLACK
CLS
SETCOLOR 255,255,0 // YELLOW
FOR I=0 to WIDTH STEP 5
PRINT "I=" + STR$(I)
DRAWLINE 0,0,I,HEIGHT
END FOR
SETCOLOR 0,255,255 // CYAN
FOR I=0 TO WIDTH STEP 5
DRAWLINE WIDTH,0,I,HEIGHT
END FOR
REPAINT
FOR I=1 TO 10
SLEEP 1000
TEXT
SLEEP 1000
GRAPHICS
END FOR
END SUB