DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »lsttosrctxt«

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »lsttosrctxt« 

TextFile

job j 1 perm disc1 1000 10
message start compile lsttosrc
lsttosrc=set 1 disc1
scope user lsttosrc
lsttosrc=algol
begin
<********************************************************
*
* this program converts a pascal80 list-file as produced
* by the 'indent'-program, into a source-text.
* i.e. line-no.s, headers, exclamation-marks and
* leading spaces are removed.
*
* programmed 21.01.1981 by stb
*
******************************************************>

integer i,j,char,ch;

char:=0;

while char<>'em' do
begin
readchar(in,char);

if char='ff' then
begin <* skip the header, i.e. until next lf *>
repeat
readchar(in,ch);
until (ch='nl') or (ch='ff') or (ch='em');

repeatchar(in);
end ff
else
if char='nl' then
begin <* skip the line-no.s and leading spaces *>

readchar(in,ch);

if ch='ff' then repeatchar(in) else
for i:=1 step 1 until 16 do
readchar(in,ch);

<* skip spaces and exclamation marks *>
repeat
readchar(in,ch);
until ((ch<>'sp') and (ch<>'!') ) or (ch='nl') or (ch='ff') 
_     or (ch='em');

repeatchar(in);
end nl;

outchar(out,char);

end;


write(out,"em",3);

end
finis
▶EOF◀