Editing Flow-Diagrams (section)

== 6. UI (primesui.cbl) Method Dispatch ==

'''Program:''' <code>primesui.cbl</code><br />
'''What it shows:''' How primesui routes each verb to the correct paragraph, and the detail of the <code>write</code> path — page management, line accumulation, and EOP handling.

<pre class="mermaid">flowchart TD
    A([ENTRY — primesui\nUSING primes-ui]) --&gt; B{EVALUATE TRUE\non ui-methods}

    B --&gt;|start-ui| C[r90-start-primesui\nOPEN OUTPUT fprinter\nprimes.prt]
    B --&gt;|write-ui| D[r92-write-primesui]
    B --&gt;|message-ui| E[r98-message-ui\nDISPLAY process-message\nUPON scherm]
    B --&gt;|stop-ui| F[r99-stop-primesui]
    B --&gt;|other| G[ui-method-result = 1]

    C --&gt; C1{primes-prt-status\n= '00'?}
    C1 --&gt;|Yes| C2[SET primes-idx TO 1\nui-method-result = 0\nLOG 'Open printer Ok']
    C1 --&gt;|No| C3[ui-method-result = 1\nDISPLAY status on console]

    D --&gt; D1[t-ident at primes-idx = u-sequence\nt-prime at primes-idx = u-number\nSET primes-idx UP BY 1]
    D1 --&gt; D2{new-page?}
    D2 --&gt;|Yes| D3[r93-new-page\nWRITE primes-heading\nWRITE table-header\nprint-new-page = 0]
    D2 --&gt;|No| D4{primes-idx = 7?}
    D3 --&gt; D4
    D4 --&gt;|Yes| D5[WRITE primes-table line\n132-char data record\nSET primes-idx TO 1]
    D4 --&gt;|No| D6{linage-counter = 53?}
    D5 --&gt; D6
    D6 --&gt;|Yes| D7[r94-eop\nWRITE blank line\nWRITE primes-footing\npage-number += 1\nprint-new-page = 1]
    D6 --&gt;|No| Z

    F --&gt; F1[MOVE 0 TO u-sequence and u-number\nPERFORM r92-write-primesui\nUNTIL new-page — flush partial line]
    F1 --&gt; F2[LOG 'close printer'\nCLOSE fprinter\nui-method-result = primes-prt-status]

    C2 --&gt; Z
    C3 --&gt; Z
    D7 --&gt; Z
    E --&gt; Z
    F2 --&gt; Z
    G --&gt; Z
    Z([EXIT PROGRAM])</pre>
'''Page management state machine:'''

<pre>print-new-page = 1 (initial)
        │
        ▼ (on any &quot;write&quot; call)
  IF new-page → r93-new-page:
    WRITE heading + column header
    print-new-page = 0
        │
        ▼ (accumulate 6 entries)
  IF primes-idx = 7 → WRITE data line, reset idx to 1
        │
        ▼
  IF linage-counter = 53 → r94-eop:
    WRITE blank + footing
    page-number += 1
    print-new-page = 1  ← triggers new heading on next write</pre>

-----

<span id="inter-program-call-sequence-generate-run"></span>