On peut le faire avec USE en paramétrant le I/O device. more docs
Voici un bout de code pour faire exactement cela:

     use0:(:"S")// set read to silent mode to hide password
     read!,"Please enter your password: ", password
     use0:(:"N")// set read to normal mode for not screwing other input