****************************************************************************
*****                                                                  *****
*****                             PASSWORD                             *****
*****                             ~~~~~~~~                             *****
*****                           by Gary Chow                           *****
*****                                                                  *****
****************************************************************************

   The is an example of how to insert a password into your bootable disk's
startup-sequence as to protect you from unauthorized entry.  The only
problem is that this only prevents someone from booting up with the disk.
It does not prevent someone from entering the disk after booting up with
a different disk.... In that case, insert a password-sequence in every
bootable disk.  (of course, this is also not fail-proof for people that
understand the Amiga's operating system well.... they can always press
Ctrl D during the startup-sequence and still get in!)... (oh well!)

   This example uses "ACCESS!" as its password.  Replace that with your
PASSWORD.  Modify your startup-sequence using "ED" to look like this:
(*THERE ARE TWO VERSIONS... ONE FOR 1.2 AND ANOTHER FOR 1.3*)

FOR WORKBENCH 1.2:
~~~~~~~~~~~~~~~~~
Echo "Workbench disk. Release 1.2"
Echo " "
execute s/Password ?
Endcli >nil:

ED Password to look like this and put it in the 's' directory:

.key Password
IF "<PASSWORD>" EQ "ACCESS!"
   ECHO " "
   ECHO "ACCESS GRANTED...."
   ECHO " "
   ECHO "LAST START-UP DATE: "
   TYPE SYS:S/LAST-STARTUP-DATE
   ECHO " "
   DATE ?
   DATE TO SYS:S/LAST-STARTUP-DATE
   LOADWB
ELSE
   ECHO " "
   ECHO "ACCESS DENIED!!!..."
ENDIF


WORKBENCH 1.3:
~~~~~~~~~~~~~~
C:SetPatch >nil:
ECHO "WORKBENCH DISK. RELEASE 1.3"
ECHO " "
Execute s/Password ?
Endcli >nil:

Then ed PASSWORD to look like this and place it in the 's' directory.

.KEY PASSWORD
IF "<PASSWORD>" EQ "ACCESS!"
   ECHO " "
   ECHO "ACCESS GRANTED..."
   ECHO " "
   ECHO "LAST STARTUP-DATE: " NOLINE
   TYPE SYS:S/LAST-STARTUP-DATE
   ECHO " "
   ECHO "TODAY'S DATE: " NOLINE
   DATE
   DATE TO SYS:S/LASTE-STARTUP-DATE
   CD C:
   SYS:SYSTEM/FastMemFirst
   FF >NIL: -0
   SYS:SYSTEM/SETMAP USA1
   RESIDENT CLI L:SHELL-SEG SYSTEM PURE ADD
   RESIDENT C:EXECUTE PURE
   MOUNT NEWCON:
   LOADWB
ELSE
   ECHO " "
   ECHO "ACCESS DENIED...."
ENDIF


   If someone tries to access the disk without the password they will get
nothing but an empty workbench screen.  No icons. No Menus, No cli,  meaning
NO NOTHING!!!