Dim x As Integer
Dim y As Integer
Dim z As Integer

Wait(500)

Terminate