home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SG3.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.1 KB  |  105 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 1
  6. use sg
  7. sele 2
  8. use sb index sb1
  9. sele 3
  10. use yin index yin1
  11. clear
  12. a='        '
  13. b='        '
  14. @ 4,10 say "╞≡╩╝╚╒╞┌" get a pict '99.99.99'
  15. @ 5,10 say "╓╒╓╣╚╒╞┌" get b pict '99.99.99'
  16. read
  17. j1=substr(a,4,2)
  18. j2=substr(a,7,2)
  19. j3=substr(a,1,2)
  20. a=j1+'/'+j2+'/'+j3
  21. a=ctod(a)
  22. j1=substr(b,4,2)
  23. j2=substr(b,7,2)
  24. j3=substr(b,1,2)
  25. b=j1+'/'+j2+'/'+j3
  26. b=ctod(b)
  27. set device to print 
  28. set print on
  29. set cons off
  30. ? chr(27)+"IJ"
  31. set print off
  32. set cons on
  33. @ prow()+1,40 say "╔Φ▒╕╩┬╣╩├≈╧╕"
  34. c=p100
  35. @ prow()+1,99 say "╠ε▒φ╚╒╞┌:"+c
  36. @ prow()+1,1 say ì
  37. "=================================================================ì
  38. ========================================================"
  39. @ prow()+1,1 say "|╨≥║┼|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞    ì
  40.     |╖ó╔·╩▒╝Σ|╩┬╣╩└α▒≡|╩┬╣╩╘¡╥≥        |╓▒╜╙╦≡╩º  |╝Σ╜╙╦≡╩º  |╨▐╕┤╖╤    ì
  41. |═ú╗·╩▒╝Σ|╓≈╥¬╘≡╚╬╒▀|"
  42. @ prow()+1,1 say ì
  43. "|----|---------|----------------|--------|--------|----------ì
  44. ------|----------|----------|----------|--------|----------|"
  45. sele 1
  46. d=1
  47. loca for sg2>=a .and. sg2<=b
  48. do while .not. eof()
  49. @ prow()+1,1 say "|"+str(d,3)
  50. @ prow(),6 say "|"+sg1
  51. e=sg1
  52. sele 2
  53. seek e
  54. @ prow(),16 say "|"+sb3
  55. sele 1
  56. e=dtoc(sg2)
  57. j1=substr(e,7,2)
  58. j2=substr(e,1,2)
  59. j3=substr(e,4,2)
  60. e=j1+'.'+j2+'.'+j3
  61. @ prow(),33 say "|"+e
  62. do case 
  63. case sg3='1'
  64. e='╠╪┤≤╩┬╣╩'
  65. case sg3='2'
  66. e='╓╪┤≤╩┬╣╩'
  67. case sg3='3'
  68. e='╥╗░π╩┬╣╩'
  69. otherwise
  70. e='        '
  71. endcase
  72. @ prow(),42 say "|"+e
  73. e=sg4
  74. sele 3
  75. seek e 
  76. e=yin2
  77. @ prow(),51 say "|"+e
  78. sele 1
  79. @ prow(),68 say "|"+str(sg9,10,2)
  80. @ prow(),79 say "|"+str(sg10,10,2)
  81. @ prow(),90 say "|"+str(sg11,10,2)
  82. @ prow(),101 say "|"+str(sg6,6,2)
  83. @ prow(),110 say "|"+sg5+"  |"
  84. cont
  85. d=d+1
  86. if .not. eof()
  87. @ prow()+1,1 say ì
  88. "|----|---------|----------------|--------|--------|--------------ì
  89. --|----------|----------|----------|--------|----------|"
  90. else
  91. @ prow()+1,1 say ì
  92. "=================================================================ì
  93. ========================================================"
  94. endif
  95. enddo
  96. set print on
  97. ? chr(13)
  98. set print off
  99. set device to screen
  100. retu
  101.  
  102.  
  103.  
  104.  
  105.