4.3BSD/usr/contrib/icon/test/std40.icn

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("'a' ----> ",image('a') | "none")
   write("'ab' ----> ",image('ab') | "none")
   write("'\\xb9' ----> ",image('\xb9') | "none")
   write("'\\xb8\\xb4' ----> ",image('\xb8\xb4') | "none")
   write("'\\^d' ----> ",image('\^d') | "none")
   write("'\\^a\\^d' ----> ",image('\^a\^d') | "none")
   write("\"a\" ----> ",image("a") | "none")
   write("\"ab\" ----> ",image("ab") | "none")
   write("\"\\xb9\" ----> ",image("\xb9") | "none")
   write("\"\\xb8\\xb4\" ----> ",image("\xb8\xb4") | "none")
   write("\"\\^d\" ----> ",image("\^d") | "none")
   write("\"\\^a\\^d\" ----> ",image("\^a\^d") | "none")
   write("*'a' ----> ",image(*'a') | "none")
   write("*'ab' ----> ",image(*'ab') | "none")
   write("*'\\xb9' ----> ",image(*'\xb9') | "none")
   write("*'\\xb8\\xb4' ----> ",image(*'\xb8\xb4') | "none")
   write("*'\\^d' ----> ",image(*'\^d') | "none")
   write("*'\\^a\\^d' ----> ",image(*'\^a\^d') | "none")
   write("*\"a\" ----> ",image(*"a") | "none")
   write("*\"ab\" ----> ",image(*"ab") | "none")
   write("*\"\\xb9\" ----> ",image(*"\xb9") | "none")
   write("*\"\\xb8\\xb4\" ----> ",image(*"\xb8\xb4") | "none")
   write("*\"\\^d\" ----> ",image(*"\^d") | "none")
   write("*\"\\^a\\^d\" ----> ",image(*"\^a\^d") | "none")
   write("+\"a\" ----> ",image(+"a") | "none")
end