home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / mex / li.mex < prev    next >
Text File  |  1994-07-13  |  6KB  |  168 lines
  1. . LI - Log-In MexPlus script - George M. Sipe - February 1986
  2. . Accepts system name as argument to avoid menu.
  3. . May be called from CP/M (e.g. A>MEX LI N-OWL) and therefore
  4. . may be called by a ZCPR3 ALIAS (e.g. A>N-OWL)
  5. .---------------------------------------------------------------------
  6. Phone >=###-####,,,#####-
  7. %z=0;Phone <=1-
  8. Screen Off;Stat Case On;Screen On
  9. A="{1:menu}"
  10. Comp A "menu";If Value then GoTo Menu
  11. Comp A "unix";If Value then GoTo Unix
  12. Comp A "n-owl";If Value then GoTo NOwl
  13. Comp A "goliath";If Value then GoTo Goliath
  14. Comp A "zeemachine";If Value then GoTo ZeeM
  15. Comp A "cis";If Value then GoTo CIS
  16. Start Brite;Say "Error:  Unknown system "
  17. Start ULine;Say A
  18. End Uline;Start Brite;Say " specified."
  19. Sleep 2
  20. .---------------------------------------------------------------------
  21. Label Menu
  22. Start Brite;Cls
  23. Box 05,10,16,60
  24. Box 03,10,19,60
  25. End Brite
  26. @04,25;Start Rev;Say " --- Choose One --- ";End Rev
  27. @06,13 Say "F1 --> Call and login to Unix"
  28. @07,13 Say "F2 --> Call and login to the Night-Owl"
  29. @08,13 Say "F3 --> Call and login to Goliath"
  30. @09,13 Say "F4 --> Call and login to Zee Machine"
  31. @10,13 Say "F5 -->"
  32. @11,13 Say "F6 -->"
  33. @12,13 Say "F7 --> Call and login to CompuServe"
  34. @13,13 Say "F8 --> Change Alternate Long Distance service"
  35. @14,13 Say "F9  -> Exit from menu to Mex prompt"
  36. @15,13 Say "F10 -> Exit from menu to CP//M prompt"
  37. Label Entry
  38. If %z=0 then @17,13 Say "(ALD service is currently AT&T)   "
  39. If %z=1 then @17,13 Say "(ALD service is currently <ald 2>)"
  40. If %z=2 then @17,13 Say "(ALD service is currently <ald 3>)"
  41. @18,13 Say "                             "
  42. Start Brite;@18,13 Say "Enter Function Key -> ";End Brite
  43. Key F1="1/r";Key F2="2/r";Key F3="3/r";Key F4="4/r";Key F5="5/r"
  44. Key F6="6/r";Key F7="7/r";Key F8="8/r";Key F9="9/r";Key F10="10/r"
  45. Screen Off;Input;Screen On
  46. Key F1="";Key F2="";Key F3="";Key F4="";Key F5=""
  47. Key F6="";Key F7="";Key F8="";Key F9="";Key F10=""
  48. If Value=1  then GoTo Unix
  49. If Value=2  then GoTo NOwl
  50. If Value=3  then GoTo Goliath
  51. If Value=4  then GoTo ZeeM
  52. If Value=7  then GoTo CIS
  53. If Value=8  then GoTo ALD
  54. If Value=9  then GoTo Mex
  55. If Value=10 then GoTo Exit
  56. Start Brite;@18,13 Say "Invalid selection, Try again  ";End Brite
  57. Sleep 1
  58. Goto Entry
  59. .---------------------------------------------------------------------
  60. . Requires:  A as system name, Phone Num as number to call
  61. . Returns:   Value as non-zero if connection successful
  62. Proc Call
  63. Start Brite;Cls
  64. Box 03,10,05,60
  65. End Brite
  66. @04,13;Say "Attempting to connect to ",A,"... ";@06,0
  67. Screen Off;Dial Num;Phone Num  =
  68. If Value=0
  69.         Screen On
  70.         @04,13;Say A," is currently unavailable       ";@06,0
  71.         Sleep 2
  72. Else
  73.     Prefix "";Suffix "/r";Stat WtEcho Off;Stat SoDelay Off
  74.         Stat Reply 0;Stat Trigger ""
  75.         Screen On
  76.         @04,13;Say "Connection to ",A," established...";@06,0
  77. EndIf
  78. EndP
  79. .---------------------------------------------------------------------
  80. Label Unix
  81. A="Unix"
  82. Phone Num = ###-####
  83. GoSub Call
  84. If Value=0 then GoTo Menu
  85. Wait String "ogin: ";If Value then Sendout "username"
  86. Wait String "assword:";If Value then Sendout "password"
  87. Wait String "(vt100) ";If Value then Sendout ""
  88. Wait String "% ";If Value then Sendout ""
  89. Screen Off;Stat Reply 8;Stat Trigger "%";Screen On
  90. T
  91. Stop
  92. .---------------------------------------------------------------------
  93. Label NOwl
  94. A="the Night-Owl"
  95. Phone Num = <414-563-9361
  96. GoSub Call
  97. If Value=0 then GoTo Menu
  98. Wait String "FIRST name? ";If Value then Sendout "firstname"
  99. Wait String "LAST name? ";If Value then Sendout "lastname"
  100. Wait String "password: ";If Value then Sendout "password"
  101. Wait String "continue:";If Value then Sendout ""
  102. Screen Off;Stat Reply 8;Stat Trigger ">";Screen On
  103. T
  104. Stop
  105. .---------------------------------------------------------------------
  106. Label Goliath
  107. A="Goliath"
  108. Phone Num = <305-727-0331
  109. GoSub Call
  110. If Value=0 then GoTo Menu
  111. Sendout "";Sleep 1;Sendout "";Sleep 1;Sendout "";Sleep 1;Sendout ""
  112. Wait String "bugger ?";If Value then Sendout "ddt"
  113. Wait String "name =>";If Value then Sendout "First Last"
  114. Wait String "password =>";If Value then Sendout "password"
  115. Wait String "HELP)?";If Value then Sendout "c"
  116. Wait String "(Y//N)? ";If Value then Sendout "n"
  117. Screen Off;Stat Reply 8;Stat Trigger ">";Screen On
  118. T
  119. Stop
  120. .---------------------------------------------------------------------
  121. Label ZeeM
  122. A="Zee Machine"
  123. Phone Num = <408-245-1420
  124. GoSub Call
  125. If Value=0 then GoTo Menu
  126. Wait String "(0-9)? ";If Value then Sendout "0"
  127. Wait String "(Y//N)? ";If Value then Sendout "n"
  128. Wait String "name: ";If Value then Sendout "First Last"
  129. Wait String "word:  ";If Value then Sendout "password"
  130. Wait String "(Y//N)? ";If Value then Sendout "n"
  131. Wait String "(Y//N)? ";If Value then Sendout "n"
  132. Wait String "True? ";If Value then Sendout "n"
  133. Screen Off;Stat Reply 8;Stat Trigger ">";Screen On
  134. T
  135. Stop
  136. .---------------------------------------------------------------------
  137. Label CIS
  138. A="CompuServe"
  139. Phone Num = ###-####
  140. GoSub Call
  141. If Value=0 then GoTo Menu
  142. Screen  Off
  143. Stat Disp Checksum On;Stat Disp Cis On;Stat Disp Crc Off
  144. Stat Checksum On;Stat Cis On;Stat Crc Off
  145. Global T;Id "[CIS Mex] ";Proto M;Set M 300;SSet Auto Off
  146. Screen On
  147. Sendout "^C"
  148. Wait String "User ID: ";If Value then Sendout "#####,####"
  149. Wait String "Password: ";If Value then Sendout "pass-word"
  150. Screen Off;Stat Reply 8;Stat Trigger ":";Screen On
  151. T
  152. Stop
  153. .---------------------------------------------------------------------
  154. Label ALD
  155. If %z=2 then %z=3;Phone <=1-
  156. If %z=1 then %z=2;Phone <=###-####,,,#####-
  157. If %z=0 then %z=1;Phone <=###-####,,,#####-
  158. If %z=3 then %z=0
  159. Goto Entry
  160. .---------------------------------------------------------------------
  161. Label Mex
  162. Start Brite;@18,13 Say "Entering Mex command level... ";End Brite
  163. @19,0;Stop
  164. .---------------------------------------------------------------------
  165. Label Exit
  166. Start Brite;@18,13 Say "Exiting to system...           ";End Brite
  167. @19,0;Exit
  168.