Guardian Programmer's Guide

Table Of Contents
Communicating With Magnetic Tape
Guardian Programmer’s Guide 421922-014
12 - 81
Writing to a File on Multiple Unlabeled Tape Reels
WCOUNT);
IF <> THEN
BEGIN
CALL FILE_GETINFO_(TAPE^NUM,
ERROR);
IF ERROR = 150
BEGIN
CALL CONTROL(TAPE^NUM,
WRITE^EOF);
IF <> THEN
BEGIN
CALL FILE_GETINFO_(TAPE^NUM,
ERROR);
IF ERROR <> 150 THEN ...
END;
CALL CONTROL(TAPE^NUM,
WRITE^EOF);
IF <> THEN
BEGIN
CALL FILE_GETINFO_(TAPE^NUM,
ERROR);
IF ERROR <> 150 THEN ...
END;
CALL CONTROL(TAPE^NUM,REWIND^AND^UNLOAD);
IF <> THEN ...
CALL SETMODE(TAPE^NUM,
RETURN^ERROR^IF^EOT,
OFF);
IF <> THEN ...
END;
.
.
IF <no more to write> THEN DONE = 1;
END;