/********** Automaticly generated header, don't edit ************************
 *
 * PROGRAM:       FPEP.rexx
 *
 * PURPOSE:       Add extra items to CNet's build-in EP command.
 *
 * CNET VERSION:  3.05c
 *
 * DATE:          14 Oct 94                      
 *
 * TIME:          13:59:53                      
 *
 * VERSION:       0
 * REVISION:      2
 * SUBREVISION:   0
 *
 * LOG:
 * 
 *  14 Oct 94 Found a small bug. If a user entered a number on a line input,
 *            then the input would cause FPEP to see it as one of the extra
 *            commands. Fixed it by using GetUser 74 to hold a flag, when one
 *            of the offending lineinputs is used.
 *  12 Oct 94 First Version.
 *
 * INSTALLATION:
 *
 * [The EP command]
 *
 * Change BBSTEXT, line 1167 to this:
 *
 *   #0PFiles:FPEP.rexx EP}n1System preferences:n2
 *
 *
 * Change BBSTEXT, line 1198 to this:
 *
 *   L74 #FPEP}n1Enter your new UUCP ID:n1: 
 *
 *
 * Change BBSTEXT, line 1203 to this:
 *
 *   L74 #FPEP}n1FORWARD your mail?  Enter the recipient's handle, or press ENTER.n1: 
 *
 *
 * Change BBSTEXT, line 1213 to this:
 *
 *   L74 #FPEP}n1Enter text to appear under your name during a "WHO" command:n1: 
 *
 *
 * Change BBSTEXT, line 2086 to this:
 *
 *   17) Edit network aliases.40}18) Item #18.n119) Item #19.
 *
 * (Fill in the text for the pfiles you want to use, instead of the 'Item..')
 *
 *
 * [The ET command]
 *
 * Change BBSTEXT, line 1216 to this:
 *
 *   #0PFiles:FPEP.rexx ET}n1Here are the terminal settings you've selected:n2
 *
 *
 * Change BBSTEXT, line 1241 to this:
 *
 *   L74 #FPEP}n1c7Enter the number of characters per line your terminal can display.n1: 
 *
 *
 * Change BBSTEXT, line 1243 to this:
 *
 *   L74 #FPEP}n1c7Enter the number of lines that yourn1terminal can display.n1: 
 *
 *
 * Change BBSTEXT, line 1249 to this:
 *
 *   L74 #FPEP}n1c7Enter the # of a computer type.n1: 
 *
 *
 * Change BBSTEXT, line 1234 to this:
 *
 *    8) ANSI color   : %sn1 9) Item #9..40}10) item #10.
 *
 * (Fill in the text for the pfiles you want to use, instead of the 'Item..')
 *
 * ==========================================================================
 *
 *   Another
 *        _____ __    __  __ __  __     ___   ____   __ __  __ ______
 *       / ___// /   / / / / \ \/ /    / _ \ / __ \ / //  \/ //_  __/
 *      / __/ / /__ / /_/ /  /   /    / ___// /_/ // // /\  /  / /
 *     /_/   /____/ \____/  /_/\_\   /_/    \____//_//_/ /_/  /_/    
 *
 *                          P R O D U C T I O N
 *
 *     Call +45 3526-2527    FIDO 2:235/202.0    CLINK 912:2000/4.0
 *
 ***************************************************************************/

/* revision string for the version command. */

ver="$VER: FPEP 0.2 (14.10.94) by PMK"

options results
getuser 74;if result='FPEP' then do;setobject '';putuser 74;exit;end
getuser 1305640;a=result;b=upper(arg(1));select
	when b='EP' then select			/* Userdefinable commands start at #18 */
									/* Change these to the Pfiles you want */

		when a=18 then sendstring '#0PFiles:FPDIZ/FPDIZ3.rexx}'
		when a=19 then sendstring '#0PFiles:CCSDD/FPDDC.rexx}'
		otherwise nop
	end
	when b='ET' then select			/* Userdefinable commands start at #9  */
									/* Change these to the Pfiles you want */

		when a=9 then sendstring '#4rx Pfiles:SysOLM.rexx - %23}'
		when a=10 then sendstring '& wh}'
		otherwise nop
	end
	otherwise transmit 'b1FPEP Setup Error! - Please inform the Sysop!!'
end;exit