home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ZJ3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.3 KB  |  124 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. use zj
  5. loca for (zj10=zj13 .and.  zj11=1) .or. (zj10<>zj13 .and. ì
  6. (zj11<=zj13 .or. zj11>=zj10))
  7. b=recno()
  8. a1=.t.
  9. do while a1
  10. clear
  11. @ 1,1 say "╔Φ▒╕▒α║┼  ╝α▓Γ╡π▒α║┼  ╝α▓Γ╡π╬╗╓├  ╝α▓Γ╚╒╞┌    ì
  12. ╝α▓Γ─┌╚▌"
  13. if .not. eof()
  14. goto b
  15. else
  16. clear
  17. @ 4,10 say "╦∙╙╨╡─╝α▓Γ╡π─┐╟░╢╝╒²│ú"
  18. @ 6,50 clear
  19. wait '░┤╚╬╥Γ╝ⁿ╖╡╗╪' to w
  20. retu
  21. endif
  22. l=2
  23. do while .not. eof()
  24. @ l,1 say " "+zj1
  25. @ l,11 say " "+zj2
  26. @ l,22 say " "+zj3
  27. c=dtoc(zj5)
  28. j1=substr(c,7,2)
  29. j2=substr(c,1,2)
  30. j3=substr(c,4,2)
  31. c=j1+'.'+j2+'.'+j3
  32. @ l,35 say " "+c
  33. @ l,45 say " "+zj7
  34. l=l+1
  35. cont
  36. if .not. eof()
  37. if l>=10
  38. wait "░┤╚╬╥Γ╝ⁿ╝╠╨°" to w
  39. b=recno()
  40. goto bott 
  41. skip
  42. a1=.t.
  43. endif
  44. else
  45. a1=.f. 
  46. endif
  47. enddo 
  48. enddo a1
  49. wait '┤≥╙í┬≡(Y/N)' to w
  50. if w='y'
  51. set device to print 
  52. set print on
  53. set cons off
  54. ? chr(27)+"IJ"
  55. set print off
  56. set cons on
  57. p=1
  58. loca for (zj13=zj10 .and. zj11=1) .or. (zj13<>zj10 .and. ì
  59. (zj11<=zj13 .or. zj11>=zj10))
  60. b=recno()
  61. a1=.t.
  62. do while a1
  63. clear
  64. @ 1,30 say p100+"╟░╫┤╠¼╝α▓Γ╙╨╬╩╠Γ╡─▓┐╬╗" 
  65. @ 2,1 say "                 "
  66. @ 3,76 say "╡┌"+str(p,2)+"╥│"
  67. @ 4,1 say ì
  68. "=================================================================ì
  69. ==========================="
  70. @ 5,1 say "|╔Φ▒╕▒α║┼ |╝α▓Γ╡π║┼|╝α▓Γ╡π╬╗╓├  ì
  71. |╝α▓Γ╚╒╞┌|             ┤ª└φ╜¿╥Θ                 |  ╕║╘≡╚╦  |"
  72. @ 6,1 say ì
  73. "|---------|--------|------------|--------|------------------------ì
  74. --------------|----------|"
  75. l=7
  76. goto b
  77. do while .not. eof()
  78. @ prow()+1,1 say "|"+zj1
  79. @ prow(),11 say "|"+zj2
  80. @ prow(),20 say "|"+zj3
  81. d=dtoc(zj5)
  82. j1=substr(d,7,2)
  83. j2=substr(d,1,2)
  84. j3=substr(d,4,2)
  85. d=j1+'.'+j2+'.'+j3
  86. @ prow(),33 say "|"+d
  87. @ prow(),42 say "|                                      |         ì
  88.  |"
  89. l=l+1
  90. cont
  91. if .not. eof()
  92. if l>=50
  93. @ prow()+1,1 say ì
  94. "=================================================================ì
  95. ==========================="
  96. ejec
  97. b=recno()
  98. p=p+1
  99. goto bott
  100. skip
  101. a1=.t.
  102. else
  103. @ prow()+1,1 say ì
  104. "|---------|--------|------------|--------|-----------------------ì
  105. ---------------|----------|"
  106. l=l+1
  107. endif
  108. else
  109. @ prow()+1,1 say ì
  110. "=================================================================ì
  111. ==========================="
  112. a1=.f.
  113. endif
  114. enddo 
  115. enddo a1
  116. set print on
  117. ? chr(13)
  118. close database
  119. set print off
  120. endif
  121. set device to screen
  122. a1=.t.
  123. retu
  124.