Natur

Fortran Quellcodebeispiel


Wolfgang Renner   Privatlehrer für Naturwissenschaften

(Letzte Änderung:   29. Oktober 2017)


Hier folgt ein Fortran Quellcodebeispiel aus meiner gegenwärtigen Programmentwicklung. Es ist eine Testsequenze für das Laden, Setzen und Abfragen von GUI-Elementen. DspLib erzeugt einen imperativ sequenziellen Code mit klassischer Subroutinen Strukturierung und expliziter Messageloop zur GUI-Element Verwaltung, der typisch für Fortran ist und aufgrund der Ablaufordnung leichter zu verstehen und zu warten ist, als objektorientierter Code. Es ist jedoch ein eher altmodischer Ansatz, da heute Objektorientierung weit verbreitet ist. Dennoch gibt es etliche Programmierer, die den klassisch prozeduralen Programmierstil schätzen und Objektorientierung als verwirrend und wenig hilfreich für die mathematische Anwendungsprogrammierung sehen.
Alle ERROR1 = DL1(...) Aufrufe sind Dsplib Funktionen und Teil meiner persönlichen Entwicklungsarbeit. Das Windows API sieht in der direkten Programmierung anders aus und bietet keine leicht lernbare und übersichtlich strukturierte Form der GUI-Elemente Verwaltung. Außerdem fehlen dem Windows API alle "Extended Presicion" Erweiterungen von DspLib, die erhöhte mathematische und graphische Präzision mit vollständigen Transparenzeffekten ermöglichen. Die Veröffentlichung des Quellcodes bedeutet nicht, dass es sich um freie Software handelt. Ich erhebe vollständige Urheberrechtsansprüche und jede unerlaubte Nutzung ist rechtswidrig.
Zurück zur DspLib Hauptseite

!***************************************************************************************************************
!*    ERROR1 = DEMO22(DUMMY1)                                                                                  *
!*                                                                                                             *
!*    contains   LODGRP,SETGRP,GETGRP  demonstrations                                                          *
!*                                                                                                             *
!*=============================================================================================================*
!* Copyright (C)  1993   Wolfgang  Renner   Creation Date:  03. Apr 2008 !!!                                   *
!*            .                             Creation Time:  10:29:28.030 !!!                                   *
!*            &   2013   Gimbacher Weg 34                                !!!                                   *
!*            &   2033   D-65779 Kelkheim   Last  Changed:  23. Jul 2008 !!!                                   *
!*                                                                       !!!                                   *
!* All rights reserved   Germany / Hessen   From  DspLib 2               !!!                                   *
!***************************************************************************************************************
      FUNCTION   DEMO22(DUMMY1)                                          !!!
      IMPLICIT   NONE                                                    !!!
!*################################################################################################## DECLARATION
      INCLUDE        'F0DspLib.inc'                                      !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% VARIABLES
      INTEGER*4       ERROR1,ERROR2,ERROR3,ERROR4,ERROR5,ERROR6,DEMO22,  & !
     &                DUMMY1,DUMMY2,DUMMY3,DUMMY4,DUMMY5,DUMMY6,DUMMY7   !!!
!*--------------------------------------------------------------------------------------------------------------
      INTEGER*4       I,J,K,L,M,N,IS3,IS4,IS5,DL1                        !!!
!*--------------------------------------------------------------------------------------------------------------
      INTEGER*4       DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,DUMMI1,DUMMI2,  & !
     &                CH1BMP,CH2BMP,CH3BMP,BU1BMP,BU2BMP,BU3BMP,BU4BMP   !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      INTEGER*4       MSGCNT,MESSAG,MSGDSP,MSGWIN,MSGMEN,MSGITM,MSGACT,  & !
     &                CONTRL,MSGDWI,MSGMIT,MSGBMX,MSGBMY,MSGWMX,MSGWMY,  & !
     &                FNTHND,DWIMIT,MITACT,MSGRED,MSGGRN,MSGBLU,MSGCOV,  & !
     &                IGMVAL,              STRLEN,NAMLEN                 !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      INTEGER*4       DRWMOD,ITMDWI,ITMMIT,BUTDWI,BUTMIT                 !!!
      INTEGER*4       LAYOUT,LFTEDG,TOPEDG                               !!!
      INTEGER*4       GRPDWI,GRPMIT,GRPWDT,GRPHGT                        !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      INTEGER*4       MENDWI,MENMIT,CHKSTA,ENABLE,MENITM,                & !
     &                RADBLK,RADMIT,RADMIN,RADMAX                        !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      INTEGER*4       BMPNUM,BMPWDT,BMPHGT,MAXWDT,MAXHGT,BMPCOV(0:015),  & !
     &                RGBCNT,BMPRED(0:015),BMPGRN(0:015),BMPBLU(0:015)   !!!
!*--------------------------------------------------------------------------------------------------------------
      INTEGER*4       PXLCNT,PXLNUM,TIME12,TIME1 , TIME2                 !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      INTEGER*4       SOURCE,IX1SRC,IY1SRC,PENSRC,TXTSRC,CHNMSK,         & !
     &                REDSRC,GRNSRC,BLUSRC,COVSRC,HITSRC,RSVSRC,         & !
     &  CH1SRC,CH2SRC,CH3SRC,CH4SRC,CH5SRC,CH6SRC,CH7SRC,CH8SRC          !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      INTEGER*4       DESTIN,IX1DES,IY1DES,PENDES,TXTDES,                & !
     &                REDDES,GRNDES,BLUDES,COVDES,HITDES,RSVDES,         & !
     &  CH1DES,CH2DES,CH3DES,CH4DES,CH5DES,CH6DES,CH7DES,CH8DES          !!!
!*--------------------------------------------------------------------------------------------------------------
      INTEGER*4       HLMEN1,HLMEN2,HLMEN3,HLMEN4,HLMEN5,CTRLAN,NPCTRL   !!! /HLMENU/ common block
!*==============================================================================================================
      REAL*8          DGMVAL                                             !!!
!*==============================================================================================================
      CHARACTER       STRG32*0032,STRG64*0064,STR128*0128,STR256*0256    !!!  local
      CHARACTER       MSGNAM*0256,MSGSTR*0256,NAMSTR*0256,STR512*0512    !!!  local
      CHARACTER       UGMVAL*0128,NAMTXT*0256,ACLSTR*0016                !!!  local
!*--------------------------------------------------------------------------------------------------------------
      CHARACTER       STRG80*0080,STR160*0160,STR320*0320,STR640*0640,   & ! /MATSTR/ common block
     &                ST1280*1280,ST2560*2560,ST5120*5120                !!! /MATSTR/ common block
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% STRING
!*    INCLUDE        'F0LngStr.inc'
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% COMMON
      COMMON /HLMENU/ HLMEN1,HLMEN2,HLMEN3,HLMEN4,HLMEN5,CTRLAN,NPCTRL   !!!
      COMMON /MATSTR/ STRG80,STR160,STR320,STR640,ST1280,ST2560,ST5120   !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DATA
      DATA     BMPRED,BMPGRN,BMPBLU,BMPCOV /                             & ! BMPRGB initialization
     & 000,001,002,003,004,005,006,007,008,009,010,011,012,013,014,015,  & ! BMPRED(000,001,...,014,015)
     & 100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,  & ! BMPGRN(000,001,...,014,015)
     & 200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,  & ! BMPBLU(000,001,...,014,015)
     & 300,301,302,303,304,305,306,307,308,309,310,311,312,313,314,315 / !!! BMPCOV(000,001,...,014,015)
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!*    DATA  DLBSTR / 'Hallo ich bin DLBSTR ' /                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% FUNCTIONS
!*    DMAT1R(I,J) = SQRT( (+10.D0)**J / DBLE(MAX(I,1)) )                 !!!
!*################################################################################################### EXECUTABLE
!     HLMEN2= 0                                                          !!!
!     HLMEN3= 0                                                          !!!
!     GOTO 1500                                                          !!!
!******************************************************************************************************** MENU 1
!*###################################################################################################### MENU 12
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 123
!*==================================================================================================== MENU 1234
!*--------------------------------------------------------------------------------------------------- MENU 12345

