/**************************************************************************\
          $VER: SuperTags Loader, v2.53 (1-Jan-98) by Dotoran!
\**************************************************************************/
options results;tr=transmit;gu=getuser;v=word(sourceline(2),4)
parse source . . fp .;dfp=left(fp,max(lastpos('/',fp),lastpos(':',fp)))
call open(f1,dfp"!STags.cfg","r");a=readln(f1)
  parse var a ver"|"qu"|"list"|"tit"|"j
call close(f1)
if v~=ver then do;tr "Incorrect SuperTags Version!";exit;end
if qu=2 then do;gu 39;mdir="mail:users/"result"/_SuperTags"
call open(f1,mdir,"r");a=readln(f1);parse var a opt"|"list"|"tit"|"j
call close(f1);if opt~=9 then qu=0;else qu=1;end
if qu=1 then tr "#0"dfp"QuickTags "dfp"TagData/"list" "tit"}"
if qu=0 then tr "#0"dfp"SuperTags}"
/**************************************************************************\
\****************************************** Frontiers BBS (716)/823-9892 **/