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

procedure p1()
   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")
end

procedure p2()
   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")
end

procedure p3()
   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")
end

procedure p4()
   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")
end

procedure p5()
   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")
end

procedure p6()
   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")
end

procedure p7()
   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")
end

procedure p8()
   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")
end

procedure p9()
   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")
end

procedure p10()
   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("s := \"x\" ----> ",image(s := "x") | "none")
   write("s <<:= \"x\" ----> ",image(s <<:= "x") | "none")
end

procedure p11()
   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")
end

procedure p12()
   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")
end

procedure main()
   p1()
   p2()
   p3()
   p4()
   p5()
   p6()
   p7()
   p8()
   p9()
   p10()
   p11()
   p12()
end

global i, s, c, one, two, x