!*===================================================================================================== MENU 220
!*    ERROR1 = DL1(LODMEN,LAYOUT,ACLSTR,CONTRL,NAMTXT)                   !!!
!*    ERROR1 = DL1(LODMEN,1EWiMItXYZ,'ACS+F12@ ',1IACSU,                 & !
!*   &            '0123456789012345678901234567890123456789@')           !!!
!*    ERROR1 = DL1(LODMEN,1EWiMItXYZ,'ACS+F12@ ',1IACSU,                 & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h@')   !!!
!*--------------------------------------------------------------------------------------------------------------
      ERROR1 = DL1(LODMEN,1302209003,'@       ',103330,                  & !
     &            'En02-209: Show ToolBar 9x@               ')           !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      ERROR1 = DL1(LODMEN,1302301002,'@       ',103330,                  & !
     &            'En02-301: Show Para Child 1x@            ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1302303002,'@       ',102330,                  & !
     &            'En02-303: Show Draw Child 3x@            ')           !!!
!*==============================================================================================================

!*###################################################################################################### MENU 22
222   FORMAT(1X,'HLMENU:  ERROR1 = DL1(LODGRP,LAYOUT,LFTEDG,TOPEDG,'     & !
     &                                       'GRPWDT,GRPHGT,CONTRL,'   / & !
     &9X,'&             NAMTXT)'                                       / & !
     &10X,'ERROR1 = DL1(SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL)'    / & !
     &10X,'ERROR1 = DL1(GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL)'   // & !
     &' 2.2.0    LODMEN   Load   Display changes'                     // & !
     &' 2.2.1    LODGRP   Load   GRouP  examples'                      / & !
     &' 2.2.2    LODCFG   Remove Group  examples'                      / & !
     &' 2.2.3    OPNWIN   Open   Display 2'                            / & !
     &' 2.2.4    CLSWIN   Close  Display 2'                           // & !
     &' 2.2.5    SETGRP , GETGRP tests   SETPXL,GETPXL,SETCHN,GETCHN'  / & !
     &' 2.2.6    SETITM , GETITM tests   OPNBMP'                       / & !
     &' 2.2.7    STMCOL , GTMCOL tests   CLSBMP'                       / & !
     &' 2.2.8    SETWIN , GETWIN tests'                               // & !
     &' 2.2.9    GETMSG   Enter  Message Loop'                        /) !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
122   CONTINUE                                                           !!!
!*    ERROR1 = DL1(NEWPAG,000002,NPCTRL)                                 !!!
!*    ERROR1 = DL1(NEWPAG,000002,100 076 0021)                           !!!
      ERROR1 = DL1(NEWPAG,000002,100 076 0111)                           !!!
      WRITE(*,222)                                                       !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      ERROR1 = DL1(GETINP,HLMEN3,080,1076 00 0061,100 000 0001,STRG80,   & !
     &                   'HLMEN3 @')                                     !!!
      IF(ERROR1.EQ.0 .OR. HLMEN3.LT.00)THEN                              !!!
        DEMO22 = 000                                                     !!!
        RETURN                                                           !!!
      ENDIF                                                              !!!
!* -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      IF( HLMEN3 .EQ. 09 ) GOTO 1229                                     !!!
      IF( HLMEN3 .EQ. 08 ) GOTO 1228                                     !!!
      IF( HLMEN3 .EQ. 07 ) GOTO 1227                                     !!!
      IF( HLMEN3 .EQ. 06 ) GOTO 1226                                     !!!
      IF( HLMEN3 .EQ. 05 ) GOTO 1225                                     !!!
      IF( HLMEN3 .EQ. 04 ) GOTO 1224                                     !!!
      IF( HLMEN3 .EQ. 03 ) GOTO 1223                                     !!!
      IF( HLMEN3 .EQ. 02 ) GOTO 1222                                     !!!
      IF( HLMEN3 .EQ. 01 ) GOTO 1221                                     !!!
      IF( HLMEN3 .NE. 00 ) GOTO 122                                      !!!
!next IF( HLMEN3 .EQ. 00 ) GOTO 1220                                     !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 220
1220  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000003,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.0''/)')                                     !!!
!*===================================================================================================== MENU 220
!*    ERROR1 = DL1(LODMEN,LAYOUT,ACLSTR,CONTRL,NAMTXT)                   !!!
!*    ERROR1 = DL1(LODMEN,1EWiMItXYZ,'ACS+F12@ ',1IACSU,                 & !
!*   &            '0123456789012345678901234567890123456789@')           !!!
!*    ERROR1 = DL1(LODMEN,1EWiMItXYZ,'ACS+F12@ ',1IACSU,                 & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h@')   !!!
!*--------------------------------------------------------------------------------------------------------------
      ERROR1 = DL1(LODMEN,1102301002,'@       ',103330,                  & !
     &            'En02-301: Show Para Child 1x@            ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1102303002,'@       ',102330,                  & !
     &            'En02-303: Show Draw Child 3x@            ')           !!!
!*==============================================================================================================
      GOTO 122                                                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 221
1221  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000003,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.1''/)')                                     !!!
!*===================================================================================================== MENU 221
!*    ERROR1 = DL1(LODMEN,LAYOUT,ACLSTR,CONTRL,NAMTXT)                   !!!
!*    ERROR1 = DL1(LODMEN,1EWiMItXYZ,'ACS+F12@ ',1IACSU,                 & !
!*   &            '0123456789012345678901234567890123456789@')           !!!
!*    ERROR1 = DL1(LODMEN,1EWiMItXYZ,'ACS+F12@ ',1IACSU,                 & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h@')   !!!
!*==============================================================================================================
      LAYOUT =  1302900000                                               !!!
      ACLSTR = '@       '                                                !!!
      CONTRL =  0000103330                                               !!!
      NAMTXT = 'En02-900: New !@                         '               !!!
!*    NAMTXT = '0123456789012345678901234567890123456789@'               !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,LAYOUT,ACLSTR,CONTRL,NAMTXT)                   !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''LODMEN,LAYOUT,ACLSTR  ,CONTRL,NAMTXT)                ''/'// & !
     &'I7.6, 09X,   I11.10,''|'',A08,''|'',I06.06/                   '// & !
     &'      ''|'',A76,''|''/)')                                         & !
     &       ERROR1,LAYOUT,ACLSTR  ,CONTRL,NAMTXT                        !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!     ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      ERROR1 = DL1(LODMEN,1302901000,'ACS+F1@  ',103330,                 & !
     &            'En02-901: Disable  @                     ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1302902000,'ACS+F2@  ',103330,                 & !
     &            'En02-902: Enable   @                     ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1302903000,'ACS+F3@  ',103330,                 & !
     &            'En02-903:          @                     ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1302904000,'ACS+F4@  ',103330,                 & !
     &            'En02-904:          @                     ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1302905000,'ACS+F5@  ',103330,                 & !
     &            'En02-905: Filling  @                     ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1302906000,'ACS+F6@  ',103330,                 & !
     &            'En02-906: Empties  @                     ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1302907000,'ACS+F7@  ',103330,                 & !
     &            'En02-907:          @                     ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1302908000,'ACS+F8@  ',103330,                 & !
     &            'En02-908:          @                     ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODMEN,1302909000,'ACS+F9@  ',103330,                 & !
     &            'En02-909:          @                     ')           !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!     ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*===================================================================================================== MENU 221
!*    ERROR1 = DL1(LODBUT,LAYOUT,LFTEDG,TOPEDG,ACLSTR,CONTRL,NAMTXT)     !!!
!*    ERROR1 = DL1(LODBUT,1EWiMItXYZ,-1000,-2000,'ACS+F12@ ',1IACSU,     & !
!*   &            '0123456789012345678901234567890123456789@')           !!!
!*    ERROR1 = DL1(LODBUT,1EWiMItXYZ,-1000,-2000,'ACS+F12@ ',1IACSU,     & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h@')   !!!
!*==============================================================================================================
      LAYOUT =  1302140000                                               !!!
      LFTEDG = -00003                                                    !!!
      TOPEDG = -00003                                                    !!!
      ACLSTR = 'ACS-NP0@ '                                               !!!
      CONTRL =  0000103730                                               !!!
      NAMTXT = '  En02-140: Symple  @                    '               !!!
!*    NAMTXT = '0123456789012345678901234567890123456789@'               !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,LAYOUT,LFTEDG,TOPEDG,ACLSTR,CONTRL,NAMTXT)     !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''LODBUT,LAYOUT,LFTEDG,TOPEDG,ACLSTR  ,CONTRL,NAMTXT)  ''/'// & !
     &'I7.6, 09X,   I11.10,I07.05,I07.05,''|'',A8,''|'',I06.06/      '// & !
     &'      ''|'',A76,''|''/)')                                         & !
     &       ERROR1,LAYOUT,LFTEDG,TOPEDG,ACLSTR  ,CONTRL,NAMTXT          !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!     ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
