1 PRINT TAB(9);"\O/":FOR Y=0 TO 18:FOR X=0 TO 18:PRINT MID$("+-! ",(2*SGN(Y MOD 9))+SGN(X MOD 9)+1,1);:NEXT:PRINT:NEXT
