20 lines
296 B
Plaintext
20 lines
296 B
Plaintext
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
|