X25AM Programming Manual

PTP Applications
X25AM Programming Manual—527201-001
3-70
Text of TAL Example
CALL CLOSE (TERM^FILE); ! ... THEN CLOSE IT
CALL OPEN (STARTUP.INFILE, TERM^FILE, 1); ! OPEN THE TERMINAL FILE
NOWAIT
IF <> THEN CALL DEBUG;
CALL OPEN (STARTUP.OUTFILE, COMM^FILE, 2); ! THE COMM FILE IS OPENED
WITH
IF <> THEN ! A NOWAIT DEPTH OF 2 SO THAT
BEGIN ! A READ AND A WRITE MAY BE
CALL FILEINFO (-1, ERROR); ! OUTSTANDING AT THE SAME TIME
CALL COMM^ERROR (ERROR);
CALL ABEND;
END;
CALL CONNECT^LINE; ! ESTABLISH A CALL
END; ! PROC INITIALIZE
!-------------------------------------------------------------------------
! MAIN PROCEDURE
!-------------------------------------------------------------------------
PROC MAIN^PROC MAIN;
BEGIN
INT ERROR,
COUNT;
CALL INITIALIZE;
WHILE NOT END^PROGRAM^REQUEST
DO BEGIN
TAG := 0D;
FILE := -1;
CALL AWAITIO (FILE, , COUNT, TAG);
CALL FILEINFO (FILE, ERROR);
IF (FILE = TERM^FILE) THEN
IF ERROR THEN CALL CHECK^TERM^ERROR (ERROR)
ELSE BEGIN
IF COUNT THEN CALL TERM^COMPLETE (COUNT);
TERM^BUFF ':=' "? ";
CALL WRITEREAD (TERM^FILE, TERM^BUFF, 1, MAX^TERM^READ);
IF < THEN CALL DEBUG;
END
ELSE
IF FILE = COMM^FILE THEN BEGIN