#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
#include<dos.h>
#include"Mouse.h"
#pragma warn -rch
#include"design.h"
#include<string.h>
char far *p=(char far *)0xb8000000;
int   Is_Black_Shade=0,Is_Green_Default=0,Y_Axis,Count_Clipboard=1,Shift_Clipboard=0;
int Full_Clipboard=0,Count_Word=0,Clipboard_No=48,Clipboard_Name=0;
void Border();
void main();
void Type();
void Mouse();
void Turbo_Menu();
void File_Menu();
void Edit_Menu();
void Search_Menu();
void Run_Menu();
void Compile_Menu();
void Debug_Menu();
void Project_Menu();
void Options_Menu();
void Window_Menu();
void Help_Menu();
 void Taskbar(char  ,char  );
 void Block(int ,int ,int  ,int ,int ,int );
 void Menu_Block(int Start_Point,int Vertz, int Horiz,int Name_Length);
 void File_Open();
 void File_Save();
 void File_Save_As();
 void Write(char );
 char far *q=(char far *)0xb8000000;

/* void date()
{  struct date d;
  getdate(&d);
  gotoxy(62,4);
  printf("DATE  ");
  gotoxy(69,4);
 printf("%d\\%d\\%d",d.da_day,d.da_mon,d.da_year);
 }
void time()
{
   struct  time t;
  gettime(&t);
  gotoxy(62,5);
  printf(
  "TIME  ");
  gotoxy(69,5);
  printf("%d :%d :%d",t.ti_hour,t.ti_min,t.ti_sec);

}*/
int Getkey()

{
 union REGS i,o;

 while(!kbhit()) ;
 i.h.ah=0;
 int86(22,&i,&o);
 return(o.h.ah);
}

