Editing Technical-Specification (section)

=== 3.5 primesui ===

<pre>PROGRAM primesui  USING primes-ui

  EVALUATE TRUE on ui-methods
    WHEN start-ui    → PERFORM r90-start-primesui
    WHEN write-ui    → PERFORM r92-write-primesui
    WHEN message-ui  → PERFORM r98-message-ui
    WHEN stop-ui     → PERFORM r99-stop-primesui
    WHEN OTHER       → MOVE 1 TO ui-method-result
  END-EVALUATE
  EXIT PROGRAM

── r90-start-primesui ───────────────────────────────────────────────
  OPEN OUTPUT fprinter  (primes.prt)
  IF primes-prt-status = &quot;00&quot; THEN
    SET primes-idx TO 1
    MOVE 0 TO ui-method-result
    LOG &quot;Open printer Ok&quot;
  ELSE
    MOVE 1 TO ui-method-result
    DISPLAY primes-prt-status ON console

── r92-write-primesui ───────────────────────────────────────────────
  t-ident(primes-idx) = u-sequence               ← load into current cell
  t-prime(primes-idx) = u-number
  SET primes-idx UP BY 1                         ← advance index

  IF new-page THEN PERFORM r93-new-page          ← heading + column header

  IF primes-idx = 7 THEN                         ← 6 entries filled
    WRITE file-buffer FROM primes-table          ← 132-char data line
    SET primes-idx TO 1

  IF linage-counter = 53 THEN                    ← 3 lines from page end
    PERFORM r94-eop                              ← footing + page increment

── r93-new-page ─────────────────────────────────────────────────────
  WRITE primes-heading   (=&quot;primes overview&quot;)
  WRITE table-header     (=&quot;Sequence  Prime  &quot; × 6)
  MOVE ZERO TO print-new-page                    ← clear flag

── r94-eop ──────────────────────────────────────────────────────────
  WRITE blank line
  WRITE primes-footing   (right-aligned &quot;page: ZZZZ9&quot;)
  ADD 1 TO page-number
  MOVE 1 TO print-new-page                       ← trigger heading on next write

── r98-message-ui ───────────────────────────────────────────────────
  DISPLAY process-message UPON scherm            ← program-name + paragraph + message

── r99-stop-primesui ────────────────────────────────────────────────
  MOVE 0 TO u-sequence
  MOVE 0 TO u-number
  PERFORM r92-write-primesui UNTIL new-page      ← flush partial line with zeros
  LOG &quot;close printer&quot;
  CLOSE fprinter
  MOVE primes-prt-status TO ui-method-result</pre>

-----

<span id="database-connection-parameters"></span>