home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / tnef015.zip / tnef.list.cmd < prev    next >
OS/2 REXX Batch file  |  2000-10-25  |  898b  |  47 lines
  1. /* TNEF --list */
  2. /****************************/
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6.   /* (C) TEAM OS/2 Russia, http://teamos2.ru, mail@teamos2.ru */
  7.  /************************************************************/
  8.  
  9. parse arg filename
  10.  
  11. say ''
  12. say ' List of files in your tnef attachment:'
  13. say '  'filename' '
  14.  
  15. '@tnef.exe --list 'filename' | more'
  16.  
  17.  
  18. say ''
  19. say ' This window will close itself in 17 seconds '
  20. say ' If you don`t this  MARK TEXT in this window now  or  press PAUSE button '
  21. say ''
  22.  
  23.  
  24. /* ogho! nice joke ;) */
  25. hoho.0=14
  26. hoho.1='█'
  27. hoho.2='█'
  28. hoho.3='█'
  29. hoho.4='█'
  30. hoho.5=' '
  31. hoho.6='O'
  32. hoho.7='S'
  33. hoho.8='/'
  34. hoho.9='2'
  35. hoho.10=' '
  36. hoho.11='W'
  37. hoho.12='a'
  38. hoho.13='r'
  39. hoho.14='p'
  40.  
  41. do i=1 to hoho.0
  42.  call charout STDOUT,hoho.i
  43.  call syssleep 1
  44. end
  45.  
  46. call sysSleep 3
  47.