SoloCodigo

(****************************************************************************)
(* PROGRAMA PRINCIPAL *)
  Begin
   Malo:=Muy_Maloso;
   checkbreak:=Malo;
   Setcbreak(Malo);

   SINCURSOR;
   TERMINAR:=FALSE;
   CADENA2:='    Taller de Sistemas Operativos   ';
   CADENA1:=' Departamento de Ciencias Computacionales ';

   (* AJUSTAMOS LOS COLORES DEL FONDO DE ACUERDO AL TIPO DE MONITOR   *)
   (* SI ES MONOCROMO, EL COLOR DE PRIMER PLANO SERA NEGRO, Y EL DE   *)
   (* SEGUNDO PLANO SERA DE GRISCLARO, EN OTRO CASO, SI EL MONITOR ES *)
   (* A COLORES, EL PRIMERO SERA AZUL Y EL SEGUNDO GRISCLARO.         *)

   IF MONOCROMO THEN
      Begin
       COLOR1:=NEGRO;COLOR2:=GRISCLARO;
      END
   ELSE
      Begin
       COLOR1:=AZUL;COLOR2:=GRISCLARO;
      End;

   FONDO(COLOR1,COLOR2,#176);

   (* EL VALOR QUE ELIJA PARA "POSICIONMENU"  SERA LA COORDENADA "Y" PARA EL *)
   (* "MENU DE BARRAS".                                                      *)

   POSICIONMENU:=1;
   AJUSTABANDA(POSICIONMENU);

  (* AL ELEGIR LOS COLORES PARA INICIAMENU, SE RESPETARAN, SIEMPRE Y CUANDO *)
  (* EL MONITOR SEA A COLORES, DE LO CONTRARIO, SE AJUSTARAN POR DEFAULT    *)
  (* AL TIPO CONVENCIONAL MONOCROMO.                                        *)

    INICIAMENU(SUPERMENU,POSICIONMENU,NEGRO,GRISCLARO,NEGRO,VERDE);
 CREARMENU(SUPERMENU,'Directorio',' SE MUESTRA TODO LO QUE SE PUEDE HACER CON UN Directorio');
   CREARSUBMENU(SUPERMENU,'Directorio','CAMBIAR DIRECTORIO',' ES POSIBLE CAMBIAR DE DIRECTORIO',#63);
   CREARSUBMENU(SUPERMENU,'Directorio','CREAR DIRECTORIO  ',' SE CREA UN DIRECTORIO IGUAL QUE MKDIR',#64);
   if windows95_o_98 then
   CREARSUBMENU(SUPERMENU,'Directorio','BORRAR DIRECTORIO ',' BORRAMOS UN DIRECTORIO CON NOMBRE LARGO',#65)
   else
   CREARSUBMENU(SUPERMENU,'Directorio','BORRAR DIRECTORIO ',' BORRAMOS UN DIRECTORIO',#65);
   if windows95_o_98 then
   CREARSUBMENU(SUPERMENU,'Directorio','SIMBOLO "MSDOS"   ',' UNA SALIDA TEMPORAL AL SIMBOLO "MSDOS"',#32)
   else
   CREARSUBMENU(SUPERMENU,'Directorio','SALIDA AL "DOS"   ',' UNA SALIDA TEMPORAL AL "DOS"',#32);
  CREARSUBMENU(SUPERMENU,'Directorio','TERMINAR PROGRAMA ',' SE FINALIZA TOTALMENTE EL PROGRAMA',#45);
 CREARMENU(SUPERMENU,'Archivo',' MANIPULADOR DE ARCHIVOS');
   CREARSUBMENU(SUPERMENU,'Archivo','COPIAR ARCHIVO',' COPIA ARCHIVOS MAS RAPIDO QUE "COPY" ',#102);
   CREARSUBMENU(SUPERMENU,'Archivo','BORRAR ARCHIVO',' BORRA TOTALMENTE UN ARCHIVO',#105);
    CREARSUBMENU(SUPERMENU,'Archivo','RENOMBRAR ARCHIVO',' INTERCAMBIA EL NOMBRE DE UN ARCHIVO POR OTRO NUEVO',#120);
   CREARMENU(SUPERMENU,'Taller de Sists.Ops.',' Programas de Teoria y Taller de Sistemas Operativos');
   Cadena:=' Es un Despachador de Procesos que usa 5 metodos ';
   CREARSUBMENU2(SUPERMENU,'Taller de Sists.Ops.','Despachador de procesos',cadena);
   Cadena:=' Primero el m s corto que se procesa ';
   CREARSUBSUBMENU(SUPERMENU,'Taller de Sists.Ops.','Despachador de procesos','Metodo SPF',cadena,#130);
   Cadena:=' Primero en llegar...primero en ser procesado ';
   CREARSUBSUBMENU(SUPERMENU,'Taller de Sists.Ops.','Despachador de procesos','Metodo FIFO',cadena,#131);
   Cadena:=' Round-Robin(Quantum) = Un Tiempo asignado a cada proceso por Rotacion';
   CREARSUBSUBMENU(SUPERMENU,'Taller de Sists.Ops.','Despachador de procesos','Metodo ROUND-ROBIN(QUANTUM)',cadena,#132);
    Cadena:=' Prioridades: A=Alta...M=Media....B=Baja=Ultimo a Ejecutar';
   CREARSUBSUBMENU(SUPERMENU,'Taller de Sists.Ops.','Despachador de procesos','Metodo PRIORIDADES',cadena,#133);
    Cadena:=' Quantum-Prioridades=Rotaci¢n por Prioridades';
   CREARSUBSUBMENU(SUPERMENU,'Taller de Sists.Ops.','Despachador de procesos','Metodo QUANTUM PRIORIDADES',cadena,#134);
   cadena:=' Despachador de Procesos(Quantum-Prioridades) Con: "Gesti¢n de Memoria"';
   CREARSUBMENU2(SUPERMENU,'Taller de Sists.Ops.','Gestor de Memoria',cadena);
   Cadena:=' Quantum_Prioridades Usando Partici¢n Din mica ';
   CREARSUBSUBMENU(SUPERMENU,'Taller de Sists.Ops.','Gestor de Memoria','Quantum-Prioridades',cadena,#30);
   cadena:=' Procesos que compiten por los recursos del sistema';
   CREARSUBMENU2(SUPERMENU,'Taller de Sists.Ops.','Productor-Consumidor',cadena);
   Cadena:=' Algoritmo: productor-consumidor haciendo uso de semaforos ';
   CREARSUBSUBMENU(SUPERMENU,'Taller de Sists.Ops.','Productor-Consumidor','Cajero Automatico',cadena,#135);
   cadena:=' Algoritmo haciendo uso de semaforos';
   CREARSUBMENU2(SUPERMENU,'Taller de Sists.Ops.','Barberia',cadena);
   Cadena:=' Problema de la Barberia equitativa (En total procesa 50 clientes) ';
   CREARSUBSUBMENU(SUPERMENU,'Taller de Sists.Ops.','Barberia','Barberia Equitativa',cadena,#136);
   cadena:=' Algoritmo libre de exclusi¢n e inanici¢n. (Hace uso de semaforos)';
   CREARSUBMENU2(SUPERMENU,'Taller de Sists.Ops.','Filosofos',cadena);
   Cadena:=' Problema de los 5 Filosofos que cenan spaghetti con tenedores ';
   CREARSUBSUBMENU(SUPERMENU,'Taller de Sists.Ops.','Filosofos','Cena de Filosofos',cadena,#137);
 CREARMENU(SUPERMENU,'Datos del Sist.',' HORA ACTUAL..FECHA ACTUAL..PROTECTOR..CAMBIAR MENSAJE PROTECTOR, ETC.');
   CREARSUBMENU(SUPERMENU,'Datos del Sist.','FECHA DEL SISTEMA',' SABER LA FECHA DEL SISTEMA',#33);
   CREARSUBMENU(SUPERMENU,'Datos del Sist.','CAMBIAR LA HORA',' CAMBIAR LA HORA DEL SISTEMA',#109);
   CREARSUBMENU(SUPERMENU,'Datos del Sist.','PROTECTOR DE MONITOR',' PROTEGE EL MONITOR DE UN POSIBLE "CALENTAMIENTO"',#107);
   CREARSUBMENU(SUPERMENU,'Datos del Sist.','MENSAJE DEL PROTECTOR',' ES CAMBIAR EL MENSAJE ACTUAL POR OTRO',#106);
   if Windows95_o_98 then
   Begin
    Cadena:=' SE ACTIVA EN MEMORIA QUEDANDO RESIDENTE(tsr) EL PROTECTOR DE MONITOR';
    CREARSUBMENU(SUPERMENU,'Datos del Sist.','ACTIVAR EN MEMORIA PROTECTOR',CADENA,#19);
   End;
 CREARMENU(SUPERMENU,'Acerca',' DATOS IMPORTANTES');
   CREARSUBMENU(SUPERMENU,'Acerca',' SoftWare ',' DATOS DEL AUTOR ',#112);

   (* AJUSTAMOS LOS COLORES DEL TITULO DE ACUERDO AL TIPO DE MONITOR   *)
   (* SI ES MONOCROMO, EL COLOR DE PRIMER PLANO SERA NEGRO, Y EL DE    *)
   (* SEGUNDO PLANO SERA DE GRISCLARO, EN OTRO CASO, SI EL MONITOR ES  *)
   (* A COLORES, EL PRIMERO SERA BLANCO Y EL SEGUNDO ROJO.             *)

   IF MONOCROMO THEN
     Begin
       COLORA:=NEGRO;COLORB:=GRISCLARO;
     END
   ELSE
     Begin
       COLORA:=BLANCO;COLORB:=ROJO;
     End;
   TITULO(20,4,COLORA,COLORB,TRUE,15,2,CADENA1,CADENA2);
   INICIARELOJ(69,1,NEGRO,GRISCLARO);
   RELOJ(TRUE);
   acerca;
   REPEAT;
    OPCION:=RATONMENU(SUPERMENU);
    DECIDIR(OPCION);
   UNTIL TERMINAR;
  END.