!*    ERROR1 = DL1(LODBUT,1302140000,-0003,-0003,'ACS+NP0@ ',103730,     & !
!*   &            '  En02-140: Simple  @                    ')           !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      ERROR1 = DL1(LODBUT,1302141000,-0003,-0005,'ACS+NP1@ ',103730,     & !
     &            '  En02-141: Disable @                    ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302142000,-0003,-0007,'ACS+NP2@ ',103730,     & !
     &            '  En02-142: Enable  @                    ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302143011,-0003,-0010,'ACS+NP3@ ',103730,     & !
     &            'En02-143: Radio 1a@                      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302144010,-0003,-0011,'ACS+NP4@ ',103730,     & !
     &            'En02-144: Radio 1b@                      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302145002,-0003,-0013,'ACS+NP5@ ',103730,     & !
     &            'En02-145: UnCheck @                      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302146003,-0003,-0014,'ACS+NP6@ ',103730,     & !
     &            'En02-146: Checked @                      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302147021,-0003,-0016,'ACS+NP7@ ',103730,     & !
     &            'En02-147: Radio2a @                      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302148020,-0003,-0017,'ACS+NP8@ ',103730,     & !
     &            'En02-148: Radio2b @                      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302149020,-0003,-0018,'ACS+NP9@ ',103730,     & !
     &            'En02-149: Radio2c @                      ')           !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(LODBUT,1302240000,-0030,-0003,'@        ',103730,     & !
     &            '  En02-240: Simple@                      ')           !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      ERROR1 = DL1(LODBUT,1302241000,-0030,-0005,'@        ',103730,     & !
     &            '  En02-241: Simple   \41h\42h\43h; !@    ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302242000,-0030,-0007,'@        ',102730,     & !
     &            '  En02-242: Simple   \41h\42h\43h; !@    ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302243030,-0030,-0010,'@        ',103730,      & !
     &            'En02-243: Radio 3a \41h\42h\43h; !@      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302244031,-0030,-0011,'@        ',102730,     & !
     &            'En02-244: Radio 3b \41h\42h\43h; !@      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302245002,-0030,-0013,'@        ',103730,     & !
     &            'En02-245: UnCheck  \41h\42h\43h; !@      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302246003,-0030,-0015,'@        ',102730,     & !
     &            'En02-246: Checked  \41h\42h\43h; !@      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302247040,-0030,-0017,'@        ',103730,     & !
     &            'En02-247: Radio 4a \41h\42h\43h; !@      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302248040,-0030,-0019,'@        ',102730,     & !
     &            'En02-248: Radio 4b \41h\42h\43h; !@      ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODBUT,1302249041,-0030,-0021,'@        ',103730,     & !
     &            'En02-249: Radio 4c \41h\42h\43h; !@      ')           !!!
!*===================================================================================================== MENU 221
!*    ERROR1 = DL1(LODGRP,LAYOUT,LFTEDG,TOPEDG,GRPWDT,GRPHGT,CONTRL      & !
!*   &             NAMTXT)                                               !!!
!*    ERROR1 = DL1(LODGRP,1EWiMItXYZ,-1000,-2000,-3000,-4000,1IACSU,     & !
!*   &            '0123456789012345678901234567890123456789@')           !!!
!*    ERROR1 = DL1(LODGRP,1EWiMItXYZ,-1000,-2000,-3000,-4000,1IACSU,     & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h'//   & !
!*   &'\0030h\0031h\0032h\0033h\0034h\0035h\0036h\0037h\0038h\0039h@')   !!!
!*==============================================================================================================
      ERROR1 = IS5(LFTEDG,TOPEDG,GRPWDT,GRPHGT,-999,-001,-001,-025,-019) !!!
      LAYOUT = 1302280000                                                !!!
      CONTRL = 0000103730                                                !!!
      NAMTXT = 'En02-280: Group@                         '               !!!
!*    NAMTXT = '0123456789012345678901234567890123456789@'               !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,LAYOUT,LFTEDG,TOPEDG,GRPWDT,GRPHGT,CONTRL,     & !
     &             NAMTXT)                                               !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''LODGRP,LAYOUT,LFTEDG,TOPEDG,GRPWDT,GRPHGT,CONTRL,    ''/'// & !
     &'14X,''NAMTXT)                                              ''/'// & !
     &'I7.6, 09X,   I11.10,I07.05,I07.05,I07.05,I07.05,I07.06/       '// & !
     &'      ''|'',A76,''|''/)')                                         & !
     &       ERROR1,LAYOUT,LFTEDG,TOPEDG,GRPWDT,GRPHGT,CONTRL,NAMTXT     !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!     ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      ERROR1 = DL1(LODGRP,1302281000,-0028,-0001,-0043,-0022,101730,     & !
     &            'En02-281: Group@                         ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302282000,-0001,-0021,-0025,-0006,101730,     & !
     &            'En02-282: Group@                         ')           !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(LODGRP,1302290000,-0080,-0000,-0010,-0003,101730,     & !
     &            'En02-290@                                ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302291000,-0080,-0005,-0010,-0003,101730,     & !
     &            'En02-291@                                ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302292000,-0080,-0010,-0010,-0003,101730,     & !
     &            'En02-292@                                ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302293000,-0080,-0015,-0010,-0003,101730,     & !
     &            'En02-293@                                ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302294000,-0080,-0020,-0010,-0003,101730,     & !
     &            'En02-294@                                ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302295000,-0080,-0025,-0010,-0003,101730,     & !
     &            'En02-295@                                ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302296000,-0080,-0030,-0010,-0003,101730,     & !
     &            'En02-296@                                ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302297000,-0080,-0035,-0010,-0003,101730,     & !
     &            'En02-297@                                ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302298000,-0080,-0040,-0010,-0003,101730,     & !
     &            'En02-298@                                ')           !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(LODGRP,1302299000,-0080,-0045,-0010,-0003,101730,     & !
     &            'En02-299@                                ')           !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*==============================================================================================================
      GOTO 122                                                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 222
1222  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000003,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.2''/)')                                     !!!
!*===================================================================================================== MENU 222
      GOTO 122                                                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 223
1223  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000003,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.3''/)')                                     !!!
!*===================================================================================================== MENU 223
!*    ERROR1 = DL1(OPNWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,            & !
!*   &             CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,            & !
!*   &             FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
!*    ERROR1 = DL1(OPNWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,            & !
!*   &         1IACDURSTM,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,            & !
!*   &         1NamWdtHgt,BU1BMP,BU2BMP,BU3BMP,BU4BMP,                   & !
!*   &         '0123456789012345678901234567890123456789@  ')            !!!
!*==============================================================================================================
!##   DSPWIN = IS5(WINLFT,WINTOP,WINWDT,WINHGT,0102,0670,0115,0350,0550) !!!
      DSPWIN = IS5(WINLFT,WINTOP,WINWDT,WINHGT,0202,0670,0000,0350,0740) !!!
      CH1BMP = IS5(CH2BMP,CH3BMP,DUMMY1,DUMMY2,0201,0202,0203,0204,0205) !!!
      BU1BMP = IS5(BU2BMP,BU3BMP,BU4BMP,ERROR1,0301,0302,0303,0304,-999) !!!
      CONTRL = 1000004577                                                !!!
      FNTHND = -000000004                                                !!!
      NAMTXT = 'Hello OPNWIN 2 \41h\42h\43h; !@                        ' !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(OPNWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,            & !
     &             CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,            & !
     &             FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''OPNWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,        & !''/'// & !
     &'14X,''CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,        & !''/'// & !
     &'14X,''FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.04,I07.04,I07.04,I07.04/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.05,I07.05/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.03/                     '// & !
     &'      ''|'',A76,''|''/)')                                         & !
     &       ERROR1,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,                  & !
     &       CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,                  & !
     &       FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT                   !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!     ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!     IF(000001 .EQ. 000001) GOTO 122                                    !!!
!*--------------------------------------------------------------------------------------------------------------
      GOTO 122                                                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 224
1224  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000003,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.4''/)')                                     !!!
!*===================================================================================================== MENU 224
!*    ERROR1 = DL1(CLSWIN,DSPWIN,DUMMY1,DUMMY2,CONTRL)                   !!!
!*    ERROR1 = DL1(CLSWIN,DSPWIN,DUMMY1,DUMMY2,1IACSU0000)               !!!
!*--------------------------------------------------------------------------------------------------------------
      ERROR1 = IS4(DSPWIN,DUMMY1,DUMMY2,-99999,000201,000102,000103)     !!!
      CONTRL = 1007000031                                                !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(CLSWIN,DSPWIN,DUMMY1,DUMMY2,CONTRL)                   !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''CLSWIN,DSPWIN,DUMMY1,DUMMY2,CONTRL)               !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.04,I07.04,I11.10/)')                      & !
     &       ERROR1,DSPWIN,DUMMY1,DUMMY2,CONTRL                          !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!     ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      GOTO 122                                                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 225
