// Title  : COMAL Example 9
// Author : John Walsh
// Date   : 1 May 2000
//
timesinloop := 0
REPEAT
    timesinloop := timesinloop + 1
    PRINT "Please enter a word (or END to finish) ";
    INPUT word$
UNTIL word$ = "END" OR word$ = "end"
PRINT "Program ended"
PRINT "The number of times in the loop is "; timesinloop
END