4.3BSD/usr/contrib/icon/test/std42.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("i := 10 ----> ",image(i := 10) | "none")
   write("i +:= 9 ----> ",image(i +:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i +:= 10 ----> ",image(i +:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i +:= 11 ----> ",image(i +:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i -:= 9 ----> ",image(i -:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i -:= 10 ----> ",image(i -:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i -:= 11 ----> ",image(i -:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i *:= 9 ----> ",image(i *:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i *:= 10 ----> ",image(i *:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i *:= 11 ----> ",image(i *:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i /:= 9 ----> ",image(i /:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i /:= 10 ----> ",image(i /:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i /:= 11 ----> ",image(i /:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i %:= 9 ----> ",image(i %:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i %:= 10 ----> ",image(i %:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i %:= 11 ----> ",image(i %:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i ^:= 9 ----> ",image(i ^:= 9) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i ^:= 10 ----> ",image(i ^:= 10) | "none")
   write("i ----> ",image(i) | "none")
   write("i := 10 ----> ",image(i := 10) | "none")
   write("i ^:= 11 ----> ",image(i ^:= 11) | "none")
   write("i ----> ",image(i) | "none")
   write("[] ^ i ----> ",image([] ^ i) | "none")
end