|
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: 1152 (0x480)
Types: TextFile
Names: »DEFINE.PAS«
└─⟦61d7681d7⟧ Bits:30009789/_.ft.Ibm2.50006629.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »DEFINE.PAS«
program define;
var infile : text;
infile_name : string(.30.);
ch : char;
descender, first, last, i, j, c : integer;
matrix : array(.1..8, 0..10.) of char;
begin
write('Filnavn : '); readln(infile_name); writeln;
assign(infile, infile_name);
(*$I-*) reset(infile); (*$I+*)
if ioresult <> 0 then begin
writeln('Filen ', infile_name, ' findes ikke');
end else begin
write(lst, #27'I'#1);
write(lst, #27':'#0#0#0, #27'%'#1#0);
while not eof(infile) do begin
readln(infile, ch, descender, first, last);
for i := 1 to 8 do begin
for j := 0 to 10 do begin
if eoln(infile) then
matrix(.i,j.) := ' '
else
read(infile, matrix(.i,j.));
end;
readln(infile);
end;
write(lst, #27'&'#0, ch, ch, chr(128*(1-descender)+first*16+last));
for i := 0 to 10 do begin
c := 0;
for j := 1 to 8 do begin
c := c+c;
if matrix(.j, i.) <> ' ' then c := c+1;
end;
write(lst, chr(c));
end;
end;
close(infile)
end
end.
«eof»