13 lines
300 B
Text
13 lines
300 B
Text
#100 = Get_Num("Number of rows: ", STATLINE)
|
|
#0=0; #1=1
|
|
Ins_Char(' ', COUNT, #100*3-2) Num_Ins(1)
|
|
for (#99 = 2; #99 <= #100; #99++) {
|
|
Ins_Char(' ', COUNT, (#100-#99)*3)
|
|
#@99 = 0
|
|
for (#98 = #99; #98 > 0; #98--) {
|
|
#97 = #98-1
|
|
#@98 += #@97
|
|
Num_Ins(#@98, COUNT, 6)
|
|
}
|
|
Ins_Newline
|
|
}
|