home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a056 / 4.ddi / MAIN / YQMIS029.PRG < prev    next >
Encoding:
Text File  |  1993-11-02  |  2.7 KB  |  103 lines
  1. *******************************************************
  2. * ╬─╝■├√│╞: YQMIS029
  3. * │╠╨≥╔Φ╝╞: └ε▒■╥╗                
  4. * ▒α│╠╚╒╞┌: 93.11.02   15:30:07
  5. *******************************************************
  6. set safe off
  7. set date ansi
  8. close data
  9. set color to w/1,,
  10. clear
  11. do smggp with '╟δ  ╔╘  ║≥ !',10,34
  12. set color to w/1,,
  13. sele A
  14. *set excl on
  15. use ZWJT alia A
  16. priv r,n,ym,zym,jl,zy_bl,╚╒╞┌,╥│┬δ,╩▒╝Σ,─Ω,╘┬,╚╒,╨╟╞┌,╫▄╥│╩²,╝╟┬╝║┼
  17. *set print to con
  18. *set print to prn
  19. set date ansi
  20. sele A
  21. set dele on
  22. ╚╒╞┌=date()
  23. ─Ω=str(year(date()),4)
  24. ╘┬=str(mont(date()),2)
  25. ╚╒=str(day(date()),2)
  26. ╨╟╞┌=left(cdow(date()),6)
  27. ym=0
  28. r=chr(10)
  29. n=0
  30. set devi to scre
  31. count to zy_bl
  32. zym=int(zy_bl/7)+iif(mod(zy_bl,7)>0,1,0)
  33. ╫▄╥│╩²=ltrim(str(zym,8))
  34. do smggp with '▒¿▒φ╣▓'+ltrim(str(zym,6))+'╥│,┤╙╡┌╝╕╥│┐¬╩╝┤≥╙í?         _',10,20
  35. *set color to ,w+/r,
  36. @ 10,52 get ym rang 0,zym pict '@b 999999'
  37. read
  38. if ym=0
  39. return
  40. endif
  41. goto top
  42. skip (ym-1)*7
  43. do while .not.eof()
  44. set devi to scre
  45. set color to w/1,,
  46. clear
  47. do smggp with '╒²╘┌┤≥╙í╡┌'+ltrim(str(ym,6))+'╥│,Esc═╦│÷',10,26
  48. ╥│┬δ=ltrim(str(ym,6))
  49. ╩▒╝Σ=time()
  50. @ 24,0 say ''
  51. set devi to print
  52. @ prow(),pcol() say repl(r,2)
  53. @ prow(),pcol() say CHR(28)+'v1'              
  54. @ prow(),pcol() say CHR(27)+'ID'                    
  55. @ prow(),pcol() say chr(13)
  56. @ prow(), 5 say '╓░  ╬±  ╜≥  ╠∙  ╥╗  └└  ▒φ'+r+r
  57. @ prow(),pcol() say CHR(27)+'IC'                    
  58. @ prow(),pcol() say chr(13)
  59. @ prow(), 23 say '~~~~~~~~~~~~~~~~~~~~~~~~~~'+r+r
  60. @ prow(),pcol() say CHR(27)+'IA'                    
  61. @ prow(),pcol() say chr(13)
  62. ╝╟┬╝║┼=ltrim(str(recn(),8))
  63. @ prow(),4 say '⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤'+r
  64. @ prow(),4 say '⌐ª  ╓░╬±  ⌐ª╓░╬±╜≥╠∙⌐ª       ▒╕                       ╫ó      ⌐ª'+r
  65. n=0
  66. do while n<7
  67. ok=inkey()
  68. if ok=27
  69. set devi to scre
  70. return
  71. endif
  72. ╝╟┬╝║┼=ltrim(str(recn(),8))
  73. @ prow(),4 say '⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚'+r
  74. @ prow(),4 say '⌐ª'
  75. @ prow(),6 say A->╓░╬± pict '@z'
  76. @ prow(),14 say '⌐ª'
  77. @ prow(),16 say A->╓░╬±╜≥╠∙ pict '@z'
  78. @ prow(),24 say '⌐ª                                        ⌐ª'+r
  79. if .not.eof()
  80. skip
  81. endif
  82. n=n+1
  83. enddo
  84. @ prow(),4 say '⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝'+r
  85. *@ prow(),4+2 say '╡┌'
  86. *@ prow(),pcol()+1 say ym pict '9999'
  87. *@ prow(),pcol()+1 say '╥│'+r
  88. @ prow(),pcol() say repl(r,2)
  89. set devi to scre
  90. do smggp with '╡┌'+ltrim(str(ym,6))+'╥│┤≥╙í═Ω▒╧░┤╚╬╥Γ╝ⁿ╝╠╨°,Esc╝ⁿ═╦│÷',10,20
  91. @ 24,0 say ''
  92. ym=ym+1
  93. ok=inkey(0)
  94. if ok=27
  95. exit
  96. endif
  97. enddo
  98. set devi to scre
  99. set dele off
  100. return
  101. *******************************************************
  102. * ▒α│╠╚╒╞┌: 93.11.02   15:30:09
  103. *******************************************************