View.Set ("graphics:max,max")
var total : real := 0
var order : real
var frieflag : real := 0
var guess : string

put "---- HEART ATTACKS ON A BUN -----"


put "1. The Big MOO Combo . . . 5.99"

put "2. Big MOO . . . . . . . . 3.99"

put "3. Spring Surprise . . . . 1.99"

put "4. Fries . . . . . . . . . 1.29"

put "5. Pop . . . . . . . . . . 1.19"

put "6. Exit"


put "---------------------------------"

loop
    put "What would you like?"
    get order

    if order = 1 then
        total := total + 5.99
    elsif order = 2 then
        total := total + 3.99
    elsif order = 3 then
        total := total + 1.99
    elsif order = 4 then
        total := total + 1.29
        frieflag += 1
    elsif order = 5 then
        total := total + 1.19
    elsif order = 6 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 + 1.29
put "Your new total is..", total
end if
  
end if