Multiplication tables: Difference between revisions
Content added Content deleted
(BASIC | Applesoft BASIC) |
|||
Line 279: | Line 279: | ||
'''See also:''' [[#BBC BASIC|BBC BASIC]], [[#Liberty BASIC|Liberty BASIC]], [[#PureBasic|PureBasic]] |
'''See also:''' [[#BBC BASIC|BBC BASIC]], [[#Liberty BASIC|Liberty BASIC]], [[#PureBasic|PureBasic]] |
||
==={{header|Applesoft BASIC}}=== |
|||
<lang ApplesoftBasic>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</lang> |
|||
=={{header|BBC BASIC}}== |
=={{header|BBC BASIC}}== |