1225  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000003,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.5''/)')                                     !!!
!*===================================================================================================== MENU 225
!*    ERROR1 = DL1(SETPXL,DESTIN,PX1DES,PY1DES,PENDES,TXTDES,            & !
!*   &             CONTRL,REDDES,GRNDES,BLUDES,COVDES,HITDES)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
!*    ERROR1 = DL1(SETPXL,DESTIN,PX1DES,PY1DES,PENDES,TXTDES,            & !
!*   &         1IACSUPrBF,REDDES,GRNDES,BLUDES,COVDES,HITDES)            !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!*    ERROR1 = DL1(GETPXL,SOURCE,PX1SRC,PY1SRC,PENSRC,TXTSRC,            & !
!*   &             CONTRL,REDSRC,GRNSRC,BLUSRC,COVSRC,HITSRC)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
!*    ERROR1 = DL1(GETPXL,SOURCE,PX1SRC,PY1SRC,PENSRC,TXTSRC,            & !
!*   &         1IACSUPrBF,REDSRC,GRNSRC,BLUSRC,COVSRC,HITSRC)            !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!*    ERROR1 = DL1(SETCHN,DESTIN,PX1DES,PY1DES,PENDES,TXTDES,            & !
!*   &             CONTRL,CH1DES,CH2DES,CH3DES,CH4DES,HITDES,            & !
!*   &             CHNMSK,CH5DES,CH6DES,CH7DES,CH8DES,RSVDES)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
!*    ERROR1 = DL1(SETCHN,DESTIN,PX1DES,PY1DES,PENDES,TXTDES,            & !
!*   &         1IACSUPrBF,CH1DES,CH2DES,CH3DES,CH4DES,HITDES,            & !
!*   &                255,CH5DES,CH6DES,CH7DES,CH8DES,RSVDES)            !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!*    ERROR1 = DL1(GETCHN,SOURCE,PX1SRC,PY1SRC,PENSRC,TXTSRC,            & !
!*   &             CONTRL,CH1SRC,CH2SRC,CH3SRC,CH4SRC,HITSRC,            & !
!*   &             CHNMSK,CH5SRC,CH6SRC,CH7SRC,CH8SRC,RSVSRC)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
!*    ERROR1 = DL1(GETCHN,SOURCE,PX1SRC,PY1SRC,PENSRC,TXTSRC,            & !
!*   &         1IACSUPrBF,CH1SRC,CH2SRC,CH3SRC,CH4SRC,HITSRC,            & !
!*   &                255,CH5SRC,CH6SRC,CH7SRC,CH8SRC,RSVSRC)            !!!
!*==============================================================================================================
      ERROR1 = IS5(IX1DES,IY1DES,PENDES,TXTDES,0101,0102,0103,0104,0105) !!!
      REDDES = IS5(GRNDES,BLUDES,COVDES,HITDES,0201,0202,0203,0204,0205) !!!
      DESTIN = 0000111222                                                !!!
      CONTRL = 1007770000                                                !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(SETPXL,DESTIN,IX1DES,IY1DES,PENDES,TXTDES,            & !
     &             CONTRL,REDDES,GRNDES,BLUDES,COVDES,HITDES)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''SETPXL,DESTIN,IX1DES,IY1DES,PENDES,TXTDES,        & !''/'// & !
     &'14X,''CONTRL,REDDES,GRNDES,BLUDES,COVDES,HITDES)        !!!''/'// & !
     &'I7.6, 13X   ,I07.06,I07.04,I07.04,I07.05,I07.02/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.03,I07.01/)')               & !
     &       ERROR1,DESTIN,IX1DES,IY1DES,PENDES,TXTDES,                  & !
     &       CONTRL,REDDES,GRNDES,BLUDES,COVDES,HITDES                   & !
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(MILTIM,TIME1,1000000000)                              !!!
      PXLNUM = 1000*1000                                                 !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      DO PXLCNT = 1,PXLNUM                                               !!!
       ERROR1 = DL1(SETPXL,DESTIN,IX1DES,IY1DES,PENDES,TXTDES,           & !
     &              CONTRL,REDDES,GRNDES,BLUDES,COVDES,HITDES)           !!!
      ENDDO                                                              !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(MILTIM, TIME2,1000000000)                             !!!
      TIME12 = MAX(TIME2-TIME1,1)                                        !!!
      WRITE(*,'(/'' TIME1,TIME2,TIME2-TIME1,PX/SEC='',4I11 )')           & !
     &              TIME1,TIME2,TIME12,1000*PXLNUM/TIME12                !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      ERROR1 = DL1(MILTIM,TIME1,1000000000)                              !!!
      PXLNUM = 1000*1000                                                 !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      DO PXLCNT = 1,PXLNUM                                               !!!
       ERROR1 = DL1(SETPXL,DESTIN,IX1DES,IY1DES,PENDES,TXTDES,           & !
     &              CONTRL,REDDES,GRNDES,BLUDES,COVDES,HITDES)           !!!
      ENDDO                                                              !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(MILTIM, TIME2,1000000000)                             !!!
      TIME12 = MAX(TIME2-TIME1,1)                                        !!!
      WRITE(*,'(/'' TIME1,TIME2,TIME2-TIME1,PX/SEC='',4I11/)')           & !
     &              TIME1,TIME2,TIME12,1000*PXLNUM/TIME12                !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!     ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      ERROR1 = IS5(IX1SRC,IY1SRC,PENSRC,TXTSRC,1001,1002,1003,1004,1005) !!!
      REDSRC = IS5(GRNSRC,BLUSRC,COVSRC,HITSRC,2001,2002,2003,2004,2005) !!!
      SOURCE = 0000111222                                                !!!
      CONTRL = 1007770000                                                !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(GETPXL,SOURCE,IX1SRC,IY1SRC,PENSRC,TXTSRC,            & !
     &             CONTRL,REDSRC,GRNSRC,BLUSRC,COVSRC,HITSRC)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''GETPXL,SOURCE,IX1SRC,IY1SRC,PENSRC,TXTSRC,        & !''/'// & !
     &'14X,''CONTRL,REDSRC,GRNSRC,BLUSRC,COVSRC,HITSRC)        !!!''/'// & !
     &'I7.6, 13X   ,I07.06,I07.04,I07.04,I07.03,I07.02/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.03,I07.01/)')               & !
     &       ERROR1,SOURCE,IX1SRC,IY1SRC,PENSRC,TXTSRC,                  & !
     &       CONTRL,REDSRC,GRNSRC,BLUSRC,COVSRC,HITSRC                   & !
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(MILTIM,TIME1,1000000000)                              !!!
      PXLNUM = 1000*1000                                                 !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      DO PXLCNT = 1,PXLNUM                                               !!!
       ERROR1 = DL1(GETPXL,SOURCE,IX1SRC,IY1SRC,PENSRC,TXTSRC,           & !
     &              CONTRL,REDSRC,GRNSRC,BLUSRC,COVSRC,HITSRC)           !!!
      ENDDO                                                              !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(MILTIM, TIME2,1000000000)                             !!!
      TIME12 = MAX(TIME2-TIME1,1)                                        !!!
      WRITE(*,'(/'' TIME1,TIME2,TIME2-TIME1,PX/SEC='',4I11/)')           & !
     &              TIME1,TIME2,TIME12,1000*PXLNUM/TIME12                !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!     ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      ERROR1 = IS5(IX1DES,IY1DES,PENDES,TXTDES,0101,0102,0103,0104,0105) !!!
      CH1DES = IS5(CH2DES,CH3DES,CH4DES,HITDES,0201,0202,0203,0204,0205) !!!
      CH5DES = IS5(CH6DES,CH7DES,CH8DES,RSVDES,0301,0302,0303,0304,0305) !!!
      DESTIN = 0000111222                                                !!!
      CONTRL = 1007770000                                                !!!
      CHNMSK = 0000000255                                                !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(SETCHN,DESTIN,IX1DES,IY1DES,PENDES,TXTDES,            & !
     &             CONTRL,CH1DES,CH2DES,CH3DES,CH4DES,HITDES,            & !
     &             CHNMSK,CH5DES,CH6DES,CH7DES,CH8DES,RSVDES)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''SETCHN,DESTIN,IX1DES,IY1DES,PENDES,TXTDES,        & !''/'// & !
     &'14X,''CONTRL,CH1DES,CH2DES,CH3DES,CH4DES,HITDES,        & !''/'// & !
     &'14X,''CHNMSK,CH5DES,CH6DES,CH7DES,CH8DES,RSVDES)        !!!''/'// & !
     &'I7.6, 13X   ,I07.06,I07.04,I07.04,I07.03,I07.02/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.03,I07.01/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.03,I07.01/)')               & !
     &       ERROR1,DESTIN,IX1DES,IY1DES,PENDES,TXTDES,                  & !
     &       CONTRL,CH1DES,CH2DES,CH3DES,CH4DES,HITDES,                  & !
     &       CHNMSK,CH5DES,CH6DES,CH7DES,CH8DES,RSVDES                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(MILTIM,TIME1,1000000000)                              !!!
      PXLNUM = 1000*1000                                                 !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      DO PXLCNT = 1,PXLNUM                                               !!!
       ERROR1 = DL1(SETCHN,DESTIN,IX1DES,IY1DES,PENDES,TXTDES,           & !
     &              CONTRL,CH1DES,CH2DES,CH3DES,CH4DES,HITDES,           & !
     &              CHNMSK,CH5DES,CH6DES,CH7DES,CH8DES,RSVDES)           !!!
      ENDDO                                                              !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(MILTIM, TIME2,1000000000)                             !!!
      TIME12 = MAX(TIME2-TIME1,1)                                        !!!
      WRITE(*,'(/'' TIME1,TIME2,TIME2-TIME1,PX/SEC='',4I11/)')           & !
     &              TIME1,TIME2,TIME12,1000*PXLNUM/TIME12                !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!     ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      ERROR1 = IS5(IX1SRC,IY1SRC,PENSRC,TXTSRC,1001,1002,1003,1004,1005) !!!
      CH1SRC = IS5(CH2SRC,CH3SRC,CH4SRC,HITSRC,2001,2002,2003,2004,2005) !!!
      CH5SRC = IS5(CH6SRC,CH7SRC,CH8SRC,RSVSRC,3001,3002,3003,3004,3005) !!!
      SOURCE = 0000111222                                                !!!
      CONTRL = 1007770000                                                !!!
      CHNMSK = 0000000255                                                !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(GETCHN,SOURCE,IX1SRC,IY1SRC,PENSRC,TXTSRC,            & !
     &             CONTRL,CH1SRC,CH2SRC,CH3SRC,CH4SRC,HITSRC,            & !
     &             CHNMSK,CH5SRC,CH6SRC,CH7SRC,CH8SRC,RSVSRC)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''GETCHN,SOURCE,IX1SRC,IY1SRC,PENSRC,TXTSRC,        & !''/'// & !
     &'14X,''CONTRL,CH1SRC,CH2SRC,CH3SRC,CH4SRC,HITSRC,        & !''/'// & !
     &'14X,''CHNMSK,CH5SRC,CH6SRC,CH7SRC,CH8SRC,RSVSRC)        !!!''/'// & !
     &'I7.6, 13X   ,I07.06,I07.04,I07.04,I07.03,I07.02/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.03,I07.01/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.03,I07.01/)')               & !
     &       ERROR1,SOURCE,IX1SRC,IY1SRC,PENSRC,TXTSRC,                  & !
     &       CONTRL,CH1SRC,CH2SRC,CH3SRC,CH4SRC,HITSRC,                  & !
     &       CHNMSK,CH5SRC,CH6SRC,CH7SRC,CH8SRC,RSVSRC                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(MILTIM,TIME1,1000000000)                              !!!
      PXLNUM = 1000*1000                                                 !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      DO PXLCNT = 1,PXLNUM                                               !!!
       ERROR1 = DL1(GETCHN,SOURCE,IX1SRC,IY1SRC,PENSRC,TXTSRC,           & !
     &              CONTRL,CH1SRC,CH2SRC,CH3SRC,CH4SRC,HITSRC,           & !
     &              CHNMSK,CH5SRC,CH6SRC,CH7SRC,CH8SRC,RSVSRC)           !!!
      ENDDO                                                              !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(MILTIM, TIME2,1000000000)                             !!!
      TIME12 = MAX(TIME2-TIME1,1)                                        !!!
      WRITE(*,'(/'' TIME1,TIME2,TIME2-TIME1,PX/SEC='',4I11/)')           & !
     &              TIME1,TIME2,TIME12,1000*PXLNUM/TIME12                !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      GOTO 122                                                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 226
