|
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: 768 (0x300)
Types: TextFile
Names: »tnltypesep«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦74e8651f1⟧ »div«
└─⟦this⟧
begin
comment this program:
place all typeset commands which starts
with the char # on a seperate line.
;
integer char,previuschar,typeseperatorchar;
previuschar := typeseperatorchar := '#';
repeat
readchar(in,char);
if char = typeseperatorchar then
begin
if previuschar <> 'nl' then
outchar(out,'nl');
repeat
outchar(out,char);
readchar(in,char);
until char = typeseperatorchar or char = 'em';
outchar(out,char);
if char <> 'em' then
outchar(out,'nl');
previuschar := 'nl';
end
else
begin
if -,( char = 'nl' and previuschar = 'nl' ) then
outchar(out,char);
previuschar := char;
end;
until char = 'em';
fpproc(7,0,0,0);
end program nltypesep;
▶EOF◀