{ HPU.PAS Copyright (c) Ivan Rebo } { Depakovac. } { https://github.com/IRebo/utek/tree/master/old-199x-version } { } { Author: Ivan Rebo } { Datum: 20.01.1995 http://www.trsek.com } program hoedepack; uses crt; type ras=array[0..65534] of byte; var f,f2:file; p,p2:pointer; a,a2:^ras; c,d:byte; meno:string; size,sizes:word; e,ff:word; procedure depack(siz:word); begin blockread(f2,a2^,siz); e:=0; ff:=0; while ff65535 then begin size:=size-65535; sizes:=65535; end else sizes:=size; depack(sizes); until size=sizes; close(f2);close(f); freemem(p,65535);freemem(p2,65535); writeln; writeln; writeln('Vela stastia a uspechov v DOSe.'); end.