home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 3.0 / TESTDRIVE_3.ISO / aol / ccl / sprint.cc_ / sprint.cc
Encoding:
Text File  |  1993-03-08  |  8.2 KB  |  323 lines

  1. !----------------------------------------------------------------------
  2. !   SPRINT.CCL
  3. !----------------------------------------------------------------------
  4. !
  5. ! Connect Sequence:
  6. !
  7. -LABEL 0
  8. Revision 1
  9. DsplyMsg Initializing ~DRVR.
  10. CanBtn   19               { if cancel button - just exit }
  11. MdmType  4 4              { if tcp go to label 4}
  12. SetTries 0
  13. ChrDelay 2
  14. SerReset ~BAUD 0 8 1
  15. HSReset  0 0 17 19
  16. DsplyPic 1
  17. MdmSetup                 { send out user's premodem init string}
  18. !
  19. !----------------------------------------------------------------------
  20. !
  21. -LABEL 1                { wake up the modem }
  22. Flush
  23. !
  24. MatchStr 1 2 ~CMDESC    { In case we match dont wait for the full time}
  25. MatchStr 2 2 ~CMDOK         
  26. !
  27. MdmEsc                  { Get the modems attention}
  28. Wait 200                { Pause for 2 seconds, minimum gap required}
  29. !
  30. !
  31. -Label 2
  32. MatchStr 1 3   ~CMDOK
  33. MatchStr 2 33  ~CMDERR    { Command error}
  34. !
  35. MdmDisc
  36. !                       { jump to label #3 if we see 'OK' go by }
  37. Wait 200                { wait for 'OK' from modem - fall thru if timeout }
  38. Jump 33                 { Exit stage left...time out error on modem.}
  39. !
  40. !----------------------------------------------------------------------
  41. !
  42. -LABEL 3                { just saw 'OK'-Set modem to x1 }
  43. DsplyMsg Dialing ~PRFX~CLWT~FONE
  44. !
  45. MatchStr 1  5   ~C300
  46. MatchStr 2  6   ~C1200
  47. MatchStr 3  7   ~C2400 
  48. MatchStr 4  8   ~C4800 
  49. MatchStr 5  9   ~C9600
  50. MatchStr 6  33  ~NCDIALTONE
  51. MatchStr 7  27  ~NCANSWER
  52. MatchStr 8  33  ~NCVOICE
  53. MatchStr 9  33  ~NCCARRIER
  54. MatchStr 10 33  ~NCTIMEOUT
  55. MatchStr 11 26  ~NCBUSY
  56. MatchStr 12 33  ~CMDERR
  57. !
  58. SetTries 0
  59. CanBtn   18             { if cancel button hit, hangUp then exit }
  60. MdmDial ~TONE ~PRFX~CLWT~FONE
  61. !                       { jump to label #13 if match }
  62. Wait 4800               { wait 60 seconds(MNP) for CONNECT msg from modem }
  63. Jump 27                 { else hang up phone & exit  }
  64. !
  65. !----------------------------------------------------------------------
  66. !
  67. -LABEL 4
  68. DsplyPic 1
  69. NetConnect 11 ~PORT ~HOST 
  70. Jump 36
  71.  
  72. -Label 5
  73. SerReset 300 0 8 1
  74. Pause 30
  75. Flush
  76. Jump 12
  77. !
  78. !
  79. -Label 6
  80. SerReset 1200 0 8 1
  81. Pause 30
  82. Flush
  83. Jump 12
  84. !
  85. !
  86. -Label 7
  87. SerReset 2400 0 8 1
  88. Pause 30
  89. Flush
  90. Jump 12
  91. !
  92. -Label 8
  93. SerReset 4800 0 8 1
  94. Pause 30
  95. Flush
  96. Jump 12
  97. !
  98. -Label 9
  99. SerReset 9600 0 8 1
  100. Pause 30
  101. Flush
  102. Jump 12
  103. !
  104. !----------------------------------------------------------------------
  105. !
  106. -LABEL 11
  107. DsplyPic 2
  108. DsplyMsg Connected using TCP/IP
  109. Jump 17
  110.  
  111. -LABEL 12               { Modem just sent 'CONNECT' message }
  112. DsplyPic 2
  113. DsplyMsg Connected at ~BAUD baud
  114. !        
  115. -LABEL 13               {  Establishing Connection }
  116. Pause 30
  117. ChrDelay 20      
  118. Cond \13D\13            { 300 baud }
  119. Cond \13D\13            {1200 baud }
  120. Cond @D\13              {2400 baud }
  121. Cond @D\13              {4800 baud }
  122. Cond @D\13              {9600 baud }
  123. !
  124. !
  125. MatchStr 1 15 =        
  126. MatchStr 2 33 ?         {Command error}
  127. MatchStr 3 32 LOCAL     {Net Busy}
  128. MatchStr 4 16 @         {Skip the D1, missed the = sign}
  129. !
  130. Xmit ~SYNC
  131. Wait 600                {Try to sync up to four times}
  132. IncTries
  133. IfTries 4 32
  134. Jump 13
  135. !
  136. !----------------------------------------------------------------------
  137. !
  138. -LABEL 15               { = for term ID}
  139. !                         Sending Terminal Identifier
  140. !
  141. ChrDelay 2
  142. MatchStr 1 16 @
  143. MatchStr 2 33 ?         {Command error}
  144. MatchStr 3 20 =         {800 number dialing.}
  145. Pause 20
  146. Xmit D1\13
  147. !
  148. Wait 600
  149. Jump 32
  150. !
  151. !----------------------------------------------------------------------
  152. !
  153. -LABEL 16                { @ for Host num}
  154. !                         Sending MacLink node number.
  155. !
  156. MatchStr 1 17 CONNECTED
  157. MatchStr 2 33 ?          {Command error}
  158. MatchStr 3 32 NOT RESP   {Applelink down}
  159. MatchStr 4 32 AVAIL      {Applelink down}
  160. MatchStr 5 32 REJECT     {Applelink down}
  161. MatchStr 6 33 LOCAL      {Net busy}
  162. MatchStr 7 33 ERROR      {Command error}
  163. MatchStr 8 33 DISCONNECT {Invalid node}
  164. !
  165. Pause 20
  166. Xmit C ~TLN1\13
  167. Wait 900
  168. Jump 32
  169. !
  170. !----------------------------------------------------------------------
  171. !
  172. -LABEL 17               { System Ready ... All is well }
  173. DsplyPic 3
  174. DsplyMsg Checking Password...
  175. Exit 0
  176. !
  177. !----------------------------------------------------------------------
  178. !
  179. -Label 18               { User aborted sequence }
  180. Hangup
  181. Exit -111
  182. !
  183. -Label 19               { User aborted sequence...dont need to hang up thou}
  184. Exit -111
  185. !----------------------------------------------------------------------
  186. !
  187. -Label 20               {800 number sequence.}
  188. Pause 30
  189. !
  190. MatchStr 1 21 @
  191. MatchStr 2 33 ?         {Command error}
  192. MatchStr 3 20 =         {800 number dialing.}
  193. !
  194. Xmit ~TLN2\13
  195. Wait 600
  196. Jump 32
  197. !
  198. !----------------------------------------------------------------------
  199. !
  200. -LABEL 21                 { @ for 800 Host num}
  201. !
  202. !
  203. MatchStr 1 17 CONNECTED
  204. MatchStr 2 33 ?          {Command error}
  205. MatchStr 3 32 NOT RESP   {Applelink down}
  206. MatchStr 4 32 AVAIL      {Applelink down}
  207. MatchStr 5 32 REJECT     {Applelink down}
  208. MatchStr 6 33 LOCAL      {Net busy}
  209. MatchStr 7 33 ERROR      {Command error}
  210. MatchStr 8 33 DISCONNECT {Invalid node}
  211. MatchStr 9 33 NOT PERMIT {Access via wats line.}
  212. !
  213. Pause 20
  214. Xmit C ~TLN3\13
  215. Wait 900
  216. Jump 32
  217. !
  218. !
  219. !----------------------------------------------------------------------
  220. !
  221. -Label 26              {Busy phone}
  222. Talert All phone lines are currently busy. \13Please wait a few minutes and try again.\13
  223. Jump 36
  224. !
  225. !----------------------------------------------------------------------
  226. !
  227. !
  228. !
  229. -Label 27              {No Answer}
  230. Talert There is no answer from the access  company (Error # 3).\13Verify the access number and try again.\13
  231. Jump 36
  232. !
  233. !----------------------------------------------------------------------
  234. !
  235. -Label 28              {Noisy line}
  236. Talert There is noise on your phone line (Error # 16).\13Please try again.\13
  237. Jump 36
  238. !
  239. !----------------------------------------------------------------------
  240. !
  241. -Label 29              {acct bad}
  242. Talert Unable to verify account information (Error # 22).\13\13
  243. Jump 36
  244. !
  245. !----------------------------------------------------------------------
  246. !
  247. -Label 30              {disk problem}
  248. Talert There was an error in reading your ~APPL disk (Error # 0).Please try again.\13
  249. Jump 36
  250. !
  251. !----------------------------------------------------------------------
  252. -Label 31              {acct aleady on}
  253. Talert Please wait a few minutes and try again (Error # 23).\13\13
  254. Jump 36
  255. !
  256. !----------------------------------------------------------------------
  257. !
  258. -Label 32              {not_avail}
  259. Talert ~APPL is not available at the moment (Error # 20).\13Please wait a few minutes and try again.\13\13
  260. Jump 36
  261. !
  262. !----------------------------------------------------------------------
  263. !
  264. -Label 33              {generic}
  265. Talert Unable to initialize modem (Error # 1). Please take the following steps:\13\13 1) Turn your modem off, then back on.\13 2) Verify the access number.\13 3) Make sure that your modem and phone line are connected correctly.
  266. Talert  4) From Setup, select Setup Modem to verify your modem selection.\13 5) Try again.
  267. Jump 36
  268. !
  269. !----------------------------------------------------------------------
  270. !
  271. -Label 34               {db_error}
  272. Talert There is a bad ~APPL file on your disk (Error # 0).\13\13
  273. Jump 36
  274. !
  275. !----------------------------------------------------------------------
  276. !
  277. -Label 35
  278. Exit -1
  279. !
  280. -Label 36
  281. Alert 35 \13If the problem persists, call ~APPL customer service at ~ACUS.
  282. Exit -1
  283. !----------------------------------------------------------------------
  284. !
  285. *-Label 0                {Hangup Sequence}
  286. *CanBtn 2
  287. *MdmType 4 4             {if tcp go to label 4}
  288. !
  289. *Flush
  290. !
  291. *MatchStr 1 1 ~CMDOK     { Dont look for an echo first time, maybe a}
  292. *MatchStr 2 1 ~NCCARRIER { false echo.  Any type of match is good}
  293. !
  294. *MdmEsc                  {Try and get the modems attention}
  295. *Wait 210
  296. !
  297. *MatchStr 1 1 ~CMDOK
  298. *MatchStr 2 2 ~NCCARRIER {Any type of match is good}
  299. *MatchStr 3 1 ~CMDESC
  300. !
  301. *MdmEsc                  {Double our odds}
  302. *Wait 210
  303. !
  304. *-Label 1
  305. *MatchStr 1 2 ~CMDESC
  306. *MatchStr 2 2 ~CMDOK
  307. *MatchStr 3 2 ~NCCARRIER
  308. !
  309. *MdmDisc
  310. *Wait 300
  311. !
  312. *-Label 2
  313. *MdmRestore
  314. *Exit 0
  315. !
  316. *-Label 4
  317. *NetDisc
  318. *Exit 0
  319. !
  320. ###
  321.  
  322.