home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JC3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  3.0 KB  |  99 lines
  1. clear
  2. set talk off
  3. clos data
  4. set device to screen
  5. use jc
  6. k1='  '
  7. k2='  '
  8. @ 4,20 say "┤╦╔Φ▒╕╫╝▒╕╙├╝╕─Ω" get k1 pict '99'
  9. read
  10. k1=val(k1)
  11. loca for j6=k1
  12. x1=j1
  13. x2=j2
  14. x3=j3
  15. x4=j4
  16. x5=j5
  17. do case 
  18. case x1<x2 .and. x1<x3 .and. x1<x4 .and. x1<x5
  19. @ 4,20 say "╛╔╔Φ▒╕╝╠╨°╩╣╙├╩╟║╧└φ╡─úí"
  20. case x2<x1 .and. x2<x3 .and. x2<x4 .and. x2<x5
  21. @ 4,20 say "╛╔╔Φ▒╕┤≤╨▐╩╟║╧└φ╡─úí" 
  22. case x3<x1 .and. x3<x2 .and. x3<x4 .and. x3<x5
  23. @ 4,20 say "╛╔╔Φ▒╕╜°╨╨╝╝╩⌡╕─╘∞╩╟║╧└φ╡─úí"
  24. case x4<x1 .and. x4<x2 .and. x4<x3 .and. x4<x5
  25. @ 4,20 say "╣║┬≥╧α═¼╜ß╣╣╡─╨┬╔Φ▒╕╩╟║╧└φ╡─úí"
  26. case x5<x1 .and. x5<x2 .and. x5<x3 .and. x5<x4
  27. @ 4,20 say "╣║┬≥╕▀╨º┬╩╡─╨┬╔Φ▒╕╩╟║╧└φ╡─úí"
  28. endcase 
  29. set cons on
  30. wait '╗╣╥¬┤≥╙í╛÷▓▀▒φ┬≡ú¿ú┘ú»ú╬ú⌐' to w
  31. if w<>'y'
  32. retu
  33. endif
  34. set device to print 
  35. set cons off
  36. set print on
  37. ? chr(27)+"IJ"
  38. set print off
  39. @ prow()+1,20 say "╔Φ▒╕╕ⁿ╨┬╕─╘∞╛÷▓▀▒φ"
  40. @ prow()+1,1 say "               "
  41. @ prow()+1,1 say ì
  42. "=================================================================ì
  43. ============"
  44. @ prow()+1,1 say "|ú▄╕≈╖╜░╕╡─|            |            |            |     ì
  45.        ì
  46. |            |"
  47. @ prow()+1,1 say "|  ú▄  ╧╓╓╡|╛╔  ╔Φ  ▒╕  |╛╔   ╔Φ   ▒╕|╛╔  ╔Φ  ▒╕  |╣║ ì
  48. ┬≥  ╧α ═¼ì
  49. |╣║ ┬≥  ╕▀ ╨º|"
  50. @ prow()+1,1 say "|    ú▄    |            |            |            |          ì
  51.   |            |"
  52. @ prow()+1,1 say "| ─Ω ╖▌ú▄  ì
  53. |╝╠ ╨°  ╩╣ ╙├|┤≤   ╨▐   └φ|╝╝ ╩⌡  ╕─ ╘∞|╜ß╣╣  ╨┬╔Φ▒╕|┬╩ ╨┬  ╔Φ ▒╕|"
  54. @ prow()+1,1 say "|        ú▄|            |            |            |          ì
  55.   |            |"
  56. @ prow()+1,1 say ì
  57. "|----------|------------|------------|------------|------------|--ì
  58. ----------|"
  59. goto 1
  60. do while .not. eof()
  61. @ prow()+1,1 say "|"+str(j6,2)
  62. do case 
  63. case j1<j2 .and. j1<j3 .and. j1<j4 .and. j1<j5
  64. @ prow(),12 say "|"+str(j1,10)+"*"+" |"+str(j2,10)+"  |"+str(j3,10)+" ì
  65.  |"+str(j4,10)+"  |"+str(j5,10)+"  |"
  66. case j2<j1 .and. j2<j3 .and. j2<j4 .and. j2<j5
  67. @ prow(),12 say "|"+str(j1,10)+"  |"+str(j2,10)+"*"+" ì
  68. |"+str(j3,10)+"  |"+str(j4,10)+"  |"+str(j5,10)+"  |"
  69. case j3<j1 .and. j3<j2 .and. j3<j4 .and. j3<j5
  70. @ prow(),12 say "|"+str(j1,10)+"  |"+str(j2,10)+"  ì
  71. |"+str(j3,10)+"*"+" |"+str(j4,10)+"  |"+str(j5,10)+"  |"
  72. case j4<j1 .and. j4<j2 .and. j4<j3 .and. j4<j5
  73. @ prow(),12 say "|"+str(j1,10)+"  |"+str(j2,10)+"  ì
  74. |"+str(j3,10)+"  |"+str(j4,10)+"*"+" |"+str(j5,10)+"  |"
  75. case j5<j1 .and. j5<j2 .and. j5<j3 .and. j5 <j4
  76. @ prow(),12 say "|"+str(j1,10)+"  |"+str(j2,10)+"  ì
  77. |"+str(j3,10)+"  |"+str(j4,10)+"  |"+str(j5,10)+"*"+" |"
  78. endcase 
  79. skip
  80. if eof()
  81. @ prow()+1,1 say ì
  82. "=================================================================ì
  83. ============"
  84. else
  85. @ prow()+1,1 say ì
  86. "|----------|------------|------------|------------|------------|-ì
  87. -----------|"
  88. endif
  89. enddo 
  90. @ prow()+1,1 say ì
  91. "*╬¬╕├─Ω╖▌╕≈╖╜░╕╓╨╫▄╡─╩╣╙├│╔▒╛╫ε╡═╒▀í¬í¬í¬╝┤╫ε╝╤╖╜░╕"
  92. set print on
  93. ? chr(13)
  94. set print off
  95. set device to screen
  96. retu
  97.  
  98.  
  99.