|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3840 (0xf00)
Types: TextFile
Names: »listman «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─ ⟦this⟧ »listman «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─ ⟦this⟧ »listman «
begin
message list side 1. ar,(hko) 790802 version 1;
<*
list lister en tekstfil med angivelse af linienumre.
linienummrerringen følger algol og edits konventioner, så
blanke linier får samme nummer som den efterfølgende linie.
list genkender sideskift i tekstfilen, og indsætter
kun sideskift hvis der udskrives for mange linier på en side.
bemærk at lay-out i forbindelse med linienummerering og margen
ødelægges hvis der forekommer tegnet iso-<14> i en linie
(spærret skrift).
hvis første tegn ikke er ff (sideskift) indsættes et sideskift.
programkald:
<output>=list <inputfil> maxlinie.<maxlinie> overskrift.ja,
filnavn.ja dato.ja sidenr.ja linienr.nej nyside.nej margen.<antal>
tw.<tw_mode> start.<linie>.<side> linier.<første>.<sidste>
sider.<første>.<sidste>
<output> : navn på den fil eller printer,
hvor listningen skal udskrives.
hvis <output>= ikke er angivet kommer
udskriften på current output.
<input> : fil, der indeholder den tekst, der skal listes.
hvis <input> mangler benyttes current input.
maxlinie.<maxlinie> : <maxlinie> angiver max antal linier pr side.
hvis den mangler benyttes default
(se nedenfor).
hvis <maxlinie> < 1 indsættes ingen sideskift
fra programmets side, men de der i forvejen
findes i teksten udskrives som sædvanligt.
(hvis der udskrives overskrift er det
<maxlinie> < 3, der bevirker at der ikke
indsættes sideskift.
overskrift.ja : svarer til filnavn.ja, dato.ja og sidenr.ja på
en gang.
filnavn.ja : hvis angivet udskrives filnavnet øverst på
hver side.
dato.ja : hvis angivet udskrives datoen øverst på
hver side.
sidenr.ja : hvis angivet nummereres siderne fortløbende,
og sidenr udskrives øverst til højre på
hver side.
linienr.nej : hvis angivet udskrives linienr ikke,så list-
linienr fungerer som copy, blot med check af
sideskift, udskrift af dato m.m.
nyside.nej : hvis angivet udskrives ikke ff (sideskift)
efter sidste linie.
margen.<antal> : hvis angivet udskrives en venstremargen på
<antal> blanktegn.
\f
message list side 2. ar,(hko) 790806;
tw.<tw_mode> : angiver at uddatamedie er typewriter (tw).
hvis <tw_mode> er =2 undertrykkes konver-
tering af ff-tegn. (for tw med ff-funktion).
hvis <tw_mode> er <>2 (f.eks. 0) laves side-
skift ved gentagne nl-tegn, idet papirhøjden
antages at være maxlinie+10 linier.
start.<linie>.<side>: første linie i <inputfil> tildeles
nummeret <linie> og tilsvarende tildeles
første side nummeret <side>.
hvis .<side> udelades tildeles første side
nummeret 1.
linier.<første>.<sidste>:
kun linie <første> til <sidste> udskrives.
hvis .<sidste> udelades skrives <inputfil>
til ende.
sider.<første>.<sidste>:
kun side <første> til <sidste> udskrives.
hvis .<sidste> udelades skrives <inputfil>
til ende.
default er
list maxlinie.48 overskrift.nej filnavn.nej dato.nej ,
sidenr.nej linienr.ja nyside.ja margen.0
start.1.1 linier.1 sider.1
kaldte procedurer:
closefp,findfpparam,fpoutput,fpparam,lookupproc,openfp.
*>
▶EOF◀