home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / XFX.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.1 KB  |  74 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. aa='  '
  13. bb='     '
  14. dd='     '
  15. cc='          '
  16. do while a1 
  17. clear
  18. @ 1,20 say "╟δ╩Σ╚δ╥╘╧┬"+b+"╟Θ┐÷"
  19. @ 2,1 say "╗∙▒╛═╢╫╩" get k1 pict '#######.##'
  20. @ 3,1 say "╔·▓·┬╩╠ß╕▀╧╡╩²" get k2 pict '#.##'
  21. @ 4,1 say "┤╦╔Φ▒╕─Γ╩╣╙├╝╕─Ω" get aa pict "##"
  22. @ 5,1 say "╡┌╥╗─Ω╬¼╨▐╖╤╙├" get cc pict '#######.##'
  23. @ 6,1 say "╬¼╨▐╖╤╙├─Ω╡▌╘÷┬╩ú¿úÑú⌐" get bb pict "##.##"
  24. @ 7,1 say "╔Φ▒╕╡─┤≤╨▐╓▄╞┌(─Ω)" get dd pict "##"
  25. read
  26. wait '╩Σ╚δ╡─╩²╛▌ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║' to w
  27. do case
  28. case w='r'
  29. retu
  30. case w='x'
  31. loop
  32. case w='z'
  33. k1=val(k1)
  34. k2=val(k2)
  35. j10='j'+a
  36. if eof() .and. bof()
  37. appe blank
  38. repl &j10 with k1
  39. appe blank
  40. repl &j10 with k2
  41. else
  42. repl &j10 with k1
  43. skip
  44. repl &j10 with k2
  45. endif
  46. exit
  47. endcase
  48. enddo a1
  49. aa=val(aa)
  50. bb=val(bb)/100
  51. cc=val(cc)
  52. dd=val(dd)
  53. k4=1
  54. ff=cc
  55. do while aa<>0
  56. qq=k4/dd
  57. qq1=int(qq)
  58. if qq1-qq=0
  59. ff=cc
  60. endif
  61. kk=str(k4,2)
  62. loca for j6=kk
  63. if eof()
  64. appe blank
  65. repl j6 with kk,&j10 with ff
  66. else
  67. repl &j10 with ff
  68. endif
  69. k4=k4+1
  70. aa=aa-1
  71. ff=ff*(1+bb)
  72. enddo
  73. retu
  74.