1226  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000003,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.6''/)')                                     !!!
!*===================================================================================================== MENU 226
!*    ERROR1 = DL1(OPNBMP,BMPNUM,BMPWDT,BMPHGT,MAXWDT,RGBCNT,            & !
!*   &             CONTRL,BMPRED,BMPGRN,BMPBLU,BMPCOV,NAMTXT)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
!*    ERROR1 = DL1(OPNBMP,BMPNUM,BMPWDT,BMPHGT,MAXWDT,RGBCNT,            & !
!*   &         1IACSUPrXY,BMPRED,BMPGRN,BMPBLU,BMPCOV,                   & !
!*   &         '0123456789012345678901234567890123456789@  ')            !!!
!*==============================================================================================================
      BMPNUM = IS5(BMPWDT,BMPHGT,MAXWDT,RGBCNT,101,00102,00103,104,015)  !!!
      CONTRL = 1007300300                                                !!!
      NAMTXT = 'Hello OPNBMP 101 \41h\42h\43h; !@                      ' !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(OPNBMP,BMPNUM,BMPWDT,BMPHGT,MAXWDT,RGBCNT,            & !
     &             CONTRL,BMPRED,BMPGRN,BMPBLU,BMPCOV,NAMTXT)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       WRITE(*,'('' ERROR1 = DL1('','                                 // & !
     &'    ''OPNBMP,BMPNUM,BMPWDT,BMPHGT,MAXWDT,RGBCNT,        & !''/'// & !
     &'14X,''CONTRL,BMPRED,BMPGRN,BMPBLU,BMPCOV,NAMTXT)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.05,I07.05,I07.05,I07.03/'              // & !
     &'09X,  I11.10,I07.03,I07.03,I07.03,I07.03/'                     // & !
     &'20X,         I07.03,I07.03,I07.03,I07.03/'                     // & !
     &'20X,         I07.03,I07.03,I07.03,I07.03/'                     // & !
     &'20X,         I07.03,I07.03,I07.03,I07.03/''|'',A76,''|''/)')      & !
     &       ERROR1,BMPNUM,BMPWDT,BMPHGT,MAXWDT,RGBCNT,CONTRL,           & !
     &       BMPRED(000),BMPGRN(000),BMPBLU(000),BMPCOV(000),            & !
     &       BMPRED(001),BMPGRN(001),BMPBLU(001),BMPCOV(001),            & !
     &       BMPRED(002),BMPGRN(002),BMPBLU(002),BMPCOV(002),            & !
     &       BMPRED(015),BMPGRN(015),BMPBLU(015),BMPCOV(015),NAMTXT      !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!     IF(000001 .EQ. 000001) GOTO 122                                    !!!
!*--------------------------------------------------------------------------------------------------------------
      GOTO 122                                                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 227
1227  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000003,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.7''/)')                                     !!!
!*===================================================================================================== MENU 227
!*    ERROR1 = DL1(CLSBMP,BMPNUM,DUMMY1,DUMMY2,CONTRL)                   !!!
!*    ERROR1 = DL1(CLSBMP,BMPNUM,DUMMY1,DUMMY2,1IACSU0000)               !!!
!*==============================================================================================================
      ERROR1 = IS4(BMPNUM,DUMMY1,DUMMY2,-99999,000101,000102,000103)     !!!
      CONTRL = 1007000031                                                !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(CLSBMP,BMPNUM,DUMMY1,DUMMY2,CONTRL)                   !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''CLSBMP,BMPNUM,DUMMY1,DUMMY2,CONTRL)               !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.04,I07.04,I11.10/)')                      & !
     &       ERROR1,BMPNUM,DUMMY1,DUMMY2,CONTRL                          !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
      ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      GOTO 122                                                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 228
