home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / HFX3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  82 lines
  1. clear
  2. set talk off
  3. set device to print 
  4. set print on
  5. ? chr(27)+"IJ"
  6. set print off
  7. x1=0
  8. x2=0
  9. x3=0
  10. x4=0
  11. x5=0
  12. x6=0
  13. x7=0
  14. x8=0
  15. use hfx1
  16. p=1
  17. @ prow()+1,30 say "╕≈╧ε╨╘─▄▒╚╓╪╝╞╦π"
  18. @ prow()+1,1 say "          "
  19. @ prow()+1,1 say ì
  20. "=================================================================ì
  21. ======="
  22. @ prow()+1,1 say ì
  23. "|╨╘      ─▄|╛¡╝├╨╘|┐╔┐┐╨╘|╥╫╨▐╨╘|╜┌─▄╨╘|╗╖▒ú░▓╚½╨╘|═¿╙├╨╘|╩╩╙├╨╘|═Γ╣█╨╘|"
  24. @ prow()+1,1 say ì
  25. "|----------|------|------|------|------|----------|------|------|------ì
  26. |"
  27. do while .not. eof()
  28. @ prow()+1,1 say ì
  29. "|  ╖╓╓╡"+str(p,2)+"  |"+str(h1,6,2)+"|"+str(h2,6,2)+"|"+str(h3,6,2)+"ì
  30. |"+str(h4,6,2)+"|  "+str(h5,6,2)+"  ì
  31. |"+str(h6,6,2)+"|"+str(h7,6,2)+"|"+str(h8,6,2)+"|"
  32. @ prow()+1,1 say ì
  33. "|----------|------|------|------|------|----------|------|------|ì
  34. ------|"
  35. h=(h1+h2+h3+h4+h5+h6+h7+h8)/100
  36. @ prow()+1,1 say ì
  37. "| ░┘╖╓▒╚"+str(p,2)+" |"+str(h1/h,6,2)+"|"+str(h2/h,6,2)+"|"+str(h3/ì
  38. h,6,2)+"|"+str(h4/h,6,2)+"|  "+str(h5/h,6,2)+"  ì
  39. |"+str(h6/h,6,2)+"|"+str(h7/h,6,2)+"|"+str(h8/h,6,2)+"|"
  40. x1=x1+h1/h
  41. x2=x2+h2/h
  42. x3=x3+h3/h
  43. x4=x4+h4/h
  44. x5=x5+h5/h
  45. x6=x6+h6/h
  46. x7=x7+h7/h
  47. x8=x8+h8/h
  48. @ prow()+1,1 say ì
  49. "|----------|------|------|------|------|----------|------|------|ì
  50. ------|"
  51. p=p+1
  52. skip
  53. enddo 
  54. p=p-1
  55. @ prow()+1,1 say ì
  56. "|╫█║╧░┘╖╓▒╚|"+str(x1/p,6,2)+"|"+str(x2/p,6,2)+"|"+str(x3/p,6,2)+"|"+strì
  57. (x4/p,6,2)+"|  "+str(x5/p,6,2)+"  ì
  58. |"+str(x6/p,6,2)+"|"+str(x7/p,6,2)+"|"+str(x8/p,6,2)+"|"
  59. @ prow()+1,1 say ì
  60. "|----------|------|------|------|------|----------|------|------|ì
  61. ------|"
  62. x=(x1+x2+x3+x4+x5+x6+x7+x8)/100
  63. @ prow()+1,1 say ì
  64. "|╜ß┬█░┘╖╓▒╚|"+str(x1/x,6,2)+"|"+str(x2/x,6,2)+"|"+str(x3/x,6,2)+"ì
  65. |"+str(x4/x,6,2)+"|  "+str(x5/x,6,2)+"  ì
  66. |"+str(x6/x,6,2)+"|"+str(x7/x,6,2)+"|"+str(x8/x,6,2)+"|"
  67. @ prow()+1,1 say ì
  68. "=================================================================ì
  69. ======="
  70. use hfx2
  71. dele all
  72. pack
  73. appe blank
  74. repl h1 with x1/x,h2 with x2/x,h3 with x3/x,h4 with x4/x,h5 with ì
  75. x5/x,h6 with x6/x,h7 with x7/x,h8 with x8/x
  76. use
  77. set print on
  78. ? chr(13)
  79. set print off
  80. set device to screen
  81. retu
  82.