dipset all day every

var price:real:=0
var subtotal:real


put "Please enter a price.."
get subtotal

if subtotal > 4 then
price := subtotal * 1.14
else
price := subtotal * 1.08
end if

put "Your total is.."
delay (100)
put price