home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SBYL.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.6 KB  |  82 lines
  1. clear
  2. @ 4,20 say "╒²╘┌╝╞╦πú¼╟δ╔╘║≥úí"
  3. use sb index sb1
  4. j1=substr(p100,4,2)
  5. j2=substr(p100,7,2)
  6. j3=substr(p100,1,2)
  7. bb=j1+'/'+j2+'/'+j3
  8. bb=ctod(bb)
  9. do case 
  10. case ad='1'
  11. a="╚½▓┐"
  12. coun to x for (bb-sb12)/365<5
  13. coun to x1 for (bb-sb12)/365>=5 .and. (bb-sb12)/365<=10
  14. coun to x2 for (bb-sb12)/365>10 .and. (bb-sb12)/365<=15
  15. coun to x3 for (bb-sb12)/365>15 .and. (bb-sb12)/365<=20
  16. coun to x4 for (bb-sb12)/365>20 .and. (bb-sb12)/365<=25
  17. coun to x5 for (bb-sb12)/365>25 .and. (bb-sb12)/365<=30
  18. coun to x6 for (bb-sb12)/365>30
  19. case ad='2'
  20. coun to x for (bb-sb12)/365<=5 .and. sb28=a
  21. coun to x1 for (bb-sb12)/365>5 .and. (bb-sb12)/365<=10 .and. sb28=a
  22. coun to x2 for (bb-sb12)/365>10 .and. (bb-sb12)/365<=15 .and. sb28=a
  23. coun to x3 for (bb-sb12)/365>15 .and. (bb-sb12)/365<=20 .and. sb28=a
  24. coun to x4 for (bb-sb12)/365>20 .and. (bb-sb12)/365<=25 .and. sb28=a
  25. coun to x5 for (bb-sb12)/365>25 .and. (bb-sb12)/365<=30 .and. sb28=a
  26. coun to x6 for (bb-sb12)/365>30 .and. sb28=a
  27. use dw index dw1
  28. seek a
  29. a=trim(dw2)
  30. case ad='3'
  31. coun to x for (bb-sb12)/365<=5 .and. sb24=a
  32. coun to x1 for (bb-sb12)/365>5 .and. (bb-sb12)/365<=10 .and. sb24=a
  33. coun to x2 for (bb-sb12)/365>10 .and. (bb-sb12)/365<=15 .and. sb24=a
  34. coun to x3 for (bb-sb12)/365>15 .and. (bb-sb12)/365<=20 .and. sb24=a
  35. coun to x4 for (bb-sb12)/365>20 .and. (bb-sb12)/365<=25 .and. sb24=a
  36. coun to x5 for (bb-sb12)/365>25 .and. (bb-sb12)/365<=30 .and. sb24=a
  37. coun to x6 for (bb-sb12)/365>30 .and. sb24=a
  38. use ls index lssy 
  39. seek a
  40. a=trim(ls2)
  41. endcase 
  42. set cons on
  43. @ 2,30 say a+"╔Φ▒╕╥█┴ε▓Θ╤»╜ß╣√"
  44. @ 4,1 say "─Ω╖▌    ú╡╧┬  ú╡í½ú▒ú░  ú▒ú░í½ú▒ú╡   ì
  45. ú▒ú╡í½ú▓ú░  ú▓ú░í½ú▓ú╡  ú▓ú╡í½ú│ú░  ú│ú░╔╧"
  46. @ 5,0 say "╩╡╙╨╠¿╩²"+str(x,4)+'     '+str(x1,4)+'     ì
  47. '+str(x2,4)+'          '+str(x3,4)+'        '+str(x4,4)+'        ì
  48. '+str(x5,4)+'      '+str(x6,4)
  49. wait '┤≥╙í┬≡ú¿ú┘ú»ú╬ú⌐' to dd
  50. if dd<>'y'
  51. clos data
  52. retu
  53. endif
  54. set device to print 
  55. set print on
  56. set cons off
  57. ? chr(27)+"IJ"
  58. @ 1,30 say a+"╔Φ▒╕╥█┴ε▓Θ╤»╜ß╣√"
  59. @ 2,1 say "        "
  60. @ 3,64 say "╚╒╞┌ú║"+p100
  61. @ 4,1 say ì
  62. "=================================================================ì
  63. =============="
  64. @ 5,1 say "|─Ω    ì
  65. ╖▌|ú╡╥╘╧┬|ú╡í½ú▒ú░|ú▒ú░í½ú▒ú╡|ú▒ú╡í½ú▓ú░|ú▓ú░í½ú▓ú╡|ú▓ú╡í½ú│ú░|ú│ì
  66. ú░╥╘╔╧|"
  67. @ 6,1 say ì
  68. "|--------|------|--------|----------|----------|----------|--ì
  69. --------|--------|"
  70. @ 7,1 say "|╩╡╙╨╠¿╩²|"+str(x,4)+"  |  "+str(x1,4)+"  |  ì
  71.   "+str(x2,4)+"  |  "+str(x3,4)+"    |  "+str(x4,4)+"    |  ì
  72. "+str(x5,4)+"    |  "+str(x6,4)+"  |"
  73. @ 8,1 say ì
  74. "=================================================================ì
  75. =============="
  76. ? chr(13)
  77. set print off 
  78. set cons on
  79. set devi to screen 
  80. clos data
  81. retu
  82.