home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / jksigfil.zip / LONGSIG.CMD < prev    next >
OS/2 REXX Batch file  |  1998-04-23  |  2KB  |  51 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')
  19. lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
  20. lrc = Lineout(ofile, '@SystemDate:%x@ 'soneliner)
  21. lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
  22. lrc = Lineout(ofile, 'JHK Systems Consultants     (203) 287-8792 voice    ')
  23. lrc = Lineout(ofile, 'jkoret@snet.net             (203) 281-0762 fax      ')
  24. lrc = Lineout(ofile, 'jkoret@compuserve.com       900 Mix Avenue Suite 102')
  25. lrc = Lineout(ofile, 'jkoret@jkoret.com           Hamden CT 06514-5141    ')
  26. lrc = Lineout(ofile, 'WA1YJK "Young Joyful Kid"   but still an "Old Ham"  ')
  27. lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
  28. lrc = Lineout(ofile, '      Home of Addons and Utilities for MR/2 ICE     ')
  29. lrc = Lineout(ofile, '               http://www.jkoret.com                ')
  30. lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
  31. lrc = Lineout(ofile, '   Home of The Greater New Haven Community Chorus   ')
  32. lrc = Lineout(ofile, '         http://www.jkoret.com/gnhcc.htm            ')
  33. lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
  34. lrc = Lineout(ofile, '    @SystemDate:%A, %B %d, 19%y - %I:%M %p@ (EDT)   ')
  35. lrc = Lineout(ofile, '   MR/2 Ice (Internet Cruiser Edition)  Reg# 10067  ')
  36. lrc = Lineout(ofile, '            Using In-Joy  v1.0 Registered           ')
  37. lrc = Lineout(ofile, '            Using OS/2 Warp 4.0 TEAM OS/2           ')
  38. lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
  39. /*  */
  40. /*  Use this if filter use not desired for sig file         */
  41. /* '@start mr2i.exe /Madvantis,cfg' this line if used to start up mr2i.exe */
  42. /*  */
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.