Blocks |W~dblocks n0:0:7: x0p$(10 ,1):b(10 ):f(10 ) %t(10 ):w=31:d=21 "top row ";tr:3000 *"bottom row ";br:3000 :br>dbr=d "left column ";lc:3000 +"right colum ";rc:3000 :rc>wrc=w !"pattern length ";n:3000 j=1n ("character";j;" ");p$(j) "paper colour (0 to 8) ";b(j) "ink colour (0 to 8) ";t(j) ""flash (0 to 1) ";f(j) ,3000 :j:j=1 6 r=trbr @ c=lcrc Jr,c;b(j);t(j);f(j);p$(j) Tj=j+1:j>nj=1 ^c:r h"another go (y/n)";a$ r3000 :a$="y"200 | !n=015:d:"a"+n,d !n:u$=144:z$=145  r(n)=(*n)+1 :   r,c;:  v,h;: p l,p;: Xk$=: wdn 5 5 5 6@An aa