home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b015 / 7.ddi / TH.PRG < prev    next >
Encoding:
Text File  |  1993-05-05  |  2.1 KB  |  93 lines
  1. Dime t(14)
  2. s=' '
  3. store vvkm to jdm,xdm
  4. STORE KKM TO JMC,xmc
  5. @5,35 say'╨▐╕─║≤:'
  6. @7,35 say'┤·┬δ'
  7. @7,48 say'├√│╞'
  8. @9,35 get xdm pict'999'
  9. @9,48 get xmc
  10. READ
  11. @12,35 say'╩Σ╚δ╒²╚╖┬≡? <Y/N>:'get s pict'a'
  12. read
  13. if upper(s)='Y'
  14.   REPLACE VVKM WITH XDM,KKM WITH XMC
  15.   sele a
  16.   use qq
  17.   set filter TO (VVKM=JDM .AND. KKM=JMC) .OR. (JC10<>JDM .AND. JC11=JDM .AND. JC10<>0)
  18.   go top
  19.   do while !eof() 
  20.     j3=jc3-jdm*10000000+xdm*10000000
  21.     j10=jc10
  22.     j11=jc11
  23.     zz=stuff(zd,1,3,str(xdm,3))
  24.     if vvkm=jdm
  25.       replace vvkm with xdm,kkm with xmc,jc3 with j3,zd with zz
  26.     endif   
  27.     if j10=jdm
  28.       replace jc10 with xdm
  29.     endif
  30.     if j11=jdm
  31.       replace jc11 with xdm
  32.     endif
  33.     skip
  34.   enddo
  35.   JY=' '
  36.   @12,35 say'╜ß╫¬╙α╢ε┬≡? <Y/N>:' GET JY PICT'A'
  37.   READ
  38.   IF UPPER(JY)='Y'
  39.     sele c
  40.     use hz3 
  41.     locate for vvkm=str(jdm,3) .and. kkm=jmc
  42.     if Found()
  43.       GO TOP
  44.       set filter to vvkm=str(jdm,3) .and. kkm=jmc
  45.       if !(vvkm=str(jdm,3) .and. kkm=jmc)
  46.         skip
  47.       endif 
  48.       do while !eof()
  49.         @11,35 clear to 19,78
  50.         ey=' '
  51.         yy=vvye
  52.         SLL=SLJC
  53.         replace vvkm with str(xdm,3),kkm with xmc
  54.         replace jc2 with stuf(jc2,1,3,vvkm),jc3 with stuf(jc3,1,3,vvkm),jc4 with stuf(jc4,1,3,vvkm) 
  55.         @11,35 say trim(kkm)+' '+trim(kkm2)+' '+trim(kkm3)
  56.         @13,35 say '╙α╢ε╬¬:' get yy
  57.         @15,35 SAY '╩²┴┐╜ß┤µ:' GET SLL
  58.         read
  59.         @17,35 say '╚╖╚╧╒²╚╖╬▐╬≤║≤,╟δ╝ⁿ╚δ<Y>:' get ey pict'a'
  60.         read
  61.         if upper(ey)='Y'
  62.           replace vvye with yy,SLJC WITH SLL
  63.         ELSE
  64.           LOOP
  65.         endif
  66.         t(1)=vvn
  67.         t(2)=vvy
  68.         t(3)=vvr
  69.         t(4)=vvkm
  70.         t(5)=kkm
  71.         t(6)=vvkm2
  72.         t(7)=kkm2
  73.         t(8)=km3
  74.         t(9)=kkm3
  75.         t(10)=vvye
  76.         t(11)=jc2
  77.         t(12)=jc3
  78.         t(13)=jc4
  79.         t(14)=sljc
  80.         sele d
  81.         use ye87
  82.         go bott
  83.         append blan
  84.         gath from t
  85.         sele c
  86.         skip
  87.       enddo
  88.     endif
  89.   ENDIF
  90. endif
  91. @1,35 clear to 19,78
  92. return
  93.