Delphi & Pascal (česká wiki)
/***************************************************************************** * * * Subor ADRESAR.H * * * *****************************************************************************/ #if !defined (Adresar) typedef struct Adresar{ char meno[9]; char konc[4]; unsigned char typ; }; int citaj_meno_suboru(char *meno, int citanie); int adresar(int zx,int zy,char *path,char *plne_meno); void zobraz_aktualny_adresar(int zx,int zy,char *meno); int vypln_adresar(char *meno,char *cesta,struct Adresar *adresar); void vytvor_riadok(char *meno,char *konc,char *nazov); int kontroluj_path(char *path,char *cesta,char *meno); void obdlznik(int zacx,int zacy,int pozicia,unsigned char attr); void tlac_adresar(int zacx,int zacy,int zaciatocny,int pocet,struct Adresar *adresar); #endif /*-------------------------------END----------------------------------------*/