HELP QUITLOOP Steven Hardy, February 1982
This is used to jump out of a loop, for example:
define search(item, list);
until list == [] do
..........
if hd(list) + item then quitloop endif;
..........
enduntil;
..........
enddefine;
QUITLOOP is equivalent to '*GOTO just after the next ENDUNTIL (or ENDWHILE or
similar closing bracket)'. QUITLOOP can optionally be followed by an integer N
in parentheses in which case it jumps out of the Nth enclosing loop, for
example:
quitloop(2);
N.B. QUITLOOP is not a procedure and cannot be called by a procedure inside
the loop: it must be used inside the loop body itself.
See HELP
*NEXTLOOP - to continue next enclosing loop
*QUITIF - to jump out of a loop if a condition becomes true
*QUITUNLESS - to jump out of a loop unless a condition is true
*RETURN - to terminate execution of current procedure
*LOOPS - for types of iteration available in POP-11
*CONTROL - for types of control structure available in POP-11Author: Steven Hardy, February 1982