100 M = 12
110 DEF FN T(X) = X * 3 + (X < 4) * (4 - X) + (X > 10) * (X - 10) - 1
120 FOR N = -1 TO M
130     IF NOT N THEN PRINT CHR$(13) TAB(5); : FOR J = 5 TO FN T(M + 1) - 2 : PRINT "-"; : NEXT J, N
140     I = ABS(N)
150     IF N > 0 THEN PRINT CHR$(13) MID$("  ", 1, I < 10) I" !";
160     FOR J = I TO M
170         V$ = STR$(I * J)
180         PRINT TAB(FN T(J)) MID$("  ", 1, 3 - LEN(V$) - (J < 4)) V$;
190 NEXT J, N