home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SBFZ.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.2 KB  |  51 lines
  1. clear
  2. set talk off
  3. set cons off
  4. @ 4,20 say "╒²╘┌╝╞╦πúí╟δ╔╘║≥úí"
  5. use sb index sb1
  6. do case 
  7. case ww=1  
  8. sum sb13,sb14 to x,y
  9. coun to z
  10. case ww=2
  11. sum sb13,sb14 to x,y for &d=a
  12. coun to z for &d=a
  13. case ww=3
  14. sum sb13,sb14 to x,y for &d=a .and. &d1=b
  15. coun to z for &d=a .and. &d1=b
  16. e=e+f
  17. endcase
  18. set cons on
  19. @ 2,30 say e+"╔Φ▒╕▓Θ╤»╜ß╣√"
  20. @ 4,10 say "└█╝╞ú╞╗·        └█╝╞ú╞╡τ        ╞╜╛∙ú╞╗·        ì
  21. ╞╜╛∙ú╞╡τ"
  22. @ 5,10 say str(x,8,2)+'         '+str(y,8,2)+'         ì
  23. '+str(x/z,6,1)+'    ì
  24.      '+str(y/z,7,2)
  25. @ 6,10 say e+"╔Φ▒╕╣▓╙╨"+str(z,6)+"╠¿"
  26. wait '      ┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to d
  27. if d<>'y'
  28. clos data
  29. retu
  30. endif
  31. set device to print 
  32. set print on
  33. @ 1,30 say e+"╔Φ▒╕▓Θ╤»╜ß╣√▒φ"
  34. @ 2,1 say "       "
  35. @ 3,1 say "============================================================="
  36. @ 4,1 say "|   └█╝╞ú╞╗·   |   └█╝╞ú╞╡τ   |   ╞╜╛∙ú╞╗·   |   ╞╜╛∙ú╞╡τ ì
  37.   |"
  38. @ 5,1 say ì
  39. "|--------------|--------------|--------------|--------------|"
  40. @ 6,1 say "|   "+str(x,8,2)+"   |   "+str(y,8,2)+"   |   ì
  41. "+str(x/z,8,2)+"   |   "+str(y/z,8,2)+"   |"
  42. @ 7,1 say ì
  43. "============================================================="
  44. @ 8,40 say "└█╝╞╠¿╩²ú║"+str(z,5)
  45. ? chr(13)
  46. set print off
  47. set devi to screen 
  48. clos data
  49. retu
  50.  
  51.