11.04.2013 Views

UniBasic Commands Reference - Rocket Software

UniBasic Commands Reference - Rocket Software

UniBasic Commands Reference - Rocket Software

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

In the next example, the segment prints a prompt if an error flag ERR.FLAG has been<br />

set, and reads the user’s input into the variable ANS. If ANS equals Y, the program<br />

stops.<br />

ERR.FLAG = 1<br />

IF ERR.FLAG THEN<br />

PRINT "STOP PROGRAM?"<br />

INPUT ANS<br />

IF ANS = "Y" THEN STOP<br />

END<br />

In the next example, in BASICTYPE P, the program segment prints an error message<br />

from record 10075 in the ERRMSG file if the program aborts:<br />

If A < 0 THEN ABORT 10075<br />

Related Command<br />

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

ABORT<br />

STOP 1-871

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

Saved successfully!

Ooh no, something went wrong!