1228  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000003,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.8''/)')                                     !!!
!*===================================================================================================== MENU 228
!*    ERROR1 = DL1(SETWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,            & !
!*   &             CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,            & !
!*   &             FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
!*    ERROR1 = DL1(SETWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,            & !
!*   &         1IACDURSTM,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,            & !
!*   &         1NamWdtHgt,BU1BMP,BU2BMP,BU3BMP,BU4BMP,                   & !
!*   &         '0123456789012345678901234567890123456789@  ')            !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!*    ERROR1 = DL1(GETWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,            & !
!*   &             CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,            & !
!*   &             FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMSTR)            !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
!*    ERROR1 = DL1(GETWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,            & !
!*   &         1IACDURSTM,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,            & !
!*   &             FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMSTR)            !!!
!*==============================================================================================================
      DSPWIN = IS5(WINLFT,WINTOP,WINWDT,WINHGT,0201,0670,0115,0350,0550) !!!
      CH1BMP = IS5(CH2BMP,CH3BMP,DUMMY1,DUMMY2,0201,0202,0203,0204,0205) !!!
      BU1BMP = IS5(BU2BMP,BU3BMP,BU4BMP,ERROR1,0301,0302,0303,0304,-999) !!!
      CONTRL = 1010004577                                                !!!
      FNTHND = -000000004                                                !!!
      NAMTXT = 'Hello SETWIN 1 \41h\42h\43h; !@                        ' !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(SETWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,            & !
     &             CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,            & !
     &             FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT)            !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''SETWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,        & !''/'// & !
     &'14X,''CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,        & !''/'// & !
     &'14X,''FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.04,I07.04,I07.04,I07.04/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.05,I07.05/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.03/                     '// & !
     &'      ''|'',A76,''|''/)')                                         & !
     &       ERROR1,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,                  & !
     &       CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,                  & !
     &       FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      DSPWIN = IS5(WINLFT,WINTOP,WINWDT,WINHGT,0011,0012,0013,0014,0015) !!!
      CH1BMP = IS5(CH2BMP,CH3BMP,DUMMY1,DUMMY2,0021,0022,0023,0024,0025) !!!
      BU1BMP = IS5(BU2BMP,BU3BMP,BU4BMP,ERROR1,0031,0032,0033,0034,-999) !!!
      CONTRL = 1010004577                                                !!!
      FNTHND = -000000004                                                !!!
      NAMTXT = 'Hello GETWIN 1 \41h\42h\43h; !@                        ' !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
      ERROR1 = DL1(GETWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,            & !
     &             CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,            & !
     &             FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT)            !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''GETWIN,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,        & !''/'// & !
     &'14X,''CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,        & !''/'// & !
     &'14X,''FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.04,I07.04,I07.04,I07.04/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.05,I07.05/              '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.03,I07.03/                     '// & !
     &'      ''|'',A76,''|''/)')                                         & !
     &       ERROR1,DSPWIN,WINLFT,WINTOP,WINWDT,WINHGT,                  & !
     &       CONTRL,CH1BMP,CH2BMP,CH3BMP,DUMMY1,DUMMY2,                  & !
     &       FNTHND,BU1BMP,BU2BMP,BU3BMP,BU4BMP,NAMTXT                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')          !!!
!*--------------------------------------------------------------------------------------------------------------
      GOTO 122                                                           !!!
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 229
1229  CONTINUE                                                           !!!
      ERROR1 = DL1(NEWPAG,000004,100 076 0111)                           !!!
      WRITE(*,'(/'' Menu 2.2.9''/)')                                     !!!
!*===================================================================================================== MENU 229
!*    ERROR1 = DL1(GETMSG,MESSAG,MSGDSP,MSGWIN,MSGMEN,MSGITM,MSGACT,     & !
!*   &             CONTRL,MSGDWI,MSGMIT,MSGBMX,MSGBMY,MSGWMX,MSGWMY,     & !
!*   &             FNTHND,DWIMIT,MITACT,MSGRED,MSGGRN,MSGBLU,MSGCOV,     & !
!*   &             IGMVAL,DGMVAL,UGMVAL,STRLEN,NAMLEN,MSGNAM,MSGSTR)     !!!
!* -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
!*    ERROR1 = DL1(GETMSG,MESSAG,MSGDSP,MSGWIN,MSGMEN,MSGITM,MSGACT,     & !
!*   &         1IAESUPrRS,MSGDWI,MSGMIT,MSGBMX,MSGBMY,MSGWMX,MSGWMY,     & !
!*   &         1TypWdtHgt,DWIMIT,MITACT,MSGRED,MSGGRN,MSGBLU,MSGCOV,     & !
!*   &             IGMVAL,DGMVAL,UGMVAL,STRLEN,NAMLEN,MSGNAM,MSGSTR)     !!!
!*==============================================================================================================
12291  CONTINUE                                                          !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       ERROR1 =IS5(MESSAG,MSGDSP,MSGWIN,MSGACT,1000,1002,1003,1004,1005) !!!
       MSGMEN =IS5(MSGBMX,MSGBMY,MSGWMX,MSGWMY,1006,2004,2005,2006,2007) !!!
       MSGITM =IS5(MSGRED,MSGGRN,MSGBLU,MSGCOV,1007,3004,3005,3006,3007) !!!
       MITACT =IS5(MSGDWI,MSGMIT,NAMLEN,STRLEN,3003,2002,2003,0128,0256) !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       CONTRL = 1000000645                                               !!!
       FNTHND =       3001                                               !!!
       DWIMIT =       3002                                               !!!
       IGMVAL =      -4001                                               !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       DGMVAL = -4.0020000000000000000D-102                              !!!
       UGMVAL = 'UGMVAL dummy string   4003'                             !!!
       MSGNAM = 'Edit 340@ @           4005'                             !!!
       MSGSTR = 'Edit data string@ @   4007'                             !!!
!*     ERROR1 = DL1(MLREAD,UGMVAL,000256,1000001401,'-4.003000U-0103@')  !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       ERROR1 = DL1(GETMSG,MESSAG,MSGDSP,MSGWIN,MSGMEN,MSGITM,MSGACT,    & !
     &              CONTRL,MSGDWI,MSGMIT,MSGBMX,MSGBMY,MSGWMX,MSGWMY,    & !
     &              FNTHND,DWIMIT,MITACT,MSGRED,MSGGRN,MSGBLU,MSGCOV,    & !
     &              IGMVAL,DGMVAL,UGMVAL,STRLEN,NAMLEN,MSGNAM,MSGSTR)    !!!
!*--------------------------------------------------------------------------------------------------------------
       IF( MESSAG.EQ.000000000 ) GOTO 12291                              !!! Cycle Message Loop
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       IF( MSGACT.EQ.840 .OR. MSGACT.EQ.850 .OR. MSGACT.EQ.776 .OR.      & ! 004
     &     MSGACT.EQ.940 .OR. MSGACT.EQ.950 .OR. MSGACT.EQ.945 .OR.      & !
     &     MSGACT.EQ.998 .OR. MSGACT.EQ.99900 ) GOTO 12292               & !
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       MSGCNT = MSGCNT + 001                                             !!!
       IF( MOD( MSGCNT , 020 ) .EQ. 00 .OR. MSGMIT.EQ.105 )              !!!
     &   ERROR1 = DL1(NEWPAG,000002,100 076 0021)                        !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
       ERROR1 = DL1(MSLEEP,000050,1000000000)                            !!!
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''GETMSG,MESSAG,MSGDSP,MSGWIN,MSGMEN,MSGITM,MSGACT, & !''/'// & !
     &'14X,''CONTRL,MSGDWI,MSGMIT,MSGBMX,MSGBMY,MSGWMX,MSGWMY, & !''/'// & !
     &'14X,''FNTHND,DWIMIT,MITACT,MSGRED,MSGGRN,MSGBLU,MSGCOV, & !''/'// & !
     &'14X,''IGMVAL,DGMVAL,UGMVAL,STRLEN,NAMLEN,MSGNAM,MSGSTR) !!!''/'// & !
     &'I7.6, 09X   ,I11.10,I07.03,I07.02,I07.01,I07.02,I07.03/       '// & !
     &'9X,   I11.10,I07.03,I07.03,I07.05,I07.05,I07.04,I07.04/       '// & !
     &'9X,   I11.10,I07.06,I07.06,I07.03,I07.03,I07.03,I07.03/1P     '// & !
     &'9X,   I11.10,    3X,E25.18,I07.03,I07.03 )')                      & !
     &       ERROR1,MESSAG,MSGDSP,MSGWIN,MSGMEN,MSGITM,MSGACT,           & !
     &       CONTRL,MSGDWI,MSGMIT,MSGBMX,MSGBMY,MSGWMX,MSGWMY,           & !
     &       FNTHND,DWIMIT,MITACT,MSGRED,MSGGRN,MSGBLU,MSGCOV,           & !
     &       IGMVAL,DGMVAL,STRLEN,NAMLEN                                 !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
       ERROR1 = DL1(WRTOUT,UGMVAL,000256,000067,000060,1076000061,       & !
     &          1011001411,STR512,'UGMVAL@')                             !!!
       ERROR1 = DL1(WRTOUT,DUMMY1,000128,000066,000000,1076000061,       & !
     &          1003600000,MSGNAM,'MSGNAM@')                             !!!
       ERROR1 = DL1(WRTOUT,DUMMY1,000256,000256,000000,1076080061,       & !
     &          1008600000,MSGSTR,'MSGSTR@')                             !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!      ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')         !!!
