pTAL Reference Manual (G06.24+, H06.09+, J06.03+)

Example 191 WHILE Statement
LITERAL len = 100;
INT .array[0:len - 1];
INT item := 0;
WHILE item < len DO
BEGIN
array[item] := 0;
item := item + 1;
END;
! item equals len at this point
The WHILE statement in Example 192 (page 233) increments index until a nonalphabetic character
occurs.
Example 192 WHILE Statement
LITERAL len = 255;
STRING .array[0:len - 1];
INT index := -1;
WHILE (index < len - 1) AND
($ALPHA(array[index := index + 1]))
DO ... ;
WHILE 233