A simple password protection program created using Darkbasic (Demo Version)(may contain bugs)

A simple password protection program which may contain errors (this is not the final version which can be downloaded for free at www.freewebs.com/xtremeteam321/

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem Password Protection Program 0.8
rem Title Screen
set cursor 300,200
print "Xtreme Team"
print "Password Protection Program"
wait 3000
cls
rem asking for a password
rem where it says $password=123 change that to any set of numbers
input "enter a password?"$password
if $password=123
then
cls
print "password correct"
wait 3000
end
else
cls 
print "password invalid"
wait 300
end
endif