Liren Large Software Subsidy 6/06.iso/b/b015/7.ddi/ZZ.PRG

Text File | 1980-01-13 | 2.9 KB | 153 lines

SET SCOR OFF
SET SAFE OFF
SET STATU OFF
SET TALK OFF
CLEAR PROGRAM
CLEAR all
clear
SET COLO TO R+/N
QK='  '
@10,20 SAY '╟σ│²─Ω│⌡╙α╢ε┐Γ┬≡?<Y/N>:' GET QK PICT'AA'
READ
IF UPPER(TRIM(QK))='Y'
  USE YE87
  ZAP
ENDIF
@10,20 SAY'╒²╘┌╫≈╫╝▒╕╣ñ╫≈,╟δ╔╘║≥ ...'
COPY FILE THKM1.DBF TO QQ.DBF
SELE A
USE QQ
SORT TO ZY.DBF ON JC3 FOR SUBS(STR(JC3,10),4,7)='0000000'
*DO DT
*SELE A
*USE QQ
SELE B
USE ZY
@21,0 SAY'--------------------------------------------------------------ì
----------------'
@22,3 SAY '╠ß╩╛: íⁿ╔╧╖¡  í²╧┬╖¡  í√⌐╝╤í╘±  PgUp╔╧╥│  PgDn╧┬╥│  Del╔╛│²  End╖╡╗╪'
set colo to
RC=1
LI=3
@0,0 clear to 19,78
@1,0,19,30 box '*'
DO WHILE .T.
  LINE=3
  IF RC<1
    RC=1
  ENDIF
  GO RC
  DO WHILE LINE<18 .AND. !EOF()
    @LINE, 4 SAY VVKM
    @LINE,10 SAY KKM
    SKIP
    LINE=LINE+1
  ENDDO
  DO WHILE LINE<18
    @LINE,4 SAY SPAC(20)
    LINE=LINE+1
  ENDDO
  DO WHILE .T.
    IF RC>RECC()
      RC=RECC()
    ENDIF
    IF RC<1
      RC=1
    ENDIF
    IF LI>17
      LI=3
      RC=RECN()+1
      EXIT
    ENDIF
    IF LI<3
      LI=3
      RC=RECN()-14
      EXIT
    ENDIF
    GO RC
    SET COLO TO G/R
    @LI,4 SAY VVKM
    @LI,10 SAY KKM
    SET COLO TO
    CC=INKEY(0)
    DO CASE
      CASE CC=3
        LI=3
        RC=RC+14
        EXIT
      CASE CC=18
        RC=RC-14
        LI=3
        EXIT
      CASE CC=5
        @LI,4 SAY VVKM
        @LI, 10 SAY KKM
        LI=LI-1
        RC=RC-1
      CASE CC=24
        @LI,4 SAY VVKM
        @LI,10 SAY KKM
        LI=LI+1
        RC=RC+1
**** th
      CASE CC=13
        DO th
        SELE B
        @li,4 say vvkm
        @li,10 say kkm
        rc=rc+1
        li=li+1
**** del
      CASE CC=7
        @1,31 clear to 19,78
        sc='  '
        @8,40 say'╚╖╚╧╔╛│²┬≡?<Y/N>:' get sc pict'AA'
        read
        if upper(TRIM(sc))='Y'
          sele b
          KK=VVKM
          mm=kkm
          DELE ALL FOR VVKM=KK .and. kkm=mm
          PACK
          SELE A
          use qq
          DELE ALL FOR VVKM=KK .AND. KKM=MM
          PACK
*          SELE C
*          USE HZ3_L1
*          DELE ALL FOR VVKM=KK .AND. KKM=MM
*          PACK
          SELE B
          @0,31 CLEAR TO 19,78
          RC=RC-LI+3
          LI=3
          EXIT
        ENDIF
**** RETURN
      CASE CC=6
        DD=' '
        @10,35 say '╫¬╗╗┐╞─┐╝Σ╡─╡╚═¼┤·╗╗╣╪╧╡┬≡?<Y/N>:' GET DD PICT'A'
        READ
        IF UPPER(DD)='Y'
          DO DT
        ENDIF
        SELE A
        USE QQ
        SORT ON JC3 TO THKM1.DBF
        @0,35 CLEAR TO 20,78
        @10,35 SAY '╟δ╘┌ A╟²▓σ╚δ╨┬┼╠,╫÷┐╞─┐║═╙α╢ε▒╕╖▌'
        @12,35 SAY '░┤╚╬╥Γ╝ⁿ╝╠╨°......'
        WAIT''
        COPY FILE THKM1.DBF TO A:THKM1.DBF
        COPY FILE YE87.DBF TO A:YE87.DBF
        RETURN
    ENDCASE
  ENDDO
  IF RC>RECC()
   RC=RECC()
  ENDIF
  IF RC<1
   RC=RC+1
  ENDIF
ENDDO  ì