0 DIM A(9,9):FOR I=0 TO 8:FOR J=0 TO 8:A(I,J)=40/(2+I+J/7):NEXTJ,I
1 GR:N=23
2 FOR Q=6 TO 0 STEP -1:P=0
3 FOR I=0 TO 19:IF 20-I>A(P,Q) THEN 7
4 P=P+1:Z=39-I:J=I+1:W=Z-1
6 COLOR=N+P:HLIN J,W AT I:HLIN J,W AT Z:VLIN J,W AT I:VLIN J,W AT Z
7 NEXTI,Q:N=N+1:IF N=32 THEN N=16
8 GOTO 2
