home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 35 Internet
/
35-Internet.zip
/
jksigfil.zip
/
LONGSIG.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-04-23
|
2KB
|
51 lines
/* */
/* Generate a different funny signature each time v1.0 09/22/96 */
/* Modify original siganture format v1.1 10/13/96 */
/* Multiple sig file option not done at this time */
/* */
iline = Random(1, 94)
ifile = 'OneLiner.txt'
ofile = 'MR2i.sig'
Do iline
soneliner = Linein(ifile)
End
'@del' ofile '> nul'
/* */
/* if charin([stream_name][,[start][,length]])then do; end; */
/* */
lrc = Lineout(ofile, '')
lrc = Lineout(ofile, '-- ')
lrc = Lineout(ofile, 'Take Care, Jerry Koret')
lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
lrc = Lineout(ofile, '@SystemDate:%x@ 'soneliner)
lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
lrc = Lineout(ofile, 'JHK Systems Consultants (203) 287-8792 voice ')
lrc = Lineout(ofile, 'jkoret@snet.net (203) 281-0762 fax ')
lrc = Lineout(ofile, 'jkoret@compuserve.com 900 Mix Avenue Suite 102')
lrc = Lineout(ofile, 'jkoret@jkoret.com Hamden CT 06514-5141 ')
lrc = Lineout(ofile, 'WA1YJK "Young Joyful Kid" but still an "Old Ham" ')
lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
lrc = Lineout(ofile, ' Home of Addons and Utilities for MR/2 ICE ')
lrc = Lineout(ofile, ' http://www.jkoret.com ')
lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
lrc = Lineout(ofile, ' Home of The Greater New Haven Community Chorus ')
lrc = Lineout(ofile, ' http://www.jkoret.com/gnhcc.htm ')
lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
lrc = Lineout(ofile, ' @SystemDate:%A, %B %d, 19%y - %I:%M %p@ (EDT) ')
lrc = Lineout(ofile, ' MR/2 Ice (Internet Cruiser Edition) Reg# 10067 ')
lrc = Lineout(ofile, ' Using In-Joy v1.0 Registered ')
lrc = Lineout(ofile, ' Using OS/2 Warp 4.0 TEAM OS/2 ')
lrc = Lineout(ofile, '================>>-->>-->*<--<<--<<=================')
/* */
/* Use this if filter use not desired for sig file */
/* '@start mr2i.exe /Madvantis,cfg' this line if used to start up mr2i.exe */
/* */