home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxfiles.zip / shvenv.bat < prev   
DOS Batch File  |  1997-08-13  |  224b  |  11 lines
  1. /**/
  2. I = 0
  3. J = RXSHVENV( TEST )
  4.  
  5. say "got" J "variables - press any key to continue" ; call RXGETKEY 'noecho'
  6.  
  7. do I = 0 to J
  8.         if I = 23 then call RXGETKEY 'noecho'
  9.         say left( I, 2 ) ":" TEST.I
  10. end I
  11.