11.04.2013 Views

UniBasic Commands Reference - Rocket Software

UniBasic Commands Reference - Rocket Software

UniBasic Commands Reference - Rocket Software

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Example<br />

In the following example, the program segment first uses the ECL T.ATT command<br />

to reserve tape unit 0 and perform no conversion. Then the program segment reads<br />

all the records on the tape (until the end of the file or tape) and calls an internal<br />

subroutine that processes the record.<br />

1-642 <strong>UniBasic</strong> <strong>Commands</strong> <strong>Reference</strong><br />

PERFORM "T.ATT"<br />

DONE = 0<br />

LOOP<br />

READT UNIT (00) TAX.RECORD ELSE DONE = 1<br />

UNTIL DONE DO<br />

GOSUB PROCESS.RECORD<br />

REPEAT<br />

Related <strong>Commands</strong><br />

<strong>UniBasic</strong><br />

RESIZET, REWIND, WEOF, WRITET<br />

UniData<br />

Value Description<br />

4 Parity error.<br />

5 Unknown hardware error.<br />

6 Other unspecified error.<br />

STATUS Function Return Values (continued)<br />

SETTAPE, T.ATT, T.DET – For information, see the UniData <strong>Commands</strong> <strong>Reference</strong>.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!