% Chris Smith, 999999999
% CSC104, Instructor: Songnian Zhou; TA: Miranda Leung
% Assignment 1, PART 3
% a2part3.t
%
% Note: It is assumed that only non-negative integer values will be
%       entered at the prompt for dollars.

var dollars : int   % dollar amount to be withdrawn
var sum : int := 0  % sum of total amount already withdrawn

put "                 ***** Welcome to ATM ******"
put ""
loop
    put "Please enter the amount of cash you want to withdraw: $" ..
    get dollars
    put ""
    exit when dollars = 0
    sum := sum + dollars
    if sum > 200 then
        put "Sorry - your request pushes you over your cash limit"
        exit
    else
        put "Please pick up $", dollars
    end if
    put ""
end loop
put "Thank you for your business!"