Hello All
You will need 'Snoopdos' in order to use this script.
--- 8< --- Cut --- AREXX --- Here --- 8< ---
/*
$VER: V1.03 TAGon.mdrx (09-Feb-2000)
$AUTHOR: Jules (JA888) �2000
You need to say where your 'taglines' are kept,
and the path to 'Snoopdos'
Instructions
1) Enter the path to your taglines.
2) If 'Snoopdos' is not in your system path, enter the new path.
3) Create a new message and 'Queue' it.
4) Open the 'Spool' directory, and select, but do not open
the message.
5) Run TAGon.mdrx, and wait for the disk activity to end.
6) Close and re-open the message, and you should have a tagline.
*/
/*
Path to tag line list
*/
TAGLINES="NetConnect3:.taglines"
/*
And the path of Snoopdos. Example SNOOP="SYS:Tools/Snoopdos"
*/
SNOOP="SNOOPDOS"
/*
Check that Microdot is running
*/
IF ~SHOW('P','MD.1') THEN DO
EXIT
END
/*
Check if SnoopDos is running; if not, then start it
*/
SNOOPPATH="RUN >NIL: "||SNOOP||" HIDEMETHOD=TOOLSMENU HIDE"
IF ~SHOW('P','SNOOPDOS') THEN DO
ADDRESS COMMAND SNOOPPATH
ADDRESS COMMAND "WAITFORPORT SNOOPDOS"
END
/*
Set up Snoopdos
*/
ADDRESS SNOOPDOS ; CLEARBUFFER ; FORMAT "%50n"
/*
Read the message in MD-II
*/
ADDRESS MD.1 ; READSELECTEDMSGS ; ADDRESS COMMAND 'WAIT'
/*
Save the SnoopDos Buffer
*/
ADDRESS SNOOPDOS ; SAVEBUFFER "T:SnoopMD"
/*
Find the correct line.
*/
DETEC=0 ; PDRAW="" ; DFILE=""
CALL OPEN('MD','T:SnoopMD','R')
DO UNTIL DETEC>1
PDRAW=READLN('MD')
DETEC=POS('DBX_',PDRAW)
END
DFILE=READLN('MD')
CALL CLOSE('MD')
QUIT
/*
Give it a hair cut
*/
TARGETFILE=TRIM(PDRAW)||"/"||TRIM(DFILE)
/*
Setup some counters
*/
CA=0 ; RA=0
/*
How long is it?
*/
CALL OPEN('TGL',TAGLINES,'R')
DO UNTIL EOF('TGL')
TFILE=READLN('TGL')
IF TFILE="%%" THEN DO
CA=CA+1
END
END
CALL CLOSE('TGL')
/*
Get a random number.
*/
RA=RANDOM(0,CA,TIME('S'))
/*
Move to that point in the file
*/
CA=0
CALL OPEN('TGL',TAGLINES,'R')
DO UNTIL CA = RA
TFILE=READLN('TGL')
IF TFILE="%%" THEN DO
CA=CA+1
END
END
/*
Tag it on
*/
CA=0
CALL OPEN('TAG',TARGETFILE,'A')
TGFILE.CA="-- "
DO UNTIL TGFILE.CA="%%"
CALL WRITELN('TAG',TGFILE.CA)
CA=CA+1
TGFILE.CA = READLN('TGL')
END
/*
Tidy up
*/
CALL CLOSE('TGL')
CALL CLOSE('TAG')
ADDRESS COMMAND 'DELETE T:SnoopMD QUIET'
/*
Get out of here
*/
EXIT
--- 8< --- Cut --- AREXX --- Here --- 8< ---
--
Regards
Jules
________________________________________________________________
MicroDot-II Mailing List - Info & Archive: http://www.vapor.com/
For Listserver Help: <[EMAIL PROTECTED]>, "HELP"
To Unsubscribe: <[EMAIL PROTECTED]>, "UNSUBSCRIBE"
