Keep and Update
                                                                                           
      MACRO UPDATE 1=50                                                                                                 
1     APPLICATION COMIS QUIT                                                                                     
         subroutine fill                                                                                                
         do 10 i=1,1000                                                                                                 
            call rannor(x,y)                                                                                            
            call hf1(1,x,1.)                                                                                            
            call hf1(2,y,1.)                                                                                            
            call hf1(3,(x-y)/(x+y),1.)                                                                                  
  10     continue                                                                                                       
         end                                                                                                            
1     QUIT                                                                                                       
      cd //pawc                                                                                                         
      h/del 0                                                                                                           
      1dhisto 1 x 100 -4 4                                                                                              
      1dhisto 2 y 100 -4 4                                                                                              
      1dhisto 3 (x-y)/(x+y) 100 -6 6                                                                                    
      zone 2 2                                                                                                          
1     CALL FILL                                                                                                  
      Set 2buf 1                                                                                                        
      h/pl 1 k                                                                                                          
      h/pl 2 k                                                                                                          
      zon 1 2 2 s                                                                                                       
      h/pl 3 k                                                                                                          
2      do i=1,[1]                                                                                                
         opt NSTA                                                                                                       
1        CALL FILL                                                                                               
         h/pl 1 u                                                                                                       
         h/pl 2 u                                                                                                       
         opt STAT                                                                                                       
         h/pl 3 u                                                                                                       
         call igterm                                                                                                    
      enddo                                                                                                             

1. The COMIS routines can be declare via the an APPLICATION . When a such routine is called, the extension .f should not be specified.
2. On Unix systems, you can activate the command below instead of the loop

                                                                                                                      
   IDLE 1 'opt nsta;call fill; h/pl 1 u ; h/pl 2 u ;op stat; h/pl 3 u ;call igterm'                                        
   

   The command IDLE , execute a command if program is idle. The command string is executed if there was no keyboard activity during SEC seconds.

                                                                                                                      
    * KUIP/IDLE SEC [ STRING ]