info="LIBRARY: sample.lib

      sample library for static and global procedures
";
//
// Example of a user accessible procedure
//
proc tab (int n)
"USAGE:    tab(n);  (n integer)
RETURNS:  string of n space tabs
EXAMPLE:  example tab; shows an example
{ return(internal_tab(n)); }
example
{
  "EXAMPLE:"; echo=2;
  for(int n=0; n<=5; n=n+1)
  { tab(5-n)+"*"+tab(n)+"+"+tab(n)+"*"; }
}
//
// Example of a static procedure
//
static proc internal_tab(int n)
{ return(" "[1,n]); }