|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 896 (0x380)
Types: TextFile
Names: »TFMAIN.PAS«
└─⟦11e151dc0⟧ Bits:30009789/_.ft.Ibm2.50006589.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »TFMAIN.PAS«
└─⟦514567ecc⟧ Bits:30009789/_.ft.Ibm2.50006603.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »TFMAIN.PAS«
var
input_file : name;
ok : boolean;
input_line : f_string;
first_pg, last_pg : integer;
begin
write('Filnavn : '); readln(input_file); writeln;
init_input;
include_input(input_file, ok);
if not ok then
writeln('Filen ', input_file, ' findes ikke')
else begin
writeln('Hvis kun en del skal udskrives, indtast da nr. på første side,');
write('mellemrum, nr. på sidste side. Ellers blot <return> : ');
first_pg := 0; last_pg := maxint;
readln(first_pg, last_pg);
init_output;
init_1;
pages_to_print_3(first_pg, last_pg);
while not eof_input do begin
get_line_input(input_line);
write_line_1(input_line);
end;
terminate_1;
terminate_output;
end;
terminate_input;
end.«eof»