(Smalltalk includesKey: #Voice) ifFalse:
  [FileStream fileIn: 'smalltalk_root:[lib]voice.st'].
(Smalltalk includesKey: #ITN) ifFalse:
  [FileStream fileIn: 'smalltalk_root:[voice]itndata.st'].
!



DECtalk subclass: #ICHotline
  instanceVariableNames:  ''
  classVariableNames: 	  ''
  poolDictionaries:   	  ''
  category:   	      	  'Voice'.
!


!ICHotline methodsFor: 'using'!

go

  Voice say:  '[:np]Welcome to the Information Concepts Hotline. '.
  self prestonTemperature.
  self stKildaWindSpeed.
  self stKildaWindDirection.
  Voice say:  ' Thank you for calling.'.
!

prestonTemperature

| data |

  data := ITN at: 'W71994X'.
  ((data at: (data size)) ~= 0) ifTrue: [^false].

  Voice say: 'The temperature at [prehsten rehservw`ar] is currently, '.
  Voice say: ((data at: 3) format: '%5.1f').
  Voice say: ' degrees [s`ehlsiyahs]. '.
  ^self
!

stKildaWindSpeed

| data |

  data := ITN at: 'DG43.A3'.
  ((data at: (data size)) ~= 0) ifTrue: [^false].

  Voice say: 'The wind speed at Saint Kilda Marina is '.
  Voice say: ((data at: 3) format: '%5.1f').
  Voice say: ' nots. '.
  ^self
!

stKildaWindDirection

| data |

  data := ITN at: 'DG43.A4'.
  ((data at: (data size)) ~= 0) ifTrue: [^false].
  Voice say: 'And the wind direction is '.
  Voice say: ((data at: 3) format: '%5.1f').
  Voice say: ' degrees. '.
  ^self
!!