home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a055 / 2.ddi / _DATAINI.PRG < prev    next >
Encoding:
Text File  |  1994-05-10  |  2.2 KB  |  82 lines
  1.         &&LEFT
  2.           IF CURR_COL>10
  3.          CURR_COL=CURR_COL-15
  4.          CURR_REC=CURR_REC-1
  5.          SKIP-1
  6.           ENDIF
  7.           LOOP
  8.      CASE CURR_KEY=4                  &&RIGHT
  9.           IF CURR_COL<55.AND.CURR_REC<ALL_REC
  10.          CURR_COL=CURR_COL+15
  11.          CURR_REC=CURR_REC+1
  12.          SKIP
  13.           ENDIF
  14.           LOOP
  15.      CASE CURR_KEY=27
  16.           SET COLOR TO W+/W+
  17.           @ 1, 0 CLEA TO 24, 79
  18.              USE
  19.           RETURN
  20.      CASE CURR_KEY=13
  21.           IF LEN(CONDITION)>150
  22.          SET COLOR TO W+/R
  23.          @24, 0 SAY SPACE(79)
  24.          @24, 0 SAY '─π╢¿╥σ┴╦╠½╢α╡─╠⌡╝■, ╟δ═╦│÷! ╖±╘≥╧╡═│╜½│÷┤φ, ░┤╚╬╥Γ╝ⁿ╝╠╨°'
  25.          ??CHR(7)
  26.          TEMP_KEY=' '
  27.          @24,75 GET TEMP_KEY
  28.          READ
  29.          @ 24, 0 SAY SPACE(79)
  30.          @ 24, 0 SAY '   íⁿ í² í√ í· ╔╧╧┬╫≤╙╥╥╞╢»╣Γ┤°, Return ╤í╘±,Esc ═╦│÷  '
  31.          LOOP
  32.           ENDIF
  33.           IF FIELD_TYPE='M'.OR.FIELD_TYPE='L'
  34.          LOOP
  35.           ENDIF
  36.           SET COLOR TO W+/B
  37.           @ 20, 0 CLEA TO 23,79
  38.           ENT_FRAME=20
  39.           DO WHILE ENT_FRAME<24
  40.          IF ENT_FRAME=20
  41.             @ ENT_FRAME, 0 SAY '⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖'
  42.          ELSE
  43.             IF ENT_FRAME=23
  44.                @ ENT_FRAME, 0 SAY '⌐╗⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐┐'
  45.             ELSE
  46.                @ ENT_FRAME, 0 SAY '⌐º'
  47.                @ ENT_FRAME,78 SAY '⌐º'
  48.             ENDIF
  49.          ENDIF
  50.          ENT_FRAME=ENT_FRAME+1
  51.           ENDDO
  52.           IF FIELD_TYPE='N'.OR.FIELD_TYPE='D'
  53.          SET COLOR TO W+/R
  54.          @ 24, 0 SAY SPACE(79)
  55.          @ 24, 0 SAY '╟δ╤í╘±╠⌡╝■╫╓╢╬╙δ╠⌡╝■╓╡╡─╣╪╧╡╘╦╦π╖√║┼:í√í·╥╞╢»╣Γ┤° Return ╤í╘± Esc ═╦│÷'
  56.          ??CHR(7)
  57.          SET COLOR TO W+/B
  58.          RUN_CTC=0
  59.          @ 21,10 SAY FIELD_MEAN
  60.          @ 21,25 SAY '┤≤╙┌╡╚╙┌  ┤≤╙┌      ╡╚╙┌      ╨í╙┌      ╨í╙┌╡╚╙┌'
  61.          DO WHILE .T.
  62.             RUN_CHR=STR(RUN_CTC+1,1)
  63.             SET COLOR TO W+/R+
  64.             @ 21,25+RUN_CTC*10 SAY RUN_TYPE&RUN_CHR
  65.             CURR_KEY=0
  66.             DO WHILE CURR_KEY=0
  67.                CURR_KEY=INKEY()
  68.             ENDDO
  69.             SET COLOR TO W+/B
  70.             @ 21,25+RUN_CTC*10 SAY RUN_TYPE&RUN_CHR
  71.             DO CASE
  72.                CASE CURR_KEY=19   &&LEFT
  73.                 IF RUN_CTC=0
  74.                    RUN_CTC=4
  75.                 ELSE
  76.                    RUN_CTC=RUN_CTC-1
  77.                 ENDIF
  78.                 LOOP
  79.                CASE CURR_KEY=4    &&RIGHT
  80.                 IF RUN_CTC=4
  81.                    RUN_CTC=0
  82.