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