home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GD5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.8 KB  |  102 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 4
  6. use fyl
  7. sele 1
  8. use gd
  9. sele 2
  10. use gdf
  11. sele 3
  12. use gzl1 index gzl11
  13. a1=.t.
  14. do while a1
  15. k1='            '
  16. k2='         '
  17. k3='        '
  18. k15=' '
  19. k4='          '
  20. k5='          '
  21. k6='          '
  22. k7='          '
  23. k8='          '
  24. k18='     '
  25. k19='     '
  26. k20='                              '
  27. k21='                              '
  28. a2=.t.
  29. do while a2
  30. clear
  31. @ 1,1 say "╣ñ╫≈┴ε║┼" get k1
  32. @ 2,1 say "╣▄╡└▒α║┼" get k2
  33. @ 3,1 say "╝∞╨▐╚╒╞┌" get k3 pict '99.99.99'
  34. do dq5.fmt
  35. @ 9,1 say "╝∞▓Γ(1),╨▐└φ(2)" get k15
  36. @ 1,32 say "╩╡╝╩╣ñ╩▒" get k18 pict '##.##'
  37. @ 2,32 say "═ú╣ñ┤²┴╧╩▒╝Σ" get k19 pict '##.##'
  38. @ 3,32 say "╦∙╙├╡─▒╕╝■" get k20
  39. @ 4,32 say "╢╘╥╘║≤╬¼╨▐╡─╜¿╥Θ" get k21
  40. read
  41. wait '╩²╛▌╒²╚╖ú┌ú¼╫≈╖╧ú╞ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║' to w
  42. do case  
  43. case w='x'
  44. loop
  45. case w='f'
  46. exit  
  47. case w='r'
  48. close database
  49. retu
  50. case w='z'
  51. j1=substr(k3,4,2)
  52. j2=substr(k3,7,2)
  53. j3=substr(k3,1,2)
  54. k3=j1+'/'+j2+'/'+j3
  55. k3=ctod(k3)
  56. k1=val(k1)
  57. p1=j3+'.'+j1
  58. k4=val(k4)
  59. k5=val(k5)
  60. k6=val(k6)
  61. k18=val(k18)
  62. k19=val(k19)
  63. k7=val(k7)
  64. k8=val(k8)
  65. sele 3
  66. seek k1           
  67. repl gzl1a with 'y',gzl1f with k20,gzl1e with k21,gzl1d with ì
  68. k4+k5+k6+k7+k8,gzl1b with k18,gzl1c with k19
  69. sele 2
  70. appe blank
  71. repl gdf1 with k2,gdf2 with k3,gdf3 with k4+k5+k6+k7+k8,gdf4 with ì
  72. k15
  73. if k15='1'
  74. sele 1 
  75. loca for gd1=k2
  76. repl gd18 with k3
  77. endif
  78. sele 4
  79. loca for f1=p1
  80. if .not. eof()
  81. repl f3 with f3+k4+k5+k6+k7+k8,f4 with f4+k4,f5 with f5+k5,f6 ì
  82. with f6+k6,f7 with f7+k7,f8 with f8+k8
  83. else
  84. appe blank
  85. repl f1 with p1,f3 with k4+k5+k6+k7+k8,f4 with k4,f5 with k5,f6 ì
  86. with k6,f7 with k7,f8 with k8
  87. endif
  88. exit
  89. endcase 
  90. enddo a1
  91. wait '╗╣╩Σ╚δ┬≡(Y/N)' to w
  92. if w='y'
  93. a1=.t.
  94. else
  95. a1=.f.
  96. endif
  97. enddo a1
  98. close database
  99. a1=.t.
  100. retu
  101.  
  102.