function trianglevalue(col, row)
 return (row-1)*row\2 + col
end function

subroutine printtriangle(numrows)
 for row = 1 to numrows
  for col = 1 to row-1
   colwidth = length(""+trianglevalue(col, numrows))
   print right(" "*colwidth+trianglevalue(col, row), colwidth);" ";
  next col
  colwidth = length(""+trianglevalue(col, numrows))
  print right(" "*colwidth+trianglevalue(col, row), colwidth)
 next row
end subroutine

call printtriangle(5)
print
call printtriangle(14)