Editing Control flow (section)

== 5. primesui — Paragraph Map ==

<pre>PROCEDURE DIVISION USING primes-ui
│
└── EVALUATE TRUE on ui-methods
      WHEN start-ui    → PERFORM r90-start-primesui ────────► r90-start-primesui
      │                                                         │ OPEN OUTPUT fprinter
      │                                                         │ IF ok: result=0, idx=1
      │                                                         │   PERFORM r98-message-ui ──► r98-message-ui
      │                                                         │                              │ DISPLAY on scherm
      │                                                         │                              └── return
      │                                                         └── return
      WHEN write-ui    → PERFORM r92-write-primesui ─────────► r92-write-primesui
      │                   │ load cell(primes-idx)
      │                   │ idx + 1
      │                   │ IF new-page → PERFORM r93-new-page ──► r93-new-page
      │                   │                                         │ WRITE heading
      │                   │                                         │ WRITE col header
      │                   │                                         │ new-page = 0
      │                   │                                         └── return
      │                   │ IF idx = 7 → WRITE line, idx = 1
      │                   │ IF linage = 53 → PERFORM r94-eop ──► r94-eop
      │                   │                                       │ WRITE blank
      │                   │                                       │ WRITE footing
      │                   │                                       │ page-number + 1
      │                   │                                       │ new-page = 1
      │                   │                                       └── return
      │                   └── return
      WHEN message-ui  → PERFORM r98-message-ui (as above)
      WHEN stop-ui     → PERFORM r99-stop-primesui ──────────► r99-stop-primesui
      │                   │ u-sequence = 0, u-number = 0
      │                   │ PERFORM r92-write-primesui UNTIL new-page  ← flush loop
      │                   │ PERFORM r98-message-ui
      │                   │ CLOSE fprinter
      │                   └── return
      WHEN OTHER       → ui-method-result = 1
│
└── EXIT PROGRAM</pre>
'''Loop summary — primesui:'''

{|
!width="25%"| Loop
!width="25%"| Type
!width="25%"| Condition
!width="25%"| Location
|-
| Flush partial line
| PERFORM UNTIL
| <code>new-page</code> (print-new-page = 1)
| r99-stop-primesui
|}


-----

<span id="cross-program-control-flow-summary"></span>