home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a055 / 2.ddi / _DATAINI.FXP < prev    next >
Encoding:
Text File  |  1994-05-10  |  1.8 KB  |  58 lines
  1. C=MENU_CTC+-4
  2.            IF SEC_SHIFT=1.AND.FLAG_SUB<>0
  3.               COLOR_SELE=SELECOLOR
  4.               SET COLOR TO &COLOR_SELE
  5.               @ MENU_ROW,MENU_COL SAY TRIM(MENU_MEA)
  6.               MENUPATH=MENUPATH+CHR(MENU_CTC+64)
  7.               GO TOP
  8.               SEEK MENUPATH
  9.               DO DS&MENUPATH
  10.               MENU_CTC=1
  11.            ENDIF
  12.            SEC_SHIFT=0
  13.            LOOP
  14.       CASE BUFF_CHAR=19 .OR. BUFF_CHAR=5
  15.            IF BUFF_CHAR=19.AND.LEN(MENUPATH)=2
  16.               SET COLOR TO &BKSCRCOL
  17.               @ 1,0 CLEAR TO 23,79
  18.               MENU_CHR=SUBSTR(MENUPATH,LEN(MENUPATH),1)
  19.               MENU_CTC=ASC(MENU_CHR)-64
  20.               MENUPATH=SUBSTR(MENUPATH,1,LEN(MENUPATH)-1)
  21.               SEEK MENUPATH
  22.               SKIP+MENU_CTC-1
  23.               SEC_SHIFT=1
  24.            ELSE
  25.               SEC_SHIFT=0
  26.            ENDIF
  27.            COLOR_WIN=WINCOLOR
  28.            SET COLOR TO &COLOR_WIN
  29.            @ MENU_ROW,MENU_COL SAY TRIM(MENU_MEA)
  30.            SKIP-1
  31.            IF .NOT.BOF().AND.MENU_P=MENUPATH
  32.               MENU_CTC=MENU_CTC-1
  33.            ELSE
  34.               GO TOP
  35.               SEEK MENUPATH
  36.               MENU_CTC=0
  37.               DO WHILE .NOT.EOF().AND.MENU_P=MENUPATH
  38.                  SKIP
  39.                  MENU_CTC=MENU_CTC+1
  40.               ENDDO
  41.               IF EOF()
  42.                  GO BOTT
  43.               ELSE
  44.                  SKIP-1
  45.               ENDIF
  46.            ENDIF
  47.            IF SEC_SHIFT=1.AND.FLAG_SUB<>0
  48.               COLOR_SELE=SELECOLOR
  49.               SET COLOR TO &COLOR_SELE
  50.               @ MENU_ROW,MENU_COL SAY TRIM(MENU_MEA)
  51.               MENUPATH=MENUPATH+CHR(MENU_CTC+64)
  52.               GO TOP
  53.               SEEK MENUPATH
  54.               DO DS&MENUPATH
  55.               MENU_CTC=1
  56.            ENDIF
  57.            SEC_SHIFT=0
  58.       CASE BUFF_CHAR=13