1 / 34

;SYSTEM PASSWORD v3.0 *SPECiAL EDiTiON* CODED BY FoX þ KRYN þ iN 1995

;SYSTEM PASSWORD v3.0 *SPECiAL EDiTiON* CODED BY FoX þ KRYN þ iN 1995. STRING PW. STRING INPUT1. STRING INPUT2. STRING INPUT3. :LABEL000. LET PW=READLINE((PPEPATH()+"PASSWORD.CFG"),1). :LABEL001. CLS. PRINTLN "@X07InterMail 2.29".

ginny
Télécharger la présentation

;SYSTEM PASSWORD v3.0 *SPECiAL EDiTiON* CODED BY FoX þ KRYN þ iN 1995

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ;SYSTEM PASSWORD v3.0 *SPECiAL EDiTiON* CODED BY FoX þ KRYN þ iN 1995

  2. STRING PW

  3. STRING INPUT1

  4. STRING INPUT2

  5. STRING INPUT3

  6. :LABEL000

  7. LET PW=READLINE((PPEPATH()+"PASSWORD.CFG"),1)

  8. :LABEL001

  9. CLS

  10. PRINTLN "@X07InterMail 2.29"

  11. PRINT "@X07Press Escape twice for MAIL SYSTEM #@NODE@"

  12. :LABEL002

  13. LET INPUT1=INKEY()

  14. IF (INPUT1=CHR(27)) GOTO LABEL003

  15. IF (INPUT1="") GOTO LABEL002

  16. :LABEL003

  17. LET INPUT2=INKEY()

  18. IF (PW=INPUT3) GOTO LABEL006

  19. IF (INPUT2="") GOTO LABEL003

  20. IF (INPUT2=CHR(27)) GOTO LABEL005

  21. IF (INPUT2<>"") GOTO LABEL004

  22. :LABEL004

  23. LET INPUT3=INPUT3+(UPPER(INPUT2))

  24. GOTO LABEL003

  25. :LABEL005

  26. DELAY 20

  27. NEWLINES 3

  28. PRINTLN "@X07Sorry we are in a MAIL PROCESSING ONLY phase !"

  29. PRINTLN "@X07Please HANGUP and call back later."

  30. PRINTLN "@X07Thank you for your call."

  31. HANGUP

  32. :LABEL006

  33. END

  34. ;DONE

More Related