Procedure Haupt_Menue_Aufbau;
Begin
  gClrScr(byte(myBkGround));
  gSetTextColor(byte(clYellow));
  gSetTextBkGnd(bkNormal);
  gSetBkColor(byte(myBkGround));
  gSetTextMode(wmSetPix);
  gSetTextColor(byte(clGreen));
  gDrawString(300, 25, 2, 2, TxtRot0, 'Hauptmenue');
  GDrawline(0, 30, 800, 30, $FF, byte(clRed));
 
  gSetBkColor(byte(myBtnColor));       // clBlack
 
  gFillRect       (60, 60, 330, 120, byte(myBtnColor));                                // Handfahrt
  gDrawButtonFrame(60, 60, 330, 120, byte(clCream), byte(clDkGray));
  gSetTextColor(byte(clGreen));
  gDrawString(70, 95, 2, 2, TxtRot0, 'F1');
  gSetTextColor(byte(clYellow));
  gDrawString(100, 95, 2, 2, TxtRot0, 'Handfahrt');
 
  gFillRect       (60, 140, 330, 200, byte(myBtnColor));                               // G-Code MMC Fahrt
  gDrawButtonFrame(60, 140, 330, 200, byte(clCream), byte(clDkGray));
  gSetTextColor(byte(clGreen));
  gDrawString(70, 175, 2, 2, TxtRot0, 'F2');
  gSetTextColor(byte(clYellow));
  gDrawString(100, 175, 2, 2, TxtRot0, 'G-Code MMC');
 
  gFillRect       (60, 220, 330, 280, byte(myBtnColor));                               // Excellon Fahrt
  gDrawButtonFrame(60, 220, 330, 280, byte(clCream), byte(clDkGray));
  gSetTextColor(byte(clGreen));
  gDrawString(70, 255, 2, 2, TxtRot0, 'F3');
  gSetTextColor(byte(clYellow));
  gDrawString(100, 255, 2, 2, TxtRot0, 'Excellon');
 
  gFillRect       (60, 300, 330, 360, byte(myBtnColor));                               // Werkzeug Fahrt
  gDrawButtonFrame(60, 300, 330, 360, byte(clCream), byte(clDkGray));
  gSetTextColor(byte(clGreen));
  gDrawString(70, 335, 2, 2, TxtRot0, 'F4');
  gSetTextColor(byte(clYellow));
  gDrawString(100, 335, 2, 2, TxtRot0, 'Werzeugfahrt');
 
  gFillRect       (60, 380, 330, 440, byte(myBtnColor));                               // Werkzeug Fahrt
  gDrawButtonFrame(60, 380, 330, 440, byte(clCream), byte(clDkGray));
  gSetTextColor(byte(clGreen));
  gDrawString(70, 415, 2, 2, TxtRot0, 'G');
  gSetTextColor(byte(clYellow));
  gDrawString(100, 415, 2, 2, TxtRot0, 'Fahrt Eingabe ');
 
 
 
//------------------------------------------------------------------------------
  gFillRect       (400, 60, 670, 120, byte(myBtnColor));                               // Grundwerte
  gDrawButtonFrame(400, 60, 670, 120, byte(clCream), byte(clDkGray));
  gSetTextColor(byte(clGreen));
  gDrawString(410, 95, 2, 2, TxtRot0, 'F5');
  gSetTextColor(byte(clYellow));
  gDrawString(440, 95, 2, 2, TxtRot0, 'Grundwerte ');
 
  gFillRect       (400, 140, 670, 200, byte(myBtnColor));                               // Rampen F-Werte
  gDrawButtonFrame(400, 140, 670, 200, byte(clCream), byte(clDkGray));
  gSetTextColor(byte(clGreen));
  gDrawString(410, 175, 2, 2, TxtRot0, 'F6');
  gSetTextColor(byte(clYellow));
  gDrawString(440, 175, 2, 2, TxtRot0, 'Rampen F-Werte');
 
  gFillRect       (400, 220, 670, 280, byte(myBtnColor));                               // Motoren Strom Anzeige
  gDrawButtonFrame(400, 220, 670, 280, byte(clCream), byte(clDkGray));
  gSetTextColor(byte(clGreen));
  gDrawString(410, 255, 2, 2, TxtRot0, 'F7');
  gSetTextColor(byte(clYellow));
  gDrawString(440, 255, 2, 2, TxtRot0, 'Motorenstrom ');
 
  gFillRect       (400, 300, 670, 360, byte(myBtnColor));                               // Ref Fahrt
  gDrawButtonFrame(400, 300, 670, 360, byte(clCream), byte(clDkGray));
  gSetTextColor(byte(clGreen));
  gDrawString(410, 335, 2, 2, TxtRot0, 'F8');
  gSetTextColor(byte(clYellow));
  gDrawString(440, 335, 2, 2, TxtRot0, 'Referenz Fahrt ');
end Haupt_Menue_Aufbau;

 
 
{ Main Program }
{$IDATA}
begin
  InitPorts;
  pwm:= 255;
  EnableInts($87);
  mDelay(10);
 
  bb:= 0;
  InitAll;
  SetRotation(SWITCH_NONE);//(SWITCH_NONE);
  mdelay(100);
 
  SetBackLight(pwm);
 
  gClrScr(byte(clBlack));            //myBkGround    myForGround
  gSetTextBkGnd(bkNormal);           // bkNormal  bkTransp
  GSwitchView(0);
  gFrameView(0, $FF, byte(clRed));
 
//  GSetTextMode(wmSetPix);
  gSetTextColor(byte(clGreen));
  GDrawline(205, 215, 595, 215, $FF, byte(clRed));
 
  FlushBuffer(RxBufferC1);
  FlushBuffer(TxBufferC1);
 
//  Boote;
 
  loop
    // Base abfragen
     Check_Ser_C1_Base;
 
      Case cmd of
        $1B  :  Haupt_Menue_Aufbau;                                                       | // Hauptpage