void Turbo_Menu()
{
int Vari2,Vari1;
char *string;
	 p=p+2;
	 for( Vari1=0;Vari1<=4;Vari1+=2)
	 *(p+Vari1+1)=32;
		Vari1-=4;
		*(p+Vari1) ='ð';
		*(p+Vari1+1)=36;
		p=p+158;
		Block(7,40,158,1,1,36);

	      for(Vari1=0;Vari1<34;Vari1+=2)
	*(p+Vari1+3)=32;
	for(Vari1=0;Vari1<=5;Vari1++)
	 if(Vari1==0)
	 {
	  *(p+5)=36;
	   gotoxy(4,3);
   string= "Repaint desktop" ;
   printf("%s",string);
	 }
	 else if(Vari1==1)
	 { p=p+160;
	  for(Vari2=2;Vari2<=34;Vari2+=2)
	   *(p+Vari2)='Ä';
	   }
	 else if(Vari1==2)
	 { p=p+160;
	  *(p+5)=116;
	   gotoxy(4,5);
   string= "GREP" ;
   printf("%s",string);
	 }
	 else if(Vari1==3)
	 { p=p+160;
	  *(p+5)=116;
	   gotoxy(4,6);
   string= "Turbo Assembler" ;
   printf("%s",string);
	 }
	 else if(Vari1==4)
	 {
	 p=p+160;
	  gotoxy(4,7);
   string= "Turbo Debugger" ;
   printf("%s",string);
	  *(p+17)=116;
	 }
	 else if(Vari1==5)
	 {
	 p=p+160;
	  gotoxy(4,8);
   string= "Turbo Profiler" ;
   printf("%s",string);
		*(p+17)=116;
	 }
	 p=p+17*160-2;
	 Taskbar('F','N');
	 p=p-22*160+2;
	 while(1)
	for(Vari1=0;Vari1<=5;)
	{


	switch(Getkey())
	{
	 case 1:
		p=p-2*161;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=5;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+17)=36;
		  p=p+22*160-2;
		  Taskbar('ð','P');
		  p=p-22*160+2;
		 }
		 else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+17)=116;
		  Vari1=4;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+17)=36;
		   p=p+22*160-2;
		  Taskbar('ð','D');
		  p=p-22*160+2;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+17)=116;
		  Vari1=3;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		   p=p+22*160-2;
		  Taskbar('ð','T');
		  p=p-22*160+2;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=2;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		   p=p+22*160-2;
		  Taskbar('ð','G');
		  p=p-22*160+2;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=0;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		   p=p+22*160-2;
		  Taskbar('ð','R');
		  p=p-22*160+2;
		}
		 break;
	case 75:
		{
		p=p-(2*160+2);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		Help_Menu();
		p=p+(2*160+2);

		 break;
		}
	case 77:
		{
		p=p-(2*160+2);
		clrscr();
		Border();
	       //	Type();
		Mouse();
	       File_Menu();
		p=p+(2*160+2);
		   break;
		 }
	case 80:
		  if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		   p=p+22*160-2;
		  Taskbar('ð','G');
		  p=p-22*160+2;
		  }

		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		   p=p+22*160-2;
		  Taskbar('ð','T');
		  p=p-22*160+2;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+17)=36;
		   p=p+22*160-2;
		  Taskbar('ð','D');
		  p=p-22*160+2;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+17)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+17)=36;
		   p=p+22*160-2;
		  Taskbar('ð','P');
		  p=p-22*160+2;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+17)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		   p=p+22*160-2;
		  Taskbar('ð','R');
		  p=p-22*160+2;
		}


	}


	 }

	 p=p+22*160-2;


    //	 Taskbar('ð');
	 p=p-24*160;
}
void File_Menu()
{           int Vari2,Vari1,Length;
char *string;
	 p=p+8;
	 for( Vari1=0;Vari1<=10;Vari1+=2)
	 {
		 *(p+Vari1+1)=32;
	 }
	  gotoxy(6,1);
   string= "File" ;
   printf("%s",string);
		*(p+3)=36;
	p=p+158;
	Block(12,40,153,5,9,36);
	for(Vari1=0;Vari1<34;Vari1+=2)
	{
	*(p+Vari1+3)=32;
	}
	for(Vari2=0;Vari2<=10;Vari2++)
	{
	 if(Vari2==0)
	 {
	 gotoxy(7,3);
   string= "New" ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(7,4);
   string= "Open...      F3" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	 gotoxy(7,5);
   string= "Save         F2" ;
   printf("%s",string);
	  *(p+5)=116;
	 }

	 else if(Vari2==3)
	 { p=p+160;
	 gotoxy(7,6);
   string= "Save as..." ;
   printf("%s",string);
	  *(p+7)=116;
	 }
	 else if(Vari2==4)
	 { p=p+160;
	 gotoxy(7,7);
   string= "Save all" ;
   printf("%s",string);
	  *(p+17)=116;
	 }
	 else if(Vari2==5)
	 { p=p+160;
	   for(Vari1=2;Vari1<=34;Vari1+=2)
	   *(p+Vari1)='Ä';
	 }
	 else if(Vari2==6)
	 { p=p+160;
	 gotoxy(7,9);
   string= "Change dir..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==7)
	 { p=p+160;
	 gotoxy(7,10);
   string= "Print" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==8)
	 { p=p+160;
	 gotoxy(7,11);
   string= "DOS shell" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==9)
	 { p=p+160;
	   for(Vari1=2;Vari1<=34;Vari1+=2)
	   *(p+Vari1)='Ä';
	 }
	 else if(Vari2==10)
	 { p=p+160;
	 gotoxy(7,13);
   string= "Quit      Alt+X" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 }
	 p=p+12*160-8;
	 Taskbar('F','N');
	 p=p-22*160+8;
	  while(1)
	for(Vari1=0;Vari1<=10;/*Vari1++*/)
	{

	switch(Getkey())
	{
	 case 1:
		p=p-2*164;
		main();
		break;
	 case 28:
		p=p-2*164;
		switch(Vari1)
		{
		  case 0:

			Border();
			Mouse();
			Type() ;
		    //	delay(1000);
			main();
			break;
		  case 1:
			clrscr();
			Border();
			Mouse();
		       Length=strlen("Open a File");
			Menu_Block(512,17,96,Length*2);
			gotoxy(35,4);
			printf("Open a File");
			File_Open();
			delay(5000);
			main();
			break;
		  case 2:
			clrscr();
			Border();
			Mouse();
			Length=strlen("Save File As");
			Menu_Block(512,17,96,Length*2);
			gotoxy(35,4);
			printf("Save File As");
			File_Save();
			delay(1000);
			main();
			break;
		    case 3:
			clrscr();
			Border();
			Mouse();
			Length=strlen("Save File As");
			Menu_Block(512,17,96,Length*2);
			gotoxy(35,4);
			printf("Save File As");
			File_Save_As();
			delay(1000);
			main();
			break;
		    case 4:
			main();
			break;
		    case 6:
			clrscr();
			Border();
			Mouse();
			Length=strlen("Change Directory");
			Menu_Block(4*160+32,15,90,Length*2);
			gotoxy(35,5);
			printf("Change Directory");
			File_Change_Dir();
			delay(10000);
			main();
		       break;
		    case 10:
			exit(1);
			break;
		 }
		 break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=10;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-8;
		    Taskbar('F','Q');
		    p=p-22*160+8;
		 }

		 else if(Vari1==10)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=8;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','D');
		  p=p-22*160+8;
		}
		else if(Vari1==8)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=7;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','P');
		  p=p-22*160+8;
		}
		else if(Vari1==7)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=6;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','C');
		  p=p-22*160+8;
		}
		else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+17)=36;
		  p=p+22*160-8;
		  Taskbar('F','L');
		  p=p-22*160+8;
		}
			 else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+17)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+7)=36;
		  p=p+22*160-8;
		  Taskbar('F','A');
		  p=p-22*160+8;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+7)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','S');
		  p=p-22*160+8;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','O');
		  p=p-22*160+8;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','N');
		  p=p-22*160+8;
		}
		 break;
	case 75:
		{
		p=p-(2*160+8);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		Turbo_Menu();
		p=p+(2*160+8);

		 break;
		}
	case 77:
		{
		p=p-(2*160+8);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		Edit_Menu();
		p=p+(2*160+8);
		   break;
		 }
	case 80:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','O');
		  p=p-22*160+8;
		 }
		 else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','S');
		  p=p-22*160+8;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+7)=36;
		  p=p+22*160-8;
		  Taskbar('F','A');
		  p=p-22*160+8;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+7)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+17)=36;
		  p=p+22*160-8;
		  Taskbar('F','L');
		  p=p-22*160+8;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+17)=116;

		  Vari1=6;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','C');
		  p=p-22*160+8;
		}
			 else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=7;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','P');
		  p=p-22*160+8;
		}
		else if(Vari1==7)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=8;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','D');
		  p=p-22*160+8;
		}
		else if(Vari1==8)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=10;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','Q');
		  p=p-22*160+8;
		}
		else if(Vari1==10)
		  {
		  for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<34;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-8;
		  Taskbar('F','N');
		  p=p-22*160+8;
		}

		}

		}




	 p=p+(12*160-8);
	// Taskbar('F');
	 p=p-24*160;
}
void Edit_Menu()
{           int Vari2,Vari1;
char *string;
	 p=p+20;
	 for( Vari1=0;Vari1<=10;Vari1+=2)
	 {
		 *(p+Vari1+1)=32;
	 }
		gotoxy(12,1);
	   string= "Edit" ;
	   printf("%s",string);
		*(p+3)=36;
		p=p+158;
		Block(11,58,154,2,8,54);
	for(Vari1=0;Vari1<52;Vari1+=2)
	{
	*(p+Vari1+3)=32;
	}
	for(Vari2=0;Vari2<=9;Vari2++)
	{
	 if(Vari2==0)
	 {
	 gotoxy(13,3);
   string= "Undo            Alt+BkSp" ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(13,4);
   string= "Redo      Shift+Alt+BkSp" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	  for(Vari1=2;Vari1<=52;Vari1+=2)
	   *(p+Vari1)='Ä';

	 }

	 else if(Vari2==3)
	 { p=p+160;
	 gotoxy(13,6);
   string= "Cut            Shift+Del" ;
   printf("%s",string);
	  *(p+9)=116;
	 }
	 else if(Vari2==4)
	 { p=p+160;
	 gotoxy(13,7);
   string= "Copy            Ctrl+Ins" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==5)
	 {
	 p=p+160;
	 gotoxy(13,8);
   string= "Paste          Shift+Ins" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==6)
	 {
	 p=p+160;
	 gotoxy(13,9);
   string= "Clear           Ctrl+Del" ;
   printf("%s",string);
	  *(p+7)=116;
	 }
	 else if(Vari2==7)
	 { p=p+160;
	 gotoxy(13,10);
   string= "Copy example" ;
   printf("%s",string);
	  *(p+15)=116;
	 }
	 else if(Vari2==8)
	 {
	   p=p+160;
	  for(Vari1=2;Vari1<=52;Vari1+=2)
	   *(p+Vari1)='Ä';

	 }
	 else if(Vari2==9)
	 { p=p+160;
	 gotoxy(13,12);
   string= "Show clipboard" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 }
		 p=p+13*160-20;
	 Taskbar('E','U');
	 p=p-22*160+20;
	  while(1)
	for(Vari1=0;Vari1<=9;)
	{
	switch(Getkey())
	{
	 case 1:
		p=p-2*170;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=9;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-20;
		  Taskbar('E','S');
		  p=p-22*160+20;
		 }
		 else if(Vari1==9)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=7;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+15)=36;
			  p=p+22*160-20;
		  Taskbar('E','E');
		  p=p-22*160+20;
		}
		else if(Vari1==7)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+15)=116;

		  Vari1=6;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+7)=36;
			  p=p+22*160-20;
		  Taskbar('E','L');
		  p=p-22*160+20;
		}
		else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+7)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
			  p=p+22*160-20;
		  Taskbar('E','P');
		  p=p-22*160+20;
		}
			 else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
			  p=p+22*160-20;
		  Taskbar('E','C');
		  p=p-22*160+20;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+9)=36;
			  p=p+22*160-20;
		  Taskbar('E','T');
		  p=p-22*160+20;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+9)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-20;
		  Taskbar('E','R');
		  p=p-22*160+20;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
			  p=p+22*160-20;
		  Taskbar('E','U');
		  p=p-22*160+20;
		}
		 break;
	case 75:
		{
		p=p-(2*160+20);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		File_Menu();
		p=p+(2*160+20);

		 break;
		}
	case 77:
		{
		p=p-(2*160+20);
		clrscr();
		Border();
	      //	Type();
		Mouse();
		Search_Menu();
		p=p+(2*160+20);
		   break;
		 }
	case 80:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
			  p=p+22*160-20;
		  Taskbar('E','R');
		  p=p-22*160+20;
		 }
		 else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+9)=36;
		  p=p+22*160-20;
		  Taskbar('E','T');
		  p=p-22*160+20;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+9)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-20;
		  Taskbar('E','C');
		  p=p-22*160+20;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-20;
		  Taskbar('E','P');
		  p=p-22*160+20;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=6;

		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+7)=36;
		  p=p+22*160-20;
		  Taskbar('E','L');
		  p=p-22*160+20;
		}
		else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+7)=116;

		  Vari1=7;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+15)=36;
		  p=p+22*160-20;
		  Taskbar('E','S');
		  p=p-22*160+20;
		}
		else if(Vari1==7)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+15)=116;

		  Vari1=9;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-20;
		  Taskbar('E','S');
		  p=p-22*160+20;
		}
		else if(Vari1==9)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-20;
		  Taskbar('E','U');
		  p=p-22*160+20;
		}
		}

		}

	 p=p+13*160-20;
	// Taskbar('E');
	 p=p-24*160;
}
void Search_Menu()
{           int Vari2,Vari1;
char *string;
	 p=p+32;
	 for( Vari1=0;Vari1<=14;Vari1+=2)
	 {
		 *(p+Vari1+1)=32;
	 }
		gotoxy(18,1);
   string= "Search" ;
   printf("%s",string);
		*(p+3)=36;

		p=p+158;
		Block(9,58,156,3,3,54);
	for(Vari1=0;Vari1<52;Vari1+=2)
	{
	*(p+Vari1+3)=32;
	}
	for(Vari2=0;Vari2<=7;Vari2++)
	{
	 if(Vari2==0)
	 {
	 gotoxy(19,3);
   string= "Find..." ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(19,4);
   string= "Replace..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	 gotoxy(19,5);
   string= "Search again      Ctrl+L" ;
   printf("%s",string);
	  *(p+5)=116;
	 }

	 else if(Vari2==3)
	 { p=p+160;
	 for(Vari1=2;Vari1<=52;Vari1+=2)
	   *(p+Vari1)='Ä';
	 }
	 else if(Vari2==4)
	 { p=p+160;
	 gotoxy(19,7);
   string= "Go to line number..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==5)
	 {
	 p=p+160;
	 gotoxy(19,8);
   string= "Previous error    Alt+F7" ;
   printf("%s",string);
   for(Vari1=3;Vari1<=51;Vari1+=2)
	  *(p+Vari1)=120;
	 }
	 else if(Vari2==6)
	 {
	 p=p+160;
	 gotoxy(19,9);
   string= "Next error        Alt+F8" ;
   printf("%s",string);
	 for(Vari1=3;Vari1<=51;Vari1+=2)
	 *(p+Vari1)=120;
	 }
	 else if(Vari2==7)
	 { p=p+160;
	 gotoxy(19,10);
   string= "Locate functions..." ;
   printf("%s",string);
	for(Vari1=3;Vari1<=51;Vari1+=2)
	  *(p+Vari1)=120;
	 }
	 }
	 p=p+15*160-32;
	 Taskbar('S','F');
	 p=p-22*160+32;
	 while(1)
	for(Vari1=0;Vari1<=7;)
	{
	switch(Getkey())
	{
	 case 1:
		p=p-2*176;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=7;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','L');
		  p=p-22*160+32;
		 }
		 else if(Vari1==7)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=6;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','N');
		  p=p-22*160+32;
		}
		else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','P');
		  p=p-22*160+32;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','G');
		  p=p-22*160+32;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','S');
		  p=p-22*160+32;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','R');
		  p=p-22*160+32;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','F');
		  p=p-22*160+32;
		}
		 break;
	case 75:
		{
		p=p-(2*160+32);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		Edit_Menu();
		p=p+(2*160+32);

		 break;
		}
	case 77:
		{
		p=p-(2*160+32);
		clrscr();
		Border();
	  //	Type();
		Mouse();
		Run_Menu();
		p=p+(2*160+32);
		   break;
		 }
	case 80:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','R');
		  p=p-22*160+32;
		 }
		 else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','S');
		  p=p-22*160+32;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','G');
		  p=p-22*160+32;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','P');
		  p=p-22*160+32;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		 Vari1=6;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','N');
		  p=p-22*160+32;
		}
		else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=7;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','L');
		  p=p-22*160+32;
		}
		else if(Vari1==7)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		    p=p+22*160-32;
		  Taskbar('S','F');
		  p=p-22*160+32;
		}
		}
		}
	 p=p+15*160-32;
	 //Taskbar('S');
	 p=p-24*160;
}
void Run_Menu()
{           int Vari2,Vari1;
char *string;
	 p=p+48;
	 for( Vari1=0;Vari1<=8;Vari1+=2)
	 {
		 *(p+Vari1+1)=32;
	 }
	 gotoxy(26,1);
   string= "Run";
   printf("%s",string);
		*(p+3)=36;
		p=p+158;
		Block(7,58,158,100,100,54);
	for(Vari1=0;Vari1<52;Vari1+=2)
	{
	*(p+Vari1+3)=32;
	}
	for(Vari2=0;Vari2<=5;Vari2++)
	{
	 if(Vari2==0)
	 {
	 gotoxy(27,3);
   string= "Run              Ctrl+F9" ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(27,4);
   string= "Program reset    Ctrl+F2" ;
   printf("%s",string);
	  for(Vari1=3;Vari1<=51;Vari1+=2)
	  *(p+Vari1)=120;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	 gotoxy(27,5);
   string= "Go to cursor          F4" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==3)
	 { p=p+160;
	 gotoxy(27,6);
   string= "Trace into            F7" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==4)
	 {
	 p=p+160;
	 gotoxy(27,7);
   string= "Step over             F8" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==5)
	 {
	 p=p+160;
	 gotoxy(27,8);
   string= "Arguments..." ;
   printf("%s",string);
	*(p+5)=116;
	}
}
	 p=p+17*160-48;
	 Taskbar('R','R');
	 p=p-22*160+48;

	 while(1)
	for(Vari1=0;Vari1<=5;)
	{
	switch(Getkey())
	{
	 case 1:
		p=p-2*184;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','A');
		  p=p-22*160+48;
		 }
		 else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','S');
		  p=p-22*160+48;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','T');
		  p=p-22*160+48;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','G');
		  p=p-22*160+48;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','P');
		  p=p-22*160+48;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','R');
		  p=p-22*160+48;
		}
		 break;
	case 75:
		{
		p=p-(2*160+48);
		clrscr();
		Border();
	      //	Type();
		Mouse();
		Search_Menu();
		p=p+(2*160+48);

		 break;
		}
	case 77:
		{
		p=p-(2*160+48);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		Compile_Menu();
		p=p+(2*160+48);
		   break;
		 }
	case 80:
		  if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','P');
		  p=p-22*160+48;
		  }

		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','G');
		  p=p-22*160+48;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','T');
		  p=p-22*160+48;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','S');
		  p=p-22*160+48;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','A');
		  p=p-22*160+48;
		}
		 else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		      p=p+22*160-48;
		  Taskbar('R','R');
		  p=p-22*160+48;
		}


	}


	 }

	 p=p+17*160-48;
	// Taskbar('R');
	 p=p-24*160;
}

