5.8 Linage-counter

Voor een bestand met de linage-clausule in de bestandsbeschrijving houdt de computer bij op welke regel de printer staat. Hij doet dat in een veld met de naam linage-counter. Bij het openen van het bestand en bij elke overgang naar een nieuwe pagina staat de linage-counter op 1. Bij elke write-opdracht komt daar het aantal aldaar genoemde regels bij. De linage-counter is nooit hoger dan het aantal regels in het beschrijfbare gebied van een pagina.

De linage-counter mogen we in een programma niet wijzigen; daardoor zouden we de computer in de war kunnen brengen. Wel is het toegestaan om de inhoud van het veld linage-counter te bekijken. Stel dat we in een programma met een linage van 50 regels een nieuw onderdeel willen gaan afdrukken. We kunnen kijken of het zin heeft om dat nog op dezelfde pagina af te doen, of dat het beter is om op een nieuwe pagina te beginnen. Als de linage-counter boven de 40 is, dan vinden we het netter staan om naar een volgend blad te gaan (anders staan er te veel regels op een pagina).

move kopregel-nieuw-gedeelte to regel
if linage-counter > 40 then
   write regel after page
else
   write regel after 3 lines
end-if
  

Als de linage-counter boven de veertig is, dan drukt de computer regel af bovenaan in het beschrijfbare gebied van een nieuwe pagina. Als de linage-counter veertig of minder is, dan wordt regel op de huidige bladzijde afgedrukt (na twee blanco regels).