11 lines
425 B
Plaintext
11 lines
425 B
Plaintext
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
|