;pass.exe - password protect

AppTitle "passbox"
;asks user the pass
hehe = Input$("What is the password? ")

;var
lol = 11514251514
ha$ = "'http://somesite.org'"

;looks to see if pass was right
.password
If hehe = lol Then
Print "correct!"
Delay 500
Print "your link is " + ha + "!"
Delay 50000
End


;tells user to guess again
Else
Print "You have 3 trys left!"
Print ""
hehe = Input$("What is the password? ")
Goto password1
EndIf

;looks to see if pass was right
.password1
If hehe = lol Then
Print "correct!"
Delay 500
Print "your link is " + ha + "!"
Delay 50000
End

;askes user to guess again
Else
Print "You have 2 trys left!"
Print ""
hehe = Input$("What is the password? ")
Goto password2
EndIf

;looks to see if pass was right
.password2
If hehe = lol Then
Print "correct!"
Delay 500
Print "your link is " + ha + "!"
Delay 50000
End

;askes user to guess again
Else
Print "You have 1 try left!"
Print ""
hehe = Input$("What is the password? ")
Goto passwordend
EndIf

;looks to see if pass was right
.passwordend
If hehe = lol Then
Print "correct!"
Delay 500
Print "your link is " + ha + "!"
Delay 50000
End

;tells user he can't guess any more
Else
Print "You have 0

I was lame and did not use very good programming on that one sorry.

Number 2:
;SignUp.exe - Admin-Z sign up
AppTitle "Admin-Z sign up"
Global agentID$,agentTERMINAL$,agentPASS$

;-----------folders-----------
mission$="C:/Program Files/Admin-Z/Admin-Z"
txt$="C:/Program Files/Admin-Z/Text Files"
;-----------------------------


Print "Looking up details..."
;-----------------------------
progress = 0

While progress <= 100
Write "" + progress + "%"
Write Chr$(8) + Chr$(8) + Chr$(8)
progress = progress + 1
Delay 60

Wend

Write Chr$(8) + Chr$(8) + Chr$(8) + Chr$(8)

Print "100%"

Print " "
;-----------------------------
filein = ReadFile("../Text Files/account.txt")
If filein <> 0
agentID = ReadLine$(filein)
agentTERMINAL = ReadLine$(filein)
agentPASS = ReadLine$(filein)
;-----------------------------
Delay 500
Print "You are authorised..."
Delay 7000
;-----------------------------
Else
Delay 500
Print " "
Print ":-: YOU ARE A NEW AGENT :-:"
Print " -- Please Regester -- "
Print " "
Print "Running SignUp.agent..."
Delay 1300
Print "For Agent id pick anything that is between 1-7 chars long."
Print "For Terminal pick anything that is 4 chars long."
Print " "
;-----------------------------
agentID$ = Input$("Agent id: ")
agentTERMINAL$ = Input$("Terminal: ")
agentPASS$ = Input$("Password: ")
CreateDir mission$
CreateDir txt$
fileout = WriteFile("../Text Files/account.txt")
WriteLine(fileout,agentID)
WriteLine(fileout,agentTERMINAL)
WriteLine(fileout,agentPASS)
CloseFile fileout
;-----------------------------
Print " "
Print "Thank You, you are now an agent of Admin-Z!"
Print "Please run Admin-Z M1.exe for your first mission."
Delay 12000
End
;-----------------------------
EndIf
CloseFile filein