; E.LIT- An accessory to AMUS EMAIL for Alpha Base systems

;*************************************************************************
;**									**
;**			       E . L I T				**
;**									**
;**				  BY					**
;**									**
;**			    Michael Spalding				**
;**		       Northview Laboratories, Inc.			**
;**		 	   Copyright 1986 (C)				**
;**		          All Rights Reserved				**
;**		       Donated to AMUS 16-Jan-87			**
;**									**
;*************************************************************************
;**									**
;**  Permission is granted to any individual or institution to copy or 	**
;**  use this software and the routines described in it, except for 	**
;**  commercial purposes. This software must not be sold to any person	**
;**  or institution.							**
;**									**
;*************************************************************************

; This program is useful for systems running Alpha Base and the AMUS
; EMAIL program.  It simply executes the MALINI program, then the
; Alpha Base program STRMEN.  
;
; Usage:  E {MENU #}
; 
; MENU # is simply the starting menu for this user.  If no menu # is 
; specified, the Alpha Base Main Menu (1010) is the default.  To use
; this program, place the command E {MENU #} in field 10 of the Alpha
; Base User File ("Menu # or .CMD").  The user will automatically be
; logged into the EMAIL system when they log on through the Alpha Base
; LOGIN program.  Be sure to have the AB compatable version of MAILON 
; (v 1.1, 362-154-561-663) and EMAIL (v 1.1, 361-734-227-766) in your
; SYS account.  This program is called E since a short name was needed
; to allow it to fit in the 6 character field of the user file.  You 
; should place this program in SYSTEM memory for faster execution.  You
; will also need to place a MAILOF command everywhere you have a LOGIN
; command so the user is logged off the EMAIL system when they log off.

; Edit History:
;
; Initials               Name               Company Name            Phone
; ========      ======================  ====================    ============
;   MJS		Michael Spalding	Northview Labs		312-564-8181
;
; Version     Date     Initials 	        Description
; ======= ===========  ========	==============================================
;
;  1.0     16-Jan-87	MJS	Original version
;				



	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM
	
	VMAJOR=1.
	VMINOR=0.
	VSUB=0.
	VEDIT=0.
	VWHO=0.

	RADIX	16.
	
	.OFDEF	MENUNO,10.		; menu #
	.OFDEF	CMDBUF,30.		; command buffer
	.OFSIZ	IMPSIZ
	
START:	PHDR	-2,0,PH$REE!PH$REU
	GETIMP	IMPSIZ,A3
	LEA	A1,MENUNO(A3)		; index menu # buffer
	BYP				; skip blanks
	TRM				; end of line
	BNE	10$			; no- go get menu #
	LEA	A2,DFAULT		; index default menu #
10$:	MOVB	(A2)+,(A1)+		; store next chr of menu #
	TRM				; terminator?
	BNE	10$			; no- get next char
	CLRB	@A1			; end with a null
	PUSH	A3			; just in case
	LEA	A2,MAILON		; index MAILON command string
	AMOS				; execute it
	POP	A3			; restore
	LEA	A1,STRMEN		; index STRMEN command string
	LEA	A2,CMDBUF(A3)		; index command buffer
20$:	MOVB	(A1)+,(A2)+		; store next byte
	TSTB	@A1			; end of string?
	BNE	20$			; no- get more
	LEA	A1,MENUNO(A3)		; index menu #
30$:	MOVB	(A1)+,(A2)+		; get next byte
	TSTB	@A1			; null?
	BNE	30$			; nope- get more
	MOVB	#0D,(A2)+		; append CR LF null
	MOVB	#0A,(A2)+
	CLRB	@A2
	LEA	A2,CMDBUF(A3)		; reindex command buffer
	AMOS				; execute it
	EXIT
	
DFAULT:	ASCII	\1010\			; default menu # (change if desired)
	BYTE	0D,0A,0
	
MAILON:	ASCII	\MAILON\		; MAILON command
	BYTE	0D,0A,0
	
STRMEN:	ASCII	\STRMEN \		; STRMEN command
	BYTE	0
	EVEN
	END

.