With reference to '[md-2] Taglines on MD?' by The Databug
> I've thought of another question on Microdot. Is it possible to have taglines in
> MD
Yes.
/*
$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 3'
/*
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
--
Ralph won't "Morph" if you squeeze him hard enough
-- Bart Simpson
__________________________________________________________________
MicroDot-II Mailing List - http://www.vapor.com/md2/
MicroDot-II FAQ: http://faq.vapor.com/md2/
Listserver Help: mailto:[EMAIL PROTECTED]?Subject=HELP
Unsubscribe....: mailto:[EMAIL PROTECTED]?Subject=UNSUBSCRIBE
