home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / turbopas / pmodem.ark / DIRECTRY.INC < prev    next >
Encoding:
Text File  |  1987-02-22  |  1.0 KB  |  27 lines
  1.  
  2. {********** directory.inc **********}
  3.      { custom phone number list }
  4.  
  5. {Each entry is a letter, name & number.
  6. Number begins at position 25. Tilde ('~') at first number
  7. position for 300 baud. I note toll & long distance with '($)'.
  8. '@' at first number position indicates auto logon.}
  9. const
  10.   phone_list = 12;
  11.   phone: array[1..phone_list] of string[95] =
  12.  
  13.     { ------------------------x-------> }
  14.     ('A. The Ledge, Sunland   352-3620',
  15.      'B. Granada Engineering  360-5053',
  16.      'C. CompuServe ($)       ~982-1813',
  17.      'D. Downey RCP/M ($)     1-213-806-2226',
  18.      'E. La Canada RCP/M      790-3014',
  19.      'F. Littera, Glendale    956-6164',
  20.      'G. THE OUTPOST (my bbs) 353-8891',
  21.      'H. Charlatans Cabin ($) 1-213-656-4192',
  22.      'I. San Bernard. ROS ($) 1-714-862-3995',
  23.      'J. The Discovery (Jim)  353-0770',
  24.      'K. PBS                  ~982-0751',
  25.      'L. El Torro ROS ($)     1-714-855-0672');
  26.  
  27.