Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
/*****************************************************************************
*								             *
*                                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-------------------------------------*/