home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ZJ8.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  55 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. use zj
  6. a1=.t.
  7. do while a1
  8. clear
  9. a='         '
  10. b='    '
  11. @ 4,20 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
  12. @ 5,20 say "╝α▓Γ╡π║┼" get b
  13. read
  14. loca for zj1=a .and. zj2=b
  15. if eof()
  16. @ 4,0 clear
  17. wait '           ╬▐┤╦╝α▓Γ╡πú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  18. clos data
  19. retu
  20. endif
  21. tt=dtoc(zj5)
  22. j1=substr(tt,7,2)
  23. j2=substr(tt,1,2)
  24. j3=substr(tt,4,2)
  25. tt=j1+'.'+j2+'.'+j3
  26. clear
  27. @ 0,1 say "╔Φ▒╕▒α║┼" get zj1
  28. @ 1,1 say "╝α▓Γ╡π║┼" get zj2
  29. @ 2,1 say "╝α▓Γ╡π▓┐╬╗" get zj3
  30. @ 3,1 say "╝α▓Γ╓▄╞┌(╠∞)" get zj4
  31. @ 4,1 say "╔╧┤╬╝α▓Γ╚╒╞┌" get tt
  32. @ 5,1 say "▓Γ┴┐▓╬╩²├√│╞" get zj8
  33. if zj13>zj10
  34. @ 6,1 say "▒Ω╫╝╓╡(╕▀)" get zj13 pict '###.##'
  35. @ 7,1 say "▒Ω╫╝╓╡(╡═)" get zj10 pict '###.##'
  36. else
  37. @ 6,1 say "▒Ω╫╝╓╡(╕▀)" get zj10 pict "###.##"
  38. @ 7,1 say "▒Ω╫╝╓╡(╡═)" get zj13 pict "###.##"
  39. endif
  40. @ 8,1 say "╝α▓Γ─┌╚▌╝≥╩÷" get zj7
  41. @ 9,1 say "╓╕╡╝╦╡├≈╩Θ┤·║┼" get zj14
  42. wait '╒µ╥¬╔╛│²┤╦╝╟┬╝┬≡ú¿ú┘ú»ú╬ú⌐' to w
  43. if w='y'
  44. dele
  45. pack
  46. endif
  47. exit
  48. enddo 
  49. wait '╗╣╔╛│²┬≡ú¿ú┘ú»ú╬ú⌐' to w
  50. if w<>'y'
  51. clos data
  52. retu
  53. endif
  54. enddo 
  55.