! FX-SIG.V      Message Only Module Version 2.02.01

# SIG

! [FiXx] AutoSignature Professional Version 2.02 by Cheeser the Preacher

tr "-AutoSignature Professional 2.02 0:U PLEASE WAIT"

! þ[ System Variable Definitions ]þúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðú

$file = "C:\VBBS\AUTO\" & $user & ".tag"     
$filea = "C:\VBBS\AUTO\" & $user & ".001"
$fileb = "C:\VBBS\AUTO\" & $user & ".002"
$filec = "C:\VBBS\AUTO\" & $user & ".003"
$filed = "C:\VBBS\AUTO\" & $user & ".004"
$filee = "C:\VBBS\AUTO\" & $user & ".005"
$filef = "C:\VBBS\AUTO\" & $user & ".006"
$fileg = "C:\VBBS\AUTO\" & $user & ".007"
$fileh = "C:\VBBS\AUTO\" & $user & ".008"
$filei = "C:\VBBS\AUTO\" & $user & ".009"
$filej = "C:\VBBS\AUTO\" & $user & ".010"
$file2 = "C:\VBBS\AUTO\" & $user & ".tog"
$path = "C:\VBBS\"                  
$A = "-P a u s e D"
open $emailtag input
read $e1
read $e2
read $e3
close

! þ[ System Variable Definitions End ]þúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðúþúðú

# conix

$asciiarea = "C:\VBBS\AUTO\NOANSI.CFG"
checkfile $sze $asciiarea
testval $sze = 0 parabola
open $asciiarea input
read $subname
test $subname = $DBNAME NO_ANSisig
test $subname = "!EOF!" rtest
test $subname = "" rtest

go conix

# NO_ANSisig

tr "-AutoSignature Professional 2.02 0:U NON-ANSi NET DETECTED"
tr "-AutoSignature Professional 2.02 0:U AUTOSIGNATURE NOT ADDED"

go systag

# rtest

close

# parabola

checkfile $Z $file
ifval $Z = 0
$UH = NOWAY
go ON_TAG
endif
$UH = YESWAY

$tagcfg = "C:\VBBS\AUTO\TAG" & $user & ".NUM"

open $tagcfg INPUT
read $max5
close
open $file input
$line = $max5 RND 1
do $temp = 1 $line
   read $tag
loop
close

# On_TAG
Test $UH = "NOWAY" NEXT
Test $UH = "YESWAY" NEXT2
# NEXT
$Tag = " "
go NEXT2
# NEXT2
TEST $TAG = "!EOF!" NEXT
GO SIGNATURE

# signature

JC $A 79

checkfile $sizey $file2
ifval $sizey = 0
 go NAH
endif

open $file2 input
read $toggle
close
test $toggle = "ON" CONT2
test $Toggle = "OFF" NAH
test $Toggle = "ASK" ASK_SIG

# ASK_SIG
getyn $AUTO_SIG "-Add AutoSignature : "
test $auto_SIG = "Y" CONT
test $auto_SIG = "N" NAH

# CONT
tr " "
tr "3 Add Which Signature?"
tr " "
rr $Which 123456789AQ "-Add Which?U 1,2,3,4,5,6,7,8,9,A,Q: " 
tr
test $which = "1" FONE
test $which = "2" FTWO
test $which = "3" FTHREE
test $which = "4" FFour
test $which = "5" FFive
test $which = "6" FSix
test $which = "7" FSeven
test $which = "8" FEight
test $which = "9" FNine
test $which = "A" FTen
test $which = "Q" NAH

# FONE
$File1 = $filea
$signum = 1
go SIGX

# FTWO
$file1 = $FILEB
$signum = 2
go SIGX

# FTHREE
$file1 = $filec
$signum = 3
go SIGX

# FFOUR
$file1 = $Filed
$signum = 4
go SIGX

# FFIVE
$File1 = $filee
$signum = 5
go SIGX

# FSix
$File1 = $filef
$signum = 6
go SIGX

# FSeven
$File1 = $fileg
$signum = 7
go SIGX

# FEight
$File1 = $fileh
$signum = 8
go SIGX

# FNine
$File1 = $filei
$signum = 9
go SIGX

# FTen 
$File1 = $filej
$signum = 10
go SIGX

# CONT2

$sets = 0

open $fileb input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filec input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filed input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filee input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filef input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $fileg input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $fileh input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filei input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

open $filej input
read $tmp1
close

if $tmp1 = "" then
go pats
ENDIF

if $tmp1 = "!EOF!" then
go pats
ENDIF

$sets = $sets + 1

# PATS

$BLAH = $sets RND 1
Testval $blah = 1 RONE
Testval $blah = 2 RTWO
TestVal $blah = 3 RTHREE
TESTVAL $blah = 4 RFOUR
TestVal $blah = 5 RFIVE
Testval $blah = 6 RSix
Testval $blah = 7 RSeven
TestVal $blah = 8 REight
TESTVAL $blah = 9 RNine
TestVal $blah = 10 RTen 

# RONE
$File1 = $filea
$signum = 1
go SIGX

# RTWO
$file1 = $FILEB
$signum = 2
go SIGX

# RTHREE
$file1 = $filec
$signum = 3
go SIGX

# RFOUR
$file1 = $Filed
$signum = 4

go SIGX

# RFIVE
$File1 = $filee
$signum = 5
go SIGX

# RSix 
$File1 = $filef
$signum = 6
go SIGX

# RSeven
$File1 = $fileg
$signum = 7
go SIGX

# REight
$File1 = $fileh
$signum = 8
go SIGX

# RNine
$File1 = $filei
$signum = 9
go SIGX

# RTen 
$File1 = $filej
$signum = 10
go SIGX

# SIGX

