RosettaCodeData/Task/Floyds-triangle/ZX-Spectrum-Basic/floyds-triangle.zx
2016-12-05 22:15:40 +01:00

9 lines
149 B
Text

10 LET n=10: LET j=1: LET col=1
20 FOR r=1 TO n
30 FOR j=j TO j+r-1
40 PRINT TAB (col);j;
50 LET col=col+3
60 NEXT j
70 PRINT
80 LET col=1
90 NEXT r