home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / DY3.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  4.8 KB  |  122 lines
  1. CLEAR
  2. PUBLIC N
  3. SET PRINT ON
  4. SET DEVICE TO PRINT 
  5. ? CHR(27)+CHR(73)+CHR(67)
  6. ? CHR(27)+"X"+CHR(13)
  7. @ 0,90 SAY " ╗¬─╧╩ª╖╢┤≤╤º║»╩┌╤º╔·═│╝╞▒φ "
  8. @ 1,10 SAY "   "
  9. ? CHR(27)+CHR(73)+CHR(65)
  10. SET PRINT OFF
  11. DD=DTOC(DATE())
  12. @ 2,200 SAY ì
  13. "19"+SUBSTR(DD,7,2)+"─Ω"+SUBSTR(DD,1,2)+"╘┬"+SUBSTR(DD,4,2)+"╚╒"
  14. N=6
  15. ? "    "
  16. @ 3,18 SAY ì
  17. "ª░ªñª╨ªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñì
  18. ª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ªñªñªñª╨ì
  19. ªñªñªñª╨ªñªñªñªñª┤"
  20. @ 4,18 SAY "ªª╡╪ªª    ªª      ªª      ªª╛¡  ╝├ªª      ªª╢╘═Γ╛¡ªª   ì
  21.    ªª      ªª      ªª      ªª      ªª      ªª      ªª      ªª     ì
  22.  ªª      ªª╓╨  ╬─ªª      ªª╤º  ╨úªª╙ª  ╙├ªª╝╞╦π╗·ªª      ªª      ì
  23. ªª      ªª      ªª╚╦  ╩²  ªª"
  24. @ 5,18 SAY "ªª╟°ªª    ªª╓╨  ╬─ªª╒■  ╓╬ªª╣▄  └φªª╛¡╝├╖¿ªª╝╞├│╥╫ªª╡╪  ì
  25. └φªª└·  ╩╖ªª╩²  ╤ºªª╩²  ╗·ªª╬∩  └φªª╬∩  ╗·ªª╗»  ╤ºªª╔·  ╬∩ªª╠σ  ╙²ªª╬ó  ì
  26. ╗·ªª├╪  ╩Θªª╚╒  ╙∩ªª╜╠  ╙²ªª╗»  ╤ºªª╣▄  └φªª      ªª      ªª      ªª  ì
  27.     ªª║╧  ╝╞  ªª"      
  28. USE zk
  29. SUM ì
  30. Z01,Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z09,Z10,Z11,Z12,Z13,Z14,Z15,Z16,Z1ì
  31. 7,Z18,Z19,Z20 TO ì
  32. M01,M02,M03,M04,M05,M06,M07,M08,M09,M10,M11,M12,M13,M14,M15,M16,M1ì
  33. 7,M18,M19,M20
  34. MZ=M01+M02+M03+M04+M05+M06+M07+M08+M09+M10+M11+M12+M13+M14+M15+M16ì
  35. +M17+M18+M19+M20
  36. GO TOP
  37. DO WHILE .NOT.EOF()
  38. MD1=SUBSTR(DI,1,2)
  39. MD2=SUBSTR(DI,3,2)
  40. x01=z01
  41. x02=z02
  42. x03=z03
  43. x04=z04
  44. x05=z05
  45. x06=z06
  46. x07=z07
  47. x08=z08
  48. x09=z09
  49. x10=z10
  50. x11=z11
  51. x12=z12
  52. x13=z13
  53. x14=z14
  54. x15=z15
  55. x16=z16
  56. x17=z17
  57. x18=z18
  58. x19=z19
  59. x20=z20
  60. HJI1=Z01+Z02+Z03+Z04+Z05+Z06+Z07+Z08+Z09+Z10+Z11+Z12+Z13+Z14+Z15+Z16+Z17+Z1ì
  61. 8+Z19+Z20
  62. x21=HJI1
  63. @ N,18 SAY ì
  64. "ª└ªñªαªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαì
  65. ªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªñª╚"
  66. @ N+1,18 SAY "ªª"+"&MD1"+"ªª"+" ─╨ "+"ªª"+str(z01,6)+"ªª"+str(z02,6 ì
  67. )+"ªª"+str(z03,6)+"ªª"+str(z04,6)+"ªª"+str(z05,6)+"ªª"+str(z06,6)+"ªª"
  68. @ N+1,78 SAY str(z07,6)+"ªª"+str(z08,6)+"ªª"+str(z09,6)+"ªª"+ ì
  69. str(z10,6)+"ªª"+str(z11,6)+"ªª"+str(z12,6)+"ªª"+str(z13,6)
  70. @ N+1,132 SAY "ªª"+str(z14,6)+"ªª"+str(z15,6)+"ªª"+str(z16,6)+"ªª"+str(z17,6)+"ªª"+str(z18,6)+"ªª"+str( ì
  71. z19,6)+"ªª"+str(z20,6)+"ªª      ªª      ªª      ªª      ªª"+str(hji1,8)+"ªª"
  72. @ N+2,18 SAY "ªª  ì
  73. ª└ªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñì
  74. ªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñì
  75. ªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñì
  76. ªαªñªñªñªñª╚"
  77. SKIP+1
  78. hji2=z01+z02+z03+z04+z05+z06+z07+z08+z09+z10+z11+z12+z13+z14+z15+zì
  79. 16+z17+z18+z19+z20
  80. @ N+3,18 SAY "ªª  ªª ┼« ªª"+str(z01,6)+"ªª"+str(z02,6)+"ªª"+str(z03 ì
  81. ,6)+"ªª"+str(z04,6)+"ªª"+str(z05,6)+"ªª"+str(z06,6)+"ªª" 
  82. @ N+3,78 SAY str(z07,6)+"ªª"+str(z08,6)+"ªª"+str(z09,6)+"ªª"+str( ì
  83. z10,6)+"ªª"+str(z11,6)+"ªª"+str(z12,6)+"ªª"+str(z13,6)
  84. @ N+3,132 SAY "ªª"+str(z14,6)+"ªª"+str(z15,6)+"ªª"+str(z16,6)+"ªª" ì
  85. +str(z17,6)+"ªª"+str(z18,6)+"ªª"+str(z19,6)+"ªª"+str(z20,6)+"ªª   ì
  86.    ªª      ªª      ªª      ªª"+str(hji2,8)+"ªª"
  87. @ N+4,18 SAY "ªª"+"&MD2"+"ª└ªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñì
  88. ªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñì
  89. ªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñì
  90. ªαªñªñªñªñª╚"
  91. @ N+5,18 SAY "ªª  ªª╨í╝╞ªª"+str((z01+x01),6)+"ªª"+str((z02+x02),6)+ ì
  92. "ªª"+str((z03+x03),6)+"ªª"+str((z04+x04),6)+"ªª"+str((z05+x05),6)+ ì
  93. "ªª"+str((z06+x06),6)+"ªª"
  94. @ N+5,78 SAY str((z07+x07),6)+"ªª"+str((z08+x08),6)+"ªª"+str((z09+x09),6)+"ªª"+str((z10+x10),6)+"ªª"+str((z11+x11),6)+"ªª"+str((z12+x12),6)+"ªª"+str((z13+x13),6)
  95. @ N+5,132 SAY "ªª"+str((z14+x14),6)+"ªª"+str((z15+x15),6)+"ªª"+str((z16+x16),6)+"ªª"+str((z17+x17),6)+"ªª"+str((z18+x18),6)+"ªª"+str((z19+x19),6)+"ªª"+str((z20+x20),6)+"ªª      ªª      ªª      ªª      ªª"+str((hji2+hji1),8)+"ªª"
  96. N=N+6
  97. SKIP+1
  98. IF EOF()
  99. @ N,18 SAY ì
  100. "ª└ªñª╪ªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñì
  101. ªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªαªñªñªñªñª╚"
  102. @ N+1,18 SAY "ªª╫▄    ì
  103. ╝╞ªª"+str(m01,6)+"ªª"+str(m02,6)+"ªª"+str(m03,6)+"ªª"+str(m04,6)+"ì
  104. ªª"+str(m05,6)+"ªª"+str(m06,6)+"ªª"
  105. @ N+1,78 SAY ì
  106. str(m07,6)+"ªª"+str(m08,6)+"ªª"+str(m09,6)+"ªª"+str(m10,6)+"ªª"+stì
  107. r(m11,6)+"ªª"+str(m12,6)+"ªª"+str(m13,6)
  108. @ N+1,132 SAY ì
  109. "ªª"+str(m14,6)+"ªª"+str(m15,6)+"ªª"+str(m16,6)+"ªª"+str(m17,6)+"ªì
  110. ª"+str(m18,6)+"ªª"+str(m19,6)+"ªª"+str(m20,6)+"ªª      ªª      ªª  ì
  111.     ªª      ªª"+str(mz,8)+"ªª"
  112. @ N+2,18 SAY "ª╕ªñªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñì
  113. ªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñª╪ªñªñªñªñª╝"
  114. @ N+3,18 SAY " "
  115. ENDIF
  116. ENDDO
  117. @ N+3,10 SAY "   "
  118. ? "   "
  119. set device to screen
  120. return
  121.  
  122.