"
FileStream fileIn: 'vmsterminal.st'.
FileStream fileIn: 'dectalk.st'.
'Loaded...' printNl.
!

Test := DECtalk new: 'lta1006:'.
Test initRead.
'Created...' printNl.
!
"

| response tmp count flag noKeys sleepTime |

count := 0.
flag := True.
Test write: ' Hello Alistair.'.
Test hangup.
Test sleep: 10.
[Test pollRead = 1] whileTrue:
  [Test read].
Test dial: '8083136'.
noKeys := True.
sleepTime := 10.
Test sleep: sleepTime.
[flag = True] whileTrue:
  [
    tmp := Test pollRead.
    (tmp = 1) ifTrue: 
      [
      	sleepTime := 0.
      	response := Test read.
      	response size printNl.
      	response printNl.
      	((response match: ';70;1z') and: [noKeys = True]) ifTrue: 
      	  [
      	    Test enableKeypad.
      	    Test write: 'Keypad enabled.'.
      	    noKeys := False
      	  ]
      ]
    ifFalse: [sleepTime := 10].
    Test sleep: sleepTime.
    count := count + 1.
    'Loop ' print.
    count printNl.
    (count = 20) ifTrue: [flag := False].
  ].
Test hangup
!