home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / DX1.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.1 KB  |  103 lines
  1. clear
  2. close database
  3. set talk off
  4. set device to screen 
  5. use dx
  6. a='        '
  7. @ 4,15 say "╟δ╩Σ╚δ╜╪╓╣╚╒╞┌" get a pict '99.99.99'
  8. read
  9. j1=substr(a,4,2)
  10. j2=substr(a,7,2)
  11. j3=substr(a,1,2)
  12. a=j1+'/'+j2+'/'+j3
  13. a=ctod(a)
  14. loca for dx8+dx5<=a
  15. if eof()
  16. @ 4,0  clear
  17. wait '                      ╬▐╙ª╩╘╤Θ╡─╧▀┬╖ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  18. clos data
  19. retu
  20. endif
  21. a2=.t.
  22. do while a2
  23. clear
  24. ? "  ╧▀┬╖├√│╞      ╧▀┬╖╣µ╕±           ╨═║┼         ╞╠╔Φ╖╜╩╜      ╩╘╤Θ╡τ╤╣  ╩╘╤Θ╚╒╞┌"
  25. l=2
  26. do while .not. eof() .and. l<=9
  27. c=dtoc(dx8)
  28. b=dx8
  29. @ l,1 say " "+dx1           
  30. @ l,12 say " "+dx2
  31. @ l,33 say " "+dx3
  32. @ l,50 say " "+dx4
  33. @ l,63 say " "+dx6
  34. e=b+dx5
  35. e=dtoc(e)
  36. j1=substr(e,7,2)
  37. j2=substr(e,1,2)
  38. j3=substr(e,4,2)
  39. e=j1+'.'+j2+'.'+j3
  40. @ l,70 say " "+e
  41. l=l+1
  42. skip
  43. if l>=9 .and. .not. eof()
  44. wait '░┤╚╬╥Γ╝ⁿ╝╠╨°úí'
  45. endif
  46. enddo
  47. if eof()
  48. exit
  49. endif
  50. enddo a2
  51. wait '     ┤≥╙í┬≡(y/n) ' to a
  52. if a $ 'y'
  53. set device to print
  54. set print on
  55. set cons off
  56. ? chr(27)+"IJ"
  57. set print off
  58. set cons on
  59. goto top
  60. clear
  61. @ prow()+1,1 say "                                  ╡τ╞≈╧▀┬╖╩╘╤Θ╝╞╗«▒φ"
  62. @ prow()+1,1 say "                     "
  63. @ prow()+1,1 say ì
  64. "=================================================================ì
  65. ======================================"
  66. @ prow()+1,1 say "|╧▀┬╖├√│╞  |        ╣µ╕±        |      ╨═║┼      ì
  67. |╞╠╔Φ╖╜╩╜    |╔╧┤╬╩╘╤Θ╚╒╞┌|╩╘╤Θ╓▄╞┌|╩╘╤Θ╡τ╤╣|╩╘╤Θ╚╒╞┌|"
  68. @ prow()+1,1 say ì
  69. "|----------|--------------------|----------------|------------|--ì
  70. ----------|--------|--------|--------|"
  71. do while .not. eof()
  72. @ prow()+1,1 say "|"+dx1
  73. @ prow(),12 say "|"+dx2
  74. @ prow(),33 say "|"+dx3
  75. @ prow(),50 say "|"+dx4
  76. c=dtoc(dx8)
  77. b=dx8
  78. @ prow(),63 say "|"+c     
  79. @ prow(),76 say "|"+str(dx5,4)
  80. @ prow(),85 say "|"+dx6
  81. e=b+dx5
  82. e=dtoc(e)
  83. @ prow(),94 say "|"+e+"|" 
  84. skip
  85. if .not. eof()
  86. @ prow()+1,1 say ì
  87. "|----------|--------------------|----------------|------------|--ì
  88. ----------|--------|--------|--------|"
  89. else 
  90. @ prow()+1,1 say ì
  91. "=================================================================ì
  92. ======================================"
  93. endif
  94. enddo
  95. set print on
  96. ? chr(13)
  97. set print off
  98. set device to screen
  99. a1=.t.
  100. retu
  101.  
  102.  
  103.