23 lines
352 B
Text
23 lines
352 B
Text
'Code 'stolen' from Free Basic and altered to work in Gambas
|
|
|
|
Public Sub Main()
|
|
Dim i, j As Integer
|
|
|
|
Print " X|";
|
|
For i = 1 To 12
|
|
Print Format(i, "####");
|
|
Next
|
|
|
|
Print
|
|
Print "---+"; String(48, "-")
|
|
|
|
For i = 1 To 12
|
|
Print Format(i, "###");
|
|
Print "|"; Space(4 * (i - 1));
|
|
For j = i To 12
|
|
Print Format(i * j, "####");
|
|
Next
|
|
Print
|
|
Next
|
|
|
|
End
|