START:
 Cls
 Print '     TIME'
 Print '     ~~~~'
 Print '  1 - 15 mins'
 Print '  2 - 30 mins'
 Print '  3 - 45 mins'
 Print '  4 - 1 hour'
 Print '  5 - 1 hour 15 mins'
 Print '  6 - 1 hour 30 mins'
 Print '  7 - 1 hour 45 mins'
 Print '  8 - 2 hours'
 Print
 Input '  Which time (1 - 8)';program
 If (program<1) Or (program>8) Then START