PROC main()
VAR string x;
VAR string word := "car";
VAR num counter := 1;
! loop all chars
WHILE counter <= StrLen(word) DO
! get char
x := StrPart(word, counter, 1);
! switch based on char
TEST x
CASE "c": GOTO Path_10;
CASE "a": GOTO Path_20;
CASE "r": GOTO Path_30;
ENDTEST
ENDWHILE
! dummy labels
Path_10:
Path_20:
Path_30:
ENDPROC