!		THESE PROGRAMS ARE FOR ALL TO USE.  PLEASE PUT IN THE SECURITY
!		SECTION OF AMOS
!
!		These programs were made up by D. J. Wright President of the
!	H. C. Harrington Co. in Pittsburgh Penna.
!
!		I decided that I needed a security system on my computer but I
!	did not want to spend a lot of money for it.  I borrowed a couple of 
!	ideas from other areas and came up with this simple system that should
!       help keep untrained thugs off your system.
!
!		I realise if a trained assign attemps to gain entry this will
!	not stop him or her from entering and possibly doing damage.  None the
!	less I sleep better at night knowing I have some type of deterant on
!	my computer.
!
!		The first thing you do is to make a START.CMD on a selected
!	device and in a selected ppn where your modem resides.  This can be
!	done as per the example below.
!
! BETWEEN THE STARS IS THE FIRST PROGRAM WHICH IS A START COMMAND WHERE YOUR
! MODEM RESIDES
*****************************************************************************


   RUN PASWRD.RUN


******************************************************************************
!
!
!		It is a one word command file that when someone logs into your
!	modem PPN they go to the program named PASWRD.RUN
!
!		I like to have the AMOSL.INI file have a section in it for the
!	the modem that reads like the following so that each time the system
!       is rebooted the security program is rerun.
!
! THIS IS HOW TO CUSTOMISE YOUR SYSTEM.INI SO EVERY TIME YOU BOOT THE NEW 
! SECURITY PROGRAM IS STARTED
*****************************************************************************


WAIT JOB?             ! ? is customised to whatever job # it is before modem
ATTACH PHONE,PHONE    ! this is where modem job is connected
KILL PHONE
FORCE PHONE
MEMORY 50K
LOG 20,1              ! This is the PPN logged into for the modem
SET DSKERR
TELSET PHONE          ! This is used for some auto answer modems
RUN PASWRD            ! This starts your security program in motion


*******************************************************************************
!
!
!		What this does is to start the PASWRD program in your modem
!	PPN when ever you reboot the system.  The reason for this is that if
!	yor rely only on the start command someone, if they are quick and they
!	would not be trying to get into your system if they were slow, could
!	CRTL C out of the START.CMD and gain illicit entry into the system.
!
!		With the addition of error'trap to PASWRD.RUN below CRTL C's
!	are trapped and the intruder is caught in a circle until they hangup.
!
!		You have another program in the same PPN that is called
!	PASWRD.BAS like the program below.
!
!		The "AAAAAAAAAA", "BBBBBBBBBB", and "CCCCCCCCCC" in the 
!	PASWRD.BAS program are customised to whatever words or numbers you 
!	desire to use for security.
!
!
!
!BELOW IS THE MEAT OF THE SECURITY SYSTEM PASWRD.BAS AFTER YOU CUSTOMISE TO 
!YOUR PASWORD COMPIL AND PUT IN PPN WITH START.CMD & WELCOM.CMD
***********************************************************************************


1000    ! PASWRD.BAS
1005	! THIS PROGRAM WAS DEVELOPED BY D. J. WRIGHT TO ACT AS A
1010	! MINIUM SECURITY DETERANT.  IF YOU HAVE SENSITIVE MATERIAL
1020	! ON YOUR COMPUTER YOU SHOULD GO TO A MORE SOPHISTICATED
1030    ! METHOID OF SECURITY.
1040    !
1050	! SEPTEMBER 1985
1060	!
1070	!  CHAINS FROM START.CMD IN SELECTED PPN WHERE MODEM RESIDES
1080	!    OR RUNS BY ITSELF
1090	!
2000	!
2005 MAP1 PASSA,S,10 ! CUSTOMISE LINE 1430 - NOW IS "AAAAAAAAAA" CAN HAVE UP 
2006                 ! TO 10 CHARACTERS OR LESS - WORD OR #'S OF YOUR CHOICE
2010 MAP1 PASSB,S,10 ! CUSTOMISE LINE 1460 NOW IS "BBBBBBBBBB"
2015 MAP1 PASSC,S,10 ! CUSTOMISE LINE 1490 NOW IS "CCCCCCCCCC"
2020 MAP1 ENTRY,S,5
2033 MAP1 ENTRY2,S,5
2035 MAP1 ENTRY3,S,5
2038 MAP1 ENTRY4,S,5
2040	!
2050    ON ERROR GOTO ERROR'TRAP
2060
2070 INPUT "                               ",ENTRY : INPUT "                               ",ENTRY2
2080 INPUT "                               ",ENTRY3 : INPUT "                               ",ENTRY4
2090	PASS'WORD:
2092
2094 ?TAB(1,1); TAB(-1,10);
3000
3060        ?TAB(14,25);"                        " PASSA;    
3070        INPUT" " PASSA
3080        ?TAB(16,25);"                        " PASSB;    
3090        INPUT" " PASSB
4000        ?TAB(18,25);"                        " PASSC;    
4010        INPUT" " PASSC
4020	!
4030        IF PASSA = "AAAAAAAAAA" THEN GOTO PASSA'OK &
     			ELSE GOTO PASS'NOT'OK
4050	PASSA'OK:
4060        IF PASSB = "BBBBBBBBBB" THEN GOTO PASSB'OK &
    			ELSE GOTO PASS'NOT'OK
4080	PASSB'OK:
4090        IF PASSC = "CCCCCCCCCC" THEN GOTO PASSC'OK &
    			ELSE GOTO PASS'NOT'OK
5010	PASSC'OK:
5020    CHAIN "WELCOM.CMD"
5030
5040    PASS'NOT'OK:
5050
5060	?TAB(22,1);"IF YOU DON'T BELONG HERE PLEASE HANGUP !" ;
5065    ?TAB(23,1);
5070    INPUT "HIT RETURN TO CONTINUE ==> ", DUMMY
5080	PASSA="    " : PASSA=""
5090	PASSB="      " : PASSB=""
6000	PASSC="  " : PASSC=""
6010    GOTO PASS'WORD
6020	!
6030	ERROR'TRAP:
6040		if err(0) = 1 &
    		    then &
     			RESUME PASS'NOT'OK
6050    END


***************************************************************************
!
!
!		Then you have a final command file that either gives a message
!	when entering system or leaves the screen blank.  I like to leave the
!	the screen blank and let the person entering the system guess that
!	they have to enter to get the command dot.  Authorised persons will
!       know what to do
!
!		I have named the command file WELCOM.CMD.  This is the final
!	step in the security proceedure.
!
!
!BELOW IS SECOND COMMAND NAMED WELCOM.CMD
****************************************************************************


:S
XY=0
:<

        here is where you leave blank or have a message

>
:K


****************************************************************************
!
!
!		Please keep in mind that this program keeps out people who are
!	not programers.  It is not FAILSAFE.  I hope you have fun using this
!	program and maybe you will sleep alittle better at night.

.