00010 REM &REM&                                                               
00020 BEGIN                                                                   
00030 FORMAT INCLUDE #IDOPER, OPT="NONE"; ! Operator format                   
      FORMAT INCLUDE #IDOPER1          ! Duplicate of operator format         
00040 OPEN(1)"IDDBD"                   ! Open dictionary                      
00050 QP$="Operator to copy from (F4 to quit)- "; ! Get oper to copy          
      C=0;                                                                    
      R=5;                                                                    
      PRINT @(C,R),QP$;                                                       
      FINPUT (0,ATR=$05$+CHR(C+1+LEN(QP$))+CHR(R)+CHR(3)+CHR(3))OP$           
00060 IF CTL=4                         ! If press F4, quit                    
         GOTO 9999                                                            
      FI;                                                                     
      READ(1,KEY=$0001$+OP$,DOM=50,ERR=9999)#IDOPER ! Read oper. rec.         
00070 K$=$0001$+DIM(4,$20$);           ! Set key pointer to top of opers      
      GOTO 90                                                                 
00080 K$=KEY(1)                        ! Get next oper                        
00090 READ(1,KEY=K$,DOM=70)#IDOPER1    ! Read oper.                           
00100 IF K$(1,2)<$0002$                ! If not at end of operators           
         #IDOPER1.WINDOW-PAINT-MODE=#IDOPER.WINDOW-PAINT-MODE, ! Copy all     
         #IDOPER1.MENU-WINDOW-COLOR=#IDOPER.MENU-WINDOW-COLOR, ! windows &    
         #IDOPER1.MENU-BORDER-COLOR=#IDOPER.MENU-BORDER-COLOR, ! color        
         #IDOPER1.VIEW-WINDOW-COLOR=#IDOPER.VIEW-WINDOW-COLOR, ! settings     
         #IDOPER1.VIEW-BORDER-COLOR=#IDOPER.VIEW-BORDER-COLOR,                
         #IDOPER1.DE-WINDOW-COLOR=#IDOPER.DE-WINDOW-COLOR,                    
         #IDOPER1.DE-BORDER-COLOR=#IDOPER.DE-BORDER-COLOR,                    
         #IDOPER1.HELP-WINDOW-COLOR=#IDOPER.HELP-WINDOW-COLOR,                
         #IDOPER1.HELP-BORDER-COLOR=#IDOPER.HELP-BORDER-COLOR,                
         #IDOPER1.EDITOR-WINDOW-COLOR=#IDOPER.EDITOR-WINDOW-COLOR,            
         #IDOPER1.EDITOR-BORDER-COLOR=#IDOPER.EDITOR-BORDER-COLOR,            
         #IDOPER1.MENU-LIGHTBAR-COLOR=#IDOPER.MENU-LIGHTBAR-COLOR,            
         #IDOPER1.VIEW-LIGHTBAR-COLOR=#IDOPER.VIEW-LIGHTBAR-COLOR,            
         #IDOPER1.DEFAULT-COLORS= #IDOPER.DEFAULT-COLORS,                     
         #IDOPER1.MENU-LBAR-BGRD-COLOR=#IDOPER.MENU-LBAR-BGRD-COLOR,          
         #IDOPER1.VIEW-LBAR-BGRD-COLOR=#IDOPER.VIEW-LBAR-BGRD-COLOR,          
         #IDOPER1.VIEW-HDG-COLOR=#IDOPER.VIEW-HDG-COLOR,                      
         #IDOPER1.FIELD-ENTRY-COLOR =#IDOPER.FIELD-ENTRY-COLOR;               
         FOR A=1 TO 13;                                                       
            #IDOPER1.WIND-ATTR(A)=#IDOPER.WIND-ATTR(A);                       
         NEXT A;                                                              
         FOR A=1 TO 7;                                                        
            #IDOPER1.WIND-BORDER-TYPE(A)=#IDOPER.WIND-BORDER-TYPE(A),         
            #IDOPER1.WIND-BORDER-ATTR(A)=#IDOPER.WIND-BORDER-ATTR(A),         
            #IDOPER1.WIND-SEL-ATTR(A)=#IDOPER.WIND-SEL-ATTR(A),               
            #IDOPER1.WIND-PAINTMODE(A)=#IDOPER.WIND-PAINTMODE(A);             
         NEXT A                                                               
      ELSE                                                                    
         GOTO 9999                     ! Quit                                 
      FI                                                                      
00110 WRITE(1,KEY=K$)#IDOPER1          ! Write changes                        
00120 GOTO 80                          ! Get next oper                        
09999 END                              ! End