void Compile_Menu()
{           int Vari2,Vari1;
char *string;
	 p=p+58;
	 for( Vari1=0;Vari1<=16;Vari1+=2)
	 {
		 *(p+Vari1+1)=32;
	 }
		gotoxy(31,1);
   string= "Compile" ;
   printf("%s",string);
		*(p+3)=36;

		p=p+158;
	       Block(8,58,157,4,4,54);
	for(Vari1=0;Vari1<52;Vari1+=2)
	{
	*(p+Vari1+3)=32;
	}
	for(Vari2=0;Vari2<=6;Vari2++)
	{
	 if(Vari2==0)
	 {
	    gotoxy(32,3);
   string= "Compile           Alt+F9" ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(32,4);
   string= "Make              F9" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	 gotoxy(32,5);
   string= "Link" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==3)
	 {p=p+160;
	 gotoxy(32,6);
   string= "Build all" ;
   printf("%s",string);
	  *(p+5)=116;
	 }

	 else if(Vari2==4)
	 { p=p+160;
	 for(Vari1=2;Vari1<=52;Vari1+=2)
	   *(p+Vari1)='Ä';
	 }
	 else if(Vari2==5)
	 { p=p+160;
	 gotoxy(32,8);
   string= "Informations..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==6)
	 {
	 p=p+160;
	 gotoxy(32,9);
   string= "Remove messages" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 }
	 p=p+16*160-58;
	 Taskbar('C','C');
	 p=p-22*160+58;
	 while(1)
	for(Vari1=0;Vari1<=6;)
	{
	switch(Getkey())
	{
	 case 1:
		p=p-2*189;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=6;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','R');
		 p=p-22*160+58;
		 }
		 else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','I');
		 p=p-22*160+58;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','B');
		 p=p-22*160+58;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','L');
		 p=p-22*160+58;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','M');
		 p=p-22*160+58;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','C');
		 p=p-22*160+58;
		}
		 break;
	case 75:
		{
		p=p-(2*160+58);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		Run_Menu();
		p=p+(2*160+58);

		 break;
		}
	case 77:
		{
		p=p-(2*160+58);
		clrscr();
		Border();
		//Type();
		Mouse();
		Debug_Menu();
		p=p+(2*160+58);
		   break;
		 }
	case 80:
		  if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','M');
		 p=p-22*160+58;
		  }

		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','L');
		 p=p-22*160+58;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','B');
		 p=p-22*160+58;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','I');
		 p=p-22*160+58;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=6;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','R');
		 p=p-22*160+58;
		}
		 else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<52;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-58;
		 Taskbar('C','C');
		 p=p-22*160+58;
		}


	}


	 }

	 p=p+16*160-58;
	// Taskbar('C');
	 p=p-24*160;
}
void Debug_Menu()
{           int Vari2,Vari1;
char *string;
	 p=p+76;
	 for( Vari1=0;Vari1<=14;Vari1+=2)
	 {
		 *(p+Vari1+1)=32;
	 }
		gotoxy(40,1);
   string= "Debug" ;
   printf("%s",string);
		*(p+3)=36;

		p=p+158;
	      Block(7,66,158,100,100,62);
	for(Vari1=0;Vari1<60;Vari1+=2)
	{
	*(p+Vari1+3)=32;
	}
	for(Vari2=0;Vari2<=5;Vari2++)
	{
	 if(Vari2==0)
	 {
	 gotoxy(41,3);
   string= "Inspect...         Alt+F4" ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(41,4);
   string= "Evaluate/modify...Ctrl+F4" ;
   printf("%s",string);
    *(p+5)=116;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	 gotoxy(41,5);
   string= "Call stack...     Ctrl+F3" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==3)
	 { p=p+160;
	 gotoxy(41,6);
   string= "Watches                     " ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==4)
	 {
	 p=p+160;
	 gotoxy(41,7);
   string= "Toggle breakpoint Ctrl+F8" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==5)
	 {
	 p=p+160;
	 gotoxy(41,8);
   string= "BreaKpoints..." ;
   printf("%s",string);
	*(p+5)=116;
	 }
	 }
	 p=p+17*160-76;
		 Taskbar('D','I');
		 p=p-22*160+76;
	 while(1)
	for(Vari1=0;Vari1<=5;)
	{
	switch(Getkey())
	{
	 case 1:
		p=p-2*198;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','B');
		 p=p-22*160+76;
		 }
		 else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','T');
		 p=p-22*160+76;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','W');
		 p=p-22*160+76;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','C');
		 p=p-22*160+76;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','E');
		 p=p-22*160+76;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','I');
		 p=p-22*160+76;
		}
		 break;
	case 75:
		{
		p=p-(2*160+76);
		clrscr();
		Border();
	    //	Type();
		Mouse();
		Compile_Menu();
		p=p+(2*160+76);

		 break;
		}
	case 77:
		{
		p=p-(2*160+76);
		clrscr();
		Border();
		//Type();
		Mouse();
		Project_Menu();
		p=p+(2*160+76);
		   break;
		 }
	case 80:
		  if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','E');
		 p=p-22*160+76;
		  }

		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','C');
		 p=p-22*160+76;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','W');
		 p=p-22*160+76;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','T');
		 p=p-22*160+76;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','B');
		 p=p-22*160+76;
		}
		 else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<60;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-76;
		 Taskbar('D','I');
		 p=p-22*160+76;
		}


	}


	 }

	 p=p+17*160-76;
	 //Taskbar('D');
	 p=p-24*160;
}

