home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / zmodem / zcommbar.arc / 213.T < prev    next >
Encoding:
Text File  |  1987-12-23  |  847 b   |  19 lines
  1. begin:      ena -8g;cls;lput \r
  2.             lput " ╒ 213 Directory ════════════════════╕\r\n"
  3.             lput " │ a - Rainbow                       │\r\n"
  4.             lput " │ b - West LA RCP/M                 │\r\n"
  5.             lput " │ c - MBBS Headquarters             │\r\n"
  6.             lput " │ d - Oriental Express              │\r\n"
  7.             lput " │ 1 - New City     0 - Redial       │\r\n"
  8.             lput " ╘═══════════════════════════════════╛\r\n"
  9.           acceptl1 s1 "Letter ?"
  10.           if is1,d put "d532-3336\r"
  11.           if is1,c put "d653-6398\r"
  12.           if is1,b put "d838-9229\r"
  13.           if is1,a put "d376-9567\r"
  14.           if is1,1 break; put \rD\r;call city.pursuit.t
  15.           if is1,0 put r\r;pat 1 S?;wait;put 5\r
  16.           pat 1i LINE;pat 2 *;wait
  17.           if !1 goback begin
  18.           t
  19.