;Note:  If editing this file with Wordstar, use non-document mode only! 
;
;Use this file as a template for installing your own telephone
;numbers and macro strings.  Note that the strings must be 32
;characters or less.  The telephone numbers MUST BE KEPT 
;BETWEEN THE SINGLE QUOTES.  Do your library on a backup
;copy of this file so that you can go back to it if you get
;messed up.  You should get a copy of CHGLIB16.COM from your
;local RCPM system to maintain the telephone number library.
;It will not, however, edit the alternate long distance numbers.
;I have found that, once numbers are installed, they are fairly 
;easily kept up by using CHGLIB16 and EDFILE (for the strings and
;ALDS numbers.  Both are public domain. 
;
;Once you have filled in your working copy of this file, assemble it
;with ASM.COM.  You then merge it using MLOAD.COM (public domain)
;thus:  MLOAD CATPCPI.COM=CATPCPI.COM,NUMS.HEX.  You alternatively
;could use DDT, but MLOAD is so much easier and less error prone.
; 
	org	0150H
;
;ALL STRINGS MUST BE 31 CHARACTERS OR LESS AND MUST BE TERMINATED WITH 0
;
STRINGS:
	DB	'STRING #0 AT 150H',0
	DS	STRINGS-$+32*1
	DB	'STRING #1 AT 170H',0
	DS	STRINGS-$+32*2
	DB	'STRING #2 AT 190H',0
	DS	STRINGS-$+32*3
	DB	'STRING #3 AT 1B0H',0
	DS	STRINGS-$+32*4
	DB	'STRING #4 AT 1D0H',0
	DS	STRINGS-$+32*5
	DB	'STRING #5 AT 1F0H',0
	DS	STRINGS-$+32*6
	DB	'STRING #6 AT 210H',0
	DS	STRINGS-$+32*7
	DB	'STRING #7 AT 230H',0
	DS	STRINGS-$+32*8
	DB	'STRING #8 AT 250H',0
	DS	STRINGS-$+32*9
	DB	'STRING #9 AT 270H',0
	DS	STRINGS-$+32*10
;
;
;PHONE NUMBER LIBRARY TABLE.
;
;EACH DB MUST BE 32 CHARACTERS LONG FOR PROPER OPERATION.
;LAST DB MUST BE DB 0. UP TO 26 NUMBERS ARE ALLOWED.
;
NUMBLIB:
;	'----5---10---15---20---25-----32'
DB	'A=AMRAD           1-703-734-1387'	;'A'
DB	'B=ROCHESTER RBBS  1-716-425-1785'	;'B'
DB	'C=CBBS PASADENA   1-818-799-1632'	;'C'
DB	'D=NOVATION        1-818-881-6880'	;'D'
DB	'E=TECH. CBBS      1-313-846-6127'	;'E'
DB	'F=RON FOWLER     1-313-729-1905R'	;'F'
DB	'G=GASNET NASA     1-301-344-9156'	;'G'
DB	'H=DAVE HARDY      1-313-846-6127'	;'H'
DB	'I=WAYNE HAMMERLY  1-301-953-3753'	;'I'
DB	'J=RBBS PASADENA   1-818-356-1034'	;'J'
DB	'K=TIM LINEHAN     1-206-357-7400'	;'K'
DB	'L=PROGRAM STORE   1-202-337-4694'	;'L'
DB	'M=KELLY SMITH     1-805-527-9321'	;'M'
DB	'N=SUPERBRAIN SYS  1-617-862-0781'	;'N'
DB	'O=R.L.PLOUFFE     1-703-524-2549'	;'O'
DB	'P=K.PETERSEN      <313-759-6569>'	;'P'
DB	'Q=BRUCE RATOFF    1-201-272-1874'	;'Q'
DB	'R=MARK PULVER     1-312-789-0499'	;'R'
DB	'S=LA CANADA RBBS  1-818-790-3014'	;'S'
DB	'T=                              '	;'T'
DB	'U=                              '	;'U'
DB	'V=                              '	;'V'
DB	'W=                              '	;'W'
DB	'X=                              '	;'X'
DB	'Y=                              '	;'Y'
DB	'Z=                              '	;'Z'
;
;The next two numbers define the alternate long distance service
;numbers called by < and > for example, <213-555-1212> would
;cause ALDS1 to be dialed, followed by 213-555-1212 which would
;finally be followed by ALDS2.  You can use the + symbol
;or @symbol to creat pause for second dial tone, or 2 second delay
;respectively.
;
ALDS1:
DB	'<=                              '	;'<' 
ALDS2:
DB	'>=                              '	;'>' 
DB	0					; END ALDS
;	'----5---10---15---20---25-----32'
;