home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2src / myrxdll.cmd < prev    next >
OS/2 REXX Batch file  |  1995-08-17  |  654b  |  23 lines
  1. /* testing an M2-built REXX DLL */
  2.  
  3. SAY 'testing an M2-built DLL, task started...'
  4.  
  5. CALL RxFuncAdd 'RxDelay',    'MYRXDLL', 'RXDELAY'
  6. CALL RxFuncAdd 'RxClipRange','MYRXDLL', 'RXCLIPRANGE'
  7. CALL RxFuncAdd 'RxUpperCase','MYRXDLL', 'RXUPPERCASE'
  8.  
  9. say 'Starting "CALL RxDelay 1000"'
  10. CALL RxDelay 1000
  11.  
  12. say "RxClipRange( -135, -100, 0 ) =" RxClipRange(-135,-100,0)
  13. say "RxClipRange(  -33, -100, 0 ) =" RxClipRange( -33,-100,0)
  14. say "RxClipRange(   25, -100, 0 ) =" RxClipRange(  25,-100,0)
  15.  
  16. say 'RxUpperCase( "Hello" ) =' RxUpperCase( "Hello" )
  17.  
  18. CALL RxFuncDrop 'RxDelay'
  19. CALL RxFuncDrop 'RxClipRange'
  20. CALL RxFuncDrop 'RxUpperCase'
  21.  
  22. EXIT
  23.