Download this file
1 2 3 4 5 6 7 8 9
FUNCTION func:BOOL; i := 0; WHILE i < 5; DO x := x / 2; ((i:=i+1)-1); END_WHILE