From: Mark Hickenbottom Subject: InterSLIPRedialScript2; InterSLIP Dialing Script for all Modems InterSLIPRedialScript2 is a dialing script (CCL) for InterSLIP. It is far better than the built-in script in that it works better with all modems, displays status and error messages, hangs up properly, and redials when busy. Version 2 adds a quick disconnect and changes the format to SimpleText. Open the script to view the documentation and script comments. Put in System Folder:Preferences:InterSLIP Folder:Dialing Scripts. !Redial 2.0 © 1994-1995 Snap Systems, snap@netcom.com, on 95-07-29 !this may be freely distributed as long as copyright message not modified !redial is a dialing script for InterSLIP written by Mark Hickenbottom !InterSLIPRedialScript2 is a dialing script (CCL) for InterSLIP. It is far better than the built-in script in that it works better with all modems, displays status and error messages, hangs up properly, and redials when busy. Version 2 adds a quick disconnect and changes the format to SimpleText. Open the script to view the documentation and script comments. Put in System Folder:Preferences:InterSLIP Folder:Dialing Scripts. !put in System Folder:Preferences:InterSLIP Folder:Dialing Scripts !tip for bad modems in modem banks: !if you hear a bad modem connection, !disconnect and then reconnect as fast as possible !this may pass over the bad modem while it's still negotiating a connection !advantages over the built-in script: !1: Written specifically for InterSLIP (not an ARA script). !2: Comments included in the script for anyone who wishes to modify the script. !3: Compatible with all modems, including older modems with fast computers. !4: Informs the user to connect and power on the modem, if needed. !5: Informs the user to connect the phone line, if needed. !6: Shows the phone number when dialing. !7: Shows the connect rate when connected. !8: Shows the error message if any. !9: Hangs up and turns off the status lights when done. !10: And most important: Redials when the line is busy! !new for version 2.0: !hangs up *much* faster, about twice as quick !all matchstr's changed to matchexp's, which work *much* better !all numeric labels changed to text labels !script now saved in SimpleText format for easy viewing and modifying !added information on more resources for info, and init strings !changed dial routine to check for NO DIAL rather than NO DIALTONE !because some modems return NO DIAL TONE with a space between dial and tone !for more info on scripts, interslip, or tia: !Apple Remote Access Modem Toolkit from APDA, 800-282-2732 or 716-871-6555 !ccl_guide at http://seds.lpl.arizona.edu/billa/tia/ccl_guide.txt (dupe of interslip docs) !InterSLIP Docs at ftp://ftp.intercon.com/intercon/sales/InterSLIP/InterSLIPInstaller !many ARA scripts at ftp://ftp.intercon.com:intercon/support/InterSLIPStuff/CCLs !interslip tech support page at http://www.intercon.com/techsupport/InterSlip1.html !Mac TIA web page at http://marketplace.com/tia/tiahome.html !Mac TIA FAQ at http://seds.lpl.arizona.edu/billa/tia/faq.html#mail !try AT&F1 or AT&F for your modem init string !adding S11=35 (to make AT&F1S11=35) makes your modem dial much quicker !if that doesn't work, try one of the following !Express Modem ! Quadra 840av/GeoPort Š AT&F ! Duo 230 Š AT&FS0=0S37=9V1E0H0X4W0&Q5\V1 ! Duo 270c Š AT&F !FM 14400 Š AT&F1\Q0%C0 !GV Teleport Gold Š AT&F1 ! LCIII Š AT&F1M0&K3%C0\Q3\N0\G0"H0 !GV Teleport Gold II Š AT&F1 !GV Powerport Mercury ! Duo Š AT&F !USR Sportster V.34 Š AT&F1 ! Š ATS27=32&N12 !USR Mac&Fax 28.8 Š ATQ0E0V1X4&FD0&H1&K2 !USR Mac&Fax 14.4 Š AT&F1&D0 ! Š AT&a0&b1&k1&h1&i0&r2 !SupraFAXModem 144LC Š AT&F1 !LineLink144e Š AT&F&C1M0 ! Š ATX3E1&D2&Q5\N5%C0\Q3L3 !Infotel 14.4 Š AT&F&D2&Q5\N3 !ZOOM VFX V.32bis 9600 Š AT&K0%C0 ! Š AT&FL1%C0S11=50 ! Š AT&F !Telebit T3000 Š AT&FS28=2 @ORIGINATE write "^4M^2\13" matchclr matchexp 1 dial "OK" matchread 10 note "Connect and turn on modem." pause 30 exit -1 !writes the initialization string ^4 stored in InterSLIP to modem !writes the speaker string ^2 which has the value 0 or 1 !matchclr clears all buffers !matchexp is form: matchexp !matchexp sets up buffer but does not jump !matchread waits for match and jumps to if match !pause for notes, escape guard times, and other uses ! is in tenths of a second, 10=1 second, 30=3 seconds !exit 0 for exiting script with no error, error for exiting with error @DIAL write "ATDT^1\13" matchclr matchexp 1 busy "BUSY" matchexp 2 okay "CONNECT ....." matchexp 3 error "ERROR" matchexp 4 error "NO ANSWER" matchexp 5 error "NO CARRIER" matchexp 6 dialtone "NO DIAL" note "Redial 2.0 is freely distributable." pause 10 note "©94-5 Snap Systems snap@netcom.com" pause 10 note "Dialing ^1" matchread 600 note "No response from modem." pause 30 exit -1 !dials the number ^1 stored in InterSLIP and jumps according to response !matchexp similar to matchstr except periods match any character !matchexp stores result in ^0 !any notes must come after matchexp's !otherwise, routine would repeat if user clicks disconnect before matchexp !match read 600 waits 60 seconds to match an expression !if no match in 60 seconds, stops with error "no response" @BUSY note "Busy. Redialing momentarily..." pause 30 jump dial @DIALTONE note "No dialtone. Check your phone cord." pause 30 exit -1 @ERROR note "^0" pause 1 exit -1 !displays the result ^0 stored by matchexp such as NO CARRIER !pause is very short to let the user quickly click reconnect !to try to pass over a bad modem in a chain of modems @OKAY note "^0" pause 1 exit 0 !displays the result ^0 stored by matchexp such as CONNECT 57600 or OK !the pause value must not be increased, or the log in prompt may be missed @HANGUP pause 11 write "+++" pause 11 write "ATH0\13" matchclr matchexp 1 okay "OK" matchread 10 jump okay !matchexp works much better than matchstr during the hangup routine !one second pause is required for the escape guard time !escape guard time is the delay required between the last byte written and +++ !pauses are in 10ths of seconds, so 11 would be 1.1 seconds !1.1 seconds used for escape guard time of 1 second, for better reliability !incorrect InterSLIP documentation states pauses are in 60ths