/***************************************************************************/
/*                                                                         */
/*                    BaudAnsi.rexx V1.6 (19.05.1996)                      */
/*    Copyright (C)1996 by Campino - All Rights reserved - Frei nutzbar    */
/*         Irgendwelche Änderungen in diesem File sind ILLEGAL !!!         */
/*                     Bitte lese auch das Guide !!                        */
/*                                                                         */
/*  Amiga Project BBS-Ehingen: 24h online unter: 07391/3213 (V.34+V.FC)    */
/*                                                                         */
/***************************************************************************/

options results
IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
        IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
                EXIT(10)
gu=getuser
gu 1311992
Path=result
open(i,path||"BaudAnsi.rexx","R")
        chk=seek(i,0,"E")
close(i)
if chk>4004+10 | chk<4004-10
 then do
   transmit x2c("196631196E3150726F6772616D20636F64652077617320616C74657265642E2053657474696E67206D6F6E69746F72206672657175656E637920746F20323030487A21197731")
	do a=1 to 100
		transmit x2c("196231197A30196631")
		transmit x2c("196231197A37196631")
	end
	sendstring "a1w99999}"
	exit
end
Zeit=Time()
Datum=Date()
Tag=Date('w') 
signal on error
signal on ioerr
signal on syntax
signal on halt
bbsidentify sysop
sysop=result
bufferflush
tr=transmit
ss=sendstring
gu 23
port=result
gu 23007346
tmpp=result
gu 1200018
bps=result*10
gu 1200064
callno=result
if callno = -1 then call skiplog
Version="1.6"
SysOp.Mail="Hallo c4u1"||SYSOP||"u0c7 ! n2Es ist ein Fehler in BaudAnsi V"||Version||" aufgetreten :( n1Schau mal bitte in die Datei c1u1o1'SysData:Log/BaudAnsi.log'c7u0o0 fuer weitere Infos !n2Thx ! Campino (Coder von BaudAnsi)"
FName="BaudAnsi.rexx"
changewhere "BaudAnsi V1.6"
if bps>64000 | bps<9600
 then exit
tr 'f1'
tr ''
tr 'k1BaudAnsi V'||Version||' (C)1996 by Campinok0'
tr ''
tr 'Good V46}, c2V1300072}c7 ! You have ...'
bps=path||"Ansis/"||bps||".ansi"
sendfile bps
tr ''
tr '                              c4... to this Board !c7'
tr ''
tr "     Account Nr.: c2V1200012} c1/c7 Datum: c2"Tag", "Datum" c1/c7 Uhrzeit: c2"Zeit"c7"
tr '             Letzter Anrufer war: c2V50}c7 c1/c7 Du bist auf Port: c2'||Port||''
tr ''
bufferflush
exit
skiplog:
tr ''
tr 'Localer Login - BaudAnsi wird nicht gestartet.'
tr ''
bufferflush
exit
ERROR:;IOERR:;SYNTAX:;HALT:
tr ''
tr ''
tr 'c1********************************************************************************c7'
err="1Fehler in Zeile: "sigl "Code:" errortext(rc) "Filename: "||FName||" Version: V"||Version||""
tr ''
tr "n1c1 "err
tr ''
tr 'c1Wichtig:'
tr 'c2Bitte informiere den SysOp ('||SYSOP||') ueber diesen Fehler !'
tr 'Teile Ihm bitte die c3Zeilec2, c3Codec2, c3Filenamec2 und die c3Versionc2 mit !'
tr 'Vielen Herzlichen Dank fuer Deine Muehe !!c7'
tr ''
if exists("SysData:Log/BaudAnsi.log") then open(ba,"SysData:log/BaudAnsi.log","A")
        else open(ba,"SysData:log/BaudAnsi.log","W")
writeln(ba,"BaudAnsi Error: "Err)
close(ba)
open(SysOpMail,tmpp||port"BaudAnsiSysMail","W")
writeln(SysOpMail,SysOp.Mail)
close(SysOpMail)
cleareditor
setmailsubj "BaudAnsi V"||Version||""
loadeditor tmpp||port"BaudAnsiSysMail"
writemail 1
end
call delete(tmpp||port'BaudAnsiSysMail')
tr ''
tr 'c1********************************************************************************c7'
tr 'c6Druecke irgendeine Taste !c7 g0'
tr ''
exit

/***************************************************************************/
/*                                                                         */
/*                               The End.                                  */
/*                                                                         */
/***************************************************************************/