Data update

Task/Pinstripe-Display/FutureBasic/pinstripe-display.basic

@@ -0,0 +1,12 @@
+window 1, @"Pinstripe/Display", (0,0,800,484), NSWindowStyleMaskTitled
+
+double x, y = 0, w
+for w = 1 to 4
+  pen w
+  for x = w * 1.5 to 800 step w * 2
+    line x, y to x, y + 121
+  next
+  y += 121
+next
+
+HandleEvents

Task/Pinstripe-Display/GW-BASIC/pinstripe-display.basic

@@ -0,0 +1,17 @@
+10 SCREEN 8
+20 CLS
+30 W = 640: H = 200
+40 H = H \ 4
+50 Y1 = 0: Y2 = H - 1
+60 FOR I = 1 TO 4
+70   COL = 0
+80   Y = (Y - 1) * H
+90   FOR X = 0 TO (W - I - 1) STEP I
+100    LINE (X, Y1)-(X + I - 1, Y2), COL, BF
+110    COL = 15 - COL ' col alternate between 0 (black) and 15 (white)
+120   NEXT X
+130   Y1 = Y1 + H
+140   Y2 = Y2 + H
+150 NEXT I
+160 WHILE INKEY$ = "": WEND
+170 END

Task/Pinstripe-Display/MSX-Basic/pinstripe-display.basic

@@ -0,0 +1,16 @@
+10 SCREEN 7
+20 CLS
+30 W = 512: H = 212
+40 H = H \ 4
+50 Y1 = 0: Y2 = H - 1
+60 FOR I = 1 TO 4
+70   COL = 0
+80   Y = (Y - 1) * H
+90   FOR X = 0 TO (W - I - 1) STEP I
+100    LINE (X, Y1)-(X + I - 1, Y2), COL, BF
+110    COL = 15 - COL ' col alternate between 0 (black) and 15 (white)
+120   NEXT X
+130   Y1 = Y1 + H
+140   Y2 = Y2 + H
+150 NEXT I
+160 GOTO 160

Task/Pinstripe-Display/QBasic/pinstripe-display.basic

@@ -0,0 +1,14 @@
+SCREEN 12
+w = 640: h = 480
+
+h = h \ 4
+y2 = h - 1
+
+FOR ps = 1 TO 4
+    col = 0
+    FOR x = 0 TO (w - ps - 1) STEP ps
+        LINE (x, y1)-(x + ps - 1, y2), col, BF
+        col = 15 - col ' col alternate between 0 (black) and 15 (white)
+    NEXT x
+    y1 = y1 + h: y2 = y2 + h
+NEXT ps