home *** CD-ROM | disk | FTP | other *** search
/ ANews 2 / AnewsCD2.iso / Indispensables / Son / songplayer / arexx / Test.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-04  |  525b  |  48 lines
  1. /* Test of some Arexx functions of SongPlayer */
  2.  
  3. MYPORT = 'SONGPLAYER.1'
  4.  
  5. IF ~SHOW( 'P', MYPORT ) THEN DO
  6.    SAY 'SongPlayer is not running.'
  7.    EXIT 10
  8. END
  9.  
  10. ADDRESS VALUE MYPORT
  11. OPTIONS RESULTS
  12.  
  13. EXPAND ON
  14. v = 64
  15. DO until ( v = 0 )
  16.    VOLUME v
  17.    v = v - 1
  18. END
  19. EXPAND OFF
  20.  
  21. FILTER ON
  22. DO until ( v = 64 )
  23.    v = v + 1
  24.    VOLUME v
  25. END
  26. FILTER OFF
  27.  
  28. b = 0
  29. DO until ( b = -64 )
  30.    b = b - 1
  31.    BALANCE b
  32. END
  33.  
  34. DO until ( b = 64 )
  35.    b = b + 1
  36.    BALANCE b
  37. END
  38.  
  39. PAUSE ON
  40. DO until ( b = 0 )
  41.    b = b - 1
  42.    BALANCE b
  43. END
  44. PAUSE OFF
  45.  
  46.  
  47.  
  48.