Another security program, yet this one saves a password (use the reset password program to set password to "aaaa"

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    dim password$(1)
#include "Reset Password Program(DO NOT USE!).dba"
load array "test",password$(1)
Lock_Computer:
cls
disable escapekey
disable systemkeys
repeat
input "Input Password: ",passcode$
until passcode$ = password$(1)
gosub Options_Menu
return
Options_Menu:
cls
Enable Systemkeys
EnAbLe eScApEkEy
o1$ = "Create New Password"
o2$ = "Lock Computer"
do
ink rgb(0,0,255),0
box 260,300,385,320
box 260,200,412,220
box 260,100,300,120
ink rgb(255,255,255),0
text 260,308,o2$
text 260,208,o1$
text 260,108,"Exit"
do
x = mousex()
y = mousey()
if x > 260 and x < 385 and y > 300 and y < 320 and mouseclick()=1
Gosub Lock_Computer
endif
if x > 260 and x < 412 and y > 200 and y < 220 and mouseclick()=1
gosub Create_New_Password
endif
if x > 260 and x < 360 and y > 100 and y < 120 and mouseclick()=1
end
endif
loop
loop
return
Create_New_Password:
cls
Input "Input Origional Password: ",passcode$
if passcode$=password$(1) then wait 0.00000000001 else gosub Create_New_Password
Input "Input New Password: ",passcode$
password$(1)=passcode$
save array "test",password$(1)
gosub Options_Menu
return