cls
for i=1 to 3
    for j=1 to 5 step 2
        if 3 mod i =0 then 
                      ? "1";
                      else
                      ? "3";
         end if
    next j
    ?
next i
for k=3 to 1 step -1
    for l=5 to 1 step -2
        if 3 mod i=0 then 
                     ? "3";
                     else
                     ? "1";
        end if
     next j
     ?
next i
end