home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0090 - 0099 / ibm0090-0099 / ibm0099.tar / ibm0099 / WINCIMP1.ZIP / SCRIPTS.LIB / CONNECT.SCR next >
Encoding:
Text File  |  1992-12-11  |  7.6 KB  |  273 lines
  1. !---------------------------------------------------------------------!
  2. !                                                                     !
  3. !  Copyright (c) 1991                                                 !
  4. !  by CompuServe Incorporated, Columbus, Ohio                         !
  5. !                                                                     !
  6. !  The information in this software is subject to change without      !
  7. !  notice and should not be construed as a commitment by CompuServe.  !
  8. !                                                                     !
  9. !     Connect Script:                                                 !
  10. !                                                                     !
  11. !     Handles CompuServe and Direct.                                  !
  12. !                                                                     !
  13. !     $Revision::   1.24    $                                         !
  14. !                                                                     !
  15. !---------------------------------------------------------------------!
  16. ! NOTE:  It is recommended that the numeric codes for networks NOT be
  17. !        modified since other utility programs may assume the relationships
  18. !        of network names and network ids specified below.
  19.  
  20. !+N
  21. CompuServe = 1;         ! "CompuServe"
  22. Telenet = 2;            ! "SprintNet"
  23. Tymnet = 3;             ! "Tymnet"
  24. DataPac = 4;            ! "DataPac"
  25. InfoNet_Europe = 5;     ! "InfoNet-Euro"
  26. InfoNet_World = 6;      ! "InfoNet-Wrld"
  27. LATA = 7;               ! "LATA"
  28. CTLATA = 8;             ! "LATA-Ct"
  29. Telepac = 9;            ! "Telepac"
  30. Datex_P = 10;           ! "Datex-P"
  31. Dialplus = 11;          ! "GNS Dialplus"
  32. NIF = 12;               ! "NIFTY LL"
  33. CompuPass = 13;         ! "CompuPass"
  34. FALNET = 14;            ! "FALNET"
  35. Mercury = 15;           ! "Mercury"
  36. CSIRnet = 16;           ! "CSIR-Net"
  37. ISRAKAV = 17;        ! "ISRAKAV"
  38. Direct = 18;            ! "Direct"
  39. !-N
  40.  
  41. define %CR = "^M";
  42. define %FALSE = 0;
  43. define %TRUE = 1;
  44. hangup = 1;
  45. UsingModem = %FALSE;
  46.  
  47. !------------------------!
  48. !     Main Program       !
  49. !------------------------!
  50.  
  51.     init %Port, %BaudRate;
  52.     if %_init goto Continue_Connect;
  53.  
  54.     define %FailureMsg = "Could not initialize port";
  55.     goto Connect_Fatal;
  56.  
  57. Continue_Connect:
  58.     call %Dir & "first.scr" () : Result;
  59.     if Result = %Cancel goto Cancel_Connect;
  60.     if Result = %Failure goto Connect_Failure;
  61.     if Result = %Fatal goto Connect_Fatal;
  62.  
  63.     on cancel goto Cancel_Connect;
  64.     DirectConnect = (%Network = Direct);
  65.     if DirectConnect goto Connect_CIS;
  66.  
  67.     call %Dir & "phone.scr" () : Result;
  68.  
  69.     if Result = %Cancel goto Cancel_Connect;
  70.     if Result = %Failure goto Connect_Failure;
  71.     if Result = %Fatal goto Connect_Fatal;
  72.  
  73.     UsingModem = %TRUE;
  74.  
  75.     if %Network = CompuServe goto Connect_CIS;
  76.     if %Network = Telenet goto Connect_Telenet;
  77.     if %Network = Tymnet goto Connect_Tymnet;
  78.     if %Network = DataPac goto Connect_DataPac;
  79.     if %Network = InfoNet_Europe goto Connect_InfoNet_Europe;
  80.     if %Network = InfoNet_World goto Connect_InfoNet_World;
  81.     if %Network = LATA goto Connect_LATA;
  82.     if %Network = CTLATA goto Connect_CTLATA;
  83.     if %Network = Telepac goto Connect_Telepac;
  84.     if %Network = Datex_P goto Connect_Datex_P;
  85.     if %Network = Dialplus goto Connect_Dialplus;
  86.     if %Network = NIF goto Connect_NIF;
  87.     if %Network = CompuPass goto Connect_CompuPass;
  88.     if %Network = FALNET goto Connect_FALNET;
  89.     if %Network = Mercury goto Connect_Mercury;
  90.     if %Network = CSIRnet goto Connect_CSIRnet;
  91.     if %Network = ISRAKAV goto Connect_ISRAKAV;
  92.  
  93.     define %FailureMsg = "Network not supported";
  94.     goto Connect_Fatal;
  95.  
  96. !----------------------!
  97. !  Connect to Telenet  !
  98. !----------------------!
  99.  
  100. Connect_Telenet:
  101.     call %Dir & "telenet.scr" () : Result;
  102.     goto Handle_Network_Return;
  103.  
  104. !----------------------!
  105. !  Connect to Tymnet   !
  106. !----------------------!
  107.  
  108. Connect_Tymnet:
  109.     call %Dir & "tymnet.scr" () : Result;
  110.     goto Handle_Network_Return;
  111.  
  112. !----------------------!
  113. !  Connect to DataPac  !
  114. !----------------------!
  115.  
  116. Connect_DataPac:
  117.     call %Dir & "datapac.scr" () : Result;
  118.     goto Handle_Network_Return;
  119.  
  120. !-----------------------------!
  121. !  Connect to InfoNet Europe  !
  122. !-----------------------------!
  123.  
  124. Connect_InfoNet_Europe:
  125.     call %Dir & "infonet.scr" (%TRUE) : Result;
  126.     goto Handle_Network_Return;
  127.  
  128. !---------------------------!
  129. !  Connect to InfoNet World !
  130. !---------------------------!
  131.  
  132. Connect_InfoNet_World:
  133.     call %Dir & "infonet.scr" (%FALSE) : Result;
  134.     goto Handle_Network_Return;
  135.  
  136. !----------------------!
  137. !  Connect to LATA     !
  138. !----------------------!
  139.  
  140. Connect_LATA:
  141.     call %Dir & "lata.scr" (%TRUE) : Result;
  142.     goto Handle_Network_Return;
  143.  
  144. !------------------------------!
  145. !  Connect to Connecticut LATA !
  146. !------------------------------!
  147.  
  148. Connect_CTLATA:
  149.     call %Dir & "lata.scr" (%FALSE) : Result;
  150.     goto Handle_Network_Return;
  151.  
  152. !----------------------!
  153. !  Connect to Telepac  !
  154. !----------------------!
  155.  
  156. Connect_Telepac:
  157.     call %Dir & "telepac.scr" () : Result;
  158.     goto Handle_Network_Return;
  159.  
  160. !----------------------!
  161. !  Connect to Datex-P  !
  162. !----------------------!
  163.  
  164. Connect_Datex_P:
  165.     call %Dir & "datexp.scr" () : Result;
  166.     goto Handle_Network_Return;
  167.  
  168. !----------------------!
  169. !  Connect to Dialplus !
  170. !----------------------!
  171.  
  172. Connect_Dialplus:
  173.     call %Dir & "dialplus.scr" () : Result;
  174.     goto Handle_Network_Return;
  175.  
  176. !------------------!
  177. !  Connect to NIF  !
  178. !------------------!
  179.  
  180. Connect_NIF:
  181.     call %Dir & "fenics.scr" (%TRUE) : Result;
  182.     goto Handle_Network_Return;
  183.  
  184. !------------------------!
  185. !  Connect to CompuPass  !
  186. !------------------------!
  187.  
  188. Connect_CompuPass:
  189.     call %Dir & "fenics.scr" (%FALSE) : Result;
  190.     goto Handle_Network_Return;
  191.  
  192. !------------------------!
  193. !  Connect to FALNET     !
  194. !------------------------!
  195.  
  196. Connect_FALNET:
  197.     call %Dir & "falnet.scr" (%FALSE) : Result;
  198.     goto Handle_Network_Return;
  199.  
  200. !------------------------!
  201. !  Connect to Mercury    !
  202. !------------------------!
  203.  
  204. Connect_Mercury:
  205.     call %Dir & "mercury.scr" () : Result;
  206.     goto Handle_Network_Return;
  207.  
  208. !------------------------!
  209. !  Connect to CSIR-Net   !
  210. !------------------------!
  211.  
  212. Connect_CSIRnet:
  213.     call %Dir & "csirnet.scr" () : Result;
  214.     goto Handle_Network_Return;
  215.  
  216. !------------------------!
  217. !  Connect to ISRAKAV    !
  218. !------------------------!
  219.  
  220. Connect_ISRAKAV:
  221.     call %Dir & "israkav.scr" () : Result;
  222.     goto Handle_Network_Return;
  223.  
  224. !-------------------------!
  225. !  Handle Network Return  !
  226. !-------------------------!
  227.  
  228. Handle_Network_Return:
  229.     if Result = %Success goto Do_CIS_Script;
  230.     if Result = %Cancel goto Cancel_Connect;
  231.     if Result = %Fatal goto Connect_Fatal;
  232.     goto Connect_Failure;
  233.  
  234. !-------------------!
  235. !  Connect to CIS   !
  236. !-------------------!
  237.  
  238. Connect_CIS:
  239.     send %CR;
  240.  
  241. Do_CIS_Script:
  242.     call %Dir & "cserve.scr" (DirectConnect) : Result;
  243.     if Result = %Failure goto Connect_Failure;
  244.     if Result = %Cancel goto Cancel_Connect;
  245.     if Result = %Fatal goto Connect_Fatal;
  246.     exit %Success;
  247.  
  248. Connect_Failure:
  249.     gosub Hangup_Connect;
  250.     reset;
  251.     exit %Failure;
  252.  
  253. Connect_Fatal:
  254.     gosub Hangup_Connect;
  255.     reset;
  256.     exit %Fatal;
  257.  
  258. Hangup_Connect:
  259.     if not UsingModem goto Hangup_Done;
  260.     ifndef %LOCAL = 1;
  261.     call %Dir & "disconct.scr" ();
  262.  
  263. Hangup_Done:
  264.     return;
  265.  
  266. Cancel_Connect:
  267.     show "Connect cancelled";
  268.     gosub Hangup_Connect;
  269.     reset;
  270.     exit %Cancel;
  271. 
  272. 
  273.