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