Data commit

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

@@ -0,0 +1,26 @@
+nomainwin
+
+UpperLeftX=1
+UpperLeftY=1
+WindowWidth=DisplayWidth
+WindowHeight=DisplayHeight
+
+graphicbox #gr.gr, -1, -1,  DisplayWidth+4, DisplayHeight+1
+open "Pinstripe/Display" for window_popup as #gr
+ #gr.gr "down"
+ #gr.gr "trapclose [quit]"
+ #gr.gr "color black"
+ #gr.gr "backcolor black"
+
+for w = 1 to 4
+    y1=y2
+    y2=y1+DisplayHeight/4
+    for x = w to DisplayWidth+4 step w*2
+         #gr.gr "place ";x;" ";y1;"; boxfilled ";x+w;" ";y2
+    next
+next
+wait
+
+[quit]
+    close #gr
+    end