Data commit

Task/Munching-squares/Applesoft-BASIC/munching-squares.basic

@@ -0,0 +1,25 @@
+ 100  DATA 0,2, 6,10,5, 6, 7,15
+ 110  DATA 0,1, 3,10,5, 3,11,15
+ 120  DATA 0,8, 9,10,5, 9,13,15
+ 130  DATA 0,4,12,10,5,12,14,15
+ 140  LET C = 7
+ 150  POKE 768,169: REM LDA #
+ 160  POKE 770,073: REM EOR #
+ 170  POKE 772,133: REM STA
+ 180  POKE 773,235: REM   $EB
+ 190  POKE 774,096: REM RTS
+ 200  GR
+ 210  FOR H = 0 TO 1
+ 220      FOR W = 0 TO 1
+ 230          FOR S = 0 TO C
+ 240              READ C(S)
+ 250          NEXT S
+ 260          FOR Y = 0 TO C
+ 270              POKE 769,Y
+ 280              LET Y1 = H * S * 2 + Y * 2
+ 290              FOR X = 0 TO C
+ 300                  POKE 771,X
+ 310                  CALL 768
+ 320                  COLOR= C( PEEK (235))
+ 330                  VLIN Y1,Y1 + 1 AT W * S + X
+ 340                  NEXT X,Y,W,H