4.3BSD/usr/contrib/icon/test/std43.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("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<:= \"x\" ----> ",image(s <<:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<:= \"xx\" ----> ",image(s <<:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<:= \"X\" ----> ",image(s <<:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<:= \"abc\" ----> ",image(s <<:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ~==:= \"x\" ----> ",image(s ~==:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ~==:= \"xx\" ----> ",image(s ~==:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ~==:= \"X\" ----> ",image(s ~==:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ~==:= \"abc\" ----> ",image(s ~==:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ?:= \"x\" ----> ",image(s ?:= "x") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ?:= \"xx\" ----> ",image(s ?:= "xx") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ?:= \"X\" ----> ",image(s ?:= "X") | "none")
   write("s ----> ",image(s) | "none")
   write("s := \"x\" ----> ",image(s := "x") | "none")
   write("s ?:= \"abc\" ----> ",image(s ?:= "abc") | "none")
   write("s ----> ",image(s) | "none")
   write("s ?:= s ----> ",image(s ?:= s) | "none")
   write("s ?:= &subject[3] ----> ",image(s ?:= &subject[3]) | "none")
end