$TEMP1 = $path & "B" & $PORT         
$Temp2 = $temp1 & ".TMP"                      

checkfile $sze $temp2
ifval $sze = 0
   tr "-AutoSignature Professional 2.02 0:U NO MESSAGE TO SAVE"
   go end
endif

checkfile $sze $file1
ifval $sze = 0
 go ENDNO
endif

# begin
Open $FILE1 input
Read $line1
read $line2
read $line3
close
Test $line1 = "" ENDNO
Test $line2 = "" ONE_LINE
TeSt $line3 = "" TWO_LINE 

Open $temp2 append
write " "
Write $line1
Write $line2
Write $line3
write "-ÄÄÄÄB[3FiXxB]-ÄÄÄÄÄAutoSignature Professional Version 2.02ÄÄÄÄÄÄÄÄ[CTP]'95Ä"
Write "-" $Tag

Close
go end

# ONE_LINE
open $temp2 append
write " "
Write $line1                                                                    
write "-ÄÄÄÄB[3FiXxB]-ÄÄÄÄÄAutoSignature Professional Version 2.02ÄÄÄÄÄÄÄÄ[CTP]'95Ä"
Write "-" $Tag

close
go end

# TWO_LINE
open $temp2 append
write " "
write $line1
write $line2
write "-ÄÄÄÄB[3FiXxB]-ÄÄÄÄÄAutoSignature Professional Version 2.02ÄÄÄÄÄÄÄÄ[CTP]'95Ä"
Write "-" $Tag

close
go end

# ENDNO
tr "-AutoSignature Professional 2.02 0:U SIGNATURE " $signum " NOT CONFIGURED"
go systag

# NAH
tr "-AutoSignature Professional 2.02 0:U TURNED OFF - NOT ADDED"
go systag

# END

tr "-AutoSignature Professional 2.02 0:U AUTOSIGNATURE ADDED TO MESSAGE"

go systag

# systag

ifval $max5 <> 0 then
tr "-AutoSignature Professional 2.02 0:U " $max5 " CONFIGURED USER TAGLINES - USING # " $line
ENDIF
$areatype = "C:\VBBS\AUTO\AREATYPE.CFG"

open $areatype input
read $area
close

testval $area = 1 include
testval $area = 2 exclude
testval $area = 3 no_tag
testval $area = 4 test_net

# include

$include = "C:\VBBS\AUTO\INCLUDE.MSG"

open $include input
read $subname

test $subname = $DBNAME test_net
test $subname = "!EOF!" no_tag
test $subname = "" no_tag

go include

# exclude

$exclude = "C:\VBBS\AUTO\EXCLUDE.MSG"

open $exclude input
read $subname
test $subname = $DBNAME no_tag
test $subname = "!EOF!" test_net
test $subname = "" test_net

go exclude

# TEST_NET

close


$asciiarea = "C:\VBBS\AUTO\NOANSI.CFG"
checkfile $sze $asciiarea
testval $sze = 0 tag

# pasta

open $asciiarea input
read $subname
test $subname = $DBNAME NO_ANSi
test $subname = "!EOF!" tag
test $subname = "" tag

go pasta

# TAG 

close

$systag = "C:\VBBS\AUTO\SYSTAG.NUM"

open $systag input
read $MAX7
close

ifval $max7 = 1 then
go chch
ENDIF
Test $max7 = "0" NO_TAG
Test $max7 = "!EOF!" NO_TAG
Test $max7 = "" NO_TAG

  $MAX = $MAX7 RND 1
$FileX = "C:\VBBS\TXT\TAGLINE." & $MAX
go com
# chch
$FileX = "C:\VBBS\TXT\TAGLINE.1" 
# com

checkfile $sizey $fileX
ifval $sizey = 0
! go no_tag
 go TAG
endif

$TEMP1 = $path & "B" & $PORT         
$Temp2 = $temp1 & ".TMP"                      
Open $filex Input
Read $a
Read $b
Read $c
close
test $a = "!EOF!" NO_TAG
Test $B = "!EOF!" ONE_TAG_LINE
Test $C = "!EOF!" TWO_TAG_LINE
open $temp2 append
write " "
write $a
write $b
write $c
close
go end2

# ONE_TAG_LINE
open $temp2 append
write " "
write $a
close
go end2

# TWO_TAG_LINE
open $temp2 append
write " "
write $a
write $b
close
go end2

# END2

ifval $security >= 255 then
tr "-AutoSignature Professional 2.02 0:U " $max7 " CONFIGURED SYSTEM TAGLINES - ADDED # " $max 
ENDIF

Exit

# NO_TAG

ifval $security >= 255 then

tr "-AutoSignature Professional 2.02 0:U SAVING WITH NO SYSTEM TAGLINE"

test $max = "" no_mess

tr "-AutoSignature Professional 2.02 0:U TAGLINE " $max " NOT CONFIGURED"

ENDIF

exit

# NO_MESS

exit

# NO_ANSi

$temp1 = $path & "B" & $PORT         
$temp2 = $temp1 & ".TMP"                      

$nonansiarea = "C:\VBBS\AUTO\NOANSI.MSG"

open $nonansiarea input
Read $line2
Read $line3
Read $line4
close

$l1 = $line2
$l2 = $line3
$l3 = $line4

Test $L1 = "!EOF!" NOANS_TAG
Test $L2 = "!EOF!" ONE_TAG_LA
Test $L3 = "!EOF!" TWO_TAG_LB
open $temp2 append
write " "
write $l1
write $l2
write $l3

close
go end2

# ONE_TAG_LA
open $temp2 append
write " "
write $l1

close
go end2

# TWO_TAG_LB
open $temp2 append
write " "
write $l1
write $l2

close
go end2

# NOANS_TAG

exit