/* REXX */

/* send something to the modem and wait for an anwser */
'SEND "AT\S^M"'


/* wait for answer */
X= 1
'TIMEOUT 5'

/* read text linewise and wait for a line containing OK */
DO X=1 TO 999 UNTIL ZOCLASTLINE()="OK"
	'GETLINE'
	/* remember all lines */
	A.X= ZOCLASTLINE()
END 
	

/* show all lines again */
DO Y=1 TO X
	WRITELN Y ":" A.Y
END

SAY A