15 lines
333 B
Plaintext
15 lines
333 B
Plaintext
100 PROGRAM "Multipli.bas"
|
|
110 TEXT 80
|
|
120 PRINT TAB(7);
|
|
130 FOR I=1 TO 12
|
|
140 PRINT USING " ###":I;
|
|
150 NEXT
|
|
160 PRINT AT 2,5:"----------------------------------------------------"
|
|
170 FOR I=1 TO 12
|
|
180 PRINT USING "### |":I;:PRINT TAB(I*4+3);
|
|
190 FOR J=I TO 12
|
|
200 PRINT USING " ###":I*J;
|
|
210 NEXT
|
|
220 PRINT
|
|
230 NEXT
|