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