void Project_Menu()
{           int Vari2,Vari1;
char *string;
	 p=p+92;

	 for( Vari1=0;Vari1<=16;Vari1+=2)
	 {
		 *(p+Vari1+1)=32;
	 }
	 gotoxy(48,1);
   string= "Project" ;
   printf("%s",string);
		*(p+3)=36;
		p=p+158;
		Block(8,44,157,2,2,40);
	for(Vari1=0;Vari1<38;Vari1+=2)
	{
	*(p+Vari1+3)=32;
	}
	for(Vari2=0;Vari2<=6;Vari2++)
	{
	 if(Vari2==0)
	 {
	 gotoxy(49,3);
   string= "Open project..." ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(49,4);
   string= "Close project" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	 for(Vari1=2;Vari1<=38;Vari1+=2)
	   *(p+Vari1)='Ä';

	 }
	 else if(Vari2==3)
	 {p=p+160;
	 gotoxy(49,6);
   string= "Add item..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }

	 else if(Vari2==4)
	 { p=p+160;
	 gotoxy(49,7);
   string= "Delete item" ;
   printf("%s",string);
	  *(p+5)=116;
	  }
	 else if(Vari2==5)
	 { p=p+160;
	 gotoxy(49,8);
   string= "Local options..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==6)
	 {
	 p=p+160;
	 gotoxy(49,9);
   string= "Include files..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 }
	 p=p+16*160-92;
		 Taskbar('P','O');
		 p=p-22*160+92;
	 while(1)
	for(Vari1=0;Vari1<=6;)
	{
	switch(Getkey())
	{
	 case 1:
		p=p-2*206;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=6;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','I');
		 p=p-22*160+92;
		 }
		 else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','L');
		 p=p-22*160+92;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','D');
		 p=p-22*160+92;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','A');
		 p=p-22*160+92;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','C');
		 p=p-22*160+92;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','O');
		 p=p-22*160+92;
		}
		 break;
	case 75:
		{
		p=p-(2*160+92);
		clrscr();
		Border();
		//Type();
		Mouse();
		Debug_Menu();
		p=p+(2*160+92);

		 break;
		}
	case 77:
		{
		p=p-(2*160+92);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		Options_Menu();
		p=p+(2*160+92);
		   break;
		 }
	case 80:
		  if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','C');
		 p=p-22*160+92;
		  }

		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','A');
		 p=p-22*160+92;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','D');
		 p=p-22*160+92;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','L');
		 p=p-22*160+92;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=6;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','I');
		 p=p-22*160+92;
		}
		 else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-92;
		 Taskbar('P','O');
		 p=p-22*160+92;
		}


	}


	 }

	 p=p+16*160-92;
       //	 Taskbar('P');
	 p=p-24*160;
}
void Options_Menu()
{           int Vari2,Vari1;
char *string;
	 p=p+110;
	 for( Vari1=0;Vari1<=16;Vari1+=2)
	 {
		 *(p+Vari1+1)=32;
	 }
	  gotoxy(57,1);
   string= "Options" ;
   printf("%s",string);
		*(p+3)=36;
	p=p+158;
	Block(13,44,152,8,10,40);
	for(Vari1=0;Vari1<38;Vari1+=2)
	*(p+Vari1+3)=32;
	for(Vari2=0;Vari2<=11;Vari2++)
	{
	 if(Vari2==0)
	 {
	 gotoxy(58,3);
   string= "Application..." ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(58,4);
   string= "Compiler        " ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	 gotoxy(58,5);
   string= "Transfer..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }

	 else if(Vari2==3)
	 { p=p+160;
	 gotoxy(58,6);
   string= "Make..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==4)
	 { p=p+160;
	 gotoxy(58,7);
   string= "Linker          " ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==5)
	 { p=p+160;
		 gotoxy(58,8);
   string= "Librarian..." ;
   printf("%s",string);
   *(p+7)=116;
	 }
	 else if(Vari2==6)
	 { p=p+160;
	 gotoxy(58,9);
   string= "Debugger..." ;
   printf("%s",string);
	  *(p+9)=116;
	 }
	 else if(Vari2==7)
	 { p=p+160;
	 gotoxy(58,10);
   string= "Directories..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==8)
	 { p=p+160;
	  for(Vari1=2;Vari1<=38;Vari1+=2)
	   *(p+Vari1)='Ä';
	 }
	 else if(Vari2==9)
	 { p=p+160;
	  gotoxy(58,12);
   string= "Environment     " ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==10)
	 { p=p+160;
	  for(Vari1=2;Vari1<=38;Vari1+=2)
	   *(p+Vari1)='Ä';
	 }
	 else if(Vari2==11)
	 { p=p+160;
	  gotoxy(58,14);
   string= "Save..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 }
	  p=p+11*160-110;
		 Taskbar('O','A');
		 p=p-22*160+110;
	  while(1)
	for(Vari1=0;Vari1<=11;)
	{
	switch(Getkey())
	{
	 case 1:
		p=p-2*215;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=11;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','S');
		 p=p-22*160+110;
		 }
		 else if(Vari1==11)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=9;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','E');
		 p=p-22*160+110;
		}
		else if(Vari1==9)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=7;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','D');
		 p=p-22*160+110;
		}
		else if(Vari1==7)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=6;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+9)=36;
		  p=p+22*160-110;
		 Taskbar('O','B');
		 p=p-22*160+110;
		}
		else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+9)=116;

		  Vari1=5;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+7)=36;
		  p=p+22*160-110;
		 Taskbar('O','I');
		 p=p-22*160+110;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+7)=116;

		  Vari1=4;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','L');
		 p=p-22*160+110;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=3;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','M');
		 p=p-22*160+110;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=2;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','T');
		 p=p-22*160+110;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','C');
		 p=p-22*160+110;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=0;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','A');
		 p=p-22*160+110;
		}
		 break;
	case 75:
		{
		p=p-(2*160+110);
		clrscr();
		Border();
		//Type();
		Mouse();
		Project_Menu();
		p=p+(2*160+110);

		 break;
		}
	case 77:
		{
		p=p-(2*160+110);
		clrscr();
		Border();
		//Type();
		Mouse();
		Window_Menu();
		p=p+(2*160+110);
		   break;
		 }
	case 80:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=1;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','C');
		 p=p-22*160+110;
		 }
		 else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=2;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','T');
		 p=p-22*160+110;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=3;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','M');
		 p=p-22*160+110;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=4;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','L');
		 p=p-22*160+110;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=5;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+7)=36;
		  p=p+22*160-110;
		 Taskbar('O','I');
		 p=p-22*160+110;
		}
			 else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+7)=116;
		  Vari1=6;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+9)=36;
		  p=p+22*160-110;
		 Taskbar('O','B');
		 p=p-22*160+110;
		}
		else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+9)=116;
		  Vari1=7;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','D');
		 p=p-22*160+110;
		}
		else if(Vari1==7)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=9;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','E');
		 p=p-22*160+110;
		}
		else if(Vari1==9)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=11;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','S');
		 p=p-22*160+110;
		}
			else if(Vari1==11)
		  {
		  for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=0;
		   for(Vari2=0;Vari2<38;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-110;
		 Taskbar('O','A');
		 p=p-22*160+110;
		}
		}

		}


	 p=p+(11*160-110);
	 //Taskbar('O');
	 p=p-24*160;

}
void Window_Menu()
{           int Vari2,Vari1;
char *string;
	 p=p+128;
	 for( Vari1=0;Vari1<=14;Vari1+=2)
	 *(p+Vari1+1)=32;
	  gotoxy(66,1);
   string= "Window" ;
   printf("%s",string);
		*(p+3)=36;
	p=p+136;
	Is_Black_Shade=1;
	Block(18,54,147,7,15,50);
	for(Vari1=0;Vari1<48;Vari1+=2)
	{
	*(p+Vari1+3)=32;
	}
	for(Vari2=0;Vari2<=16;Vari2++)
	{
	 if(Vari2==0)
	 {
	 gotoxy(56,3);
   string= "Size/Move      Ctrl+F5" ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(56,4);
   string= "Zoom                F5" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	 gotoxy(56,5);
   string= "Tile" ;
   printf("%s",string);
	  *(p+5)=116;
	 }

	 else if(Vari2==3)
	 { p=p+160;
	 gotoxy(56,6);
   string= "Cascade" ;
   printf("%s",string);
	  *(p+7)=116;
	 }
	 else if(Vari2==4)
	 { p=p+160;
	 gotoxy(56,7);
   string= "Next                F6" ;
   printf("%s",string);
	  *(p+9)=116;
	 }
	 else if(Vari2==5)
	 { p=p+160;
		 gotoxy(56,8);
   string= "Close           Alt+F3" ;
   printf("%s",string);
   *(p+5)=116;
	 }
	 else if(Vari2==6)
	 { p=p+160;
	 gotoxy(56,9);
   string= "Close all" ;
   printf("%s",string);
	  *(p+13)=116;
	 }
	 else if(Vari2==7)
	 { p=p+160;
		  for(Vari1=2;Vari1<=48;Vari1+=2)
	   *(p+Vari1)='Ä';
	 }
	 else if(Vari2==8)
	 { p=p+160;
	  gotoxy(56,11);
   string= "Message" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==9)
	 { p=p+160;
	  gotoxy(56,12);
   string= "Output" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==10)
	 { p=p+160;
	     gotoxy(56,13);
   string= "Watch" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==11)
	 { p=p+160;
	  gotoxy(56,14);
   string= "User screen     Alt+F5" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==12)
	 { p=p+160;
	  gotoxy(56,15);
   string= "Register" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==13)
	 { p=p+160;
	  gotoxy(56,16);
   string= "Project" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==14)
	 { p=p+160;
	     gotoxy(56,17);
   string= "Project notes" ;
   printf("%s",string);
	  *(p+11)=116;
	 }
	 else if(Vari2==15)
	 { p=p+160;
	 for(Vari1=2;Vari1<=48;Vari1+=2)
	   *(p+Vari1)='Ä';
	 }
	 else if(Vari2==16)
	 { p=p+160;
	     gotoxy(56,19);
   string= "List all...      Alt+0" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 }
	  p=p+6*160-106;
	  Taskbar('W','S');
	 p=p-22*160+106;
	  while(1)
	for(Vari1=0;Vari1<=16;)
	{
	switch(Getkey())
	{
	 case 1:
		p=p-2*213;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=16;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','L');
		 p=p-22*160+106;
		 }
		 else if(Vari1==16)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=14;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+11)=36;
		  p=p+22*160-106;
		 Taskbar('W','J');
		 p=p-22*160+106;
		}
		else if(Vari1==14)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+11)=116;
		  Vari1=13;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','P');
		 p=p-22*160+106;
		}
		else if(Vari1==13)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=12;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','R');
		 p=p-22*160+106;
		}
		else if(Vari1==12)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=11;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','U');
		 p=p-22*160+106;
		}
		else if(Vari1==11)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=10;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','W');
		 p=p-22*160+106;
		}
		else if(Vari1==10)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=9;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','O');
		 p=p-22*160+106;
		}
		else if(Vari1==9)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=8;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','M');
		 p=p-22*160+106;
		}
		else if(Vari1==8)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=6;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+13)=36;
		  p=p+22*160-106;
		 Taskbar('W','E');
		 p=p-22*160+106;
		}
		else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+13)=116;
		  Vari1=5;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','C');
		 p=p-22*160+106;
		}
		else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=4;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+9)=36;
		  p=p+22*160-106;
		 Taskbar('W','X');
		 p=p-22*160+106;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+9)=116;
		  Vari1=3;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+7)=36;
		  p=p+22*160-106;
		 Taskbar('W','A');
		 p=p-22*160+106;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+7)=116;
		  Vari1=2;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','T');
		 p=p-22*160+106;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=1;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','Z');
		 p=p-22*160+106;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=0;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','S');
		 p=p-22*160+106;
		}
		 break;
	case 75:
		{
		p=p-(2*160+106);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		Options_Menu();
		p=p+(2*160+106);

		 break;
		}
	case 77:
		{
		p=p-(2*160+106);
		clrscr();
		Border();
	       //	Type();
		Mouse();
		Help_Menu();
		p=p+(2*160+106);
		   break;
		 }
	case 80:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=1;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','Z');
		 p=p-22*160+106;
		 }
		 else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=2;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','T');
		 p=p-22*160+106;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=3;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+7)=36;
		  p=p+22*160-106;
		 Taskbar('W','A');
		 p=p-22*160+106;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+7)=116;
		  Vari1=4;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+9)=36;
		  p=p+22*160-106;
		 Taskbar('W','X');
		 p=p-22*160+106;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+9)=116;
		  Vari1=5;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','C');
		 p=p-22*160+106;
		}
			 else if(Vari1==5)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=6;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+13)=36;
		  p=p+22*160-106;
		 Taskbar('W','E');
		 p=p-22*160+106;
		}
		else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+13)=116;
		  Vari1=8;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','M');
		 p=p-22*160+106;
		}
		else if(Vari1==8)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=9;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','O');
		 p=p-22*160+106;
		}
		else if(Vari1==9)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=10;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','W');
		 p=p-22*160+106;
		}
			else if(Vari1==10)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=11;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','U');
		 p=p-22*160+106;
		}
			else if(Vari1==11)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=12;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','R');
		 p=p-22*160+106;
		}
			 else if(Vari1==12)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=13;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','P');
		 p=p-22*160+106;
		}
		else if(Vari1==13)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=14;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+11)=36;
		  p=p+22*160-106;
		 Taskbar('W','J');
		 p=p-22*160+106;
		}
		else if(Vari1==14)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+11)=116;
		  Vari1=16;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','L');
		 p=p-22*160+106;
		}
		else if(Vari1==16)
		  {
		  for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=0;
		   for(Vari2=0;Vari2<48;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-106;
		 Taskbar('W','S');
		 p=p-22*160+106;
		}
		}

		}

	 p=p+(6*160-106);
	// Taskbar('W');
	 p=p-24*160;

}

