void local fn FloydsTriangle( rows as int )
int col, row, num = 1
printf @"%d rows:", rows
for row = 1 to rows
for col = 1 to row
printf @"%4d\b", num
num++
next
print
end fn
fn FloydsTriangle( 5 )
fn FloydsTriangle( 14 )
HandleEvents