DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Types: TextFileVerbose
    Names: »punchbintxt«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »punchbintxt« 

TextFileVerbose

<* punch binary file *>
begin
integer i,segments;
integer array tail(1:10);
zone zin(128,1,stderror), zout(128,1,stderror);
 
open (zin,4,<:test:>,0);
open (zout,4 shift 12 + 12,<:punch:>,0);
 
i := monitor (42,zin,1,tail);
if i = 0 then
begin
segments := tail(10) // 512;
for i := 1 step 1 until segments do
begin
outrec6(zout,512);
inrec6 (zin ,512);
tofrom(zout,zin,512);
end;
end
else write (out,<:*** inputfiel does not exist:>,"nl",1);
close (zin,true);
close (zout,true);
end;
«eof»