!*--------------------------------------------------------------------------------------------------------------
12292  IF( MSGMIT.EQ.101 .OR. MSGACT.EQ.9920) GOTO 122                   !!! Leave Message Loop
       IF( MSGWIN.GE.010                    ) GOTO 12291                 !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!      IF(1.EQ.1) GOTO 12291                                             !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       IF( MSGACT.EQ.840 .OR. MSGACT.EQ.850 .OR. MSGACT.EQ.004 .OR.      & ! skip waiting
     &     MSGACT.EQ.940 .OR. MSGACT.EQ.950 .OR. MSGACT.EQ.945 .OR.      & !
     &     MSGACT.EQ.965 .OR.                                            & !
     &     MSGACT.EQ.975 .OR.                                            & !
     &     MSGACT.EQ.998 .OR. MSGACT.EQ.999 ) GOTO 12293                 & !
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
       ERROR1 = DL1(MSLEEP,000200,1000000000)                            !!!
!*--------------------------------------------------------------------------------------------------------------
12293  CONTINUE                                                          !!!
!*==============================================================================================================
!*       ERROR1 = DL1(SETITM,DSPWIN,MENITM,DRWMOD,ENABLE,CONTRL)         !!!
!*       ERROR1 = DL1(SETITM,ITMDWI,ITMMIT,10MLDN,ENABLE,1IACST0000)     !!!
!*==============================================================================================================
       IF( MSGMIT .EQ.901 .OR. MSGMIT.EQ.141 )THEN                       !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         ERROR1 = DL1(SETITM,MSGDSP+02,241,100000,000000,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,242,100000,000000,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,243,100000,000000,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,244,100000,000000,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,245,100000,000000,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,246,100000,000000,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,247,100000,000000,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,248,100000,000000,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,249,100000,000000,1001110000)     !!!
!*--------------------------------------------------------------------------------------------------------------
       ELSEIF( MSGMIT.EQ.902 .OR. MSGMIT.EQ.142 )THEN                    !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         ERROR1 = DL1(SETITM,MSGDSP+02,241,100000,000001,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,242,100000,000001,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,243,100000,000001,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,244,100000,000001,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,245,100000,000001,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,246,100000,000001,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,247,100000,000001,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,248,100000,000001,1001110000)     !!!
         ERROR1 = DL1(SETITM,MSGDSP+02,249,100000,000001,1001110000)     !!!
!*==============================================================================================================
!*    ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL)            !!!
!*    ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,1IACSTMLDN)        !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!*    ERROR1 = DL1(GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,            & !
!*   &             CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)            !!!
!*    ERROR1 = DL1(GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,            & !
!*   &         1IACUT0000,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)            !!!
!*==============================================================================================================
       ELSEIF( MSGMIT.EQ.903 .OR. MSGMIT.EQ.241 )THEN                    !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         BUTDWI = MSGDSP+002                                             !!!
         BUTMIT =        246                                             !!! But 102-246
         CHKSTA =        003                                             !!!
         ENABLE =        000                                             !!!
         CONTRL = 1007770000                                             !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL)         !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         WRITE(*,'('' ERROR1 = DL1('',                               '// & !
     &'    ''SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.03,I07.01,I07.01,I11.10/)')               & !
     &       ERROR1,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL                   !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!##      BUTMIT = IS3(NAMLEN,CONTRL,000140,000080,1 00 707 0000)         !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = IS4(CHKSTA,ENABLE,NAMLEN,-10101,000103,000104,000080)  !!!
         RADBLK = IS4(RADMIT,RADMIN,RADMAX,000201,000202,000203,000204)  !!!
         CONTRL = 1007070000                                             !!!
         NAMSTR = 'Hallo du Buttonchen !@                             '  !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,         & !
     &                CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)         !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         WRITE(*,'('' ERROR1 = DL1('',                               '// & !
     &'    ''GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,        & !''/'// & !
     &'14X,''CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.03,I07.01,I07.01,I07.02/              '// & !
     &'9X,   I11.10,I07.01,I07.03,I07.03,I07.03/''|'',A76,''|''/)')      & !
     &       ERROR1,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,                  & !
     &       CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!        ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')       !!!
!*--------------------------------------------------------------------------------------------------------------
!*       ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL)         !!!
!*       ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,1IACSTMLDN)     !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         BUTDWI = MSGDSP+002                                             !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         ERROR1 = DL1(SETBUT,BUTDWI,000247,000001,000000,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000248,000000,000001,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000249,000001,000000,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000247,000000,000001,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000248,000001,000000,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000249,000001,000001,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!        ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')       !!!
!*==============================================================================================================
!*    ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL)            !!!
!*    ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,1IACSTMLDN)        !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!*    ERROR1 = DL1(GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,            & !
!*   &             CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)            !!!
!*    ERROR1 = DL1(GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,            & !
!*   &         1IACUT0000,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)            !!!
!*==============================================================================================================
       ELSEIF( MSGMIT.EQ.904 .OR. MSGMIT.EQ.242 )THEN                    !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         BUTDWI = MSGDSP+002                                             !!!
         BUTMIT =        149                                             !!! But 102-149
         CHKSTA =        001                                             !!!
         ENABLE =        000                                             !!!
         CONTRL = 1007770000                                             !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL)         !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         WRITE(*,'('' ERROR1 = DL1('',                               '// & !
     &'    ''SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.03,I07.01,I07.01,I11.10/)')               & !
     &       ERROR1,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!##      BUTMIT = IS3(NAMLEN,CONTRL,000140,000080,1 00 707 0000)         !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = IS4(CHKSTA,ENABLE,NAMLEN,-10101,000103,000104,000080)  !!!
         RADBLK = IS4(RADMIT,RADMIN,RADMAX,000201,000202,000203,000204)  !!!
         CONTRL = 1007070000                                             !!!
         NAMSTR = 'Hallo du Buttonchen !@                             '  !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,         & !
     &                CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)         !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         WRITE(*,'('' ERROR1 = DL1('',                               '// & !
     &'    ''GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,        & !''/'// & !
     &'14X,''CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.03,I07.01,I07.01,I07.02/              '// & !
     &'9X,   I11.10,I07.01,I07.03,I07.03,I07.03/''|'',A76,''|''/)')      & !
     &       ERROR1,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,                  & !
     &       CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!        ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')       !!!
!*--------------------------------------------------------------------------------------------------------------
!*       ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,CONTRL)         !!!
!*       ERROR1 = DL1(SETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,1IACSTMLDN)     !!!
!*       ERROR1 = DL1(MSLEEP,MILSEC,1000111000)                          !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         BUTDWI = MSGDSP+002                                             !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         ERROR1 = DL1(SETBUT,BUTDWI,000147,000001,000000,1007770000)     !!! 
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000148,000001,000001,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000149,000001,000000,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000147,000001,000001,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000148,000001,000000,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000149,000001,000001,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         ERROR1 = DL1(SETBUT,BUTDWI,000145,000002,000001,1007770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000245,000002,000001,1007770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000246,000002,000001,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000145,000003,000001,1007770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000245,000003,000001,1007770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000246,000003,000001,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000145,000002,000000,1007770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000245,000002,000000,1007770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000246,000002,000000,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000145,000003,000001,1007770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000245,000003,000001,1007770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000246,000003,000001,1007770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETBUT,BUTDWI,000145,000002,000001,1003770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000245,000003,000001,1003770000)     !!!
         ERROR1 = DL1(SETBUT,BUTDWI,000246,000002,000001,1003770000)     !!!
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         BUTMIT = IS3(NAMLEN,CONTRL,000147,000080,1 00 707 0000)         !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,         & !
     &                CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)         !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         WRITE(*,'('' ERROR1 = DL1('',                               '// & !
     &'    ''GETBUT,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,        & !''/'// & !
     &'14X,''CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.03,I07.01,I07.01,I07.02/              '// & !
     &'9X,   I11.10,I07.01,I07.03,I07.03,I07.03/''|'',A76,''|''/)')      & !
     &       ERROR1,BUTDWI,BUTMIT,CHKSTA,ENABLE,NAMLEN,                  & !
     &       CONTRL,RADBLK,RADMIT,RADMIN,RADMAX,NAMSTR                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!        ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')       !!!
