Updating plots in real time (2)

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

The COMIS routines can be declare via the an APPLICATION . When a such routine is called, the extension .f should not be specified.
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 ]
```

			PAW Tutorial	Last update: 1999/04/01 14.59	Olivier.Couet@Cern.Ch