record array(a,b,c,d,e,f,g)

procedure dummy(u,v,x,y,z)
   suspend u | v
   return x
end

procedure main()
   write("&ascii ----> ",image(&ascii) | "none")
   write("&clock ----> ",image(&clock) | "none")
   write("&cset ----> ",image(&cset) | "none")
   write("&date ----> ",image(&date) | "none")
   write("&dateline ----> ",image(&dateline) | "none")
   write("&errout ----> ",image(&errout) | "none")
   write("&fail ----> ",image(&fail) | "none")
   write("&host ----> ",image(&host) | "none")
   write("&input ----> ",image(&input) | "none")
   write("&lcase ----> ",image(&lcase) | "none")
   write("&level ----> ",image(&level) | "none")
   write("&main ----> ",image(&main) | "none")
   write("&null ----> ",image(&null) | "none")
   write("&options ----> ",image(&options) | "none")
   write("&output ----> ",image(&output) | "none")
   write("&pos ----> ",image(&pos) | "none")
   write("&random ----> ",image(&random) | "none")
   write("&source ----> ",image(&source) | "none")
   write("&subject ----> ",image(&subject) | "none")
   write("&time ----> ",image(&time) | "none")
   write("&ucase ----> ",image(&ucase) | "none")
   write("&version ----> ",image(&version) | "none")
   write("&subject := [] ----> ",image(&subject := []) | "none")
end