4.3BSD/usr/contrib/icon/test/std60.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("&subject := string(&lcase) ----> ",image(&subject := string(&lcase)) | "none")
   write("while write(move(1)) ----> ",image(while write(move(1))) | "none")
   write("&subject := string(&lcase) ----> ",image(&subject := string(&lcase)) | "none")
   write("every write(tab(1 to 10)) ----> ",image(every write(tab(1 to 10))) | "none")
   write("pos(0) ----> ",image(pos(0)) | "none")
   write("pos(15) ----> ",image(pos(15)) | "none")
   write("&subject := string(&lcase) ----> ",image(&subject := string(&lcase)) | "none")
   write("pos(1) ----> ",image(pos(1)) | "none")
   write("pos(\"a\") ----> ",image(pos("a")) | "none")
end