0printspc(8)"Mo/":fory=-9to9:forx=-9to9:printmid$("-+ !",1-(x=9*sgn(x))-2*noty=9*sgn(y),1);:next:print:next