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
  next
  print
end fn

fn FloydsTriangle(  5 )
fn FloydsTriangle( 14 )

HandleEvents