!*==============================================================================================================
!*       ERROR1 = DL1(SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL)         !!!
!*       ERROR1 = DL1(SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,1IACSTMLDN)     !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!*       ERROR1 = DL1(GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL)         !!!
!*       ERROR1 = DL1(GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,1IAC0T0000)     !!!
!*==============================================================================================================
       ELSEIF( MSGMIT.EQ.907 .OR. MSGMIT.EQ.242 )THEN                    !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         ERROR1 = DL1(SETGRP,000202,000290,-11111,000001,1007771000)     !!! Group 202-290 enabled
         ERROR1 = DL1(SETGRP,000202,000291,-11111,000001,1007771001)     !!! Group 202-291 enabled
         ERROR1 = DL1(SETGRP,000202,000292,-11111,000001,1007771002)     !!! Group 202-292 enabled
         ERROR1 = DL1(SETGRP,000202,000293,-11111,000001,1007771003)     !!! Group 202-293 enabled
         ERROR1 = DL1(SETGRP,000202,000294,-11111,000001,1007771004)     !!! Group 202-294 enabled
         ERROR1 = DL1(SETGRP,000202,000295,-11111,000001,1007771005)     !!! Group 202-295 enabled
         ERROR1 = DL1(SETGRP,000202,000296,-11111,000001,1007771006)     !!! Group 202-296 enabled
         ERROR1 = DL1(SETGRP,000202,000297,-11111,000001,1007771007)     !!! Group 202-297 enabled
         ERROR1 = DL1(SETGRP,000202,000298,-11111,000001,1007771008)     !!! Group 202-298 enabled
         ERROR1 = DL1(SETGRP,000202,000299,-11111,000001,1007771009)     !!! Group 202-299 enabled
!*==============================================================================================================
!*    ERROR1 = DL1(SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL)            !!!
!*    ERROR1 = DL1(SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,1IACSTMLDN)        !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!*    ERROR1 = DL1(GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL)            !!!
!*    ERROR1 = DL1(GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,1IAC0T0000)        !!!
!*==============================================================================================================
       ELSEIF( MSGMIT.EQ.908 .OR. MSGMIT.EQ.242 )THEN                    !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         GRPDWI = MSGDSP+002                                             !!!
         GRPMIT = 280                                                    !!!
         DUMMY1 = 103                                                    !!!
         ENABLE = 007                                                    !!!
         CONTRL = 1007773888                                             !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL)         !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.03,I07.01,I07.01,I11.10/)')               & !
     &       ERROR1,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         GRPDWI = IS4(GRPMIT,DRWMOD,ENABLE,000202,000280,-11111,-22222)  !!!
         CONTRL = 1007070000                                             !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL)         !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
       WRITE(*,'('' ERROR1 = DL1('',                                 '// & !
     &'    ''GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.03,I07.01,I07.01,I11.10/)')               & !
     &       ERROR1,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!        ERROR1 = DL1(GETINP,I,512,000064,1006001051,STR512,'OK ?@')     !!!
!*--------------------------------------------------------------------------------------------------------------
         ERROR1 = DL1(SETGRP,GRPDWI,000280,-11111,000000,1007770000)     !!! Group 202-280 disabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-22222,000001,1007773000)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,-11111,000001,1007770000)     !!! Group 202-280  enabled 
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-22222,000001,1007773001)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,-11111,000000,1007770000)     !!! Group 202-280 disabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-22222,000001,1007773002)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,-11111,000001,1007770000)     !!! Group 202-280  enabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-11111,000001,1007773003)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,-11111,000000,1007770000)     !!! Group 202-280 disabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-11111,000001,1007773004)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,-11111,000001,1007770000)     !!! Group 202-280  enabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-11111,000001,1007773005)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,-11111,000000,1007770000)     !!! Group 202-280 disabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-11111,000001,1007773006)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,-11111,000001,1007770000)     !!! Group 202-280  enabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-11111,000001,1007773007)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,000000,000000,1007770000)     !!! Group 202-280 disabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-11111,000001,1007773008)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,000001,000001,1007773008)     !!! Group 202-280  enabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-11111,000000,1007773008)     !!! Group 202-281 disabled
         ERROR1 = DL1(MSLEEP,002000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000280,000001,000001,1007773000)     !!! Group 202-280  enabled
         ERROR1 = DL1(SETGRP,GRPDWI,000281,-11111,000001,1007773009)     !!! Group 202-281  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         ERROR1 = DL1(GETINP,I,512,000064,1006001051,STR512,'OK ?@')     !!!
!*==============================================================================================================
!*       ERROR1 = DL1(SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL)         !!!
!*       ERROR1 = DL1(SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,1IACSTMLDN)     !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!*       ERROR1 = DL1(GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL)         !!!
!*       ERROR1 = DL1(GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,1IAC0T0000)     !!!
!*==============================================================================================================
       ELSEIF( MSGMIT.EQ.909 .OR. MSGMIT.EQ.242 )THEN                    !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         GRPDWI = MSGDSP+002                                             !!!
         GRPMIT =        282                                             !!! Grp D02-282
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         DUMMY1 =        000                                             !!!
         ENABLE =        000                                             !!!
         CONTRL = 1003773999                                             !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL)         !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         WRITE(*,'('' ERROR1 = DL1('',                               '// & !
     &'    ''SETGRP,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.03,I07.01,I07.01,I11.10/)')               & !
     &       ERROR1,GRPDWI,GRPMIT,DUMMY1,ENABLE,CONTRL                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         DRWMOD =     -11111                                             !!!
         ENABLE =     -22222                                             !!!
         CONTRL = 1003070000                                             !!!
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL)         !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         WRITE(*,'('' ERROR1 = DL1('',                               '// & !
     &'    ''GETGRP,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL)        !!!''/'// & !
     &'I7.6, 13X   ,I07.03,I07.03,I07.01,I07.01,I11.10/)')               & !
     &       ERROR1,GRPDWI,GRPMIT,DRWMOD,ENABLE,CONTRL                   !!!
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!        ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')       !!!
!*--------------------------------------------------------------------------------------------------------------
         GRPDWI = MSGDSP+002                                             !!!
         ITMDWI = MSGDSP+002                                             !!!
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003771000)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003771000)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003771111)     !!! Group D01-290  enabled 
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003771111)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003771222)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003771222)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003771333)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003771333)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003771444)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003771444)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003771555)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003771555)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003771666)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003771666)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003773777)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003773777)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003773888)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003773888)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003773999)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003773999)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000000,1003770000)     !!! Group D01-290 disabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000000,1003770000)     !!! Group D02-290 disabled
         ERROR1 = DL1(MSLEEP,002000,1000000000)                          !!! Sleep 1000 Milliseconds
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
         ERROR1 = DL1(SETGRP,GRPDWI,000282,DUMMY1,000001,1003770000)     !!! Group D01-290  enabled
!#       ERROR1 = DL1(SETGRP,ITMDWI,000290,DUMMY1,000001,1003770000)     !!! Group D02-290  enabled
         ERROR1 = DL1(MSLEEP,001000,1000000000)                          !!! Sleep 1000 Milliseconds
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
         ERROR1 = DL1(GETINP,I,64,10064,1006001051,STRG64,'OK ?@')       !!!
!*==============================================================================================================
!*       ERROR1 = DL1(SETITM,DSPWIN,MENITM,DRWMOD,ENABLE,CONTRL)         !!!
!*       ERROR1 = DL1(SETITM,ITMDWI,ITMMIT,10MLDN,ENABLE,1IACST0000)     !!!
!*--------------------------------------------------------------------------------------------------------------
       ENDIF
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      IF(1.EQ.1) GOTO 12291                                              !!!
!**************************************************************************************************** end DEMO21

!******************************************************************************************************** MENU 2
!*###################################################################################################### MENU 20
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MENU 200
!*==================================================================================================== MENU 2000
!*--------------------------------------------------------------------------------------------------- MENU 20000
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% END
!*    RETURN                                                             !!!
      END                                                                !!!
!**************************************************************************************************** end DEMO22

!*##############################################################################################################
!*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
!*==============================================================================================================
!*--------------------------------------------------------------------------------------------------------------
!* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
!* -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -
!* -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
!* -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -     -
!***************************************************************************************************************
Damit ist das Fortran Beispiel beendet. Das ist nur ein Teil des Fortran Testcodes, um diese HTML Seite nicht zu lang werden zu lassen. Außerdem ist dieser Programmcode noch unfertig und befindet sich in beständiger Weiterentwicklung.   Zurück