home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / jksigfil.zip / SHORTSIG.CMD < prev   
OS/2 REXX Batch file  |  1998-04-23  |  2KB  |  43 lines
  1. /*  */
  2. /* Generate a different funny signature each time       v1.0  09/22/96 */
  3. /* Modify original siganture format                     v1.1  10/13/96 */
  4. /* Multiple sig file option not done at this time                      */
  5. /*  */
  6. iline = Random(1, 94)
  7. ifile = 'OneLiner.txt'
  8. ofile = 'MR2i.sig'
  9. Do iline
  10.   soneliner = Linein(ifile)
  11.   End
  12. '@del' ofile '> nul'
  13. /*  */
  14. /* if charin([stream_name][,[start][,length]])then do; end; */
  15. /*  */
  16. lrc = Lineout(ofile, '')
  17. lrc = Lineout(ofile, '-- ')
  18. lrc = Lineout(ofile, ' Take Care, Jerry Koret <jkoret@snet.net>, TEAM OS/2')
  19. lrc = Lineout(ofile, '====================================================')
  20. lrc = Lineout(ofile, '' soneliner)
  21. lrc = Lineout(ofile, '====================================================')
  22. lrc = Lineout(ofile, '    @SystemDate:%A, %B %d, 19%y - %I:%M %p@ (EDT)   ')
  23. lrc = Lineout(ofile, '====================================================')
  24. lrc = Lineout(ofile, '      Home of Addons and Utilities for MR/2 ICE     ')
  25. lrc = Lineout(ofile, '               http://www.jkoret.com                ')
  26. lrc = Lineout(ofile, '====================================================')
  27. lrc = Lineout(ofile, '   Home of The Greater New Haven Community Chorus   ')
  28. lrc = Lineout(ofile, '         http://www.jkoret.com/gnhcc.htm            ')
  29. lrc = Lineout(ofile, '====================================================')
  30. /*  */
  31. /*  Use this if filter use not desired for sig file         */
  32. /* '@start mr2i.exe /Madvantis,cfg' this line if used to start up mr2i.exe */
  33. /*  */
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.