--------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00001 Date: 01/05/96 From: MARK BAINTER Time: 07:48pm \/To: RICK HODGENS (Read 6 times) Subj: Mail Script @1:116/30 RH> MB> I use a script. Actually, I use a script to do my entire mail RH> MB> transfer usually. RH>Mark, This is something I'd like in my TM directory. Did you have RH>to write the script manually, with a text editor,... or can TM RH>"learn" and compile it? Well, actually I use learn then a text editor. When you make learn scripts you have to go through the script and remove any references to the date, time or other variables that might not always be the same. For example, let's say a bbs's prompt is : Main Menu - [01/05/96:00:31] 21 MIN Left >>>>> A little extravagant I'll admit but it suits my purpose. When you finish the learn script you have to look for the lines that contain the prompt in the filename.scr file. Waitfor "enu - [01/05/96:00:31] 21 MIN Left >>>>> " put "T"; Well, it isn't always going to be 1/5/96 or shortly after midnight when you call. and you aren't always going to have 21 min left when it reaches this point. So, you edit out everything to the right of the last static item. in this case, the left bracket. waitfor "enu - [" alternately you could take everything to the right of the last variable item as well. waitfor " MIN Left >>>>> " here is a script I use for a local wildcat system. ; ;Telemate Learn Script generated on 7-25-95 ; ; Send Replies, delete old replies, get mail, disconnect, Exit Telemate. ; Waitfor 0 ; wait until string matched Set AutoStop,On Dial "1 2" Waitfor "What is your first name? " Put "!Mark Bainter^M", ; The ! jumps to qwk menu in WildCat! Waitfor "ssword? [ ]" Put "^&^M", ;Send password from directory field FILENAME="C:\cmpqwk\OUT\Betacon.REP" ;filename to send. REPLY=0 FILEEXIST FILENAME, REPLY IF REPLY Waitfor "wcMAIL command? [ ]" ; if the file is there then send it Put "u", Delay 50 Send "Z", FileName IF SUCCESS DELETE FileName ; if it completes then delete it. ENDIF ENDIF Waitfor "wcMAIL command? [ ]" ; Download new mail. Put "d", Waitfor "[Y]" ; goodbye when done. put "G", Waitfor "wcMAIL command? [ ]" ; Hmm. Don't recall Put "g", Waitfor "onds until disconnect: 10" ; when finished trans.hangup imm. Put "h", ExitTelemate ; exit telemate. (duh. ) I use exit telemate so I can put the whole thing in a nightly run. (i.e. cd\tm tm betacon cd\ ndd /c ... speedisk ... tbscan ... etc.... ) Mark Bainter === serendipity isn't just when you're overrewarded for reasonable effort, like when you dig for worms and strike gold. It's also when you're cleaning your gun, which you've stupidly forgotten to unload, and it goes off unexpectedly, hitting the burgular you didn't see right between the eyes --- . CMPQwk #1.42-R2. UNREGISTERED EVALUATION COPY * Origin: The Computer Nut BBS, Elkhart,IN (1:2285/80) --------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00002 Date: 01/05/96 From: MARK BAINTER Time: 07:48pm \/To: BENJAMIN SCOTT (Read 6 times) Subj: Status? @1:324/127 BS> Actually, I prefer Turbo Pascal as my language of choice. BS>Obviously the end product will be a TMS file, but I can use Pascal BS>source if you have it. :) . BS>Talk to you later! BS>. I thought I saw someone give you some info, So I didn't look. I will keep looking, but this is what I was able to kick up right away from GDSOFT. (The Swag Distribution board.) ======================== Cut Here ================================= (* Hope ya don't mind me responding via NetMail instead of the Pascal echo but as you may have noticed the code takes 6 messages! The following code is "fairly" EMSI compatible (not sure if it's IEMSI compatinle but it should be). *) {********* Part 1 of 6 ****************************************} Uses DOS,CRT; Type HexString = String[4]; Const FingerPrint = '{EMSI}'; System_Address = '3:690/626.6'; { Your address } Password = 'ABCD1234'; { Session password } Link_Codes = '{8N1}'; { Modem setup } Compatibility_Codes = '{ZMO}'; { Z-Modem } Mailer_Product_Code = '{00}'; Mailer_Name = 'PM'; Mailer_Version = '1.00'; Mailer_Serial_Number = '{Beta}'; EMSI_INQ : String = '**EMSI_INQC816'; EMSI_REQ : String = '**EMSI_REQA77E'; EMSI_ACK : String = '**EMSI_ACKA490'; EMSI_NAK : String = '**EMSI_NAKEEC3'; Var EMSI_DAT : String; { NOTE : EMSI_DAT has no maximum length } Length_EMSI_DAT : HexString; { Expressed in Hexidecimal } Packet : String; Rec_EMSI_DAT : String; { EMSI_DAT sent by the answering system } Len_Rec_EMSI_DAT : Word; Len, CRC : HexString; R : Registers; C : Char; Loop,ComPort,TimeOut,Tries : Byte; Temp : String; {**** String functions ****} Function Up_Case(St : String) : String; Begin For Loop := 1 to Length(St) do St[Loop] := Upcase(St[Loop]); Up_Case := St; End; {**** Mathematical Functions ****} function Hex(i : Word) : HexString; const hc : array[0..15] of Char = '0123456789ABCDEF'; var l, h : Byte; begin l := Lo(i); h := Hi(i); Hex[0] := #4; { Length of String = 4 } Hex[1] := hc[h shr 4]; Hex[2] := hc[h and $F]; Hex[3] := hc[l shr 4]; Hex[4] := hc[l and $F]; end {Hex} ; Function Power(Base,E : Byte) : Longint; Begin Power := Round(Exp(E * Ln(Base) )); End; (Continued next message...) --- PCBoard (R) v15.22/M 2 * Origin: The Computer Nut BBS, Elkhart,IN (1:2285/80) --------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00003 Date: 01/05/96 From: MARK BAINTER Time: 07:48pm \/To: BENJAMIN SCOTT (Read 6 times) Subj: Telemate for Windows 95 BS>-=> Quoting Ed Bailey to Benjamin Scott <=- BS> EB> Another one - who can't read - the request was for a Windows 95 BS> EB> version - NOT a Windows version. In fact I to am a registered BS> Windows 95 is a joke. It's enough that there is a Windows version BS>of Telemate, does there have to be a separate version just for MS's BS>user interface upgrade to their DOS-based GUI? Meanwhile, OS/2 BS>users, with a true 32-bit OS, are stuck out in the cold with no BS>version of Telemate except the DOS one. That's my problem. :) BS>. Stop, you're breaking my heart. Maybe if the company that made your wonderful OS would learn how to market their software and update their company to at least the 70's they would get a larger market share and more people would write compatible applications... --- . CMPQwk #1.42-R2. UNREGISTERED EVALUATION COPY * Origin: The Computer Nut BBS, Elkhart,IN (1:2285/80) --------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00004 Date: 01/04/96 From: DARR HOAG Time: 11:36pm \/To: WES MILLS (Read 6 times) Subj: Couple problems *** On 01 Jan 96 00:57, Wes Mills did say (to Darr Hoag,) this: > Nope. Sorry. Tried that one, too. :) Any other good suggestions? No, other than restating your keyboard problem in a msg here To: Winfred Hu ... all I really need to know I learned in taglines --- Blue Wave/386 v2.22b * Origin: The Hideaway! - TM Dist - HST,VFC,V34+ - 517-569-2332 - (1:2330/4) --------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00005 Date: 01/05/96 From: MARK BAINTER Time: 01:16am \/To: RICK HODGENS (Read 6 times) Subj: Mail Script @1:116/30 RH> MB> I use a script. Actually, I use a script to do my entire mail RH> MB> transfer usually. RH>Mark, This is something I'd like in my TM directory. Did you have RH>to write the script manually, with a text editor,... or can TM RH>"learn" and compile it? Well, actually I use learn then a text editor. When you make learn scripts you have to go through the script and remove any references to the date, time or other variables that might not always be the same. For example, let's say a bbs's prompt is : Main Menu - [01/05/96:00:31] 21 MIN Left >>>>> A little extravagant I'll admit but it suits my purpose. When you finish the learn script you have to look for the lines that contain the prompt in the filename.scr file. Waitfor "enu - [01/05/96:00:31] 21 MIN Left >>>>> " put "T"; Well, it isn't always going to be 1/5/96 or shortly after midnight when you call. and you aren't always going to have 21 min left when it reaches this point. So, you edit out everything to the right of the last static item. in this case, the left bracket. waitfor "enu - [" alternately you could take everything to the right of the last variable item as well. waitfor " MIN Left >>>>> " here is a script I use for a local wildcat system. ; ;Telemate Learn Script generated on 7-25-95 ; ; Send Replies, delete old replies, get mail, disconnect, Exit Telemate. ; Waitfor 0 ; wait until string matched Set AutoStop,On Dial "1 2" Waitfor "What is your first name? " Put "!Mark Bainter^M", ; The ! jumps to qwk menu in WildCat! Waitfor "ssword? [ ]" Put "^&^M", ;Send password from directory field FILENAME="C:\cmpqwk\OUT\Betacon.REP" ;filename to send. REPLY=0 FILEEXIST FILENAME, REPLY IF REPLY Waitfor "wcMAIL command? [ ]" ; if the file is there then send it Put "u", Delay 50 Send "Z", FileName IF SUCCESS DELETE FileName ; if it completes then delete it. ENDIF ENDIF Waitfor "wcMAIL command? [ ]" ; Download new mail. Put "d", Waitfor "[Y]" ; goodbye when done. put "G", Waitfor "wcMAIL command? [ ]" ; Hmm. Don't recall Put "g", Waitfor "onds until disconnect: 10" ; when finished trans.hangup imm. Put "h", ExitTelemate ; exit telemate. (duh. ) I use exit telemate so I can put the whole thing in a nightly run. (i.e. cd\tm tm betacon cd\ ndd /c ... speedisk ... tbscan ... etc.... ) Mark Bainter === serendipity isn't just when you're overrewarded for reasonable effort, like when you dig for worms and strike gold. It's also when you're cleaning your gun, which you've stupidly forgotten to unload, and it goes off unexpectedly, hitting the burgular you didn't see right between the eyes --- . CMPQwk #1.42-R2. UNREGISTERED EVALUATION COPY * Origin: The Computer Nut BBS, Elkhart,IN (1:2285/80) --------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00006 Date: 01/05/96 From: MARK BAINTER Time: 01:16am \/To: BENJAMIN SCOTT (Read 6 times) Subj: Status? @1:324/127 BS> Actually, I prefer Turbo Pascal as my language of choice. BS>Obviously the end product will be a TMS file, but I can use Pascal BS>source if you have it. :) . BS>Talk to you later! BS>. I thought I saw someone give you some info, So I didn't look. I will keep looking, but this is what I was able to kick up right away from GDSOFT. (The Swag Distribution board.) ======================== Cut Here ================================= (* Hope ya don't mind me responding via NetMail instead of the Pascal echo but as you may have noticed the code takes 6 messages! The following code is "fairly" EMSI compatible (not sure if it's IEMSI compatinle but it should be). *) {********* Part 1 of 6 ****************************************} Uses DOS,CRT; Type HexString = String[4]; Const FingerPrint = '{EMSI}'; System_Address = '3:690/626.6'; { Your address } Password = 'ABCD1234'; { Session password } Link_Codes = '{8N1}'; { Modem setup } Compatibility_Codes = '{ZMO}'; { Z-Modem } Mailer_Product_Code = '{00}'; Mailer_Name = 'PM'; Mailer_Version = '1.00'; Mailer_Serial_Number = '{Beta}'; EMSI_INQ : String = '**EMSI_INQC816'; EMSI_REQ : String = '**EMSI_REQA77E'; EMSI_ACK : String = '**EMSI_ACKA490'; EMSI_NAK : String = '**EMSI_NAKEEC3'; Var EMSI_DAT : String; { NOTE : EMSI_DAT has no maximum length } Length_EMSI_DAT : HexString; { Expressed in Hexidecimal } Packet : String; Rec_EMSI_DAT : String; { EMSI_DAT sent by the answering system } Len_Rec_EMSI_DAT : Word; Len, CRC : HexString; R : Registers; C : Char; Loop,ComPort,TimeOut,Tries : Byte; Temp : String; {**** String functions ****} Function Up_Case(St : String) : String; Begin For Loop := 1 to Length(St) do St[Loop] := Upcase(St[Loop]); Up_Case := St; End; {**** Mathematical Functions ****} function Hex(i : Word) : HexString; const hc : array[0..15] of Char = '0123456789ABCDEF'; var l, h : Byte; begin l := Lo(i); h := Hi(i); Hex[0] := #4; { Length of String = 4 } Hex[1] := hc[h shr 4]; Hex[2] := hc[h and $F]; Hex[3] := hc[l shr 4]; Hex[4] := hc[l and $F]; end {Hex} ; Function Power(Base,E : Byte) : Longint; Begin Power := Round(Exp(E * Ln(Base) )); End; (Continued next message...) --- PCBoard (R) v15.22/M 2 * Origin: The Computer Nut BBS, Elkhart,IN (1:2285/80) --------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00007 Date: 01/05/96 From: MARK BAINTER Time: 01:17am \/To: BENJAMIN SCOTT (Read 6 times) Subj: Telemate for Windows 95 BS>-=> Quoting Ed Bailey to Benjamin Scott <=- BS> EB> Another one - who can't read - the request was for a Windows 95 BS> EB> version - NOT a Windows version. In fact I to am a registered BS> Windows 95 is a joke. It's enough that there is a Windows version BS>of Telemate, does there have to be a separate version just for MS's BS>user interface upgrade to their DOS-based GUI? Meanwhile, OS/2 BS>users, with a true 32-bit OS, are stuck out in the cold with no BS>version of Telemate except the DOS one. That's my problem. :) BS>. Stop, you're breaking my heart. Maybe if the company that made your wonderful OS would learn how to market their software and update their company to at least the 70's they would get a larger market share and more people would write compatible applications... --- . CMPQwk #1.42-R2. UNREGISTERED EVALUATION COPY * Origin: The Computer Nut BBS, Elkhart,IN (1:2285/80) --------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00008 Date: 01/05/96 From: JONATHAN ROBERTS Time: 10:21pm \/To: ANDY BESSER (Read 6 times) Subj: Help File w/ TM.DOC Re: Help File w/ TM.DOC > Someone made a post awhile back that had a way of using TM.DOC with > the help file. I forgot to copy it down and now the message has been > killed. I f someone could post that again, I would greatly appreciate > it... it was a great idea. Thanks. > ......Andy Lemme take a stab, copy tm.doc & tm.hlp tm.hlp OR ren tm.doc tm.hlp. Sounds good to me! ]=- Origin -=[ Blast From The Past BBS ]=- (504)457-0332 -=[ Metairie,LA. ]=- --- VFIDO 6.20.00 Gamma Candidate 9 * Origin: Blast From The Past (1:396/48) --------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00009 Date: 01/06/96 From: JEFF COLE Time: 12:12am \/To: ALL (Read 6 times) Subj: I would like to just take a minute and thank everyone for their help with my problem of Telemate not being able to open TM.RES. All of the answers were very helpful! Once again, I thank everyone who sent me a reply. Thank You! ... URA Redneck if you think a subdivision is part of a math problem. --- * Tag-X Pro v1.40 * ___ Blue Wave/QWK v2.20 [NR] --- GEcho 1.00 * Origin: Joe's Place * (410) 551-2839 * Severn, Maryland (1:261/1416) --------------- FIDO MESSAGE AREA==> TOPIC: 177 TELEMATE Ref: D1A00010 Date: 01/06/96 From: DARR HOAG Time: 12:42pm \/To: ANDY BESSER (Read 6 times) Subj: Help File w/ TM.DOC *** On 04 Jan 96 08:06, Andy Besser did say (to All,) this: > Someone made a post awhile back that had a way of using TM.DOC > with the help file. I forgot to copy it down and now the message has Hmmm.... do you mean this one? : > As it is, I have to hop out of TM and go to a word processor to get > any use at all from what documentation is provided. Huh? Why not just pop it into TM's View window? It has a 'search' command. So does the Edit window.... but why open/lock another file for that? I'd think you could even make a macro to load the doc file in View. --- Blue Wave/386 v2.22b * Origin: The Hideaway! - TM Dist - HST,VFC,V34+ - 517-569-2332 - (1:2330/4)