-
-
Save Manawyrm/c0d5e29703ec57d3f27571d08aeb5624 to your computer and use it in GitHub Desktop.
AOLnet dialup script from AOL 3.0
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| !---------------------------------------------------------------------- | |
| ! AOLNET.CCL | |
| !---------------------------------------------------------------------- | |
| Title "AOLnet" | |
| ID 4 | |
| DriverType 1 | |
| -Label 0 { Label 0 } | |
| IfConnects 2 1 | |
| Revision 1 { Set the Revision Level } | |
| DsplyMsg Step 1: Initializing modem ... | |
| CanBtn 41 { If cancel button - just exit } | |
| SetTries 0 { Initialize Tries to 0 } | |
| ChrDelay 2 { Initialize Character Delay } | |
| SerReset ~BAUD 0 8 1 { Set the Baud Rate } | |
| HSReset 0 0 17 19 { Reset } | |
| DsplyPic 1 { Display Picture 1 } | |
| MdmSetup { Send out user's premodem init string } | |
| MatchStr 1 2 ~CMDOK { Look for "OK" } | |
| MatchStr 2 49 ~CMDERR { Look for "ERROR" } | |
| wait 400 | |
| Jump 2 | |
| -Label 1 { Label 0 } | |
| Revision 1 { Set the Revision Level } | |
| DsplyMsg ~ERCD, trying second number | |
| wait 500 { Display first try error message } | |
| DsplyMsg Step 1: Initializing modem ... | |
| CanBtn 41 { If cancel button - just exit } | |
| SetTries 0 { Initialize Tries to 0 } | |
| ChrDelay 2 { Initialize Character Delay } | |
| SerReset ~BAUD 0 8 1 { Set the Baud Rate } | |
| HSReset 0 0 17 19 { Reset } | |
| DsplyPic 1 { Display Picture 1 } | |
| MdmSetup { Send out user's premodem init string } | |
| MatchStr 1 2 ~CMDOK { Look for "OK" } | |
| MatchStr 2 49 ~CMDERR { Look for "ERROR" } | |
| wait 400 | |
| -Label 2 { Label 1 } | |
| Flush { Clear the Inbound/Outbound Buffers } | |
| MatchStr 1 3 ~CMDESC { Look for "+++" } | |
| MatchStr 2 3 ~CMDOK { Look for "OK" } | |
| MdmEsc { Get the modems attention } | |
| Wait 200 { Pause for 2 seconds, minimum gap required } | |
| { The Wait will then look at the MatchStr(s) } | |
| -Label 3 { Label 2 } | |
| MatchStr 1 4 ~CMDOK { Look for "OK" } | |
| MatchStr 2 53 ~CMDERR { Look for "ERROR" } | |
| MdmDisc { Disconnect } | |
| { Jump to label #3 if we see 'OK' go by } | |
| Wait 200 { wait for 'OK' from modem } | |
| Jump 53 { Exit stage left...time out error on modem } | |
| -Label 4 { Label 3 } | |
| DsplyMsg Step 2: Dialing ~PRFX~CLWT~FONE ... | |
| MatchStr 1 53 ~CMDERR { ALWAYS look for "ERROR" } | |
| MatchStr 2 57 ~NCTIMEOUT { ALWAYS look for "TIMEOUT" } | |
| MatchStr 3 25 CARRIER { Look for "CARRIER" } | |
| MatchStr 4 11 CONNECT 12. { Look for "CONNECT 12000" } | |
| MatchStr 5 12 CONNECT 14. { Look for "CONNECT 14400" } | |
| MatchStr 6 13 CONNECT 16. { Look for "CONNECT 16800" } | |
| MatchStr 7 14 CONNECT 19. { Look for "CONNECT 19200" } | |
| MatchStr 8 15 CONNECT 21. { Look for "CONNECT 21600" } | |
| MatchStr 9 16 CONNECT 24. { Look for "CONNECT 24000" } | |
| MatchStr 10 17 CONNECT 26. { Look for "CONNECT 26400" } | |
| MatchStr 11 18 CONNECT 28. { Look for "CONNECT 28800" } | |
| MatchStr 12 21 CONNECT 31. { Look for "CONNECT 31200" } | |
| MatchStr 13 22 CONNECT 33. { Look for "CONNECT 33600" } | |
| MatchStr 14 19 CONNECT 38. { Look for "CONNECT 38400" } | |
| MatchStr 15 20 CONNECT 57. { Look for "CONNECT 57600" } | |
| MatchStr 16 5 CONNECT 300 { Look for "CONNECT 300" } | |
| MatchStr 17 6 CONNECT 1200 { Look for "CONNECT 1200" } | |
| MatchStr 18 7 CONNECT 2400 { Look for "CONNECT 2400" } | |
| MatchStr 19 8 CONNECT 4800 { Look for "CONNECT 4800" } | |
| MatchStr 20 9 CONNECT 7200 { Look for "CONNECT 7200" } | |
| MatchStr 21 10 CONNECT 9600 { Look for "CONNECT 9600" } | |
| MatchStr 22 11 CONNECT 12000 { Look for "CONNECT 12000" } | |
| MatchStr 23 12 CONNECT 14400 { Look for "CONNECT 14400" } | |
| MatchStr 24 13 CONNECT 16800 { Look for "CONNECT 16800" } | |
| MatchStr 25 14 CONNECT 19200 { Look for "CONNECT 19200" } | |
| MatchStr 26 15 CONNECT 21600 { Look for "CONNECT 21600" } | |
| MatchStr 27 16 CONNECT 24000 { Look for "CONNECT 24000" } | |
| MatchStr 28 17 CONNECT 26400 { Look for "CONNECT 26400" } | |
| MatchStr 29 18 CONNECT 28800 { Look for "CONNECT 28800" } | |
| MatchStr 30 21 CONNECT 31200 { Look for "CONNECT 31200" } | |
| MatchStr 31 22 CONNECT 33600 { Look for "CONNECT 33600" } | |
| MatchStr 32 19 CONNECT 38400 { Look for "CONNECT 38400" } | |
| MatchStr 33 20 CONNECT 57600 { Look for "CONNECT 57600" } | |
| MatchStr 34 58 ~NCDIALTONE { Look for "NO DIALTONE" } | |
| MatchStr 35 51 ~NCANSWER { Look for "NO ANSWER" } | |
| MatchStr 36 54 ~NCVOICE { Look for "VOICE" } | |
| MatchStr 37 50 ~NCBUSY { Look for "BUSY" } | |
| MatchStr 38 55 ~NCCARRIER { ALWAYS look for "NO CARRIER" } | |
| SetTries 0 { Initialize Tries to 0 } | |
| CanBtn 40 { If cancel button hit, Jump to Label 40 } | |
| MdmDial ~TONE ~PRFX~CLWT~FONE { Dial the Number } | |
| { Don't forget that the Wait searches the } | |
| { MatchStr(s) just defined above. } | |
| Wait 4800 { Wait for CONNECT msg from modem } | |
| Jump 52 { Else hang up phone & exit } | |
| -Label 5 { Label 5 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 300 bps ... | |
| BaudSet 300 | |
| Jump 26 | |
| -Label 6 { Label 6 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 1200 bps ... | |
| BaudSet 1200 | |
| Jump 26 | |
| -Label 7 { Label 7 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 2400 bps ... | |
| BaudSet 2400 | |
| Jump 26 | |
| -Label 8 { Label 8 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 4800 bps ... | |
| BaudSet 4800 | |
| Jump 26 | |
| -Label 9 { Label 9 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 7200 bps ... | |
| BaudSet 7200 | |
| Jump 26 | |
| -Label 10 { Label 10 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 9600 bps ... | |
| BaudSet 9600 | |
| Jump 26 | |
| -Label 11 { Label 11 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 12000 bps ... | |
| BaudSet 12000 | |
| Jump 26 | |
| -Label 12 { Label 12 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 14400 bps ... | |
| BaudSet 14400 | |
| Jump 26 | |
| -Label 13 { Label 13 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 16800 bps ... | |
| BaudSet 16800 | |
| Jump 26 | |
| -Label 14 { Label 14 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 19200 bps ... | |
| BaudSet 19200 | |
| Jump 26 | |
| -Label 15 { Label 15 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 21600 bps ... | |
| BaudSet 21600 | |
| Jump 26 | |
| -Label 16 { Label 16 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 24000 bps ... | |
| BaudSet 24000 | |
| Jump 26 | |
| -Label 17 { Label 17 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 26400 bps ... | |
| BaudSet 26400 | |
| Jump 26 | |
| -Label 18 { Label 18 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 28800 bps ... | |
| BaudSet 28800 | |
| Jump 26 | |
| -Label 19 { Label 19 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 38400 bps ... | |
| BaudSet 28800 | |
| Jump 26 | |
| -Label 20 { Label 20 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 57600 bps ... | |
| BaudSet 28800 | |
| Jump 26 | |
| -Label 21 { Label 21 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 31200 bps ... | |
| BaudSet 28800 | |
| Jump 26 | |
| -Label 22 { Label 22 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at 33600 bps ... | |
| BaudSet 28800 | |
| Jump 26 | |
| -Label 25 { Label 25 } | |
| DsplyPic 2 { Display Picture 2 } | |
| DsplyMsg Step 3: Connecting at ~BAUD bps ... | |
| BaudSet 2400 | |
| -Label 26 { Label 26 } | |
| MatchStr 3 56 ~NCCARRIER { ALWAYS look for "NO CARRIER" } | |
| MatchStr 4 27 UQKT1 | |
| MatchStr 5 33 UQKT2 | |
| MatchStr 6 27 ANSNET@@LOGIN | |
| MatchStr 7 30 SATURN.BBN@@LOGIN | |
| MatchStr 8 33 SPRINT-IP@@USERNAME | |
| Wait 4800 { Wait for MatchStr to find Hit } | |
| Jump 52 { Jump Out } | |
| -Label 27 { Label 27 } | |
| DsplyMsg Step 4: Requesting network attention ... | |
| Xmit aol\13 { Send out AOL<CR> } | |
| DsplyMsg Step 5: Talking to network ... | |
| Jump 35 | |
| -Label 30 { Label 30 } | |
| DsplyMsg Step 4: Requesting network attention ... | |
| MatchStr 4 31 PASSWORD { Look for "PASSWORD" } | |
| Xmit aolnet\13 { Send out AOLNET<CR> } | |
| wait 4800 { Wait for the PASSWORD String } | |
| Jump 52 { Could not find "PASSWORD", jump to 52 } | |
| -Label 31 | |
| DsplyMsg Step 5: Talking to network ... | |
| Xmit A0L2aNet\13 | |
| Jump 35 | |
| -Label 33 | |
| DsplyMsg Step 4: Requesting network attention ... | |
| MatchStr 4 34 PASSWORD { Look for "PASSWORD" } | |
| Xmit aol\13 { Send out AOL<CR> } | |
| wait 4800 { Wait for the PASSWORD String } | |
| Jump 52 { Could not find "PASSWORD", jump to 52 } | |
| -Label 34 | |
| DsplyMsg Step 5: Talking to network ... | |
| Xmit aol\13 | |
| -Label 35 { Label 35 } | |
| DsplyMsg Step 6: Connecting to America Online ... | |
| DsplyPic 3 { Display Picture 3 } | |
| MatchStr 4 36 CONNECTED { ALWAYS look for "CONNECTED" } | |
| MatchStr 5 36 OPEN { ALWAYS look for "OPEN" } | |
| MatchStr 6 60 UNAVAILABLE { If the server could not connect to AOL } | |
| MatchStr 7 60 CONNECT FAILED { If the server could not connect to AOL } | |
| MatchStr 8 60 NOT AVAILABLE { If the server could not connect to AOL } | |
| MatchStr 9 60 UNREACHABLE { If the server could not connect to AOL } | |
| MatchStr 10 60 NO CONNECTION { If the server could not connect to AOL } | |
| MatchStr 11 59 BAD PASSWORD { Glich - we're out of sync } | |
| MatchStr 12 59 LOGIN INVALID { Glich - we're out of sync } | |
| Wait 4800 | |
| Jump 52 { Could not find "CONNECTED", jump to 52 } | |
| -Label 36 { Label 36 } | |
| DsplyMsg Checking Password... { Display Message } | |
| Exit 0 { Success } | |
| -Label 40 { Label 40 } | |
| Hangup { Hangup } | |
| Exit -111 { Exit out and return -111 } | |
| -Label 41 { Label 41 } | |
| Exit -111 { Exit out and return -111 } | |
| -Label 42 | |
| Exit 0 { Exit out and return 0 } | |
| !---------------------------------------------------------------------- | |
| ! Error Messages | |
| !---------------------------------------------------------------------- | |
| -Label 49 { Label 49 } | |
| Talert Your modem is not accepting our commands. | |
| Talert | |
| Talert Please Click on Setup, then Setup Modem, and select | |
| Talert your modem type from the list. If your modem type | |
| Talert is not in the list, please select: | |
| Talert | |
| Talert "Not Listed, Basic Hayes Compatible" | |
| Talert | |
| Talert For more information, select Contents from the Help | |
| Talert menu, then click Troubleshooting. | |
| ErrorSet 12 | |
| Jump 61 | |
| -Label 50 { Label 50 } | |
| Talert The number dialed is busy. Please try again later. | |
| Talert | |
| Talert To find another local access number, select | |
| Talert New Local # from the Screen Name box, and | |
| Talert click on Sign On. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 1 | |
| Jump 61 | |
| -Label 51 { Label 51 } | |
| Talert The number dialed is not answering. Please try again later. | |
| Talert | |
| Talert To find another local access number, select | |
| Talert New Local # from the Screen Name box, and | |
| Talert click on Sign On. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 2 | |
| Jump 61 | |
| -Label 52 { Label 52 } | |
| Talert The access company failed to respond. Please try again later. | |
| Talert | |
| Talert To find another local access number, select | |
| Talert New Local # from the Screen Name box, and | |
| Talert click on Sign On. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 3 | |
| Jump 61 | |
| -Label 53 { Label 53 } | |
| Talert America Online was unable to initialize your modem. | |
| Talert | |
| Talert 1. Turn your modem off, then back on. | |
| Talert 2. Check your modem cable connections. | |
| Talert 3. Click on Setup, then Setup Modem, and verify | |
| Talert your modem selection. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 8 | |
| Jump 61 | |
| -Label 54 { Label 54 } | |
| Talert The number dialed did not connect to the access company. | |
| Talert | |
| Talert Verify the local access number by selecting | |
| Talert New Local # from the Screen Name box, then | |
| Talert clicking on Sign On. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 9 | |
| Jump 61 | |
| -Label 55 { Label 55 } | |
| Talert The modem was unable to get a carrier signal. | |
| Talert | |
| Talert 1. Check all phone line and cable connections. | |
| Talert 2. Verify your setup information by clicking on | |
| Talert Setup, then Edit Location. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 6 | |
| Jump 61 | |
| -Label 56 { Label 56 } | |
| Talert The modem has lost carrier signal. Please try signing on again. | |
| ErrorSet 6 | |
| Jump 61 | |
| -Label 57 { Label 57 } | |
| Talert It has taken too long to process the connection. | |
| Talert | |
| Talert 1. Test your modem with another communications | |
| Talert program. | |
| Talert 2. Verify the local access number by selecting | |
| Talert New Local # from the Screen Name box, then | |
| Talert clicking on Sign On. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 7 | |
| Jump 61 | |
| -Label 58 { Label 58 } | |
| Talert The modem has reported no dial tone. | |
| Talert | |
| Talert 1. Check the phone line connections. | |
| Talert 2. Make sure the line from the wall is connected | |
| Talert to the jack labeled Line, Telco, Wall or Jack. | |
| Talert 3. Use a telephone to check for a dial tone. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 5 | |
| Jump 61 | |
| -Label 59 { Label 59 } | |
| Talert An error has occurred in the connection process. Please try again. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 4 | |
| Jump 61 | |
| -Label 60 { Label 60 } | |
| Talert The final connection step to ~APPL did not complete. Please try again later. | |
| Talert | |
| Talert For more information, select Contents from the | |
| Talert Help menu, then click Troubleshooting. | |
| ErrorSet 4 | |
| Jump 61 | |
| -Label 61 { Label 61 } | |
| Alert 62 \13 | |
| Exit -1 | |
| -Label 62 { Label 62 } | |
| Exit -1 | |
| !---------------------------------------------------------------------- | |
| ! Hangup Sequence | |
| !---------------------------------------------------------------------- | |
| *-Label 0 { Label 0 } | |
| *CanBtn 2 { Cancel Button } | |
| *Flush { Flush } | |
| *Pause 100 { Wait for at least 1.5 sec } | |
| *MdmEsc { Get the Modems attention } | |
| *Pause 100 { Wait for at least 1.5 sec } | |
| *MdmDisc { Disconnect } | |
| *Pause 100 { Pause ... } | |
| *MdmRestore { Modem Restore } | |
| *Exit 0 { Exit out and return 0 } | |
| ### { End of File Marker } | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment