%The Loop Executing Program - A program that annoucnes at each repetition of a loop
%the number of times it has executed the loop. It will stop at each execution with
%the message type "more" to continue.
%Written by David
%11.12.03

%Declaring 'total' as an integer variable and has an initial value of '0'.

var total : int := 0

%Declaring 'input' and 'more' as string variables.

var input, more : string

%Starting the loop

loop

%Starts the count at 1 and goes up to 1 million.

    for count : 1..1000000

%Displays that the program has 'count' (so many) times. Then tells the user to type more if
%they want to continue. Type exit if you want to exit the program.

        put "The program has run ", count, " time(s). Type 'more' to continue. Type 'exit' to stop."

%Total becomes count added to total. This will act as a storage for the
count and it will
%increase with each 'more' the user types.

        total := total + count
       
%Gets 'input' from the user.

        get input
       
%If the input equals 'more' then it will display a message and clear screen.

        if input = "more" then put "You are cool! You typed more." cls

%Else if the input equals itself then it will play a file, display a message,
%tell the user to type 'more' and not 'input' (that's whatever the user typed).
%Then it displays another message informing the program will still run.

        elsif input = input then Music.PlayFile ("C:/WINDOWS/MEDIA/CHORD.wav")
       
        put "Error! You were supposed to type 'more' to continue. Not ", input,"!"
       
        put "It doesn't matter anyways the program will still run..."

%Else exit.

        else exit

%End the if statement.

        end if
       
%Ends the for count.

    end for

%Ends the entire loop.

end loop

var total : int := 1    % Total Number of times loop goes through (starts at 1)
var count : int := 1    % Keeps track of count
var input : string (4)  % Input can only be 4 characters

loop
%Outputs total times loop went through
    put "Program has run ", total, " time(s). Type 'more' to continue. Type 'exit' to stop."
    get input
    % If user types EXIT than exit loop which ends program anything else it will keep loop going
    if input = "exit" then
        exit
    else
        total := total + count
    end if
end loop

elsif input = input then

    if input = "more" then
        put "You are cool! You typed more."
        cls
    elsif input = "exit" then
        exit
    else
        put "Error! You were supposed to type 'more' to continue. Not ", input, "!"
        put "It doesn't matter anyways the program will still run..."
    end if

elsif input = "exit" then exit

exit when input = "exit"

...
elseif input = "exit" then
     exit
else
...