home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / XFX2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  84 lines
  1. set talk off
  2. x0=00
  3. x1='                           '
  4. x2=0000000
  5. x3='      '
  6. x4=0.00
  7. clear
  8. @ 2,20 say '╖╜░╕╨≥║┼:' get x0
  9. @ 3,20 say '╔Φ▒╕├√│╞:' get x1
  10. @ 4,20 say '╩²    ┴┐:' get x2
  11. @ 5,20 say '═Γ▒╥╓╓└α:' get x3
  12. @ 6,20 say '▒╚    ╝█:' get x4
  13. read
  14. use c:xfx2
  15. repl all wb with 0
  16. repl all r  with 0
  17. 1
  18. ma=' '
  19. do while .not.eof()
  20. clear
  21. @ 2,20 say '╧ε    ─┐:  '+xm
  22. @ 4,20 say '═Γ    ▒╥:' get wb
  23. @ 5,20 say '╚╦ ├± ▒╥:' get r
  24. read
  25. @ 7,20 say '╒²╚╖┬≡(y/n)?' get ma
  26. read
  27. if ma='n'.or.ma='N'
  28. loop
  29. endif
  30. skip
  31. enddo
  32. clear 
  33. @ 3,24 say '==================='
  34. @ 4,24 say ' ╟δ─·╔╘║ε,╒²╘┌╝╞╦π'
  35. @ 5,24 say '==================='
  36. 1     
  37. repl all zr with wb*x4
  38. repl all hj with zr+r
  39. sum all wb,zr,r,hj to y1,y2,y3,y4
  40. repl all bfs with hj/y4*100
  41. sum all bfs to y5
  42. clear
  43. @ 3,24 say '==================='
  44. @ 4,24 say ' ╟δ─·╔╘║ε,╒²╘┌┤≥╙í'
  45. @ 5,24 say '==================='
  46. set device to print
  47. set print on
  48. @ 1,1 say '                   ╔Φ▒╕═╢╫╩╙Φ▓Γ▒φú¿╖╜░╕ú║'+str(x0,2)+'ú⌐'
  49. @ 2,1 say '                   =========================='
  50. @ 3,1 say ' ' 
  51. @ 4,1 say '╔Φ▒╕├√│╞:'+x1
  52. @ 5,1 say ' ' 
  53. @ 6,1 say '╩²    ┴┐:'+str(x2,2)+'╠¿ú¿╠╫ú⌐    ═Γ▒╥:'+x3+' ì
  54. ▒╚╝█:'+str(x4,6,2)+'  ╡Ñ╬╗:╘¬'
  55. @ 7,1 say '==========================================================='
  56. @ 8,1 say  '|                |   ═Γ    ╗π    |        |        |      |' 
  57. @ 9,1 say  '|    ╧ε    ─┐    |---------------| ╚╦├±▒╥ | ║╧  ╝╞ | ╒╝úÑ |' 
  58. @ 10,1 say '|                |═Γ▒╥  |╒█╚╦├±▒╥|        |        |      |' 
  59. @ 11,1 say '|================|======|========|========|========|======|'
  60. 1          
  61. l=12
  62. do while .not.eof()
  63. @ l,1 say ì
  64. '|'+xm+'|'+str(wb,6)+'|'+str(zr,8)+'|'+str(r,8)+'|'+str(hj,8)+'|'+str(bfs,6ì
  65. ,2)+'|' 
  66. skip
  67. l=l+1
  68. @ l ,1 say '|----------------|------|--------|--------|--------|------|'
  69. l=l+1
  70. enddo
  71. @ l,1 say '|     ╫▄   ╝╞    ì
  72. |'+str(y1,6)+'|'+str(y2,8)+'|'+str(y3,8)+'|'+str(y4,8)+'|'+str(y5,ì
  73. 6,2)+'|'
  74. l=l+1
  75. @ l,1 say ì
  76. '==========================================================='
  77. l=l+1
  78. @ l,1 say ' '
  79. set print off
  80. set device to screen
  81. return
  82.  
  83.  
  84.