home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / rtmmm.zip / rtmmm.rel.2 / RTMMM-Console / RTMMM_rf.VRX < prev    next >
Text File  |  1996-11-05  |  824b  |  33 lines
  1. /*:VRX         Main
  2. */
  3. Main:
  4.     signal on halt
  5.     call RxFuncAdd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
  6.     call SysLoadfuncs
  7.     If rxfuncquery('RxCreateRexxThread') Then
  8.     Do
  9.         Call rxfuncadd 'rxydbautilinit','ydbautil','rxydbautilinit'
  10.         Call rxydbautilinit
  11.     End
  12.     call RefreshAction
  13. exit
  14.  
  15. RefreshAction: procedure
  16.     ret = RxOpenEventSem(rtmmm_semaphore,'\\SEM32\\RTMMM_NEWS')
  17.     posts = RxResetEventSem(rtmmm_semaphore)
  18.     call VRMethod "Application","PostQueue",0,0,"call RTMMM_Refresh","Null",0
  19.  
  20.     do forever
  21.         ret = RxWaitEventSem(rtmmm_semaphore)
  22.         posts = RxResetEventSem(rtmmm_semaphore)
  23. /*      call SysSleep 1*/
  24.         call VRMethod "Application","PostQueue",0,0,"call RTMMM_Refresh","Null",0
  25.     end
  26.  
  27. /*:VRX         Halt
  28. */
  29. Halt:
  30.  
  31. exit
  32.  
  33.