home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / YL1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.4 KB  |  139 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. use yl
  5. ? "╚▌╞≈▒α║┼  ╚▌╞≈├√│╞   └α▒≡    ═Γ╝∞╚╒╞┌    ─┌╝∞╚╒╞┌  ì
  6.   ╚½├µ╝∞▓Θ╚╒╞┌"
  7. l=2
  8. do while .not. eof()
  9. t=yl31
  10. t=dtoc(t)
  11. p=yl32
  12. p=dtoc(p)
  13. q=yl33
  14. q=dtoc(q)
  15. do case
  16. case t='  /  /  '
  17. a=yl9+yl26
  18. b=yl9+yl27
  19. c=yl9+yl28
  20. case p='  /  /  ' .and. t<>'  /  /  '
  21. a=yl31+yl26
  22. b=yl9+yl27
  23. c=yl9+yl28
  24. case q='  /  /  ' .and. p<>'  /  /  '
  25. a=yl31+yl26
  26. b=yl32+yl27
  27. c=yl9+yl28
  28. otherwise
  29. a=yl31+yl26
  30. b=yl32+yl27
  31. c=yl33+yl28
  32. endcase
  33. @ l,1 say " "+yl1
  34. @ l,7 say " "+yl2
  35. @ l,20 say " "+yl3
  36. d=dtoc(a)
  37. j1=substr(d,7,2)
  38. j2=substr(d,1,2)
  39. j3=substr(d,4,2)
  40. d=j1+'.'+j2+'.'+j3
  41. @ l,28 say " "+d
  42. e=dtoc(b)
  43. j1=substr(e,7,2)
  44. j2=substr(e,1,2)
  45. j3=substr(e,4,2)
  46. e=j1+'.'+j2+'.'+j3
  47. @ l,42 say " "+e
  48. f=dtoc(c)
  49. j1=substr(f,7,2)
  50. j2=substr(f,1,2)
  51. j3=substr(f,4,2)
  52. f=j1+'.'+j2+'.'+j3
  53. @ l,56 say " "+f
  54. skip
  55. l=l+1
  56. enddo
  57. wait '      ┤≥╙í┬≡(y/n) ' to w
  58. if w $ 'y'
  59. clear
  60. set device to print 
  61. set print on
  62. goto top
  63. set cons off
  64. ? chr(27)+"IJ"
  65. set print off
  66. set cons on
  67. @ 1,1 say "                 ╣°┬». ╤╣┴ª╚▌╞≈╝∞╤Θ╝╞╗«▒φ"
  68. @ 2,1 say "                "
  69. @ 3,1 say ì
  70. "================================================================"
  71. @ 4,1 say "|╚▌╞≈▒α║┼ |╚▌╞≈├√│╞    |└α▒≡|═Γ╝∞╚╒╞┌|─┌╝∞╚╒╞┌    |╚½├µ╝∞▓Θ╚╒╞┌|"
  72. @ 5,1 say ì
  73. "|---------|------------|----|--------|------------|------------|"
  74. do while .not. eof()
  75. t=yl31
  76. t=dtoc(t)
  77. p=yl32
  78. p=dtoc(p)
  79. q=yl33
  80. q=dtoc(q)
  81. do case
  82. case t='  /  /  '
  83. a=yl9+yl26
  84. b=yl9+yl27
  85. c=yl9+yl28
  86. case p='  /  /  ' .and. t<>'  /  /  '
  87. a=yl31+yl26
  88. b=yl9+yl27
  89. c=yl9+yl28
  90. case q='  /  /  ' .and. p<>'  /  /  '
  91. a=yl31+yl26
  92. b=yl32+yl27
  93. c=yl9+yl28
  94. otherwise
  95. a=yl31+yl26
  96. b=yl27+yl32
  97. c=yl28+yl33
  98. endcase
  99. @ prow()+1,1 say "|"+yl1
  100. @ prow(),pcol() say "|"+yl2
  101. @ prow(),pcol() say "|"+yl3
  102. d=dtoc(a)
  103. j1=substr(d,7,2)
  104. j2=substr(d,1,2)
  105. j3=substr(d,4,2)
  106. d=j1+'.'+j2+'.'+j3
  107. @ prow(),pcol() say "|"+d
  108. e=dtoc(b)
  109. j1=substr(e,7,2)
  110. j2=substr(e,1,2)
  111. j3=substr(e,4,2)
  112. e=j1+'.'+j2+'.'+j3
  113. @ prow(),pcol() say "|"+e+"    "
  114. f=dtoc(c)
  115. j1=substr(f,7,2)
  116. j2=substr(f,1,2)
  117. j3=substr(f,4,2)
  118. f=j1+'.'+j2+'.'+j3
  119. @ prow(),pcol() say "|"+f+"    |"
  120. skip
  121. if .not. eof()
  122. @ prow()+1,1 say ì
  123. "|---------|------------|----|--------|------------|------------|"
  124. else
  125. @ prow()+1,1 say ì
  126. "================================================================"
  127. endif
  128. enddo
  129. set print on
  130. ? chr(13)
  131. set print off
  132. endif
  133. set device to screen
  134. a1=.t.
  135. retu
  136.  
  137.  
  138.  
  139.