100 cls
110 print tab (4);
120 for i = 1 to 12
130   print using " ###";i;
140 next
150 print
160 print " --+------------------------------------------------"
170 for i = 1 to 12
180   print using " ##|";i;
190   print tab (i*4);
200   for j = i to 12
210     print using " ###";i*j;
220   next
230   print
240 next
250 end