home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / PASSWD.PRG < prev    next >
Encoding:
Text File  |  1991-08-02  |  1.2 KB  |  57 lines
  1. SET TALK OFF
  2. CLEAR
  3. SET COLOR TO 14,15/9
  4. IF .NOT.FILE('YMD.MEM')
  5. QUIT
  6. ENDIF
  7. REST FROM YMD ADDI
  8. JY=YEAR(DATE())
  9. JM=MONTH(DATE())
  10. JD=DAY(DATE())
  11. SY=1930
  12. SM=1
  13. SD=1
  14. @ 5,15 SAY "╟δ╩Σ╚δ╜±╠∞╚╒╞┌==>  ─Ω:" GET JY PICT "9999" RANG 1987,1999
  15. @ 5,45 SAY "╘┬:" GET JM PICT "99" RANG 1,12
  16. @ 5,54 SAY "╚╒:" GET JD PICT "99" RANG 1,31
  17. READ
  18. SS=STR(VAL(SUBS(PD,1,2))+JM,2)+STR(VAL(SUBS(PD,3,2))+JD,2)
  19. @ 8,30 SAY "╟δ╩Σ╚δ┐┌┴ε:"
  20. SET EXACT ON
  21. I=1
  22. PASS="    "
  23. DO WHILE PASS<>SS.AND.I<=3
  24. SET CONSOLE OFF
  25. ACCEPT TO PASS
  26. SET CONSOLE ON
  27. IF  PASS<>SS
  28. @ 9,45 SAY "┐┌┴ε┤φ !"
  29. ?? CHR(7)+CHR(7)
  30. @ 9,30 SAY "╟δ╓╪╨┬╩Σ╚δ:"
  31. I=I+1
  32. ENDIF
  33. ENDDO
  34. IF I>3
  35. ?? '─π╩╟╖╟╖¿╙├╗º!!! ╟δ╫╘╓╪!'
  36. ? CHR(7)+CHR(7)+CHR(7)+CHR(7)+CHR(7)+CHR(7)+CHR(7)+CHR(7)+CHR(7)
  37. QUIT
  38. ENDIF
  39. CLEAR
  40. @ 2,20 SAY [╜± ╠∞ ╚╒ ╞┌ ╩╟ ]+STR(JY,4)+[─Ω]+STR(JM,2)+[╘┬]+STR(JD,2)+[╚╒]
  41. @ 3,20 SAY [╟░┤╬╩╣╙├╚╒╞┌╩╟ ]+STR(KY,4)+[─Ω]+STR(KM,2)+[╘┬]+STR(KD,2)+[╚╒]
  42. @ 4,20 SAY [╟░┤╬╩╣╙├╩▒╝Σ╩╟   ]+SUBS(TIME,1,2)+[╩▒]+SUBS(TIME,4,2)+[╖╓]
  43. WAIT '                    [ Q-═╦│÷! ░┤╞Σ╦ⁿ╚╬╥Γ╝ⁿ╘≥╝╠╨°......]' TO YN
  44. IF UPPE(YN)='Q'
  45. QUIT
  46. ENDIF
  47. KY=JY
  48. KM=JM
  49. KD=JD
  50. TIME=TIME()
  51. RELE PASS,K,I,SS,SY,SM,SD,DATE,DATE1
  52. SET SAFE OFF
  53. SAVE TO YMD
  54. SET EXACT OFF
  55. RETURN
  56. *** END OF PASSWD.PRG ***
  57.