home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / zmodem / zcommbar.arc / 216.T < prev    next >
Text File  |  1987-12-22  |  1KB  |  27 lines
  1. begin:      ena -8g;cls;lput \r
  2.             lput " ╒ 216 Directory ════════════════════╕\r\n"
  3.             lput " │ a - Ken Seman's Board             │\r\n"
  4.             lput " │ b - The Machine                   │\r\n"
  5.             lput " │ c - Cleveland RBBS                │\r\n"
  6.             lput " │ d - Telecomm Network              │\r\n"
  7.             lput " │ e - Infoguide #1                  │\r\n"
  8.             lput " │ f - Infoguide #2                  │\r\n"
  9.             lput " │ g - Modem World                   │\r\n"
  10.             lput " │ h - Micro-Chip                    │\r\n"
  11.             lput " │ 1 - New City     0 - Redial       │\r\n"
  12.             lput " ╘═══════════════════════════════════╛\r\n"
  13.           acceptl1 s1 "Letter ?"
  14.           if is1,h put "d225-6130\r"
  15.           if is1,g put "d252-2630\r"
  16.           if is1,f put "d621-3435\r"
  17.           if is1,e put "d621-3434\r"
  18.           if is1,d put "d486-0348\r"
  19.           if is1,c put "d331-3576\r"
  20.           if is1,b put "d252-1288\r"
  21.           if is1,a put "d581-1190\r"
  22.           if is1,1 break; put \rD\r;call city.pursuit.t
  23.           if is1,0 put r\r;pat 1 S?;wait;put 5\r
  24.           pat 1i LINE;pat 2 *;wait
  25.           if !1 goback begin
  26.           t
  27.