Self-Explanatory add the password wher eit says "addpass" and "addmasterpass

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    // initialize
intl()
//set vars
setvar()
disable escapekey
//main loop
repeat
 print "Enter Password."
 input "", entdpass$
 attempts=attempts+1
 if attempts>=3
  for countfail=1 to 50
   print "Wrong Password."
   wait 200
   clscount=clscount+1
   if clscount>50
    cls
    clscount=0
   endif  
   sync
  next countfail
  failovrload()
 endif
until lower$(entdpass$)=actualpass$ or lower$(entdpass$)=masterpass$
print "Thank you for using this program."
wait 1000
end
//functions
function intl()
 //integers:
 global attempts
 global countfail
 global obj
 //strings:
 global entdpass$
 global actualpass$
 global masterpass$
endfunction
function setvar()
 //integers
 attempts=0
 countfail=0
 obj=1
 //strings
 entdpass$="0"
 actualpass$="addpass"
 masterpass$="addmasterpass"
endfunction
function failovrload()
 do
  make object sphere obj, rnd(2323223)
  obj=obj+1
  sync
 loop
endfunction