home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JC1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  70 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. use jy
  5. if ww='w'
  6. dele all
  7. pack
  8. endif
  9. a1=.t.
  10. k1='          '
  11. k2='     '
  12. k3='     '
  13. do while a1 
  14. clear
  15. @ 1,20 say "╟δ╩Σ╚δ╥╘╧┬"+b+"╟Θ┐÷"
  16. @ 2,1 say "╗∙▒╛═╢╫╩" get k1 pict '#######.##'
  17. @ 3,1 say "░α▓·┴┐" get k2 pict '##.##'
  18. @ 4,1 say "╖╧╞╖┬╩úÑ" get k3 pict '#.###'
  19. read
  20. wait '╩Σ╚δ╡─╩²╛▌ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║' to w
  21. do case
  22. case w='r'
  23. retu
  24. case w='x'
  25. loop
  26. case w='z'
  27. k1=val(k1)
  28. k2=val(k2)
  29. k3=val(k3)
  30. j10='j'+a
  31. use jy
  32. if eof() .and. bof()
  33. appe blank
  34. repl &j10 with k1
  35. appe blank
  36. repl &j10 with k2-k3/100
  37. else
  38. repl &j10 with k1
  39. skip
  40. repl &j10 with k2-k3/100
  41. endif
  42. exit
  43. endcase
  44. enddo a1
  45. a2=.t.
  46. do while a2
  47. @ 5,0 clear
  48. k4='  '
  49. k5='          '
  50. @ 4,1 say "─Ω╖▌" get k4 pict '##'
  51. @ 5,1 say "╛¡╙¬╖╤" get k5 pict '#######.##'
  52. read
  53. loca for j6=k4
  54. if eof()
  55. appe blank
  56. repl j6 with k4,&j10 with val(k5)
  57. else
  58. repl &j10 with val(k5)
  59. endif
  60. @ 7,0 clear
  61. wait '╗╣╙╨╞Σ╦ⁿ─Ω╖▌╡─╛¡╙¬╖╤┬≡ú¿ú┘ú»ú╬ú⌐' to w
  62. if w='y'
  63. loop
  64. endif
  65. exit
  66. enddo
  67. retu
  68.  
  69.  
  70.