STARTB:
 Cls
 Print '         MIND-STATE'
 Print '         ~~~~~~~~~~'
 Print '  1 - Meditation/Deep Relaxation'
 Print '  2 - Creative/Learning'
 Print '  3 - Deep Sleep'
 Print
 Input ' Which mind-state (1-3)';i
 If (i<1) Or (i>3) Then STARTB
 STATE=((i*4)-2)

MAIN:
 A=Timer : B=Timer
 While (Timer-A)<300
 FREQUENCY=(45-(((Timer-a)/300)*(45-STATE)))