void Help_Menu()
{           int Vari2,Vari1;
char *string;
	 p=p+144;
	 for( Vari1=0;Vari1<=10;Vari1+=2)
	 {
		 *(p+Vari1+1)=32;
	 }
		gotoxy(74,1);
   string= "Help" ;
   printf("%s",string);
		*(p+3)=36;

		p=p+114;
		Is_Black_Shade=1;
	       Block(8,60,157,5,5,56);
	for(Vari1=0;Vari1<54;Vari1+=2)
	{
	*(p+Vari1+3)=32;
	}
	for(Vari2=0;Vari2<=6;Vari2++)
	{
	 if(Vari2==0)
	 {
	    gotoxy(53,3);
   string= "Contents" ;
   printf("%s",string);
	  *(p+5)=36;
	 }
	 else if(Vari2==1)
	 { p=p+160;
	 gotoxy(53,4);
   string= "Index            Shift+F1" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==2)
	 { p=p+160;
	 gotoxy(53,5);
   string= "Topic search      Ctrl+F1" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==3)
	 {p=p+160;
	 gotoxy(53,6);
   string= "Previous topic     Alt+F1" ;
   printf("%s",string);
	  *(p+5)=116;
	 }

	 else if(Vari2==4)
	 { p=p+160;
	  gotoxy(53,7);
   string= "Help on help" ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 else if(Vari2==5)
	 { p=p+160;
	 for(Vari1=2;Vari1<=54;Vari1+=2)
	   *(p+Vari1)='Ä';

	 }
	 else if(Vari2==6)
	 {
	 p=p+160;
	 gotoxy(53,9);
   string= "About..." ;
   printf("%s",string);
	  *(p+5)=116;
	 }
	 }
	 p=p+16*160-100;
	 Taskbar('H','C');
	 p=p-22*160+100;
	 while(1)
	for(Vari1=0;Vari1<=6;)
	{
	switch(Getkey())
	{
	 case 1:
		p=p-2*210;
		main();
		break;
	 case 72:
		if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=6;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','A');
		 p=p-22*160+100;
		 }
		 else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=4;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','H');
		 p=p-22*160+100;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=3;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','P');
		 p=p-22*160+100;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=2;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','T');
		 p=p-22*160+100;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=1;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','I');
		 p=p-22*160+100;
		}
		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=0;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','C');
		 p=p-22*160+100;
		}
		 break;
	case 75:
		{
		p=p-(2*160+100);
		clrscr();
		Border();
	      //	Type();
		Mouse();
		Window_Menu();
		p=p+(2*160+100);

		 break;
		}
	case 77:
		{
		p=p-(2*160+100);
		clrscr();
		Border();
	    //	Type();
		Mouse();
		Turbo_Menu();
		p=p+(2*160+100);
		   break;
		 }
	case 80:
		  if(Vari1==0)
		 {
		 for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;

		  Vari1=1;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','I');
		 p=p-22*160+100;
		  }

		else if(Vari1==1)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=2;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','T');
		 p=p-22*160+100;
		}
		else if(Vari1==2)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=3;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','P');
		 p=p-22*160+100;
		}
		else if(Vari1==3)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=4;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','H');
		 p=p-22*160+100;
		}
		else if(Vari1==4)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=6;;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','A');
		 p=p-22*160+100;
		}
		 else if(Vari1==6)
		  {
		  for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=112;
		  *(p+Vari1*160+5)=116;
		  Vari1=0;
		   for(Vari2=0;Vari2<54;Vari2+=2)
		  *(p+Vari1*160+Vari2+3)=32;
		  *(p+Vari1*160+5)=36;
		  p=p+22*160-100;
		 Taskbar('H','C');
		 p=p-22*160+100;
		}


	}


	 }

	 p=p+16*160-100;
	// Taskbar('H');
	 p=p-24*160;
}


