$x = ();
%userpass = ('john','ball','tim','super','matt','password','dan','nad32');

&entersys;
        if($x == "pass")
        {
            print("Welcome to the system!\n");
        }
        else
        {
            print("That user/password is incorrect\n");
        }