条件繰返し実行の構造を定義します。
| REPEAT | |
| <ブロック> | |
| UNTIL [ <論理式> ] |
| 構造 | コマンド | パラメータ |
|---|---|---|
| 代入 | $TOTAL := 0 | |
| カーソル移動 | @ZAIKO, レコード数=0, 開始位置=先頭 | |
| REPEAT | カーソル移動 | @ZAIKO, レコード数=1, 開始位置=現在位置 |
| 代入 | $TOTAL := $TOTAL + @ZAIKO.[数量] | |
| UNTIL $TOTAL > 1000 |
| REPEAT |
| <ブロック> |
| UNTIL <論理式> |
| LABEL_LOOP: |
| <ブロック> |
| LABEL_NEXT_LOOP: |
| IF NOT <論理式> THEN |
| GOTO LABEL_LOOP |
| ENDIF |
| LABEL_EXIT_LOOP: |