home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / utils / miscutil.zip / MIRRORDD.ZIP / MIRRORDD.XTS < prev    next >
Text File  |  1987-07-24  |  10KB  |  630 lines
  1. MO C
  2. SC T
  3. rd 0
  4. message
  5. A: Bit Bucket                           X: F77L
  6. B: Hal PC                               Y: Microstuf
  7. C: Hal PC #2                            Z: K101
  8. D: AT&T                                 0: TBL
  9. E: HAL Tech                             1: brief
  10. F: fulcrum's edge                       2: Mirror
  11. G: Seabrook                             3:
  12. H: Big Boys                             4:
  13. I: oxy                                  5:
  14. J: doubledos                            6:
  15. K: pc persuit 800                       7:
  16. L: persuit cities                       8:
  17. M: Eagle Tech                           9:
  18. N: Flagship Frodo II                    `:
  19. O: Pegasus on line                      ]:
  20. P: Archimedes lever                     -:
  21. Q: Cats Meow                            =:
  22. R: Last Stop                            /:
  23. S: Pseudonym                            \:
  24. T: Computer Craft                       ;:
  25. U: Fidos Partner                        ':
  26. V: YELLOW ROSE                          .:
  27. W: PC'S LIMITED                         ,:
  28. .
  29. FK C7 ""
  30. ;
  31. La ASK-1
  32. ASK 1st number 
  33. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUMP CONTINUE
  34. FK C8 DIAL-1
  35. FK C9 FK A1
  36. FK C10 ASK-2
  37. JUMP SET-@
  38. LA ASK-2
  39. ASK 2nd number 
  40. FK C7 FK A2 DIAL-1
  41. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
  42. FK C9 FK A2
  43. FK C10 ASK-3
  44. JUMP SET-@
  45. LA ASK-3
  46. ASK 3rd number 
  47. FK C7 FK A3 DIAL-1
  48. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
  49. FK C9 FK A3
  50. FK C10 ASK-4
  51. JUMP SET-@
  52. LA ASK-4
  53. ASK 4th number 
  54. FK C7 FK A4 DIAL-1
  55. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
  56. FK C9 FK A4
  57. FK C10 ASK-5
  58. JUMP SET-@
  59. LA ASK-5
  60. ASK 5th number 
  61. FK C7 FK A5 DIAL-1
  62. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
  63. FK C9 FK A5
  64. FK C10 ASK-6
  65. JUMP SET-@
  66. LA ASK-6
  67. ASK 6th number 
  68. FK C7 FK A6 DIAL-1
  69. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
  70. FK C9 FK A6
  71. FK C10 ASK-7
  72. JUMP SET-@
  73. LA ASK-7
  74. ASK 7th number 
  75. FK C7 FK A7 DIAL-1
  76. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
  77. FK C9 FK A7
  78. FK C10 ASK-8
  79. JUMP SET-@
  80. LA ASK-8
  81. ASK 8th number 
  82. FK C7 FK A8 DIAL-1
  83. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
  84. FK C9 FK A8
  85. FK C10 ASK-9
  86. JUMP SET-@
  87. LA ASK-9
  88. ASK 9th number 
  89. FK C7 FK A9 DIAL-1
  90. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
  91. FK C9 FK A9
  92. FK C10 ASK-10
  93. JUMP SET-@
  94. LA ASK-10
  95. ASK 10th number 
  96. FK C7 FK A10 DIAL-1
  97. If -ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789`]-=.,/\;' JUmp start-dial
  98. FK C9 FK A10
  99. FK C10 START-DIAL
  100. JUMP SET-@
  101. ;
  102. ;Here goes the sets.  This sets up the function keys and returns to the next
  103. ;ask.  All of this would not be needed if Mirror would allow the
  104. ;following code:  FK f1 CALL-@
  105. ;
  106. LA SET-A
  107. @C9 CALL-A
  108. JUMP @C10
  109. LA SET-B
  110. @C9 CALL-B
  111. JUMP @C10
  112. LA SET-C
  113. @C9 CALL-C
  114. JUMP @C10
  115. LA SET-D
  116. @C9 CALL-D
  117. JUMP @C10
  118. LA SET-E
  119. @C9 CALL-E
  120. JUMP @C10
  121. LA SET-F
  122. @C9 CALL-F
  123. JUMP @C10
  124. LA SET-G
  125. @C9 CALL-G
  126. JUMP @C10
  127. LA SET-H
  128. @C9 CALL-H
  129. JUMP @C10
  130. LA SET-I
  131. @C9 CALL-I
  132. JUMP @C10
  133. LA SET-J
  134. @C9 CALL-J
  135. JUMP @C10
  136. LA SET-K
  137. @C9 CALL-K
  138. JUMP @C10
  139. LA SET-L
  140. @C9 CALL-L
  141. JUMP @C10
  142. LA SET-M
  143. @C9 CALL-M
  144. JUMP @C10
  145. LA SET-N
  146. @C9 CALL-N
  147. JUMP @C10
  148. LA SET-O
  149. @C9 CALL-O
  150. JUMP @C10
  151. LA SET-P
  152. @C9 CALL-P
  153. JUMP @C10
  154. LA SET-Q
  155. @C9 CALL-Q
  156. JUMP @C10
  157. LA SET-R
  158. @C9 CALL-R
  159. JUMP @C10
  160. LA SET-S
  161. @C9 CALL-S
  162. JUMP @C10
  163. LA SET-T
  164. @C9 CALL-T
  165. JUMP @C10
  166. LA SET-U
  167. @C9 CALL-U
  168. JUMP @C10
  169. LA SET-V
  170. @C9 CALL-V
  171. JUMP @C10
  172. LA SET-W
  173. @C9 CALL-W
  174. JUMP @C10
  175. LA SET-X
  176. @C9 CALL-X
  177. JUMP @C10
  178. LA SET-Y
  179. @C9 CALL-Y
  180. JUMP @C10
  181. LA SET-Z
  182. @C9 CALL-Z
  183. JUMP @C10
  184. LA SET-0
  185. @C9 CALL-0
  186. JUMP @C10
  187. LA SET-1
  188. @C9 CALL-1
  189. JUMP @C10
  190. LA SET-2
  191. @C9 CALL-2
  192. JUMP @C10
  193. LA SET-3
  194. @C9 CALL-3
  195. JUMP @C10
  196. LA SET-4
  197. @C9 CALL-4
  198. JUMP @C10
  199. LA SET-5
  200. @C9 CALL-5
  201. JUMP @C10
  202. LA SET-6
  203. @C9 CALL-6
  204. JUMP @C10
  205. LA SET-7
  206. @C9 CALL-7
  207. JUMP @C10
  208. LA SET-8
  209. @C9 CALL-8
  210. JUMP @C10
  211. LA SET-9
  212. @C9 CALL-9
  213. JUMP @C10
  214. LA SET-`
  215. @C9 CALL-`
  216. JUMP @C10
  217. LA SET-]
  218. @C9 CALL-]
  219. JUMP @C10
  220. LA SET-=
  221. @C9 CALL-=
  222. JUMP @C10
  223. LA SET--
  224. @C9 CALL--
  225. JUMP @C10
  226. LA SET-.
  227. @C9 CALL-.
  228. JUMP @C10
  229. LA SET-,
  230. @C9 CALL-,
  231. JUMP @C10
  232. LA SET-/
  233. @C9 CALL-/
  234. JUMP @C10
  235. LA SET-\
  236. @C9 CALL-\
  237. JUMP @C10
  238. LA SET-;
  239. @C9 CALL-;
  240. JUMP @C10
  241. LA SET-'
  242. @C9 CALL-'
  243. JUMP @C10
  244. ;
  245. ; The following code does the dialing.
  246. ; For each loop, C8 is set mearly so the user can start the redial from where
  247. ; he left off.  C9 is set so that deletion from the queue can be done.  C10 is
  248. ; set for the place to go to for the next dialing sequence.
  249. ;
  250. LAbel START-DIAL
  251. @C7        
  252. ;put whatever you want between this statement and the JUmp
  253. DA 8
  254. PA N
  255. SC S
  256. JUMP @C8
  257. ;
  258. LABEL DIAL-1
  259. if $ JUMP ONLINE
  260. FK C8 DIAL-1
  261. FK C9 FK A1 DIAL-2
  262. FK C10 DIAL-2
  263. JUMP @A1
  264. ;
  265. LABEL DIAL-2
  266. if $ JUMP ONLINE
  267. FK C8 DIAL-2
  268. FK C9 FK A2 DIAL-3
  269. FK C10 DIAL-3
  270. JUMP @A2
  271. ;
  272. LABEL DIAL-3
  273. if $ JUMP ONLINE
  274. FK C8 DIAL-3
  275. FK C9 FK A3 DIAL-4
  276. FK C10 DIAL-4
  277. JUMP @A3
  278. ;
  279. LABEL DIAL-4
  280. if $ JUMP ONLINE
  281. FK C8 DIAL-4
  282. FK C9 FK A4 DIAL-5
  283. FK C10 DIAL-5
  284. JUMP @A4
  285. ;
  286. LABEL DIAL-5
  287. if $ JUMP ONLINE
  288. FK C8 DIAL-5
  289. FK C9 FK A5 DIAL-6
  290. FK C10 DIAL-6
  291. JUMP @A5
  292. ;
  293. LABEL DIAL-6
  294. if $ JUMP ONLINE
  295. FK C8 DIAL-6
  296. FK C9 FK A6 DIAL-7
  297. FK C10 DIAL-7
  298. JUMP @A6
  299. ;
  300. LABEL DIAL-7
  301. if $ JUMP ONLINE
  302. FK C8 DIAL-7
  303. FK C9 FK A7 DIAL-8
  304. FK C10 DIAL-8
  305. JUMP @A7
  306. ;
  307. LABEL DIAL-8
  308. if $ JUMP ONLINE
  309. FK C8 DIAL-8
  310. FK C9 FK A8 DIAL-9
  311. FK C10 DIAL-9
  312. JUMP @A8
  313. ;
  314. LABEL DIAL-9
  315. if $ JUMP ONLINE
  316. FK C8 DIAL-9
  317. FK C9 FK A9 DIAL-10
  318. FK C10 DIAL-10
  319. JUMP @A9
  320. ;
  321. LABEL DIAL-10
  322. if $ JUMP ONLINE
  323. FK C8 DIAL-10
  324. FK C9 FK A10 DIAL-1
  325. FK C10 DIAL-1
  326. JUMP @A10
  327. ;
  328. Label RTurn
  329. LAbel ONLINE
  330. WAit Manual
  331. ask @c7 What script do you wish to run?
  332. do @c7
  333. jump online
  334. ;
  335. LAbel RTurn
  336. LAbel CONTINUE
  337. sc s
  338. ASk Delete from queue?
  339. if y @C9
  340. JUMP START-DIAL
  341. ;
  342. LABEL DELETE
  343. @C9
  344. JUMP START-DIAL
  345. ;
  346. LAbel recall
  347. JUmp START-DIAL
  348. ;
  349. ;here is where the dialing information goes.  You can stick in any valid
  350. ;mirror commands.  You will usually set the name, phone number, and baud
  351. ;rate.  You can even call a nested script file if you like.
  352. ;
  353. LABEL CALL-A
  354. NAME Bit Bucket
  355. NUMBER 332-4006
  356. GO R1/45
  357. IF -$ JUMP @C10
  358. JUMP ONLINE
  359. LABEL CALL-B
  360. NAME Hal PC
  361. NUMBER 8473800
  362. GO R1/45
  363. IF -$ JUMP @C10
  364. JUMP ONLINE
  365. LABEL CALL-C
  366. NAME Hal-PC #2
  367. NUMBER 442-6704
  368. GO R1/45
  369. IF -$ JUMP @C10
  370. JUMP ONLINE
  371. LABEL CALL-D
  372. NAME AT&T
  373. NUMBER 7825454
  374. GO R1/45
  375. IF -$ JUMP @C10
  376. JUMP ONLINE
  377. LABEL CALL-E
  378. NAME HAL Tech
  379. NUMBER 4744134
  380. GO R1/45
  381. IF -$ JUMP @C10
  382. JUMP ONLINE
  383. LABEL CALL-F
  384. NAME Fulcrum's Edge
  385. NUMBER 3506284
  386. GO R1/45
  387. IF -$ JUMP @C10
  388. JUMP ONLINE
  389. LABEL CALL-G
  390. NAME Seabrook
  391. NUMBER 4825526
  392. GO R1/45
  393. IF -$ JUMP @C10
  394. JUMP ONLINE
  395. LABEL CALL-H
  396. NAME Big Boys
  397. NUMBER 3243416
  398. GO R1/45
  399. IF -$ JUMP @C10
  400. JUMP ONLINE
  401. LABEL CALL-I
  402. NAME Oxy
  403. NUMBER 6459751
  404. GO R1/45
  405. IF -$ JUMP @C10
  406. JUMP ONLINE
  407. LABEL CALL-J
  408. NAME Doubledos
  409. NUMBER 16036445556
  410. GO R1/45
  411. IF -$ JUMP @C10
  412. JUMP ONLINE
  413. LABEL CALL-K
  414. NAME PC Persuit 800
  415. NUMBER 18008353001
  416. GO R1/45
  417. IF -$ JUMP @C10
  418. JUMP ONLINE
  419. LABEL CALL-L
  420. NAME PC Persuit Cities
  421. NUMBER 18004249494
  422. GO R1/45
  423. IF -$ JUMP @C10
  424. JUMP ONLINE
  425. LABEL CALL-M
  426. NAME Eagle Tech
  427. NUMBER 17148913037
  428. GO R1/45
  429. IF -$ JUMP @C10
  430. JUMP ONLINE
  431. LABEL CALL-N
  432. NAME Flagship Frodo II
  433. NUMBER 9874163
  434. GO R1/45
  435. IF -$ JUMP @C10
  436. JUMP ONLINE
  437. LABEL CALL-O
  438. NAME Peagasus On Line
  439. NUMBER 4991857
  440. GO R1/45
  441. IF -$ JUMP @C10
  442. JUMP ONLINE
  443. LABEL CALL-P
  444. NAME Archemedies Lever
  445. NUMBER 3912258
  446. GO R1/45
  447. IF -$ JUMP @C10
  448. JUMP ONLINE
  449. LABEL CALL-Q
  450. NAME Cats Meow
  451. NUMBER 4882036
  452. GO R1/45
  453. IF -$ JUMP @C10
  454. JUMP ONLINE
  455. LABEL CALL-R
  456. NAME Last Stop
  457. NUMBER 664-0222
  458. GO R1/45
  459. IF -$ JUMP @C10
  460. JUMP ONLINE
  461. LABEL CALL-S
  462. NAME Pseudonym
  463. NUMBER 937-6779
  464. GO R1/45
  465. IF -$ JUMP @C10
  466. JUMP ONLINE
  467. LABEL CALL-T
  468. NAME Computer Craft
  469. NUMBER 9528492
  470. GO R1/45
  471. IF -$ JUMP @C10
  472. JUMP ONLINE
  473. LABEL CALL-U
  474. NAME Fidos Partner
  475. NUMBER 458-7410
  476. GO R1/45
  477. IF -$ JUMP @C10
  478. JUMP ONLINE
  479. LABEL CALL-V
  480. NAME Yellow Rose
  481. NUMBER 326-2999
  482. GO R1/45
  483. IF -$ JUMP @C10
  484. JUMP ONLINE
  485. LABEL CALL-W
  486. NAME PC's Limited
  487. NUMBER 1 512 339 4127
  488. GO R1/45
  489. IF -$ JUMP @C10
  490. JUMP ONLINE
  491. LABEL CALL-X
  492. NAME f77l
  493. NUMBER 1 702 831 8023
  494. GO R1/45
  495. IF -$ JUMP @C10
  496. JUMP ONLINE
  497. LABEL CALL-Y
  498. NAME Microstuf
  499. NUMBER 1 404 998 8048
  500. GO R1/45
  501. IF -$ JUMP @C10
  502. JUMP ONLINE
  503. LABEL CALL-Z
  504. NAME k101
  505. NUMBER 523-2425
  506. GO R1/45
  507. IF -$ JUMP @C10
  508. DA 7
  509. PA E
  510. JUMP ONLINE
  511. LABEL CALL-0
  512. NAME Tbl
  513. NUMBER 661-9040
  514. GO R1/45
  515. IF -$ JUMP @C10
  516. JUMP ONLINE
  517. LABEL CALL-1
  518. NAME brief
  519. NUMBER 1 617 659 1479
  520. GO R1/45
  521. IF -$ JUMP @C10
  522. JUMP ONLINE
  523. LABEL CALL-2
  524. NAME  Mirror
  525. NUMBER 19048789884
  526. GO R1/45
  527. IF -$ JUMP @C10
  528. JUMP ONLINE
  529. LABEL CALL-3
  530. NAME
  531. NUMBER
  532. GO R1/45
  533. IF -$ JUMP @C10
  534. JUMP ONLINE
  535. LABEL CALL-4
  536. NAME
  537. NUMBER
  538. GO R1/45
  539. IF -$ JUMP @C10
  540. JUMP ONLINE
  541. LABEL CALL-5
  542. NAME
  543. NUMBER
  544. GO R1/45
  545. IF -$ JUMP @C10
  546. JUMP ONLINE
  547. LABEL CALL-6
  548. NAME
  549. NUMBER
  550. GO R1/45
  551. IF -$ JUMP @C10
  552. JUMP ONLINE
  553. LABEL CALL-7
  554. NAME
  555. NUMBER
  556. GO R1/45
  557. IF -$ JUMP @C10
  558. JUMP ONLINE
  559. LABEL CALL-8
  560. NAME
  561. NUMBER
  562. GO R1/45
  563. IF -$ JUMP @C10
  564. JUMP ONLINE
  565. LABEL CALL-9
  566. NAME
  567. NUMBER
  568. GO R1/45
  569. IF -$ JUMP @C10
  570. JUMP ONLINE
  571. LABEL CALL-`
  572. NAME
  573. NUMBER
  574. GO R1/45
  575. IF -$ JUMP @C10
  576. JUMP ONLINE
  577. LABEL CALL-]
  578. NAME
  579. NUMBER
  580. GO R1/45
  581. IF -$ JUMP @C10
  582. JUMP ONLINE
  583. LABEL CALL--
  584. NAME
  585. NUMBER
  586. GO R1/45
  587. IF -$ JUMP @C10
  588. JUMP ONLINE
  589. LABEL CALL-=
  590. NAME
  591. NUMBER
  592. GO R1/45
  593. JUMP @C10
  594. LABEL CALL-.
  595. NAME
  596. NUMBER
  597. GO R1/45
  598. IF -$ JUMP @C10
  599. JUMP ONLINE
  600. LABEL CALL-,
  601. NAME
  602. NUMBER
  603. GO R1/45
  604. IF -$ JUMP @C10
  605. JUMP ONLINE
  606. LABEL CALL-/
  607. NAME
  608. NUMBER
  609. GO R1/45
  610. IF -$ JUMP @C10
  611. JUMP ONLINE
  612. LABEL CALL-\
  613. NAME
  614. NUMBER
  615. GO R1/45
  616. IF -$ JUMP @C10
  617. JUMP ONLINE
  618. LABEL CALL-;
  619. NAME
  620. NUMBER
  621. GO R1/45
  622. IF -$ JUMP @C10
  623. JUMP ONLINE
  624. LABEL CALL-'
  625. NAME
  626. NUMBER
  627. GO R1/45
  628. IF -$ JUMP @C10
  629. JUMP ONLINE
  630.