MarMar_2

DIM M(1 TO 11, 1 TO 7), I AS INTEGER, J AS INTEGER
CLS
FOR J = 1 TO 7
    FOR I = 1 TO 11
        IF I = 1 OR I = 11 THEN M(I, J) = 1
        IF ((I = 3) OR (I = 9)) AND (J = 2) THEN M(I, J) = 1
        IF ((I = 4) OR (I = 8)) AND (J = 3) THEN M(I, J) = 1
        IF I = 6 AND J = 4 THEN M(I, J) = 1
        IF M(I, J) = 1 THEN
          PRINT "0";
        ELSE
          PRINT " ";
        END IF
    NEXT I
    PRINT
NEXT J