home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BFS3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  121 lines
  1. clear
  2. set talk off 
  3. set device to screen
  4. close database
  5. a2=.t.
  6. do while a2
  7. k1='         '
  8. k2='        '
  9. k3='            '
  10. p3=' '
  11. a1=.t.
  12. do while a1
  13. clear
  14. @ 1,1 say "╔Φ▒╕▒α║┼" get k1
  15. @ 2,1 say "▒¿╖╧╚╒╞┌" get k2 pict 'xx.xx.xx'
  16. read
  17. a6=.t.
  18. do while a6
  19. @ 3,1 clear
  20. @ 3,1 say "╔Φ▒╕└α╩⌠" get p3
  21. read 
  22. if p3='h'
  23. use dm
  24. a='l'
  25. do ts.prg
  26. loop
  27. endif
  28. exit
  29. enddo a6
  30. @ 4,1 say "▒¿╖╧╚Ñ╧≥" get k3
  31. read 
  32. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(y/n) ' to w
  33. if w<>'y'
  34. a6=.f.
  35. a1=.t.
  36. else 
  37. a1=.f.
  38. endif
  39. enddo a1
  40. j1=substr(k2,4,2)
  41. j2=substr(k2,7,2)
  42. j3=substr(k2,1,2)
  43. k2=j1+'/'+j2+'/'+j3
  44. k2=ctod(k2)
  45. use sb index sb1
  46. seek k1
  47. if eof() 
  48. clear
  49. wait '           ╬▐┤╦╔Φ▒╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  50. clos data
  51. a1=.t.
  52. retu
  53. endif
  54. j1=sb1
  55. j2=sb3
  56. j3=sb4
  57. j4=sb5
  58. j5=sb6
  59. j6=sb7
  60. j7=sb15
  61. j8=sb18
  62. j9=sb17
  63. j10=sb12
  64. j11=sb26
  65. j12=sb24
  66. j13=sb28
  67. j15=(k2-j10)/365
  68. dele all for sb1=k1
  69. pack
  70. use bfs 
  71. appe blank
  72. repl bfs1 with j1,bfs2 with j2,bfs3 with j3,bfs4 with j4,bfs5 with ì
  73. j5,bfs6 with j6,bfs7 with j7,bfs8 with j8,bfs9 with j9,bfs10 with ì
  74. j10,bfs12 with k2,bfs13 with j11,bfs14 with k3,bfs11 with j15
  75. use tj
  76. loca for tj1=j13 .and. tj2=j12
  77. repl tj3 with tj3-1
  78. use sm
  79. dele all for sm1=k1
  80. pack
  81. use bjh
  82. dele all for bjh1=k1
  83. pack
  84. do case 
  85. case p3='2'
  86. use yl
  87. dele all for yl1=k1
  88. pack
  89. use yan
  90. dele all for yan1=k1
  91. pack
  92. case p3='3'
  93. use dq
  94. dele all for dq1=k1
  95. pack
  96. case p3='4'
  97. use dx
  98. dele all dx7=k1
  99. pack
  100. case w='5'
  101. use gd
  102. dele all for gd1=k1
  103. pack
  104. endcase
  105. clear
  106. wait '╗╣╙╨▒≡╡─▒¿╖╧╔Φ▒╕┬≡(y/n) ' to w
  107. if w='y'
  108. a2=.t.
  109. else
  110. a2=.f.
  111. endif
  112. enddo a2
  113. use sb index sb1
  114. repl all sb32 with ' ' for sb32='y'
  115. a2=.t.
  116. a1=.t.
  117. clos data
  118. retu
  119.  
  120.  
  121.