home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / tcj / pcp-tcj.lbr / PCPDATA.MZX / PCPDATA.MEX
Encoding:
Text File  |  1990-07-16  |  2.9 KB  |  188 lines
  1.  
  2. .. PCPDATA.MEX  (02/17/90))
  3. ..
  4. .. This routine contains all the data for the systems in the menu.  Each
  5. .. entry sets the following variables:
  6. ..
  7. ..    B        baud rate code ("12" or "24")
  8. ..    D        outdial code
  9. ..    E        phone number
  10. ..    F        name of system called
  11. ..    %a        area code
  12. ..    %b        baud rate (1200 or 2400)
  13. ..
  14. .. In addition, function keys are set up (where the defaults are not correct)
  15. .. with the login names and/or passwords.  Once the data has been set, the
  16. .. code chains to PCPCONN, which negociates the connection.
  17.  
  18.  
  19. A=D;.                    save old outdial code
  20.  
  21. key 1="Jay Sage/r";.            default key definitions
  22. key 2="STDPASSWORD/r"
  23.  
  24.  
  25. .. dispatch table
  26.  
  27. if %m=1  GOTO BBS01
  28. if %m=2  GOTO BBS02
  29. if %m=3  GOTO BBS03
  30. if %m=4  GOTO BBS04
  31. if %m=5  GOTO BBS05
  32. if %m=6  GOTO BBS06
  33. if %m=7  GOTO BBS07
  34. if %m=8  GOTO BBS08
  35. if %m=9  GOTO BBS09
  36. if %m=10 GOTO BBS10
  37. if %m=11 GOTO BBS11
  38.  
  39. if %m=19 GOTO BBS19
  40. if %m=20 GOTO BBS20
  41. if %m=21 GOTO BBS21
  42. if %m=22 GOTO BBS22
  43. if %m=23 GOTO BBS23
  44.  
  45. if %m=26 GOTO BBS26
  46. if %m=27 GOTO BBS27
  47.  
  48. .. ----------------------------------------------------------------------
  49. ..
  50. ..    Date on Remote Access Systems from Menu
  51. ..
  52. .. ----------------------------------------------------------------------
  53.  
  54. LABEL BBS01
  55. F="Al Hawley (ZN2)"
  56. %a=213
  57. D="CALAN"
  58. E="670-9465"
  59. key 1="zmsg userid/r"
  60. read PCPCALL
  61.  
  62. LABEL BBS02
  63. F="Carson Wilson (ZN11)"
  64. key 1="zmsg userid/r"
  65. %a=312
  66. D="ILCHI"
  67. E="764-5162"
  68. read PCPCALL
  69.  
  70. LABEL BBS03
  71. F="Drexel Hill (ZN6)"
  72. key 2="password/r"
  73. %a=215
  74. D="PAPHI"
  75. E="623-4040"
  76. read PCPCALL
  77.  
  78. LABEL BBS04
  79. F="Ken Reid (ZN45)"
  80. key 2="password/r"
  81. %a=713
  82. D="TXHOU"
  83. E="937-8886"
  84. read PCPCALL
  85.  
  86. LABEL BBS05
  87. F="Ben Grey (ZN8)"
  88. %a=503
  89. D="ORPOR"
  90. E="644-4621"
  91. read PCPCALL
  92.  
  93. LABEL BBS06
  94. F="VanHemelryck (ZN10)"
  95. %a=206
  96. D="WASEA"
  97. E="481-1371"
  98. read PCPCALL
  99.  
  100. LABEL BBS07
  101. F="Lee Bradley (ZN12)"
  102. key 2="password/r"
  103. %a=203
  104. D="CTHAR"
  105. E="665-1100"
  106. read PCPCALL
  107.  
  108. LABEL BBS08
  109. F="Liv Hinckley (ZN15)"
  110. %a=212
  111. D="NYNYO"
  112. E="489-7370"
  113. read PCPCALL
  114.  
  115. LABEL BBS09
  116. F="Dave Vanhorn (ZN66)"
  117. key 2="password/r"
  118. %a=714
  119. D="CASAN"
  120. E="546-5407"
  121. read PCPCALL
  122.  
  123. LABEL BBS10
  124. F="Roger Warren (ZN9)"
  125. key 2="password/r"
  126. %a=619
  127. D="CASDI"
  128. E="270-3148"
  129. read PCPCALL
  130.  
  131. LABEL BBS11
  132. F="George Allen (ZN73)"
  133. key 2="password/r"
  134. %a=314
  135. D="MOSLO"
  136. E="821-1078"
  137. read PCPCALL
  138.  
  139. LABEL BBS19
  140. F="Terry Pinto"
  141. %a=503
  142. D="ORPOR"
  143. E="644-0900"
  144. read PCPCALL
  145.  
  146. LABEL BBS20
  147. F="Royal Oaks"
  148. %a=313
  149. D="MIDET"
  150. E="884-0405"
  151. read PCPCALL
  152.  
  153. LABEL BBS21
  154. F="Circuit Cellar BBS"
  155. %a=203
  156. D="CTHAR"
  157. E="871-1988"
  158. read PCPCALL
  159.  
  160. LABEL BBS22
  161. F="FOG"
  162. %a=415
  163. D="CASFA"
  164. E="755-2030"
  165. read PCPCALL
  166.  
  167. LABEL BBS23
  168. F="Ron Bardarson: X-NODE"
  169. %a=408
  170. D="CASJO"
  171. E="432-0821"
  172. read PCPCALL
  173.  
  174. LABEL BBS26
  175. F="PCBoard"
  176. %a=801
  177. D="UTSLC"
  178. E="261-8981"
  179. read PCPCALL
  180.  
  181. LABEL BBS27
  182. key 1="Jay Sage password/r"
  183. F="Gary Inman"
  184. %a=213
  185. D="CALAN"
  186. E="838-9229"
  187. read PCPCALL
  188.