program xDE;
uses crt;
var
   nome,senha,selec : string;
   i,app,op,cor	    : integer;
   n1,n2	    : real;
begin
   textbackground(green);
   clrscr;
   textcolor(blue);

   repeat
      clrscr;
      writeln('                              xDE - xDesktop Enviroment');
      writeln('                     Versão 0.0.0.0.0.0.0.0.0.0.0.0[...].0.1/2/2');
      writeln('');
      writeln('');
      writeln('');
      writeln('');
      writeln('');
      writeln('');
      writeln('');
      writeln('');
      write('                               Nome de Usuário: ');
      readln(nome);
      write('                               Senha:');
      readln(senha);
      
      if senha = 'xde' then
      begin
	 clrscr;
	 writeln('Seja bem-vindo ao xDE. Você está sendo redirecionado para a Área de Trabalho.');
	 writeln('');
	 write('Por favor, aguarde...');
	 
	 for i:=0 to 50 do
	 begin
	    write('.');
	    delay(50);
	 end;
	 
	 delay(300);
	 clrscr;

	 repeat
	    writeln('xDE - xDesktop Enviroment ©2007 - xD Inc.');
	    writeln('');
	    writeln('');
	    writeln('');
	    writeln(' -- xDE Menu -----------------------------------');
	    writeln('|                                               |');
	    writeln('| 1 - xD Calc                                   |');
	    writeln('| 2 - xD Translator                             |');
	    writeln('| 3 - xDE Color Manager                         |');
	    writeln('| 4 - xD Exit                                   |');
	    writeln('|                                               |');
	    writeln(' -----------------------------------------------');
	    writeln('');
	    write('Digite o nº correspondente à aplicação desejada: ');
	    readln(app);
	    delay(500);

	    write('Por favor, aguarde...');
	    for i:=0 to 50 do
	    begin
	       write('.');
	       delay(50);
	    end;
	    
	    if app=1 then
	    begin
	       repeat
		  clrscr;
		  writeln('xDE Calc - Calculadora do xDE ©2007 - xD Inc.');
		  writeln('');
		  writeln('');
		  writeln('');
		  writeln(' -- xDE Calc Menu ---------------------------');
		  writeln('|                                            |');
		  writeln('| 1 - Soma                                   |');
		  writeln('| 2 - Subtração                              |');
		  writeln('| 3 - Multiplicação                          |');
		  writeln('| 4 - Divisão                                |');
		  writeln('| 5 - Sair de xDE Calc                       |');
		  writeln('|                                            |');
		  writeln(' --------------------------------------------');
		  writeln('');
		  write('Digite o nº correspondente à operação desejada: ');
		  readln(op);

		  if (op=1) or (op=2) or (op=3) or (op=4) then
		  begin
		     writeln('');
		     write('Digite o primeiro nº: ');
		     readln(n1);
		     write('Digite o segundo nº: ');
		     readln(n2);
		     writeln('');
		     if op = 1 then writeln(n1:2:1,' + ',n2:2:1,' = ',(n1+n2):2:1);
		     if op = 2 then writeln(n1:2:1,' - ',n2:2:1,' = ',(n1-n2):2:1);
		     if op = 3 then writeln(n1:2:1,' x ',n2:2:1,' = ',(n1*n2):2:1);
		     if op = 4 then writeln(n1:2:1,' : ',n2:2:1,' = ',(n1/n2):2:1);
		     writeln('');
		     writeln('Pressione qualquer tecla para continuar.');
		     readkey;
		     clrscr;
		  end;

		  if (op<=0) or (op > 5) then
		  begin
		     writeln('');
		     writeln('Operação não existente!!!');
		     writeln('');
		     writeln('Pressione qualquer tecla para tentar novamente.');
		     readkey;
		  end;

		  if op=5 then
		  begin
		     writeln('');
		     write('Você tem certeza que deseja sair do xD Calc? [s/N] ');
		     readln(selec);
		     if (selec = 's') or (selec = 'S') then
		     begin
			op:=5;
			write('Por favor, aguarde...');
			for i:=0 to 50 do
			begin
			   write('.');
			   delay(50);
			end;
		     end
		     else op:=0;
		  end;	    
	       until(op=5)
	    end;
	    
	    if app = 2 then
	    begin
	       clrscr;
	       writeln('xD Translator - Tradutor de Idiomas do xDE ©2007 xD Inc.');
	       writeln('');
	       writeln('');
	       writeln('');
	       writeln(' -- xD Translator ---------------------------');
	       writeln('|                                            |');
	       writeln('| Perdão, este recurso não está disponível   |');
	       writeln('| no momento.                                |');
	       writeln('|                                            |');
	       writeln(' --------------------------------------------');
	       writeln('');
	       writeln('Pressione qualquer tecla para continuar.');
	       readkey;
	    end;

	    if app = 3 then
	    begin
	       repeat
		  clrscr;
		  writeln('xDE Color Manager - Troque as cores do seu xDE ©2007 xD Inc.');
		  writeln('');
		  writeln('');
		  writeln('');
		  writeln(' -- xD Color Manager ------------------------');
		  writeln('|                                            |');
		  writeln('| 1 - Azul                                   |');
		  writeln('| 2 - Branco                                 |');
		  writeln('| 3 - Alaranjado                             |');
		  writeln('| 4 - Vermelho                               |');
		  writeln('| 5 - Verde                                  |');
		  writeln('| 6 - Preto                                  |');
		  writeln('| 7 - Sair                                   |');
		  writeln('|                                            |');
		  writeln(' --------------------------------------------');
		  writeln('');
		  write('Digite o nº correspondente a cor, ou 7 para sair: ');
		  readln(cor);
		  
  
		  if cor = 1 then
		  begin
		     write('Por favor, aguarde...');
		     for i:=0 to 50 do
		     begin
			write('.');
			delay(50);
		     end;
		     textbackground(blue);
		     clrscr;
		     textcolor(yellow);
		  end;
		  
		  if cor = 2 then
		  begin
		     write('Por favor, aguarde...');
		     for i:=0 to 50 do
		     begin
			write('.');
			delay(50);
		  end;		     
		     textbackground(white);
		     clrscr;
		     textcolor(black);
		  end;
		  
		  if cor = 3 then
		  begin
		     write('Por favor, aguarde...');
		     for i:=0 to 50 do
		     begin
			write('.');
			delay(50);
		     end;
		     textbackground(yellow);
		     clrscr;
		     textcolor(red);
		  end;
		  
		  if cor = 4 then
		  begin
		     write('Por favor, aguarde...');
		     for i:=0 to 50 do
		     begin
			write('.');
			delay(50);
		     end;
		     textbackground(red);
		     clrscr;
		     textcolor(yellow);
		  end;
		  
		  if cor = 5 then
		  begin
		     write('Por favor, aguarde...');
		     for i:=0 to 50 do
		     begin
			write('.');
			delay(50);
		     end;
		     textbackground(green);
		     clrscr;
		     textcolor(blue);
		  end;
		  
		  if cor = 6 then
		  begin
		     write('Por favor, aguarde...');
		     for i:=0 to 50 do
		     begin
			write('.');
			delay(50);
		     end;
		     textbackground(black);
		     clrscr;
		     textcolor(white);
		  end;
		  
		  if cor = 7 then
		  begin
		     write('Tem certeza que deseja sair do xD Color Manager? [s/N] ');
		     readln(selec);
		     
		     if (selec = 's') or (selec = 'S') then
		     begin
			cor:=7;
			write('Por favor, aguarde...');
			for i:=0 to 50 do
			begin
			   write('.');
			   delay(50);
			end;
		     end
		     else cor:=0;
		  end;
		  
		  if (cor <= 0) or (cor > 7) then
		  begin
		     writeln('');
		     writeln('Esquema de cor não existente!!!');
		     writeln('');
		     writeln('Pressione qualquer tecla para tentar novamente.');
		     readkey;
		  end;		   
		  
	       until(cor=7);
	    end;
	       
		     
		     
	 
	     clrscr;
	  until(app=4)
       end

       else
   begin
      clrscr;
      writeln('                                   Senha Inválida!');
      delay(5000);
   end;
   until(senha='xde');

   writeln('			        	Obrigado por usar o xDE');
   writeln('');
   write('Saindo...');
   for i:=0 to 50 do
   begin
      write('.');
      delay(50);
   end;
   textbackground(black);
   clrscr;
   textcolor(white);
   end.