Suppressing popups with CISSUE

Be prepared to use Task Manager or lose your work. I was tortured by popups 3-4 times for total probably 6-8 hours because stopping of started program was not allowed before found temporal workaround thanks for help of this board.

!   For Windows7.  
!   Compilation with the /win key obligatory:
!   ftn95 AAA.FOR /link /free /win
!
!   If you do not like to be infinitely tortured by popups - uncomment commented lines
!   No responsibility implied. 
!   Use at your risk.  
!   For experienced users only with no mental problems
!

   use clrwin
   integer*2 ifail

   iExit=0
   luncw1 = 100

   i=winio@('%ca[Damn Popups]&')
   i=WINIO@('%fn[terminal]%ts%pv%40.10`cw[hscroll,vscroll,local_font]%ff&', 0.7d0, luncw1, ihwMainCW)
!   i=WINIO@('%ac[esc]&','+','set',iExit,1, 'Exit')
!   i=winio@('%cn%^bt[Close]&','+','set',iExit,1, 'Exit')	
   i=winio@('%lw', ilw )	

   do while (iExit.eq.0)  
     call sleep1@(0.15)
!    call temporary_yield@()
     call cissue@('dir >z',ifail)
     write(100,*) 'It's popups torture time'
   enddo

   end

   winapp
   integer,external::cb,winio@

   i=winio@('%ca[Popups]&') 
   i=WINIO@('%fn[terminal]%ts%pv%40.10cw[hscroll,vscroll,local_font]%ff&', 0.7d0, 100) 
   i=winio@('%dl', 2.0d0, cb)    

   end

   integer function cb()
   integer i
   stdcall WinExec 'WinExec'(STRING,VAL):integer
   i= WinExec('cmd.exe /c dir >z',0)
   write(100,*) 'No flash....' 
   cb = 2
   end

hahaha...after such long thread no way anyone expected this kind of solution. Cool ! That was the POWER of RIGHT EXAMPLE! Nice job, Paul!