іаграммаout ();// довідка про программеSOUND ();// звукOUTPUT (int p1, int p2, int p3, int p4);// кольору і текст меню
void CLEAR ();// очищення екранаmain ()/
{(); count = 1;// счетчікkey;// мінлива зберігає натиснення клавіш
_setcursortype (_NOCURSOR);// вимикаємо курсор (count <= 4)// цикл
{if (bioskey (1)! = 0) key = bioskey (0); (10,6,70, 20);// формат вікна (BLUE);// колір вікна () ;// очищення екрана (count)// цикл для меню
{case 1: OUTPUT (0x4f, 0x1f, 0x1f, 0x1f);// викликає підпрограму OUTPUT (10, 20);// координати тексту ("Informacia ob aftore programmi");// виводить текст за координатами (key == 0x1c0d)// якщо натиснули "Enter
{CLEAR ();// викликає підпрограму чищення екрану ("Babii Alexandr 11.05.1993");// виводимо текст
};// обриваємо цікл2: OUTPUT (0x1f, 0x4f, 0x1f, 0x1f);// викликає підпрограму OUTPUT (10, 20);// координати тексту ("Informacia o tekuwem diske " ;);// виводить текст нижче вікна
if (key == 0x1c0d)// якщо "Enter
{CLEAR ();// викликає підпрограму чищення екранаgdriver = DETECT, gmode, errorcode;// ініціалізація графікіmidx, midy; (& gdriver, & gmode, ""); = graphresult (); (errorcode! = grOk)
{("Graphics error:% s n", grapherrormsg (errorcode)); ("Press any key to halt:");
getch (); (1);
} dfree free;// структура містить інформацію про діскахavail;// мінлива зберігає число вільного местаdrive;// мінлива зберігає поточний диск
drive = getdisk (); (drive +1, & free); (free. df_sclus == 0xFFFF)
{("Error in getdfree () call n"); (1);
} = (long) free. df_avail// вільні кластери
* (long) free. df_bsec// байти в секторі
* (long) free. df_sclus;// сектори в кластері
printf ("Tekuwii disk ---------------------------- |% c: n", 'A' + drive, avail);
long total;// мінлива зберігає загальний розмір диска = getdisk ();// отримуємо букву поточного диска
getdfree (drive +1, & free); (free. df_sclus == 0xFFFF)
{("Error in getdfree () call n"); (1);
} = (long) free. df_total// загальні кластери
* (long) free. df_bsec// байти в секторі
* (long) free. df_sclus;// сектори в кластері
printf (" Obwee koli4estvo klasterov na diske: ---- |% u"
" nKoli4estvo svobodnix klasterov: --------- |% u"
" nKoli4estvo sektorov v klastere: --------- |% u"
" nKoli4estvo bait v sektore: -------------- |% u"
" n",. df...