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