home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SBDY1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  3.1 KB  |  135 lines
  1. clear
  2. set talk off
  3. if eof()
  4. clear
  5. @ 4,20 say "╬▐┤╦└α╔Φ▒╕ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí"
  6. retu
  7. endif
  8. a2=' '
  9. do while file('sb3.dbf')
  10. sele 6
  11. use sb3 index sb4
  12. a2='w'
  13. sele 1
  14. exit
  15. enddo
  16. do while .not. eof()
  17. clear
  18. @ 4,20 say "╒²╘┌┤≥╙íú¼╟δ╔╘║≥úí"
  19. set cons off
  20. set device to print 
  21. set print on
  22. ? chr(27)+"IL"
  23. set print off
  24. @ prow()+1,30 say "╔Φ▒╕╣╠╢¿╫╩▓·┐¿╞¼"           
  25. @ prow()+1,30 say "í¬í¬í¬í¬í¬í¬í¬í¬"
  26. set print on
  27. ? chr(27)+"IJ"
  28. set print off
  29. @ prow()+1,1 say "              "
  30. @ prow()+1,1 say "      "
  31. @ prow()+1,1 say "╔Φ▒╕▒α║┼ú║"+sb1+'           '+"╔Φ▒╕├√│╞ú║"+sb3+'  ì
  32.   '+"╔Φ▒╕╨═║┼ú║"+sb4
  33. @ prow()+1,1 say "          "
  34. @ prow()+1,1 say "╔Φ▒╕╣µ╕±ú║"+sb5+"╓╪    ┴┐ú║"+str(sb6,6,2)+'    ì
  35.           '+"═Γ╨╬│▀┤τú║"+sb7
  36. @ prow()+1,1 say "      "
  37. a=dtoc(sb10)
  38. j1=substr(a,7,2)
  39. j2=substr(a,1,2)
  40. j3=substr(a,4,2)
  41. a=j1+'.'+j2+'.'+j3
  42. @ prow()+1,1 say "╓╞ ╘∞ │ºú║"+sb8+'    '+"╓╞ ╘∞ ║┼ú║"+sb9+'         ì
  43.  '+"│÷│º╚╒╞┌ú║"+a
  44. @ prow()+1,1 say "        "
  45. a=dtoc(sb12)
  46. j1=substr(a,7,2)
  47. j2=substr(a,1,2)
  48. j3=substr(a,4,2)
  49. a=j1+'.'+j2+'.'+j3
  50. @ prow()+1,1 say "╞⌠╙├╚╒╞┌ú║"+a+'            '+"ú╞╗·ú║   ì
  51.  "+str(sb13,4,1)+'                '+"ú╞╡τú║    "+str(sb14,5,1)
  52. @ prow()+1,1 say "           "
  53. @ prow()+1,1 say "╔Φ▒╕╘¡╓╡ú║"+str(sb15,10,2)+"          ì
  54. "+"╒█╛╔─Ω╧▐ú║"+str(sb16,2)+"                  ì
  55. "+"╔Φ▒╕╛╗╓╡ú║"+str(sb17,10,2)
  56. @ prow()+1,1 say "       "
  57. @ prow()+1,1 say "╥╤╠ß╒█╛╔ú║"+str(sb18,10,2)+'          ì
  58. '+"╡τ╗·╩²┴┐ú║"+str(sb20,2)+'                  ì
  59. '+"╓≈╡τ╗·╚▌┴┐ú║"+str(sb21,6,1)
  60. @ prow()+1,1 say "       "
  61. a=sb24
  62. sele 2
  63. loca for ls1=a
  64. a=ls2
  65. sele 1
  66. @ prow()+1,1 say "╫▄ ╣ª ┬╩ú║"+str(sb22,7,2)+'             ì
  67. '+"╓≈╢»┴ª╘┤ú║"+sb23+"    "+"╔Φ▒╕└α╩⌠ú║"+a
  68. @ prow()+1,1 say "       "
  69. b=sb25
  70. c=sb27
  71. d=sb28
  72. sele 3
  73. loca for gs1=b
  74. b=gs2
  75. sele 4
  76. seek c
  77. c=jdx2
  78. sele 5
  79. seek d
  80. d=dw2
  81. sele 1
  82. @ prow()+1,1 say "╔Φ▒╕╣▄╩⌠ú║"+b+"              "+"╓╪╥¬│╠╢╚ú║"+c+"   ì
  83.              "+"╩╣╙├╡Ñ╬╗ú║"+d
  84. @ prow()+1,1 say "          "
  85. @ prow()+1,1 say "░▓╫░╡╪╡πú║"+sb29+"        ì
  86. "+"╛▓├▄╖Γ╡π╩²ú║"+str(sb35,4)+"              ì
  87. "+"╢»├▄╖Γ╡π╩²ú║"+str(sb36,4)
  88. if a2='w'
  89. as=sb1
  90. sele 6
  91. seek as
  92. @ prow()+1,1 say "          "
  93. @ prow()+1,1 say "╓≈╥¬▓─╓╩ú║"+sb37+'        ì
  94. '+"░▓╫░╠¿╩²ú║"+str(sb38,2)+'                  ì
  95. '+"▒╕╙├╠¿╩²ú║"+str(sb39,2)
  96. @ prow()+1,1 say "           "
  97. @ prow()+1,1 say "╜Θ    ╓╩ú║"+sb40+'        '+"╬┬    ì
  98. ╢╚ú║"+str(sb41,4)+'              '+'  ╤╣    ┴ªú║'+str(sb42,4)
  99. @ prow()+1,1 say "          "
  100. @ prow()+1,1 say "╓≈╗·╨═║┼ú║"+sb43+'        ì
  101. '+"╝⌡╦┘╗·╨═║┼ú║"+sb44+'      '+'╝⌡╦┘╗·╦┘▒╚ú║'+sb45
  102. @ prow()+1,1 say "            "
  103. @ prow()+1,1 say "┤½╢»╫░╓├╨╬╩╜ú║"+sb46+'    ì
  104. '+'╔Φ╝╞╩┘├ⁿú║'+str(sb47,2)+' ─Ω               '+'╔·▓·─▄┴ªú║'+sb48
  105. sele 1
  106. endif
  107. skip
  108. do case 
  109. case m='1'
  110. loca next aaa
  111. case m='a'
  112. loca next aaa for da01<=sb10 .and. sb10<=da02
  113. case m='2'
  114. set print on
  115. ? chr(13)
  116. set print off
  117. exit
  118. otherwise 
  119. loca next aaa for &mm=sb
  120. endcase 
  121. set print on
  122. ? chr(13)
  123. set print off
  124. set device to screen
  125. set cons on
  126. clear
  127. wait '╟δ╢╘║├┤≥╙í╓╜úí╞Σ╦ⁿ╝ⁿ╝╠╨°┤≥╙íú¼═ú╓╣┤≥╙í░┤ú╥úí' to pp
  128. if pp='r'
  129. exit
  130. endif
  131. enddo 
  132. set device to screen
  133. retu
  134.  
  135.