home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JC5.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  646 b   |  42 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. a1=.t.
  5. k1='          '
  6. k2='     '
  7. k3='     '
  8. do while a1 
  9. clear
  10. @ 1,20 say "╟δ╩Σ╚δ╥╘╧┬"+b+"╟Θ┐÷"
  11. @ 2,1 say "╗∙▒╛═╢╫╩" get k1 pict '#######.##'
  12. @ 3,1 say "░α▓·┴┐" get k2 pict '##.##'
  13. @ 4,1 say "╖╧╞╖┬╩úÑ" get k3 pict '#.###'
  14. read
  15. wait '╩Σ╚δ╡─╩²╛▌ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║' to w
  16. do case
  17. case w='r'
  18. retu
  19. case w='x'
  20. loop
  21. case w='z'
  22. k1=val(k1)
  23. k2=val(k2)
  24. k3=val(k3)
  25. j10='j'+a
  26. use jy
  27. if eof() .and. bof()
  28. appe blank
  29. repl &j10 with k1
  30. appe blank
  31. repl &j10 with k2-k3/100
  32. else
  33. repl &j10 with k1
  34. skip
  35. repl &j10 with k2-k3/100
  36. endif
  37. exit
  38. endcase
  39. enddo a1
  40. do jc6.prg 
  41. retu
  42.