"Provide the Information Concepts Hotline."

| icSpeech update |

  [Voice pollRead = 1] whileTrue:
    [Voice read].
  Voice autoAnswer.
  update := 0.
  icSpeech := ICHotline new.
  [True] whileTrue:
    [
      (Voice pollRead = 1) ifTrue:
      	[
      	  'Got data' printNl.
      	  (Voice read match: ';70;1z') ifTrue:
      	    [
      	      'Talking...' print.
      	      icSpeech go.
      	      Voice sleep: 5.
      	      Voice sync.
      	      Voice sleep: 5.
      	      Voice hangup.
      	      Voice sleep: 5.
      	      Voice autoAnswer.
      	      'Finished' printNl.
      	      [Voice pollRead = 1] whileTrue:
      	      	[Voice read].
      	    ]
      	]
      ifFalse:
      	[
      	  (update = 20) ifTrue:
      	    [
      	      'Update ITN data' printNl.
      	      ITN update.
      	      update := 0.
      	    ].
      	  update := update + 1.
      	  Voice sleep: 5.
      	].
    ].
!