UniBasic Commands Reference - Rocket Software

Parameter Description
Examples
The following program segment is taken from the sample program in Appendix A,
“Sample Program,” in Developing UniBasic Applications. This segment prints multivalues
from the ORDERS file when a client has ordered multiple items.
1-276 UniBasic Commands Reference
statements Specifies the statements to carry out for each loop.
UNTIL |
WHILE expr
statements
Specifies a condition, expr, to test after each loop. If the UNTIL keyword
is used, the loop continues until expr is true. If the WHILE keyword is
used, the loop continues until expr is not true. In either case, when the loop
stops, the statements are executed before the program continues.
NEXT var The NEXT statement defines the end of the block of statements to be
repeated. The optional var is the same variable as in the beginning of the
FOR/NEXT statement.
FOR/NEXT Parameters (continued)
DISPLAY_DATA:
* Display the current information in the desired record. This is
* determined by the number the user entered (ORDER_NUMBER).
.
.
. FOR ENTRY = 1 TO NUM_ENTRIES
PRODUCT_NUMBER = ORDER.REC
COLOR = ORDER.REC
QUANTITY = ORDER.REC
PRICE = OCONV(ORDER.REC,"MD2$,")
IF PRODUCT_LINE = '' THEN
PRODUCT_LINE = PRODUCT_NUMBER "R#10"
COLOR_LINE = COLOR "R#10"
QUANTITY_LINE = QUANTITY "R#10"
PRICE_LINE = PRICE "R#10"
END ELSE
PRODUCT_LINE := " ":PRODUCT_NUMBER "R#10"
COLOR_LINE := " ":COLOR "R#10"
QUANTITY_LINE := " ":QUANTITY "R#10"
PRICE_LINE := " ":PRICE "R#10"
END
NEXT ENTRY