home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / xy.img / S4 / DY4.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  4.6 KB  |  87 lines
  1. CLEAR
  2. SET PRINT ON
  3. SET DEVICE TO PRINT
  4. ? CHR(27)+CHR(73)+CHR(74)
  5. ? CHR(27)+"X"+CHR(13)
  6. @ 0,45 SAY " ╗¬─╧╩ª╖╢┤≤╤º║»╩┌╤º╔·═│╝╞▒¿▒φ"
  7. @ 1,10 SAY "  "
  8. DD=DTOC(DATE())
  9. ? CHR(27)+CHR(73)+CHR(73)
  10. SET PRINT OFF
  11. @ 2,200 SAY ì
  12. "19"+SUBSTR(DD,7,2)+"─Ω"+SUBSTR(DD,1,2)+"╘┬"+SUBSTR(DD,4,2)+"╚╒"
  13. @ 3,0 SAY " "
  14. I=101
  15. G01="  ╓╨  ╬─  "
  16. G02="  ╒■  ╓╬  "
  17. G03=" ╛¡╝├╣▄└φ "
  18. G04="  ╛¡╝├╖¿  "
  19. G05=" ═Γ╛¡├│╥╫ "
  20. G06="  ╡╪  └φ  "
  21. G07="  └·  ╩╖  "
  22. G08="  ╩²  ╤º  "
  23. G09="  ╩²  ╗·  "
  24. G10="  ╬∩  └φ  "
  25. G11="  ╬∩  ╗·  "
  26. G12="  ╗»  ╤º  "
  27. G13="  ╔·  ╬∩  "
  28. G14="  ╠σ  ╙²  "
  29. G15="  ╬ó  ╗·  "
  30. G16=" ╓╨╬─├╪╩Θ "
  31. G17="  ╚╒  ╙∩  "
  32. G18=" ╤º╨ú╜╠╙² "
  33. G19=" ╙ª╙├╗»╤º "
  34. G20="╝╞╦π╗·╣▄└φ"
  35. @ 4,0 SAY ì
  36. "ª░ªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñª╨"
  37. @ 4,PCOL() SAY "ªñªñªñªñªñªñªñªñªñªñªñª╨ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª┤"
  38. @ 5,0 SAY "ªª          ªª   ╫▄  ╚╦  ╩²   ªª          ─Ω          ┴Σ          ªª      ╓░      ╬±      ªª    ╒■  ╓╬  ├µ  ─┐    ªª  ╚δ ╤º ╬─ ╗» │╠ ╢╚   ªª"
  39. @ 5,PCOL() SAY "   ╨▌, ╫¬, ═╦, ╕┤ ╤º  ªª            ╡╪    ╟°    ╚╦    ╩² ì
  40.     ═│    ╝╞                               ªª"
  41. @ 6,0 SAY "ªª  ╫¿  ╥╡  ª└ªñªñª╨ªñªñª╨ªñªñªαªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñªαªñªñª╨ªñªñª╨ªñªñª╨ªñªñªαªñªñª╨ªñªñª╨ªñªñª╨ªñªñªαªñªñª╨"
  42. @ 6,PCOL() SAY "ªñªñª╨ªñªñª╨ªñªñªαªñªñª╨ªñªñª╨ªñªñª╨ªñªñªαªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╨ªñªñª╚"
  43. @ 7,0 SAY "ªª          ªª ─╨ ªª ┼« ªª║╧╝╞ªª20╧┬ªª30╧┬ªª40╧┬ªª50╧┬ªª50╔╧ªª╞╜╛∙ªª╨ú│ñªª╜╠╩ªªª╕╔▓┐ªª╞Σ╦ⁿªª╡│╘▒ªª═┼╘▒ªª├±╓≈ªª╚║╓┌ªª│⌡╓╨ªª╕▀╫¿ªª╫¿╔╧ªª╞Σ╦ⁿªª ╨▌ ªª ═╦ ªª ╫¬ "
  44. @ 7,PCOL() SAY "ªª ╕┤ ªª╣π╓▌ªª╔ε█┌ªª╓Θ║úªª╖≡╔╜ªª╔╪╣╪ªª╔╟═╖ªª╒┐╜¡ªª├»├√ªª║ú─╧ªª╗▌╤⌠ªª╒╪╟∞ªª├╖╧╪ªª╕█░─ªª"
  45. USE AC7
  46. DO WHILE .NOT. EOF()
  47. II=SUBSTR(STR(I,3),2,2)
  48. @ PROW()+1,0 SAY ì
  49. "ª└ªñªñªñªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªα"
  50. @ PROW(),PCOL() SAY "ªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñª╚"
  51. @ PROW()+1,0 SAY "ªª"+G&II+"ªª"+STR(GA1,3)+" ªª"+STR(GA2,3)+" ªª"+STR(GA1+GA2,3)+" ªª"+STR(GB1,3)+" ªª"+STR(GB2,3)
  52. @ PROW(),PCOL() SAY " ªª"+STR(GB3,3)+" ªª"+STR(GB4,3)+" ªª"+STR(GB5,3)+" ªª"
  53. @ PROW(),PCOL() SAY STR(GB5,3)+" ªª"+STR(GC1,3)+" ªª"+STR(GC2,3)+" ªª"+STR(GC3,3)+" ªª"+STR(GC4,3)+" ªª"+STR(GD1,3)+" ªª"+STR(GD2,3)+" ªª"+STR(GD3,3)
  54. @ PROW(),PCOL() SAY " ªª"+STR(GD4,3)+" ªª"+STR(GE1,3)+" ªª"+STR(GE2,3)+" ªª"+STR(GE3,3)+" ªª"+STR(GE4,3)+" ªª"
  55. @ PROW(),PCOL() SAY STR(GF1,3)+" ªª"+STR(GF2,3)+" ªª"+STR(GF3,3)+" ªª"+STR(GF4,3)+" ªª"+STR(GF5,3)+" ªª"+STR(GF6,3)+" ªª"+STR(GF7,3)+" ªª"+STR(GF8,3)+" ªª"+STR(GF9,3)
  56. @ PROW(),PCOL() SAY " ªª"+STR(GF10,3)+" ªª"+STR(GF11,3)+" ªª"+STR(GF12,3)+" ªª"+STR(GF13,3)+" ªª"+STR(GF14,3)+" ªª"+STR(GF15,3)+" ªª"+STR(GF16,3)+" ªª"+STR(GF17,3)+" ªª"
  57. SKIP+1
  58. I=I+1
  59. IF EOF()
  60. SUM ì
  61. GA1,GA2,GB1,GB2,GB3,GB4,GB5,GC1,GC2,GC3,GC4,GD1,GD2,GD3,GD4,GE1,GE2,GE3,GE4 TO ì
  62. MGA1,MGA2,MGB1,MGB2,MGB3,MGB4,MGB5,MGC1,MGC2,MGC3,MGC4,MGD1,MGD2,MGD3,MGD4,MGE1,MGE2,MGE3,MGE4
  63. SUM ì
  64. GF1,GF2,GF3,GF4,GF5,GF6,GF7,GF8,GF9,GF10,GF11,GF12,GF13,GF14,GF15,GF16,GF17 TO ì
  65. MGF1,MGF2,MGF3,MGF4,MGF5,MGF6,MGF7,MGF8,MGF9,MGF10,MGF11,MGF12,MGF13,MGF14,MGF15,MGF16,MGF17
  66. @ PROW()+1,0 SAY ì
  67. "ª└ªñªñªñªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªα"
  68. @ PROW(),PCOL() SAY ì
  69. "ªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñªαªñªñª╚"
  70. @ PROW()+1,0 SAY "ªª  ╫▄  ╝╞  ªª"+STR(MGA1,4)+"ªª"+STR(MGA2,4)+"ªª"+STR(MGA1+MGA2,4)+"ªª"+STR(MGB1,4)+"ªª"+STR(MGB2,4)+"ªª"+STR(MGB3,4)+"ªª"+STR(MGB4,4)+"ªª"+STR(MGB5,4)+"ªª"+STR(MGB5,4)+"ªª"
  71. @ PROW(),PCOL() SAY ì
  72. STR(MGC1,4)+"ªª"+STR(MGC2,4)+"ªª"+STR(MGC3,4)+"ªª"+STR(MGC4,4)+"ªª"+STRì
  73. (MGD1,4)+"ªª"+STR(MGD2,4)+"ªª"+STR(MGD3,4)+"ªª"+STR(MGD4,4)+"ªª"+STR(MGE1,4)+"ªª"+STR(MGE2,4)+"ªª"+STR(MGE3,4)+"ªª"+STR(MGE4,4)+"ªª"
  74. @ PROW(),PCOL() SAY ì
  75. STR(MGF1,4)+"ªª"+STR(MGF2,4)+"ªª"+STR(MGF3,4)+"ªª"+STR(MGF4,4)+"ªªì
  76. "+STR(MGF5,4)+"ªª"+STR(MGF6,4)+"ªª"+STR(MGF7,4)+"ªª"+STR(MGF8,4)+"ì
  77. ªª"+STR(MGF9,4)+"ªª"+STR(MGF10,4)+"ªª"+STR(MGF11,4)+"ªª"
  78. @ PROW(),PCOL() SAY STR(MGF12,4)+"ªª"+STR(MGF13,4)+"ªª"+STR(MGF14,4)+"ªª"+STR(MGF15,4)+"ªª"+STR(MGF16,4)+"ªª"+STR(MGF17,4)+"ªª"
  79. @ PROW()+1,0 SAY ì
  80. "ª╕ªñªñªñªñªñª╪ªñªñªñªñªñªñªñªñª╪ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª╪ªñªñªñªñªñªñªñªñªñªñªñª╪ªñªñªñªñªñªñªñªñªñªñªñª╪ªñªñªñªñªñªñªñªñªñªñªñª╪"
  81. @ PROW(),PCOL() SAY "ªñªñªñªñªñªñªñªñªñªñªñª╪ªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñªñª╝"
  82. @ PROW()+1,0 SAY "  "
  83. ENDIF
  84. ENDDO
  85. SET DEVICE TO SCREEN
  86. RETURN
  87.