// Title  : COMAL Example 11
// Author : John Walsh
// Date   : 1 May 2000
//
timesinloop := 0
PRINT "Please enter a word ";
INPUT word$
WHILE NOT ((word$ = "end") OR (word$ = "END")) DO
    timesinloop := timesinloop + 1
    PRINT "Please enter a word ";
    INPUT word$
ENDWHILE
PRINT "Program ended"
PRINT "The number of times in the loop is "; timesinloop
END