home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / DY1.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  4.7 KB  |  127 lines
  1. CLEAR
  2. DO XZC
  3. CLEAR
  4. DO XHCZ
  5. USE B:AC2&Z INDEX B:IBAC2&Z
  6. FIND "&SHA1"
  7. SET PRINT ON
  8. SET DEVICE TO PRINT
  9. ? CHR(27)+CHR(73)+CHR(76)
  10. ? CHR(27)+"X"+CHR(13)
  11. MBIN=BIN
  12. MBIN2=SUBSTR(BIN,1,2)
  13. MMING=MING
  14. MXI=XI
  15. MNIAN1=SUBSTR(NIAN,1,1)
  16. MNIAN2=SUBSTR(NIAN,3,2)
  17. MDI=DI
  18. MB1=B1
  19. MB3=B3
  20. MB4=B4
  21. MB5=B5
  22. MB6=B6
  23. MB7=B7
  24. MB9=B9
  25. MB10=B10
  26. MB11=B11
  27. MB12=B12
  28. @ 0,20 SAY "╗¬─╧╩ª╖╢┤≤╤º║»╩┌╔·╤º╝«▒φ"
  29. ? CHR(27)+CHR(73)+CHR(67)
  30. @ 0,0 SAY "  "
  31. SET PRINT OFF
  32. @ 1,0 SAY "    "+"&ZZ"+"╧╡              "+"&MXI"+"░α       ì
  33.           "+"&MNIAN1"+"─Ω"+"&MNIAN2"+"┐╞                       ╡╪(╩╨) :"+"&MDI"+"                     ╤º║┼:"+"&MBIN"
  34. @ 2,0 SAY " ì
  35. ª░ªñªñªñªñª╨ªñªñªñªñªñªñªñªñª╨ªñªñªñªñª╨ªñªñª╨ªñªñªñªñª╨ªñªñª╨ªñªñªñªñª╨ªñªñªñªñªñªñª╨ªñªñª╨ªñªñªñªñªñªñªñªñªñªñª╨ªñªñª╨ªñªñªñªñªñªñªñªñªñªñª┤"
  36.                       ì
  37. @ 3,0 SAY " ªª"+"  ╨╒├√  ªª"+"&MMING"+"        ªª  ╨╘▒≡  ªª"+"&MB1"+" ì
  38. ì
  39.  ªª  ─Ω┴Σ  ì
  40. ªª"+STR(B2,2)+"  ªª  ╝«╣ß  ªª"+"&MB3"+"    ªª ╚δ ªª                    ªª ▒╧ ªª          ì
  41.           ªª"
  42. @ 4,0 SAY " ì
  43. ª└ªñªñªñªñª╪ªñªñª╨ªñªñªñªñªñªαªñªñªñªñª╪ªñªñªαªñªñªñªñª╪ªñªñªαªñªñì
  44. ªñªñªαªñªñªñªñªñªñª╚    ªª                    ªª    ªª            ì
  45.         ªª"
  46. @ 5,0 SAY " ªª   ╒■╓╬├µ─┐   ªª"+"&MB4"+"  ªª  ╬─╗»│╠╢╚    ì
  47. ªª"+"&MB5"+"          ªª  ├±╫σ  ªª"+"&MB6"+"        ªª ╤º ªª                    ªª ╥╡ ªª ì
  48.                    ªª"    
  49. @ 6,0 SAY " ì
  50. ª└ªñªñªñªñª╨ªñªñªαªñªñªñªñªñªαªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªαªñªñªñªñì
  51. ª╪ªñªñªñªñªñªñª╚    ªª                    ªª    ªª                ì
  52.     ªª"     
  53. @ 7,0 SAY " ªª  ╣ñ┴Σ  ªª"+STR(B8,2)+"  ªª ╧╓╚╬╓░╬± ªª"+"&MB9"+"    ªª  ì
  54. ╚δ╤º─Ω╘┬    ªª      "+"&MBIN2"+".7."+"           ªª ╧α ªª                    ªª ì
  55. ╧α ªªì
  56.                     ªª"
  57. @ 8,0 SAY " ì
  58. ª└ªñªñªñªñª╪ªñªñª╪ªñªñªñªñªñªαªñªñªñªñªñªñªñª╪ªñªñªñªñªñªñªñª╪ªñªñªñªñªñì
  59. ì
  60. ªñªñªñªñªñªñª╚    ªª                    ªª    ªª              ì
  61.       ªª"
  62. @ 9,0 SAY " ªª   ╫ε║≤╤º└·╝░╦∙╘┌╤º╨ú     ªª"+"&MB12"+"              ªª ╞¼ ªª                    ªª ╞¼ ªª   ì
  63.                  ªª"
  64. @ 10,0 SAY " ì
  65. ª└ªñªñªñªñªñªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñì
  66. ªñªñªñªñªñªñªñªñªñª╪ªñªñª╪ªñªñªñªñªñªñªñªñªñªñª╪ªñªñª╪ªñªñªñªñªñì
  67. ªñªñªñªñªñª╚"  
  68. @ 11,0 SAY " ªª      ╝╥═Ñ╧Ω╧╕╡╪╓╖        ªª"+"&MB11"+"             ì
  69.                                                ªª"
  70. @ 12,0 SAY " ì
  71. ª└ªñªñªñªñªñªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª╚"
  72. @ 13,0 SAY " ªª    ╚╬╓░╡Ñ╬╗╧Ω╧╕╡╪╓╖      ªª"+"&MB10"+"                                      ì
  73.                       ªª"
  74. @ 14,0 SAY " ì
  75. ª└ªñªñª╨ªñªñªñªñª╨ªñªñªñªñªñª╪ªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñì
  76. ªñªñª╨ªñªñª╨ªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª╨ì
  77. ªñªñªñªñª╚"
  78. @ 15,0 SAY " ªª ╨▌ ªª  └α▒≡  ªª         ╘¡    ╥≥         ªª        ì
  79. ╞≡ ╓╣ ╩▒ ╝Σ     ªª ╣ñ ªª ─Ω  ╘┬ ªª          ╡Ñ  ╬╗  ├√  │╞  ╝░ ì
  80.  ╡╪  ╓╖      ªª  ╓░╬±  ªª"
  81. @ 16,0 SAY " ªª ╕┤ ì
  82. ª└ªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñª╚ì
  83.  ╫≈ ª└ªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªαªñªñªñªñª╚ì
  84. "
  85. @ 17,0 SAY " ªª ╫¬ ªª        ªª                          ªª        ì
  86.                 ªª ▒Σ ªª        ªª                               ì
  87.            ªª        ªª"
  88. @ 18,0 SAY " ªª ═╦ ì
  89. ª└ªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñª╚ì
  90.  ╢» ì
  91. ª└ªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªαªñªñªñªñª╚ì
  92. "
  93. @ 19,0 SAY " ªª ╤º ªª        ªª                          ªª        ì
  94.                 ªª ╡╟ ªª        ªª                               ì
  95.            ªª        ªª"
  96. @ 20,0 SAY " ªª ╡╟ ª└ªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªαªñªñªñì
  97. ªñªñªñªñªñªñªñªñªñª╚ ╝╟ ì
  98. ª└ªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªαªñªñªñªñª╚ì
  99. "
  100. @ 21,0 SAY " ªª ╝╟ ªª        ªª                          ªª                        ªª    ªª        ªª                                ì
  101.           ªª        ªª"
  102. @ 22,0 SAY " ª└ªñªñªαªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñª╪ªñªñªñªñì
  103. ªñªñªñªñªñªñªñªñªαªñªñªαªñªñªñªñª╪ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñì
  104. ªñªñªñªñªñª╪ªñªñªñªñª╚"
  105. @ 23,0 SAY " ªª ╓ñ ªª  ╜ß╥╡  ªª          ─Ω      ╘┬      ╚╒         ì
  106.                ªª ╡╟ ªª          ╩ª│╔╫╓╡┌                ║┼       ì
  107.                    ªª"
  108. @ 24,0 SAY " ªª    ì
  109. ª└ªñªñªñªñªαªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª╚ì
  110.  ╝╟ ì
  111. ª└ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª╚ì
  112. "
  113. @ 25,0 SAY " ªª ╩Θ ªª  ▒╧╥╡  ªª          ─Ω      ╘┬      ╚╒        ì
  114.                 ªª ║┼ ªª          (      )╩ª║»    ╫╓╡┌          ║┼ ì
  115. ì
  116.                    ªª"
  117. @ 26,0 SAY   ì
  118.  " ª╕ªñªñª╪ªñªñªñªñª╪ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñì
  119. ªñªñªñª╪ªñªñª╪ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñì
  120. ªñªñªñªñªñª╝"
  121. @ 27,0 SAY "  "
  122. **SET PRINT OFF
  123. SET DEVICE TO SCREEN
  124. RETURN
  125. ì
  126. ╪
  127.