home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ZJ5.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.3 KB  |  79 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. use zj
  6. a1='   '
  7. @ 4,10 say "╟δ╩Σ╚δ╫▄╝╟┬╝╩²" get a1
  8. read
  9. a1=val(a1)
  10. do while a1<>0
  11. k1='         '
  12. k2='    '
  13. k3='            '
  14. k4='   '
  15. k5='        '
  16. k6="            "                    
  17. k7=' '
  18. k8='      '
  19. k9='      '
  20. k10=' '
  21. k11='                              '
  22. k12='      '
  23. t=1
  24. a2=.t.
  25. do while a2
  26. clear
  27. @ 1,1 say "╔Φ▒╕▒α║┼" get k1
  28. @ 2,1 say "╝α▓Γ╡π▒α║┼" get k2
  29. @ 3,1 say "╝α▓Γ╡π▓┐╬╗" get k3
  30. @ 4,1 say "╝α▓Γ╓▄╞┌(╠∞)" get k4
  31. @ 5,1 say "╔╧┤╬╝α▓Γ╚╒╞┌" get k5 pict '99.99.99'
  32. @ 6,1 say "▓Γ┴┐▓╬╩²├√│╞" get k6
  33. @ 7,1 say "┼╨▒≡╖╢╬º" get k10
  34. a3=.t.
  35. do while a3
  36. @ 8,0 clear
  37. @ 8,1 say "▒Ω╫╝╓╡(╕▀)" get k8 pict '###.##'
  38. @ 9,1 say "▒Ω╫╝╓╡(╡═)" get k9 pict '###.##'
  39. read
  40. if t=1
  41. k8=val(k8)
  42. k9=val(k9)
  43. t=2
  44. endif
  45. if k10<>'z' .and. k8<k9 
  46. @ 8,0 clear
  47. ? chr(7)
  48. wait '╩Σ╚δ╙╨┤φú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪╓╪╨┬╩Σ╚δúí'
  49. loop
  50. endif
  51. exit
  52. enddo a3
  53. @ 1,40 say "╝α▓Γ─┌╚▌╝≥╩÷" get k11
  54. @ 2,40 say "╓╕╡╝╦╡├≈╩Θ┤·║┼" get k12
  55. read
  56. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
  57. if w<>'y'
  58. a2=.t.
  59. else 
  60. a2=.f.
  61. endif
  62. enddo a2
  63. k4=val(k4)
  64. j1=substr(k5,4,2)
  65. j2=substr(k5,7,2)
  66. j3=substr(k5,1,2)
  67. k5=j1+'/'+j2+'/'+j3
  68. k5=ctod(k5)
  69. use zj
  70. appe blank
  71. repl zj1 with k1,zj3 with k3,zj4 with k4,zj5 with ì
  72. k5,zj8 with k6,zj10 with k8,zj13 with k9,zj2 with k2,zj7 with ì
  73. k11,zj14 with k12
  74. a1=a1-1
  75. enddo a1
  76. retu
  77.  
  78.  
  79.