While Not KeyHit(1)
Graphics 640,480,16,2
Print "Good Day Customer..."
Delay 700
Text 240,200,"Click to Continue"
Color 255,0,0
LoadFont 36
.waiting
If MouseDown(1)
mx=MouseX()
my=MouseY()
If mx >200 And mx <240 And my > 200 And my < 220
Print ("test")
EndIf
Else
Goto waiting
EndIf
LoadBuffer (FrontBuffer(), "H:\IST\Vending Machine.jpg")
VendingMachine= LoadImage ("H:\IST\Vending Machine.jpg")
Cls
Graphics 640,480,16,2
.start
money%= money+ Input("Insert Money $AUS ")
Print money
Print "What Drink Would You Like? "
Delay 350
Print "You May Select From..."
Delay 950
Print "CoccaCola"
Delay 150
Print "Pepsi"
Delay 150
Print "Coke Zero"
Delay 150
Print "Fanta"
Delay 150
Print "Creaming Soda"
Delay 150
Print " "
Delay 50
drink$=Input$("Please Enter What Drink You Would Like ")
If drink$="CoccaCola"
Print "You Have Choosen to Buy a CoccaCola. "
End If
Wend
End