void main()
{

int Get_key,Vari1;
if(Count_Clipboard<2)
{
 q=q+2*160+2;
clrscr();
//date();
//time();
Border();
//Type();
Mouse();
}
p=p+2;
if(Is_Green_Default==0)
 for( Vari1=0;Vari1<=4;Vari1+=2)
  {
 *(p+Vari1+1)=32;
 *(p+3)=36;
 Is_Green_Default=1;
 }
 p=p-2;

while(1)
{
Get_key=getch();
if(Is_Green_Default==1)
{
clrscr();
//date();
//time();
Border();
//Type();
Mouse();
Is_Green_Default=2;
}
switch(Get_key)
{
case 13:
//q=q+(160-(q%160));
q=q+(160-2*Count_Word);
gotoxy(1+More_Clipboard,More_Clipboard+Y_Axis+3);
Y_Axis++;
Count_Word=0;
X_Axis=1;
break;
case 48:
Write('0');
break;
case 49:
Write('1');
break;
case 50:
Write('2');
break;
case 51:
Write('3');
break;
case 52:
Write('4');
break;
case 53:
Write('5');
break;
case 54:
Write('6');
break;
case 55:
Write('7');
break;
case 56:
Write('8');
break;
case 57:
Write('9');
break;
case 20:
Turbo_Menu();
break;
case 33:
File_Menu();
break;
case 18:
Edit_Menu();
break;
case 31:
Search_Menu();
break;
case 19:
Run_Menu();
break;
case 46:
Compile_Menu();
break;
case 32:
Debug_Menu();
break;
case 25:
Project_Menu();
break;
case 24:
Options_Menu();
break;
case 17:
Window_Menu();
break;
case 35:
Help_Menu();
break;
case 45:
exit(0);
case 106:
if(Count_Clipboard>=4)
{
 Count_Clipboard-=2;

  Type() ;		    //	delay(1000);
 }
else if(Count_Clipboard==3)
{
 Count_Clipboard=1;
 Shift_Clipboard=0;
Full_Clipboard=0;
Clipboard_No=48;
Clipboard_Name=0;
More_Clipboard=1;

Type();
}
else
{

 Count_Clipboard=1;
 Shift_Clipboard=0;
Full_Clipboard=0;
Clipboard_No=48;
Clipboard_Name=0;
More_Clipboard=1;
Border();
}
		//main();
}
}
getch();
}