Menu for ADDRESS/TELEPHONE Database
			*************************************

	Functions

	1 .. Edit		Create, Edit and Delete cards

	2 .. Inspect 		Online querry of cards

	3 .. Print		Print telephone data stored on cards

	4 .. Index 		Create INDEX file needed by NUMBER program
				This must always be done before terminating
				if NUMBER is going to be used.

	5 .. Addresses		Print address data stored on cards

	6 .. Exit		Return to monitor

$*
$1
	$@LB:DBSEDT$$		; invoke editor
	 $IPHN:PHONES$$		; 		name of TEMPLATE
	$CLB:MENU$$		; invoke self
	 $IPHN:PHONES.MNU$$	;		name of MENU FRM file
$!

$2
	$@LB:SELECT$$		; invoke selector
	 $IPHN:PHONES$$		; 		name of TEMPLATE
	 $IPHN:PHONES.SE2$$	;		name of FRM file
	 $IDBS:PHONES.INX$$	;		name of SRT file
	 $I42$$			;		entry size
	$CLB:SORTER$$		; invoke sorter
	 $IDBS:PHONES.INX$$	;		name of SRT file
	$CLB:INSPEC$$		; invoke inspector
	 $IPHN:PHONES$$		; 		name of TEMPLATE
	 $IDBS:PHONES.INX$$	;		name of SRT file
	$CLB:MENU$$		; invoke self
	 $IPHN:PHONES.MNU$$	;		name of MENU FRM file
$!

$3	$@LB:SELECT$$		; invoke selector
	 $IPHN:PHONES$$		; 		name of TEMPLATE
	 $IPHN:PHONES.SE3$$	;		name of FRM file
	 $IDBS:PHONES.INX$$	;		name of SRT file
	 $I$$			;		entry size
	$CLB:SORTER$$		; invoke sorter
	 $IDBS:PHONES.INX$$	;		name of SRT file
	$CLB:REPORT$$		; invoke reporter
	 $IPHN:PHONES$$		; 		name of TEMPLATE
	 $IPHN:PHONES.RE3$$	;		name of FRM file
	 $IDBS:PHONES.INX$$	;		name of SRT file
	 $ILP:3.LST$$		;		name of RPT file
	$CLB:MENU$$		; invoke self
	 $IPHN:PHONES.MNU$$	;		name of MENU FRM file
$!

$4	$@LB:SELECT$$		; invoke selector
	 $IPHN:PHONES$$		; 		name of TEMPLATE
	 $IPHN:PHONES.SE4$$	;		name of FRM file
	 $IDBS:PHONES.INX$$	;		name of SRT file
	 $I60$$			;		entry size
	$CLB:SORTER$$		; invoke sorter
	 $IDBS:PHONES.INX$$	;		name of SRT file
	$CLB:MENU$$		; invoke self
	 $IPHN:PHONES.MNU$$	;		name of MENU FRM file
$!

$5	$@LB:SELECT$$		; invoke selector
	 $IPHN:PHONES$$		; 		name of TEMPLATE
	 $IPHN:PHONES.SE5$$	;		name of FRM file
	 $IDBS:PHONES.INX$$	;		name of SRT file
	 $I$$			;		entry size
	$CLB:SORTER$$		; invoke sorter
	 $IDBS:PHONES.INX$$	;		name of SRT file
	$CLB:REPORT$$		; invoke reporter
	 $IPHN:PHONES$$		; 		name of TEMPLATE
	 $IPHN:PHONES.RE5$$	;		name of FRM file
	 $IDBS:PHONES.INX$$	;		name of SRT file
	 $ILP:5.LST$$		;		name of RPT file
	$CLB:MENU$$		; invoke self
	 $IPHN:PHONES.MNU$$	;		name of MENU FRM file
$!

$6
	$@LB:EXIT$$		; invoke exit with screen clear
$!
$*