;PASSWORD.PPS (Stuffs the password)
;Version 1.00, Build 1
;Coded by Tormentor for Trash


     STRING s

     s = PCBNODE ()
     FOPEN 1, PPEPATH () + "LOGON" + s, O_RD, S_DN
     FGET 1, s
     FGET 1, s
     FCLOSE 1

     KBDSTUFF UPPER (s)

     ERASE PPEPATH () + "LOGON" + s
END

;EOF PASSWORD.PPS