home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YL2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.2 KB  |  116 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╫▄╝╟┬╝╩²" get a
  7. read
  8. a=val(a)
  9. do while a<>0
  10. k1='         '
  11. k2='        '
  12. k3=' '
  13. k4='                              '
  14. k5=' '
  15. k6='  '
  16. k7='          '
  17. k8='          '
  18. k9='          '
  19. k10='          '
  20. k11='          '
  21. k12='          '
  22. k13='                              '
  23. k14='                              '
  24. k15='     '
  25. k16='     '
  26. a4=.t.
  27. do while a4
  28. clear
  29. @ 1,1 say "╣ñ╫≈┴ε║┼" get k7 pict '##########'
  30. @ 2,1 say "╚▌╞≈▒α║┼" get k1
  31. @ 3,1 say "╝∞╤Θ╚╒╞┌" get k2 pict '99.99.99'
  32. @ 4,1 say "╝∞╤Θ└α▒≡(═Γ╝∞ 1,─┌╝∞ 2,╚½├µ╝∞╝∞ 3)" get k3
  33. @ 5,1 say "╝∞╤Θ─┌╚▌" get k4
  34. @ 6,1 say "╝∞╤Θ╜ß┬█(═Ω║├ Y,╖±╘≥ N)" get k5
  35. read
  36. a3=.t.
  37. do while a3
  38. @ 7,1 say "╝∞╤Θ╡Ñ╬╗┤·║┼" get k6
  39. read
  40. if k6='h'
  41. use dw
  42. do hel1.prg
  43. @ 7,1 clear
  44. a3=.t.
  45. loop
  46. endif
  47. exit
  48. enddo a3
  49. @ 1,50 say "╣ñ╩▒╖╤" get k8 pict '#######.##'
  50. @ 2,50 say "▓─┴╧╖╤" get k9 pict '#######.##'
  51. @ 3,50 say "▒╕╝■╖╤" get k10 pict '#######.##'
  52. @ 4,50 say "═Γ╬»╝╙╣ñ╖╤" get k11 pict '#######.##'
  53. @ 5,50 say "╞Σ╦ⁿ╖╤╙├" get k12 pict '#######.##'
  54. @ 6,50 say "╩╡╬¼╨▐╩▒╝Σ" get k15 pict '##.##'
  55. @ 7,50 say "═ú╣ñ┤²┴╧╩▒╝Σ" get k16 pict '##.##'
  56. @ 8,1 say "╦∙╙├╡─▒╕╝■" get k13
  57. @ 9,1 say "╢╘╥╘║≤╬¼╨▐╡─╜¿╥Θ" get k14
  58. read
  59. wait '              ╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐' to w
  60. if w<>'y'
  61. loop
  62. endif
  63. exit
  64. enddo 
  65. p1=substr(k2,1,5)
  66. k7=val(k7)
  67. j1=substr(k2,4,2)
  68. j2=substr(k2,7,2)
  69. j3=substr(k2,1,2)
  70. k2=j1+'/'+j2+'/'+j3
  71. k2=ctod(k2)
  72. use ylf
  73. appe blank
  74. repl ylf1 with k1,ylf2 with k2,ylf3 with k3,ylf4 with k4,ylf5 ì
  75. with k5,ylf6 with k6
  76. use yl
  77. loca for yl1=k1
  78. repl yl34 with k5
  79. if k3='1'
  80. repl yl31 with k2
  81. endif
  82. if k3='2'
  83. repl yl32 with k2
  84. endif
  85. if k3='3'
  86. repl yl33 with k2
  87. endif
  88. k15=val(k15)
  89. k16=val(k16)
  90. k8=val(k8)
  91. k9=val(k9)
  92. k10=val(k10)
  93. k11=val(k11)
  94. k12=val(k12)
  95. use gzl1 index gzl11
  96. seek k7 
  97. repl gzl1a with 'y',gzl1f with k13,gzl1e with k14,gzl1d with ì
  98. k8+k9+k10+k11+k12,gzl1b with k15,gzl1c with k16
  99. use fyl
  100. loca for f1=p1
  101. if .not. eof()
  102. repl f3 with f3+k8+k9+k10+k11+k12,f4 with f4+k8,f5 with f5+k9,f6 with f6+k10,f7 with f7+k11,f8 with ì
  103. f8+k12
  104. else
  105. appe blank
  106. repl f1 with p1,f3 with k8+k9+k10+k11+k12,f4 with k8,f5 with ì
  107. k9,f6 with k10,f7 with k11,f8 with k12
  108. endif
  109. a=a-1
  110. enddo 
  111. retu
  112.  
  113.  
  114.  
  115.  
  116.