;-----------------------------------------------------------------------------
;            .____________.                                     .____________.
;.___________|─          ¬:_______________________________/\____|─          ¬:
;:─         ¬\           :|─      __________ _             \\  ¬\           :|
;|:          \           ||      _____)_________ |          ∙\  \           ||
;||          |\___________|__________________  /_____________/  |\___________|
;l___________|-------------------------------\/yop l____________|---------.
;-  - - -- -- --- ----] nEON uTiLS sECTiON[-------------------------------'
;
;         iSDN^lOGiN vERSiON o.8 ^ sOURCE cODE ^ pASSWORD pROMPT [148]
;
;-----------------------------------------------------------------------------
;        [ pLEASE cHECK tHE fILE NE-LOGiN.DOX fOR fURTHER iNFORMATiONS ]

;=================================================[ VARIABLES & FUNCTIONS ]===

String Password

;==========================================================[ MAIN PROGRAM ]===

Begin
  If (Exist(PPEPath()+"NE-LOGPW."+String(PCBNode()))) Then
    FOpen 1,PPEPath()+"NE-LOGPW."+String(PCBNode()),o_rd,s_dn
    FGet 1,Password
    FClose 1
    Delete PPEPath()+"NE-LOGPW."+String(PCBNode())
    KBDStuff Password
  Else
    PrintLn "@X04SORRY! THERE OCCURED AN ERROR! PLEASE CONTACT SYSOP!"
    Wait
    HangUp
    End
  EndIf
End

;==============================================================[ THE END? ]===