ISaGRAF. Version 3.4


ST - 5


:

(*ST , FOR*)

(* *)

length := mlen (message);

target := ''; (* empty string *)

FOR index := 1 TO length BY 1 DO

code := ascii (message, index);

IF (code >= 48) & (code <= 57) THEN

target := target + char (code);

END_IF;

END_FOR;

EXIT

: EXIT

: FOR, WHILE, REPEAT

: EXIT;

: ()

EXIT, , IF FOR, WHILE, REPEAT.

:

(*ST , EXIT*)

(* *)

length := mlen (message);

found := NO;

FOR index := 1 TO length BY 1 DO

code := ascii (message, index);

IF (code = searched_char) THEN

found := YES;

EXIT;

END_IF;

END_FOR;