#SRC: JCON

#  check return values from args()

#%#%  later: add graphics procedures

procedure main()
   nargs(abs, "abs")
   nargs(acos, "acos")
   nargs(any, "any")
   nargs(args, "args")
   nargs(asin, "asin")
   nargs(atan, "atan")
   nargs(bal, "bal")
   nargs(center, "center")
   nargs(char, "char")
   nargs(close, "close")
   nargs(collect, "collect")
   nargs(copy, "copy")
   nargs(cos, "cos")
   nargs(cset, "cset")
   nargs(delay, "delay")
   nargs(delete, "delete")
   nargs(detab, "detab")
   nargs(display, "display")
   nargs(dtor, "dtor")
   nargs(entab, "entab")
   nargs(errorclear, "errorclear")
   nargs(exit, "exit")
   nargs(exp, "exp")
   nargs(find, "find")
   nargs(flush, "flush")
   nargs(function, "function")
   nargs(get, "get")
   nargs(getenv, "getenv")
   nargs(iand, "iand")
   nargs(icom, "icom")
   nargs(image, "image")
   nargs(insert, "insert")
   nargs(integer, "integer")
   nargs(ior, "ior")
   nargs(ishift, "ishift")
   nargs(ixor, "ixor")
   nargs(key, "key")
   nargs(left, "left")
   nargs(list, "list")
   nargs(log, "log")
   nargs(many, "many")
   nargs(map, "map")
   nargs(match, "match")
   nargs(member, "member")
   nargs(move, "move")
   nargs(name, "name")
   nargs(numeric, "numeric")
#  nargs(open, "open")       # not checked: varies depending on #ifdef Graphics
   nargs(ord, "ord")
   nargs(pop, "pop")
   nargs(pos, "pos")
   nargs(proc, "proc")
   nargs(pull, "pull")
   nargs(push, "push")
   nargs(put, "put")
   nargs(read, "read")
   nargs(reads, "reads")
   nargs(real, "real")
   nargs(remove, "remove")
   nargs(rename, "rename")
   nargs(repl, "repl")
   nargs(reverse, "reverse")
   nargs(right, "right")
   nargs(rtod, "rtod")
   nargs(runerr, "runerr")
   nargs(seek, "seek")
   nargs(seq, "seq")
   nargs(serial, "serial")
   nargs(set, "set")
   nargs(sin, "sin")
   nargs(sort, "sort")
   nargs(sortf, "sortf")
   nargs(sqrt, "sqrt")
   nargs(stop, "stop")
   nargs(string, "string")
   nargs(system, "system")
   nargs(tab, "tab")
   nargs(table, "table")
   nargs(tan, "tan")
   nargs(trim, "trim")
   nargs(type, "type")
   nargs(upto, "upto")
   nargs(variable, "variable")
   nargs(where, "where")
   nargs(write, "write")
   nargs(writes, "writes")
end

procedure nargs(p, s)
   write(right(args(p),3), " ", s)
end
