Data commit

Task/Munching-squares/Action-/munching-squares.action

@@ -0,0 +1,31 @@
+PROC PutBigPixel(BYTE x,y,c)
+  BYTE i
+
+  Color=c
+  x=x*3+16
+  y=y*12
+  FOR i=0 TO 11
+  DO
+    Plot(x,y+i)
+    DrawTo(x+2,y+i)
+  OD
+RETURN
+
+PROC Main()
+  BYTE
+    CH=$02FC, ;Internal hardware value for last key pressed
+    x,y
+
+  Graphics(9)
+
+  FOR y=0 TO 15
+  DO
+    FOR x=0 TO 15
+    DO
+      PutBigPixel(x,y,x!y)
+    OD
+  OD
+
+  DO UNTIL CH#$FF OD
+  CH=$FF
+RETURN