home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BFS4.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.0 KB  |  88 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. dd='q'
  5. w='q'
  6. a='  '        
  7. b='        '
  8. @ 4,10 say '╟δ╩Σ╚δ╡▒─Ω─Ω╖▌:' get a pict '99'        
  9. @ 5,10 say "╜±╠∞╡─╚╒╞┌:" get b pict '99.99.99'
  10. read
  11. aa=b
  12. do bfs6
  13. b=aa
  14. if dd='w'
  15. clos data
  16. retu
  17. endif
  18. if  w<>'y'
  19. clos data
  20. retu
  21. endif
  22. set device to print  
  23. set print on
  24. set cons off
  25. ? chr(27)+"IJ"
  26. set print off
  27. set cons on
  28. close database
  29. use sb index sb1
  30. loca for sb32='y'
  31. @ 1,1 say "                                    "+a+"─Ω╥╤╔Ω╟δ▒¿╖╧╡─╔Φ▒╕├≈╧╕"
  32. @ 2,1 say "                          "
  33. @ 3,110 say "╠ε▒φ╚╒╞┌:"+b                      
  34. @ 4,1 say ì
  35. "=================================================================ì
  36. ==================================================================ì
  37. "
  38. @ 5,1 say "|╔Φ▒╕▒α║┼ |╔Φ▒╕├√│╞        |      ╨═║┼      |╓╪┴┐  |   ═Γ╨╬│▀┤τ     |  ╘¡╓╡    |╥╤╠ß╒█╛╔  ì
  39. |╛╗╓╡      |╛╗▓╨╓╡  |╞⌠╙├╩▒╝Σ|╥╤╩╣╙├─Ω╧▐|"
  40. @ 6,1 say ì
  41. "|---------|----------------|----------------|------|----------------|----------|----------|----------|----ì
  42. ----|--------|----------|"
  43. do while .not. eof()
  44. @ prow()+1,1 say "|"+sb1
  45. @ prow(),11 say "|"+sb3
  46. @ prow(),28 say "|"+sb4
  47. @ prow(),45 say "|"+str(sb6,6,2)
  48. c=sb7
  49. c=substr(c,1,16)
  50. @ prow(),52 say "|"+c
  51. @ prow(),69 say "|"+str(sb15,10,2)
  52. @ prow(),80 say "|"+str(sb18,10,2)
  53. @ prow(),91 say "|"+str(sb17,10,2)
  54. @ prow(),102 say "|"+str(sb26,8,2)
  55. c=dtoc(sb12)
  56. j1=substr(c,7,2)
  57. j2=substr(c,1,2)
  58. j3=substr(c,4,2)
  59. c=j1+'.'+j2+'.'+j3
  60. @ prow(),111 say "|"+c
  61. c=substr(c,1,2)
  62. c=val(c)
  63. a=val(a)
  64. d=a-c
  65. @ prow(),120 say "|"+str(d,2)+"        |"
  66. cont
  67. if .not. eof()
  68. @ prow()+1,1 say ì
  69. "|---------|----------------|----------------|------|-------------ì
  70. ---|----------|----------|----------|--------|--------|----------|ì
  71. "
  72. else
  73. @ prow()+1,1 say ì
  74. "=================================================================ì
  75. ==================================================================ì
  76. "
  77. endif
  78. a=str(a,2)
  79. enddo 
  80. set print on
  81. ? chr(13)
  82. set talk on
  83. set print off
  84. set device to screen
  85. a1=.t.
  86. retu
  87.  
  88.