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

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