|
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 - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »convpas«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »convpas«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »convpas«
begin integer tegn,prevtegn,nexttegn;
boolean in_comment;
in_comment := false;
repeat
readchar(in,tegn);
if tegn = ''' then
begin
outchar(out,tegn);
readchar(in,tegn);
while tegn <> ''' do
begin
outchar(out,tegn);
readchar(in,tegn);
end;
outchar(out,tegn);
end
else
if tegn = '@' then outchar(out,'^')
else
if tegn = '"' then
begin
if in_comment then
begin
in_comment := false;
outchar(out,'*');
outchar(out,')');
end
else
begin
in_comment := true;
outchar(out,'(');
outchar(out,'*');
end;
end
else
if tegn = '(' then
begin
readchar(in,nexttegn);
if nexttegn = '.' then outchar(out,'Æ')
else begin repeatchar(in); outchar(out,tegn) end;
end
else
if tegn = '.' then
begin
readchar(in,nexttegn);
if nexttegn = ')' then outchar(out,'Å')
else begin repeatchar(in);outchar(out,tegn); end;
end
else
if tegn >= 'A' and tegn <= 'Z' then
begin
outchar(out,tegn+32);
end
else
outchar(out,tegn);
until tegn = 'em';
end
▶EOF◀