home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / DX3.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.7 KB  |  89 lines
  1. clear
  2. set talk off
  3. close database
  4. use dx
  5. pp='q'
  6. w='q'
  7. do dx6
  8. if w='r'
  9. clos data
  10. retu
  11. endif
  12. if pp<>'y'
  13. clos data
  14. retu
  15. endif
  16. set device to print
  17. set print on
  18. set cons off
  19. ? chr(27)+"IJ"
  20. set print off
  21. set cons on
  22. b=1
  23. p=1
  24. a2=.t.
  25. do while a2
  26. @ 0,45 say "╡τ╞°╧▀┬╖╠¿╒╩"
  27. @ 1,1 say "                     "
  28. @ 2,95 say "╡┌"+str(p,2)+"╥│"
  29. @ 3,1 say ì
  30. "=================================================================ì
  31. ========================================================"
  32. @ 4,1 say "|╧▀┬╖▒α║┼ |╧▀┬╖├√│╞  |╣µ╕±                |╨═║┼            ì
  33. |═╢▓·╚╒╞┌|╞╠╔Φ╖╜╩╜    |╩╘╤Θ╡τ╤╣|╩╘╤Θ╓▄╞┌|      ░▓╫░╡╪╡π      |"
  34. @ 5,1 say ì
  35. "|---------|----------|--------------------|----------------|--------|------ì
  36. ------|--------|--------|--------------------|"
  37. l=6
  38. goto b
  39. do while .not. eof() 
  40. @ prow()+1,1 say "|"+dx7
  41. @ prow(),11 say "|"+dx1
  42. @ prow(),22 say "|"+dx2
  43. @ prow(),43 say "|"+dx3
  44. a=dtoc(dx11)
  45. j1=substr(a,7,2)
  46. j2=substr(a,1,2)
  47. j3=substr(a,4,2)
  48. a=j1+'.'+j2+'.'+j3
  49. @ prow(),60 say "|"+a
  50. @ prow(),69 say "|"+dx4
  51. @ prow(),82 say "|"+dx6
  52. @ prow(),91 say "|  "+str(dx5,4)+"  |"+dx12+"|"
  53. l=l+1
  54. skip
  55. if .not. eof()
  56. if l<=50
  57. @ prow()+1,1 say ì
  58. "|---------|----------|--------------------|----------------|--------|------ì
  59. ------|--------|--------|--------------------|"
  60. l=l+1
  61. else 
  62. @ prow()+1,1 say ì
  63. "=================================================================ì
  64. ======================================================="
  65. ejec
  66. b=recno()
  67. goto bott
  68. skip
  69. p=p+1
  70. a2=.t.
  71. endif
  72. else
  73. @ prow()+1,1 say ì
  74. "=================================================================ì
  75. ========================================================"
  76. a2=.f.
  77. endif
  78. enddo
  79. enddo a2
  80. set print on
  81. ? chr(13)
  82. set print off
  83. set device to screen
  84. a1=.t.
  85. retu
  86.  
  87.  
  88.  
  89.