#include "ptoc.h"



/*$v-*/
/*$k-*/
/*$x-*/
/*$c-*/

#include "var_mor.h"          /* les variables */
#include "keyboard.h"          /* la gestion du clavier */
#include "mouse.h"          /* la souris  */
#include "level15.h"          /* les fonctions de base */
#include "droite.h"          /* pour faire une droite */
#include "boite.h"
#include "sprint.h"          /* l'affichage des textes */
#include "outtext.h"          /* fonctions sup‚rieures d'affichage */
#include "parole.h"          /* les fonctions de la parole */
#include "alert.h"
#include "parole2.h"          /* les fonctions de la parole */
/*  debug              le debugging */
#include "ques.h"          /* les questions */
#include "menu.h"          /* les fonctions du menu */
#include "mor.h"          /* divers */
#include "taffich.h"          /* chargement des dessins */
#include "ovd1.h"          /* les fonctions sur disque 1 */
#include "mor2.h"          /* divers */
#include "actions.h"          /* les actions */
#include "prog.h"          /* fonctions toplevel */
#include "disk.h"          /* chargements et sauvegardes */

/*  ecrihexa            utilitaire */

void divers(int np, boolean b) {
	teskbd();
	do {
		parole(np, 0, 0);
		atf3f8(key);
		if (newgd != gd) {
			gd = newgd;
			hirs();
			aff50(b);
		}
	} while (!(key == 66));
}

/* NIVEAU 0 */

int main(int argc, const char *argv[]) {
	/*init_debug;*/
	/*  ecri_seg;*/
	pio_initialize(argc, argv);
	gd = cga;
	newgd = gd;
	zuul = false;
	tesok = false;
	chartex();
	charpal();
	charge_cfiph();
	charge_cfiec();
	zzuul(adcfiec + 161, 0, 1644);
	c_zzz = 1;
	init_nbrepm();
	init_mouse();
	/*  crep:=memw[$7f00:0];
	  memw[$7f00:0]:= crep+1;
	  if (memw[$7f00:0]<> crep+1) then
	     begin
	       hirs;
	       show_mouse;
	       crep:=do_alert('[1][ 512 k  minimum requis  !!][OK]',1);
	       clrscr;
	       halt;
	     end;
	  if (Dseg+$1000>adbruit5) then
	     begin
	       hirs;
	       show_mouse;
	       crep:=do_alert('[1][ Il ne reste pas assez de |place m‚moire  !!][OK]',1);
	       clrscr;
	       halt;
	     end;*/
	init_lieu();
	arret = false;
	sonoff = false;
	f2_all = false;
	textcolor(9);
	teskbd();
	dialpre();
	newgd = gd;
	teskbd();
	if (newgd != gd)  gd = newgd;
	hirs();
	ades = 0x7000;
	aff50(false);
	mlec = 0;
	divers(142, false);

	ani50();
	divers(143, true);
	suite();
	music();
	adzon();
	takesav(0);
	if (rech_cfiec)  charge_cfiec();
	for (crep = 1; crep <= c_zzz; crep ++) zzuul(adcfiec + 161, 0, 1644);
	charge_bruit5();
	init_menu();

	theure();
	dprog();
	hirs();
	dessine_rouleau();
	show_mouse();
	do {
		tjouer();
	} while (!arret);
	hide_mouse();
	clrscr;
	/*out_debug;*/
	return EXIT_SUCCESS;
}