Delphi & Pascal (česká wiki)
/***************************************************************************** * * * Subor MAIN.C * * * *****************************************************************************/ #include <dos.h> #include <stdlib.h> #include "glob.h" #include "glob.def" #include "video.h" #include "menu.h" #include "slov_fon.h" #include "mbooldif.h" #include "funkcie.h" #include "util.h" struct HL_Menu hlavne_menu; struct Menu podmenu[]; // tento riadok napis do :\BORLANDC\CRTL\CLIB\STKLEN.C // unsigned _stklen=0xEEFF; // pozdravujem fy Borland TRSEK extern unsigned _stklen=0xEEFF; // compiler nech je nastaveny na Unsigned chrakter //************************************************************************// // MAIN tu to vsetko zacina // // 30.10.1997 // //************************************************************************// void main(void) { clrscr(); // lahodky strcpy( temp,get_tmp_adr() ); // kde mame TMP adresar ??? znuluj(&h_fnc,0); znuluj(&deriv_f,0); // tu bude hlavna funkcia, a derivovana znuluj(&slovnik,0); // tu bude slovnik poruch znuluj(&subst_NDF,0); // tu budu substitucie zac_subst=0; del_tmp("*.tmp"); // aby neboli ziadne tmp subory k citaniu strcpy( index, " "); // aky index ma premenna, ak je substituovana volne_mem = coreleft(); // tolko je pamete ked sa spustim inic_obrazovku(); inic_menu(&hlavne_menu,podmenu); pamet(); // ukaz ako si na tom z pametou pull_down_menu(&hlavne_menu,podmenu,0); vrat_jadro(); } /*----------------------------------END-------------------------------------*/