home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vxdemo.zip / MOVIES.$$$ / MMFINI.VRX < prev    next >
Text File  |  1993-06-18  |  364b  |  25 lines
  1. /*:VRX         Main
  2. */
  3. /*
  4.     Syntax:
  5.         rc = MMFini( <window> )
  6.     Returns
  7.         1       OK
  8.         0       Error
  9. */      
  10. main:
  11.     signal on novalue
  12.  
  13.     window = arg( 1 )
  14.  
  15.     call VRMethod "Application", "GetVar", "MMInitRC"
  16.     if MMInitRC \= 1 then do
  17.         signal leave_fini
  18.     end
  19.  
  20.     call mciRxExit
  21.  
  22. leave_fini:
  23. exit
  24.  
  25.