home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a055 / 2.ddi / DSMAIN.FXP < prev    next >
Encoding:
Text File  |  1994-05-10  |  3.3 KB  |  118 lines
  1. TC<>8
  2.       CURRKEY=INKEY(10)
  3.       IF CURRKEY<>13
  4.          @  9, 40+KEYCTC SAY 'X'
  5.          PASSWD=TRIM(PASSWD)+CHR(CURRKEY)
  6.       ENDIF
  7.       KEYCTC=KEYCTC+1
  8.    ENDDO
  9.    PWDIOCTC=PWDIOCTC+1
  10. ENDDO
  11. IF TRIM(PASSWD)<>TRIM(PASSWORD)
  12.    RETURNVALUE=0
  13.    USE
  14.    SET COLOR TO W+/B
  15.    @  8, 23 CLEAR TO 10, 50
  16.    SET COLOR TO W+/R
  17.    @  9, 30 SAY "┐┌┴ε╖╟╖¿!"
  18.    PWDIOCTC=INKEY(2)
  19.    RETURN
  20. ENDIF
  21. SET COLOR TO W+/B
  22. @  8, 23 CLEAR TO 10, 50
  23. SET COLOR TO W+/R
  24. @  9, 30 SAY "┐┌┴ε╒²╚╖!"
  25. @ 24,  0 SAY SPACE(79)
  26. @ 24,  0 SAY " Home ╝ⁿ╨▐╕─┐┌┴ε! ╞Σ╦ⁿ╝ⁿ╝╠╨°╘╦╨╨!"
  27. IF (INKEY(2)=1)
  28.    SET COLOR TO W+/B
  29.    @  9, 25 SAY "╟δ╩Σ╚δ╨┬┐┌┴ε: "
  30.    @  9, 40 GET PASSWD
  31.    READ
  32.    IF TRIM(PASSWD)<>""
  33.       DO WHILE .NOT.RLOCK()
  34.       ENDDO
  35.       REPLACE PASSWORD WITH TRIM(PASSWD)
  36.       UNLOCK
  37.    ENDIF
  38. ENDIF
  39. SET COLOR TO W+/W+
  40. USE
  41. RETURN
  42.  
  43. SET TALK OFF
  44. SET COLOR TO W+/W+
  45. @ 1, 0 CLEAR TO 24, 79
  46. SET COLOR TO W+/N
  47. @  9, 25 CLEAR TO 11, 56
  48. SET COLOR TO W+/B
  49. @  8, 23 CLEAR TO 10, 54
  50. SET COLOR TO W+/R
  51. CURRDATE=DTOC(DATE())
  52. CURRYEAR=VAL(SUBSTR(CURRDATE,7,2))
  53. CURRMONT=VAL(SUBSTR(CURRDATE,1,2))
  54. CURRDAY =VAL(SUBSTR(CURRDATE,4,2))
  55. @  9, 25 SAY "╟δ╩Σ╚δ╧╡═│╚╒╞┌:  ─Ω  ╘┬  ╚╒"
  56. SET COLOR TO N+/N+
  57. @  9, 40 GET CURRYEAR RANGE 1,99  PICTURE '99'
  58. @  9, 44 GET CURRMONT RANGE 1,12  PICTURE '99'
  59. @  9, 48 GET CURRDAY  RANGE 1,31  PICTURE '99'
  60. READ
  61. CURRDATE=TRIM(LTRIM(STR(CURRMONT,2)))+'/'+TRIM(LTRIM(STR(CURRDAY,2)))+'/'+TRIM(LTRIM(STR(CURRYEAR,2)))
  62. RUN DATE &CURRDATE
  63. SET SAFE OFF
  64. SET TALK OFF
  65. SET STAT OFF
  66. SET SCOR OFF
  67. SET EXCL OFF
  68. SET EXAC ON 
  69. SET ESCA OFF
  70. ON ERROR DO ERR_PROC WITH ERROR()
  71. SET COLOR TO W/W
  72. CLEA
  73. DO _DATAINI
  74. CLEAR
  75. SELE A
  76. USE MENU EXCL
  77. IF EOF()
  78.    USE MENU EXCL
  79.    APPE FROM MENU DELI WITH #
  80.    USE
  81.    USE MENU EXCL
  82. ENDIF
  83. SET ORDER TO MENU_NDX
  84. BKSCRCOL="0/"+LTRIM(SCRCOLOR)
  85. SET COLOR TO &BKSCRCOL
  86. CLEAR
  87. SET PROC TO _DBSMENU
  88. DO DSA
  89. MENUPATH='A'
  90. MENU_CTC=0
  91. SET COLOR TO W+/R
  92. @ 24,0 SAY ' └√ ╙├ ╣Γ ▒Ω ╝ⁿ ╥╞ ╢» ╣Γ ┤°ú¼Return╝ⁿ ╤í ╘±ú¼Esc═╦ │÷                           '
  93. GO TOP
  94. SEEK MENUPATH
  95. DO WHILE .NOT.EOF()
  96.    COLOR_SELE=SELECOLOR
  97.    SET COLOR TO &COLOR_SELE
  98.    @ MENU_ROW,MENU_COL SAY TRIM(MENU_MEA)
  99.    BUFF_CHAR=0
  100.    DO WHILE BUFF_CHAR=0
  101.       BUFF_CHAR=INKEY()
  102.    ENDDO
  103.    DO CASE
  104.       CASE BUFF_CHAR=4 .OR. BUFF_CHAR=24
  105.            IF BUFF_CHAR=4.AND.LEN(MENUPATH)=2
  106.               SET COLOR TO &BKSCRCOL
  107.               @ 1,0 CLEAR TO 23,79
  108.               MENU_CHR=SUBSTR(MENUPATH,LEN(MENUPATH),1)
  109.               MENU_CTC=ASC(MENU_CHR)-64
  110.               MENUPATH=SUBSTR(MENUPATH,1,LEN(MENUPATH)-1)
  111.               SEEK MENUPATH
  112.               SKIP+MENU_CTC-1
  113.               SEC_SHIFT=1
  114.            ELSE
  115.               SEC_SHIFT=0
  116.            ENDIF
  117.            COLOR_WIN=WINCOLOR
  118.            SET COLO