home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / os2 / pgpmr102.arj / PGPMR2.ZIP / PGPTEST.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-16  |  345b  |  18 lines
  1. /* pgptest.cmd */
  2. /* parse arg runpgp */
  3. parse arg curdir nopause
  4. drive=left(curdir,2)
  5. subdir=right(curdir,length(curdir)-2)
  6. drive
  7. 'cd '||subdir
  8. yy=rxqueue('set','rxy')
  9. lin=linein('queue:')
  10. pgpcmd=substr(lin,2,length(lin)-1)
  11. pgpcmd
  12. pgprc=rc
  13. if nopause<>'nopause' then pause
  14. /* runpgp */
  15. zz=rxqueue('set','rxz')
  16. push pgprc
  17. exit
  18.