FUNCTION func:BOOL;
((c:=c+1)-1);
(c:=c+1);
((c:=c-1)+1);
(c:=c-1);
p := ( ((p:=p+1)-1) )^;
p := ( (p:=p+1) )^;
p := ( ((p:=p-1)+1) )^;
p := ( (p:=p-1) )^;
p := ((p:=p+1)-1)^;
p := (p:=p+1)^;
p := ((p:=p-1)+1)^;
p := (p:=p-1)^;