Gosub DRIVER
 Wend

 A=Timer
 FREQUENCY=STATE
 While (Timer-A)<((PROGRAM*900)-600)
 Gosub DRIVER
 Wend

 A=Timer
 While (Timer-A)<300
 FREQUENCY=STATE+(((Timer-A)/300)*(45-STATE)))
 Wend

 Beep
 End