pack

• Source

Source

.proc,pack*i,
  avant"=fichier à compacter"=(*f),
  apres"=fichier compressé  "=(*n=,*f).
.help
La carte de contrôle PACK du système NOS.
.endhelp
ife,$apres$.ne.$$,l.
  copie,avant,apres,c.
else,l.
  copie,avant,paczz,c.
  copie,paczz,avant.
  return,paczz.
endif,l.