|
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: 1024 (0x400)
Types: TextFile
Names: »INIPRT.BAK«, »INIPRT.PAS«
└─⟦3576fd675⟧ Bits:30009789/_.ft.Ibm2.50006587.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »INIPRT.BAK«
└─⟦this⟧ »INIPRT.PAS«
└─⟦44b695f10⟧ Bits:30009789/_.ft.Ibm2.50006607.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »INIPRT.PAS«
└─⟦89ce9b901⟧ Bits:30009789/_.ft.Ibm2.50007362.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »INIPRT.PAS«
└─⟦cac67a5ae⟧ Bits:30009789/_.ft.Ibm2.50007338.imd Mogens Pelles Zilog 80,000 / EOS projekt
└─⟦this⟧ »INIPRT.PAS«
PROGRAM toprt;
VAR
file_name: string(.14.);
src: text;
c: string(.2.);
comment: string(.70.);
c_length: byte;
s: byte;
table: ARRAY (.char.) OF byte;
i: byte;
j: char;
BEGIN
write(output, 'Enter @ file: ');
readln(input, file_name);
assign(src, file_name);
reset(src);
FOR i := 0 TO 127 DO
table(. chr(i) .) := 0;
FOR j := '0' TO '9' DO
table(. j .) := ord(j) - ord('0');
FOR j := 'A' TO 'F' DO
table(. j .) := ord(j) - ord('A') + 10;
FOR j := 'a' TO 'f' DO
table(. j .) := ord(j) - ord('a') + 10;
WHILE not eof(src) DO
BEGIN
readln(src, c, comment);
c_length := length(c);
CASE c_length OF
0: s := 0;
1: s := table(.c(.1.).);
2: s := table(.c(.1.).) * 16 + table(.c(.2.).);
END;
writeln(s:3, ' < ', c:2, ' ', comment);
write(lst, chr(s) );
END;
readln;
END.«eof»