Guardian Programmer's Guide

Table Of Contents
Using the Sequential Input/Output Procedures
Guardian Programmer’s Guide 421922-014
15 - 79
Using the SIO Procedures: An Example
! Prompt the user to read another record:
PRINT^BLANK;
SBUFFER ':='
"Do You Wish to Read Another Record (y/n)? "
-> @S^PTR;
CALL READ^FILE(INFILE,BUFFER,COUNT^READ,
@S^PTR '-' @SBUFFER,BUFSIZE);
END;
END
UNTIL NOT (SBUFFER = "y" OR SBUFFER = "Y");
! Close the output file:
CALL CLOSE^FILE(OUTFILE);
END;