Open topic with navigation
WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
DO FOREVER statement
A single or compound statement to be repeatedly executed.
The DO FOREVER statement executes a statement repeatedly until control is transferred outside the DO FOREVER loop by any of the following methods:
This statement is functionally equivalent to REPEAT. Statement can be on the next logical line.
The following example reads data from the terminal until an end-of-file character is typed.
.define TTCHN ,1 record buffer ,a60 proc xcall flags(7004020, 1) open(TTCHN, o, "tt:") display(TTCHN, $SCR_CLR(screen)) do forever begin display(TTCHN, $SCR_POS(10, 1), $SCR_CLR(line), "Enter data: ") reads(TTCHN, buffer, eof) end eof, forms(TTCHN, 1) close TTCHN stop end