{ UNPACK.PAS Copyright (c) Ivan Rebo } { https://github.com/IRebo/utek/tree/master/old-199x-version } { } { Author: Ivan Rebo } { Datum: 20.01.1995 http://www.trsek.com } uses crt; type ras=array[0..65534] of byte; var f,f2:file; p,p2:pointer; a,a2:^ras; c,d:byte; size,sizes:longint; e,ff:longint; procedure depack(siz:longint); begin blockread(f2,a2^,siz); e:=0; ff:=0; while ff64000 then begin size:=size-64000; sizes:=64000; end else sizes:=size; depack(sizes); until size=sizes; close(f2); close(f); freemem(p,65535); freemem(p2,65535); end.