home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / imdb / rexx / mmui.rexx < prev    next >
OS/2 REXX Batch file  |  1986-07-04  |  786b  |  47 lines
  1. /*============================================================================
  2.  *
  3.  *  Program:   mmui.rexx
  4.  *
  5.  *  Version:   1.0
  6.  *
  7.  *  Purpose:   sets up a little ARexx-Test-Environment for MovieMUI 3.0
  8.  *             simply type in the command.
  9.  *
  10.  *  Author:    Andre Bernhardt
  11.  *
  12.  *  Copyright (c) Andre Bernhardt 1993-94
  13.  *
  14.  *  History:
  15.  *
  16.  *============================================================================
  17.  */
  18.  
  19. port_name = "MOVIEMUI"
  20.  
  21. if ( ~show( 'p', port_name ) ) then do
  22.  say "Please start MovieMUI first."
  23.  exit
  24. end
  25.  
  26. address value port_name
  27.  
  28. options results
  29.  
  30. do forever
  31.  say "Please enter command ('q' to exit):"
  32.  parse pull command
  33.  
  34.  if (command = 'q') then
  35.   break
  36.  else
  37.   do
  38.    command
  39.    say "replied: RC = " rc
  40.    if RC =0 then
  41.     say result
  42.  end
  43.  
  44. end
  45.  
  46. exit
  47.