home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ZJ6.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  69 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='         '
  6. b='    '
  7. c='        '
  8. d='        '
  9. @ 3,10 say "╟δ╩Σ╚δú║"
  10. @ 4,15 say "╔Φ▒╕▒α║┼" get a
  11. @ 5,15 say "╝α▓Γ╡π║┼" get b
  12. @ 6,15 say "╞≡╩╝╚╒╞┌" get c pict '99.99.99'
  13. @ 7,15 say "╓╒╓╣╚╒╞┌" get d pict '99.99.99'
  14. read 
  15. qq=c
  16. pp=d
  17. j1=substr(c,4,2)
  18. j2=substr(c,7,2)
  19. j3=substr(c,1,2)
  20. c=j1+'/'+j2+'/'+j3
  21. c=ctod(c)
  22. j1=substr(d,4,2)
  23. j2=substr(d,7,2)
  24. j3=substr(d,1,2)
  25. d=j1+'/'+j2+'/'+j3
  26. d=ctod(d)
  27. use zj 
  28. loca for zj1=a .and. zj2=b
  29. if eof()
  30. clear
  31. @ 4,0 clear
  32. wait '                  ╬▐┤╦╝α▓Γ╡πú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  33. clos data
  34. retu
  35. endif
  36. if zj10=zj13
  37. a5=111.11
  38. a6=222.22
  39. else
  40. a5=zj13
  41. a6=zj10
  42. endif
  43. clear
  44. wait "          ╟δ╜½╫┤╠¼╝α▓Γ▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤╚╬╥Γ╝ⁿ╝╠╨°"
  45. do while file ('a:zj.dbf')
  46. use a:zj
  47. copy to c:zbsz22.txt delimited for zj1=a .and. zj2=b .and. zj5>=c ì
  48. .and. zj5<=d field zj11
  49. use zbmc
  50. a=trim(a)
  51. b=trim(b)
  52. repl z1 with a+"  "+b+"║┼╡π"+qq+'-'+pp+'╟Θ┐÷'
  53. skip
  54. repl z1 with '┤╬╩²'
  55. skip
  56. repl z1 with '╩╡▓Γ╓╡'
  57. copy to zbmc.txt delimited
  58. use sxx
  59. repl z1 with a5
  60. skip
  61. repl z1 with a6
  62. copy to sxx.txt deli
  63. run basica as22.bas
  64. retu
  65. enddo
  66. clear
  67. wait '             ú┴┼╠╔╧╬▐╫┤╠¼╝α▓Γ┐Γú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  68. retu
  69.