View.Set ("graphics:max,max")
var total : real := 0
var order : real
var frieflag : real := 0
var guess : string
put " ---------Welcome to Wendys----------"
put "please type the number of your choice"
put "1) Old Hamburger................10.01"
put "2) Triple Burger................15.61"
put "3) Milkshake.....................3.52"
put "4) Fries.........................4.61"
put "5) Exit"
put "-------------------------------------"
loop
put "What would you like to order?"
get order
if order = 1 then
total := total + 10.01
elsif order = 2 then
total := total + 15.61
elsif order = 3 then
total := total + 3.52
elsif order = 4 then
total := total + 4.61
frieflag += 1
elsif order = 5 then
cls
put "Your total is...", total
exit
end if
end loop
if frieflag = 0 then
put "would you like fries with that? y/n"
get guess
if guess = "y" then
total := total + 4.60
put "Your total is...", total
elsif guess = "n" then
put "thank you have a nice day"
cls
end if
end if