http://wiki.signature.net/index.php?action=history&feed=atom&title=IB_Statements%2Fpopall 2026-05-04T20:37:52Z Revision history for this page on the wiki MediaWiki 1.16.0 http://wiki.signature.net/index.php?title=IB_Statements/popall&diff=384&oldid=prev 2009-05-21T11:09:25Z

<p>New page: &#39;&#39;&#39;POPALL statement&#39;&#39;&#39; &#39;&#39;&#39;Syntax:&#39;&#39;&#39; POPALL &#39;&#39;&#39;Discussion:&#39;&#39;&#39; The POPALL statement clears all return addresses from the GOSUB stack. It is used to branch directly from a nested subr...</p> <p><b>New page</b></p><div>'''POPALL statement'''<br /> <br /> '''Syntax:''' POPALL <br /> <br /> '''Discussion:''' The POPALL statement clears all return addresses from the GOSUB stack. It is used to branch directly from a nested subroutine (at any level) to the main program. <br /> <br /> Note: If the subroutine stack is empty, the POPALL statement has no effect (i.e., it does not result in an exception branch). <br /> <br /> See POP. <br /> <br /> '''Example:'''<br /> GOSUB 1000<br /> .<br /> 500 PRINT (0) &quot;CUSTOMER OVER CREDIT LIMIT.&quot;<br /> .<br /> 1000 OPEN (1) &quot;C1A&quot;,EXCP=9000<br /> READ (1,1000) EXCP=8000<br /> IF ARTOTAL &gt; 0 THEN 2000<br /> .<br /> RETURN<br /> !<br /> 2000 FLAG1$ = &quot;Y&quot;<br /> IF ARTOTAL &gt; CRLIMIT THEN POPALL AND GOTO 500<br /> .<br /> RETURN<br /> <br /> In this example, the main section of the program directs control to subroutine label 1000. Within that subroutine, if a certain condition is met (namely if ARTOTAL is greater than 0), program control is directed to a nested subroutine at label 2000. <br /> <br /> Within the nested subroutine, if a certain condition is met (in this case, ARTOTAL greater than CRLIMIT), all return addresses are popped from the subroutine stack and program control is transferred directly to statement 500 in the main section.</div>

Badge