RosettaCodeData/Task/Multiplication-tables/BBC-BASIC/multiplication-tables.basic

9 lines
205 B
Plaintext

@% = 5 : REM Set column width
FOR row% = 1 TO 12
PRINT row% TAB(row% * @%) ;
FOR col% = row% TO 12
PRINT row% * col% ;
NEXT col%
PRINT
NEXT row%