Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Colour-pinstripe-Display/QBasic/colour-pinstripe-display.basic
+++ b/Task/Colour-pinstripe-Display/QBasic/colour-pinstripe-display.basic
@ -0,0 +1,15 @@
+SCREEN 12
+w = 640: h = 480
+
+h = h / 4
+y2 = h - 1
+
+FOR i = 1 TO 4
+    col = 0
+    y = (i - 1) * h
+    FOR x = 1 TO w STEP i
+        IF col MOD 15 = 0 THEN col = 0
+        LINE (x, y)-(x + i, y + h), col, BF
+        col = col + 1
+    NEXT x
+NEXT i