Add files via upload

2021-03-29 20:43:07 +04:00 · 2021-03-29 20:43:07 +04:00 · 35131ba393
commit 35131ba393
parent 64c6352265
90 changed files with 1738 additions and 0 deletions
--- a/Examples/Graphics/drawrect.bas
+++ b/Examples/Graphics/drawrect.bas
@ -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