home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / HFX4.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.8 KB  |  73 lines
  1. clear
  2. set talk off
  3. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  4. set cons off
  5. set device to print 
  6. set print on
  7. ? chr(27)+"IJ"
  8. set print off
  9. use hfx2
  10. p=1
  11. @ prow()+1,30 say "╫¿╝╥╞└╖╓╜ß╣√"
  12. @ prow()+1,1 say "          "
  13. @ prow()+1,1 say ì
  14. "=================================================================ì
  15. =============="
  16. @ prow()+1,1 say ì
  17. "|╨╘      ì
  18. ─▄|╛¡╝├╨╘|┐╔┐┐╨╘|╥╫╨▐╨╘|╜┌─▄╨╘|╗╖▒ú░▓╚½╨╘|═¿╙├╨╘|╩╩╙├╨╘|═Γ╣█╨╘|╨í ì
  19.  ╝╞|"
  20. @ prow()+1,1 say ì
  21. "|----------|------|------|------|------|----------|------|------|------ì
  22. |------|"
  23. do while .not. eof()
  24. if recno()=1
  25. @ prow()+1,1 say "|▒╚    ì
  26. ╓╪úÑ|"+str(h1,6,2)+"|"+str(h2,6,2)+"|"+str(h3,6,2)+"|"+str(h4,6,2)+ì
  27. "|  "+str(h5,6,2)+"  ì
  28. |"+str(h6,6,2)+"|"+str(h7,6,2)+"|"+str(h8,6,2)+"|100úÑ |"
  29. @ prow()+1,1 say ì
  30. "|----------|------|------|------|------|----------|------|------|ì
  31. ------|------|"
  32. else 
  33. h=h1+h2+h3+h4+h5+h6+h7+h8
  34. @ prow()+1,1 say ì
  35. "|  ╫¿╝╥"+str(p,2)+"  |"+str(h1,6,2)+"|"+str(h2,6,2)+"|"+str(h3,6,2)+"ì
  36. |"+str(h4,6,2)+"|  "+str(h5,6,2)+"  ì
  37. |"+str(h6,6,2)+"|"+str(h7,6,2)+"|"+str(h8,6,2)+"|"+str(h,6,2)+"|"
  38. @ prow()+1,1 say ì
  39. "|----------|------|------|------|------|----------|------|------|ì
  40. ------|------|"
  41. p=p+1
  42. endif
  43. skip
  44. enddo 
  45. p=p-1
  46. sum h1,h2,h3,h4,h5 to x1,x2,x3,x4,x5 for recno()<>1
  47. sum h6,h7,h8 to x6,x7,x8 for recno()<>1
  48. goto 1
  49. x1=0.01*x1*h1/p
  50. x2=0.01*x2*h2/p
  51. x3=0.01*x3*h3/p
  52. x4=0.01*x4*h4/p
  53. x5=0.01*x5*h5/p
  54. x6=0.01*x6*h6/p
  55. x7=0.01*x7*h7/p
  56. x8=0.01*x8*h8/p
  57. x=x1+x2+x3+x4+x5+x6+x7+x8
  58. @ prow()+1,1 say ì
  59. "|╒█▒╚╓╪╫▄╖╓|"+str(x1,6,2)+"|"+str(x2,6,2)+"|"+str(x3,6,2)+"|"+strì
  60. (x4,6,2)+"|  "+str(x5,6,2)+"  ì
  61. |"+str(x6,6,2)+"|"+str(x7,6,2)+"|"+str(x8,6,2)+"|"+str(x,6,2)+"|"
  62. @ prow()+1,1 say ì
  63. "=================================================================ì
  64. =============="
  65. set print on
  66. ? chr(13)
  67. set print off
  68. set cons on
  69. set device to screen
  70. retu
  71.  
  72.  
  73.