21 lines
324 B
Plaintext
21 lines
324 B
Plaintext
include \masm32\MasmBasic\MasmBasic.inc
|
|
SetGlobals rows, columns, ct, maxrows=4
|
|
Init
|
|
.Repeat
|
|
For_ rows=0 To maxrows
|
|
For_ columns=0 To rows
|
|
inc ct
|
|
Print Str$("%__i", ct)
|
|
.if columns>6
|
|
Print " "
|
|
.endif
|
|
Next
|
|
Print
|
|
Next
|
|
Print
|
|
Clr ct
|
|
add maxrows, 9 ; 4+9=13
|
|
.Until maxrows>13
|
|
Inkey
|
|
EndOfCode
|