home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / procomm / apcp37.arc / 1212.ASP < prev    next >
Text File  |  1988-03-18  |  8KB  |  385 lines
  1. goto init
  2.  
  3. dial:
  4. strcmp s2 "     "
  5. if success
  6. return
  7. endif
  8. clear
  9. box 00 00 02 79 07
  10. strcpy s1 s2
  11. strcat s1 " ║ n/a      ║ "
  12. strcat s1 s3
  13. strcat s1 " ║ n/a"
  14. atsay 01 02 07 s1
  15. locate 05 00
  16. transmit "C D/"
  17. transmit s2
  18. transmit "/12,"     ;
  19. transmit "xxxxnnnn" ; PC-Pursuit Account Number
  20. transmit "^m"
  21. waitfor "="
  22. transmit "nnnnxxxx" ; PC-Pursuit Password
  23. transmit "^m"
  24. rget s1
  25. rget s1 80 40
  26. rget s1 40
  27. find s1 "CONNECTED"
  28. if found
  29. fopeno "APCPSTRS" text
  30. fputs "1212"
  31. fputs s2
  32. fcloseo
  33. alarm 2
  34. execute s2
  35. else
  36. strcpy s9 "M"
  37. endif
  38. return 
  39.  
  40. top:
  41. find s0 "A"
  42. if found
  43. strcpy s2 "GAATL"
  44. strcpy s3 "Atlanta, GA             404"
  45. gosub dial
  46. endif
  47. find s0 "B"
  48. if found
  49. strcpy s2 "MABOS"
  50. strcpy s3 "Boston, MA              617"
  51. gosub dial
  52. endif
  53. find s0 "C"
  54. if found
  55. strcpy s2 "ILCHI"
  56. strcpy s3 "Chicago, IL         312 815"
  57. gosub dial
  58. endif
  59. find s0 "D"
  60. if found
  61. strcpy s2 "OHCLV"
  62. strcpy s3 "Cleveland, OH           216"
  63. gosub dial
  64. endif
  65. find s0 "E"
  66. if found
  67. strcpy s2 "TXDAL"
  68. strcpy s3 "Dallas, TX          214 817"
  69. gosub dial
  70. endif
  71. find s0 "F"
  72. if found
  73. strcpy s2 "CODEN"
  74. strcpy s3 "Denver, CO              303"
  75. gosub dial
  76. endif
  77. find s0 "G"
  78. if found
  79. strcpy s2 "MIDET"
  80. strcpy s3 "Detroit, MI             313"
  81. gosub dial
  82. endif
  83. find s0 "H"
  84. if found
  85. strcpy s2 "CAGLE"
  86. strcpy s3 "Glendale, CA            818"
  87. gosub dial
  88. endif
  89. find s0 "I"
  90. if found
  91. strcpy s2 "CTHAR"
  92. strcpy s3 "Hartford, CT            203"
  93. gosub dial
  94. endif
  95. find s0 "J"
  96. if found
  97. strcpy s2 "TXHOU"
  98. strcpy s3 "Houston, TX             713"
  99. gosub dial
  100. endif
  101. find s0 "K"
  102. if found
  103. strcpy s2 "MOKAN"
  104. strcpy s3 "Kansas City, MO     816 913"
  105. gosub dial
  106. endif
  107. find s0 "L"
  108. if found
  109. strcpy s2 "CALAN"
  110. strcpy s3 "Los Angeles, CA         213"
  111. gosub dial
  112. endif
  113. find s0 "M"
  114. if found
  115. strcpy s2 "FLMIA"
  116. strcpy s3 "Miami, FL               305"
  117. gosub dial
  118. endif
  119. find s0 "N"
  120. if found
  121. strcpy s2 "WIMIL"
  122. strcpy s3 "Milwaukee, WI           414"
  123. gosub dial
  124. endif
  125. find s0 "O"
  126. if found
  127. strcpy s2 "MNMIN"
  128. strcpy s3 "Minneapolis, MN         612"
  129. gosub dial
  130. endif
  131. find s0 "P"
  132. if found
  133. strcpy s2 "NJNEW"
  134. strcpy s3 "Newark, NJ              201"
  135. gosub dial
  136. endif
  137. find s0 "Q"
  138. if found
  139. strcpy s2 "NYNYO"
  140. strcpy s3 "New York, NY        212 718"
  141. gosub dial
  142. endif
  143. find s0 "R"
  144. if found
  145. strcpy s2 "CAPAL"
  146. strcpy s3 "Palo Alto, CA       415 408"
  147. gosub dial
  148. endif
  149. find s0 "S"
  150. if found
  151. strcpy s2 "PAPHI"
  152. strcpy s3 "Philadelphia, PA        215"
  153. gosub dial
  154. endif
  155. find s0 "T"
  156. if found
  157. strcpy s2 "AZPHO"
  158. strcpy s3 "Phoenix, AZ             602"
  159. gosub dial
  160. endif
  161. find s0 "U"
  162. if found
  163. strcpy s2 "ORPOR"
  164. strcpy s3 "Portland, OR            503"
  165. gosub dial
  166. endif
  167. find s0 "V"
  168. if found
  169. strcpy s2 "NCRTP"
  170. strcpy s3 "Research Triangle Park  919"
  171. gosub dial
  172. endif
  173. find s0 "W"
  174. if found
  175. strcpy s2 "CARIV"
  176. strcpy s3 "Riverside, CA           714"
  177. gosub dial
  178. endif
  179. find s0 "X"
  180. if found
  181. strcpy s2 "CASAC"
  182. strcpy s3 "Sacramento, CA          916"
  183. gosub dial
  184. endif
  185. find s0 "Y"
  186. if found
  187. strcpy s2 "UTSLC"
  188. strcpy s3 "Salt Lake City, UT      801"
  189. gosub dial
  190. endif
  191. find s0 "Z"
  192. if found
  193. strcpy s2 "CASAD"
  194. strcpy s3 "San Diego, CA           619"
  195. gosub dial
  196. endif
  197. find s0 "0"
  198. if found 
  199. strcpy s2 "CASFA"
  200. strcpy s3 "San Francisco, CA       415"
  201. gosub dial
  202. endif
  203. find s0 "1"
  204. if found
  205. strcpy s2 "CASJO"
  206. strcpy s3 "San Jose, CA        408 415"
  207. gosub dial
  208. endif
  209. find s0 "2"
  210. if found
  211. strcpy s2 "CASAN"
  212. strcpy s3 "Santa Ana, CA           714"
  213. gosub dial
  214. endif
  215. find s0 "3"
  216. if found
  217. strcpy s2 "WASEA"
  218. strcpy s3 "Seattle, WA             206"
  219. gosub dial
  220. endif
  221. find s0 "4"
  222. if found
  223. strcpy s2 "MOSLO"
  224. strcpy s3 "St. Louis, MO       314 618"
  225. gosub dial
  226. endif
  227. find s0 "5"
  228. if found
  229. strcpy s2 "FLTAM"
  230. strcpy s3 "Tampa, FL               813"
  231. gosub dial
  232. endif
  233. find s0 "6"
  234. if found
  235. strcpy s2 "DCWAS"
  236. strcpy s3 "Washington, DC  202 301 703"
  237. gosub dial
  238. endif
  239. find s0 "7"
  240. if found
  241. strcpy s2 "     "
  242. strcpy s3 "                        xxx"
  243. gosub dial
  244. endif
  245. find s0 "8"
  246. if found
  247. strcpy s2 "     "
  248. strcpy s3 "                        xxx"
  249. gosub dial
  250. endif
  251. find s0 "9"
  252. if found
  253. strcpy s2 "     "
  254. strcpy s3 "                        xxx"
  255. gosub dial
  256. endif
  257. find s0 "@"
  258. if found
  259. strcpy s2 "     "
  260. strcpy s3 "                        xxx"
  261. gosub dial
  262. endif
  263. find s0 "#"
  264. if found
  265. strcpy s2 "     "
  266. strcpy s3 "                        xxx"
  267. gosub dial
  268. endif
  269. find s0 "$"
  270. if found
  271. strcpy s2 "     "
  272. strcpy s3 "                        xxx"
  273. gosub dial
  274. endif
  275. find s0 "%"
  276. if found
  277. strcpy s2 "     "
  278. strcpy s3 "                        xxx"
  279. gosub dial
  280. endif
  281. find s0 "&"
  282. if found
  283. strcpy s2 "     "
  284. strcpy s3 "                        xxx"
  285. gosub dial
  286. endif
  287. find s0 "*"
  288. if found
  289. strcpy s2 "     "
  290. strcpy s3 "                        xxx"
  291. gosub dial
  292. endif
  293. find s9 "M"
  294. if found
  295. strcpy s9 " "
  296. goto top
  297. endif
  298. clear
  299. box 00 00 02 79 07
  300. atsay 01 02 07 "APCP: No city requested ... terminating ..."
  301. locate 05 00
  302. alarm 2
  303. exit
  304.  
  305. init:
  306. clear
  307. box   00 00 02 79 07
  308. locate 05 00
  309. if linked
  310. atsay 01 28 07 "Thom Little Associates"
  311. pause 1
  312. atsay 01 02 07 "APCP: Initializing and resetting Telenet ... one moment ..."
  313. transmit "^m" ;
  314. pause 1
  315. transmit "^m"
  316. waitfor "=" 60
  317. transmit "D1^m"
  318. waitfor "@" 60
  319. fopeno "APCPSTRS" text
  320. fputs "1212"
  321. fputs "MABOS"
  322. fcloseo
  323. strcpy s9 " "
  324. else
  325. atsay 01 02 07 "APCP: Initializing and resetting Telenet ... one moment ..."
  326. endif
  327. set databits 7
  328. set parity even
  329. transmit "^m^m"
  330. transmit "@^m"
  331. waitfor "@"
  332. transmit "D^m"
  333. waitfor "@" 30
  334. pause 2
  335. clear
  336. box 00 00 22 38 07
  337. box 00 41 22 79 07
  338. atsay 01 02 07 "A Atlanta, GA ........... 404 GAATL"
  339. atsay 02 02 07 "B Boston, MA ............ 617 MABOS"
  340. atsay 03 02 07 "C Chicago, IL ....... 312 815 ILCHI"
  341. atsay 04 02 07 "D Cleveland, OH ......... 216 OHCLV"
  342. atsay 05 02 07 "E Dallas, TX ........ 214 817 TXDAL"
  343. atsay 06 02 07 "F Denver, CO ............ 303 CODEN"
  344. atsay 07 02 07 "G Detroit, MI ........... 313 MIDET"
  345. atsay 08 02 07 "H Glendale, CA .......... 818 CAGLE"
  346. atsay 09 02 07 "I Hartford, CT .......... 203 CTHAR"
  347. atsay 10 02 07 "J Houston, TX ........... 713 TXHOU"
  348. atsay 11 02 07 "K Kansas City, MO ... 816 913 MOKAN"
  349. atsay 12 02 07 "L Los Angeles, CA ....... 213 CALAN"
  350. atsay 13 02 07 "M Miami, FL ............. 305 FLMIA"
  351. atsay 14 02 07 "N Milwaukee, WI ......... 414 WIMIL"
  352. atsay 15 02 07 "O Minneapolis, MN ....... 612 MNMIN"
  353. atsay 16 02 07 "P Newark, NJ ............ 201 NJNEW"
  354. atsay 17 02 07 "Q New York, NY ...... 212 718 NYNYO"
  355. atsay 18 02 07 "R Palo Alto, CA ..... 415 408 CAPAL"
  356. atsay 19 02 07 "S Philadelphia, PA ...... 215 PAPHI"
  357. atsay 20 02 07 "T Phoenix, AZ ........... 602 AZPHO"
  358. atsay 21 02 07 "U Portland, OR .......... 503 ORPOR"
  359. atsay 01 43 07 "V Res Tri Prk, NC ....... 919 NCRTP"
  360. atsay 02 43 07 "W Riverside, CA ......... 714 CARIV"
  361. atsay 03 43 07 "X Sacramento, CA ........ 916 CASAC"
  362. atsay 04 43 07 "Y Salt Lake City, UT .... 801 UTSLC"
  363. atsay 05 43 07 "Z San Diego, CA ......... 619 CASAD"
  364. atsay 06 43 07 "0 San Francisco, CA ..... 415 CASFA"
  365. atsay 07 43 07 "1 San Jose, CA ...... 408 415 CASJO"
  366. atsay 08 43 07 "2 Santa Ana, CA ......... 714 CASAN"
  367. atsay 09 43 07 "3 Seattle, WA ........... 206 WASEA"
  368. atsay 10 43 07 "4 St. Louis, MO ..... 314 618 MOSLO"
  369. atsay 11 43 07 "5 Tampa, FL ............. 813 FLTAM"
  370. atsay 12 43 07 "6 Washington, DC  202 301 703 DCWAS"
  371. atsay 13 43 07 "7 ....................... ... ....."
  372. atsay 14 43 07 "8 ....................... ... ....."
  373. atsay 15 43 07 "9 ....................... ... ....."
  374. atsay 16 43 07 "@ ....................... ... ....."
  375. atsay 17 43 07 "# ....................... ... ....."
  376. atsay 18 43 07 "& ....................... ... ....."
  377. atsay 19 43 07 "$ ....................... ... ....."
  378. atsay 20 43 07 "% ....................... ... ....."
  379. atsay 21 43 07 "* ....................... ... ....."
  380. locate 23 00
  381. get s0
  382. goto top
  383. return
  384. 
  385.