Multiplication tables: Difference between revisions

=={{header|FutureBasic}}==

<lang>

long i, j

window 1, @"Multiplication Table", (0,0,420,220)

print " |";

for i = 1 to 12

print using "####"; i;

next

print :print "---+"; string$(48, "-")

for i = 1 to 12

print using "###"; i;

print"|"; spc(4 * (i - 1));

for j = i to 12

print using "####"; i * j;

next

print

next

HandleEvents

</lang>

{{output}}

<pre>

| 1 2 3 4 5 6 7 8 9 10 11 12

---+------------------------------------------------

1| 1 2 3 4 5 6 7 8 9 10 11 12

2| 4 6 8 10 12 14 16 18 20 22 24

3| 9 12 15 18 21 24 27 30 33 36

4| 16 20 24 28 32 36 40 44 48

5| 25 30 35 40 45 50 55 60

6| 36 42 48 54 60 66 72

7| 49 56 63 70 77 84

8| 64 72 80 88 96

9| 81 90 99 108

10| 100 110 120

11| 121 132

12| 144

</pre>