home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a056 / 4.ddi / MAIN / YQMIS012.PRG < prev    next >
Encoding:
Text File  |  1993-11-08  |  2.8 KB  |  171 lines
  1. *******************************************************
  2. * ╬─╝■├√│╞: YQMIS012
  3. * │╠╨≥╔Φ╝╞: └ε▒■╥╗                
  4. * ▒α│╠╚╒╞┌: 93.11.08   21:44:33
  5. *******************************************************
  6. set safe off
  7. priv ol,og(3),oh,ojl(3),olm,ozd,ojlh,ozj
  8. ozj=.f.
  9. olm=3
  10. dime og(3),ojl(3)
  11. og(1)=4
  12. og(2)=16
  13. og(3)=26
  14. sele 9
  15. use odm.lby inde odm alia i
  16. copy to odm.$$$
  17. use odm.$$$ alia i
  18. set color to w/1,,
  19. @ 3,1 clear to 21,78
  20. @ 23,1 say space(78)
  21. @ 23,25 say 'Ctrl+End:═╦│÷ PgUp/PgDn:╖¡╥│'
  22. do owin with 4,2,17,75,'0/3,,'
  23. @ 4,2 say '⌐│⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╙⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐Ñ⌐╖'
  24. @ 5,2 say '⌐º ╫╓╢╬├√│╞ ⌐ª┤·┬δ▒α┬δ⌐ª           ╕├┤·┬δ╦∙┤·▒φ─┌╚▌                     ⌐º'
  25. @ 6,2 say '⌐─'+repl('⌐ñ',5)+'⌐α'+repl('⌐ñ',4)+'⌐α'+repl('⌐ñ',24)+'⌐╠'
  26. ojlh=recn()
  27. oh=7
  28. do while oh<17
  29. @ oh,2 say '⌐º'
  30. @ oh,og(1) say zd
  31. @ oh,col() say '⌐ª'
  32. @ oh,og(2) say dm
  33. @ oh,col() say '⌐ª'
  34. @ oh,og(3) say nr
  35. @ oh,col() say '⌐º'
  36. oh=oh+1
  37. if .not.eof()
  38. skip
  39. endif
  40. enddo
  41. @ oh,2 say '⌐╗'+repl('⌐Ñ',5)+'⌐█'+repl('⌐Ñ',4)+'⌐█'+repl('⌐Ñ',24)+'⌐┐'
  42. set color to 0/3,w+/r,
  43. ol=1
  44. oh=7
  45. goto ojlh
  46. scat to ojl
  47. do while .t.
  48. @ oh,og(ol) get ojl(ol)
  49. read
  50. @ oh,og(ol) say ojl(ol)
  51. ozd=zd
  52. ok=mod(read(),256)
  53. do case
  54. case ok=0
  55. ol=iif(ol>1,ol-1,olm)
  56. case ok=4
  57. if oh>7
  58. ozj=.f.
  59. gath from ojl
  60. skip -1
  61. oh=oh-1
  62. scat to ojl
  63. else
  64. keyb chr(18)
  65. endif
  66. case ok=5.or.ok=15.and.ol=olm
  67. gath from ojl
  68. if oh<16
  69. skip
  70. if eof()
  71. if .not.ozj
  72. set color to w+/1,,
  73. @ 20,30 say '╩╟╖±╫╖╝╙╨┬╡─┤·┬δ?(Y/N)'
  74. ok=inkey(0)
  75. @ 20,30 say '                      '
  76. set color to 0/3,,
  77. else
  78. ok=89
  79. endif
  80. if ok=89.or.ok=121
  81. ozj=.t.
  82. appe blan
  83. repl zd with ozd
  84. oh=oh+1
  85. ol=2
  86. goto bott
  87. scat to ojl
  88. @ oh,og(1) say zd
  89. @ oh,og(2) say dm
  90. @ oh,og(3) say nr
  91. else
  92. goto bott
  93. ozj=.f.
  94. endif
  95. else
  96. scat to ojl
  97. oh=oh+1
  98. endif
  99. else
  100. keyb chr(3)
  101. endif
  102. case ok=6.and.ojlh>10
  103. ozj=.f.
  104. gath from ojl
  105. goto ojlh
  106. skip -10
  107. ojlh=recn()
  108. oh=7
  109. do while oh<17
  110. @ oh,og(1) say zd
  111. @ oh,og(2) say dm
  112. @ oh,og(3) say nr
  113. oh=oh+1
  114. if .not.eof()
  115. skip
  116. endif
  117. enddo
  118. set color to 0/3,w+/r,
  119. ol=1
  120. oh=7
  121. goto ojlh
  122. scat to ojl
  123. case ok=7
  124. gath from ojl
  125. if ojlh+9<recc()
  126. goto ojlh
  127. skip 10
  128. else
  129. if recc()-ojlh=9
  130. appe blan
  131. repl zd with ozd
  132. ol=2
  133. else
  134. loop
  135. endif
  136. endif
  137. ojlh=recn()
  138. oh=7
  139. do while oh<17
  140. @ oh,og(1) say zd
  141. @ oh,og(2) say dm
  142. @ oh,og(3) say nr
  143. oh=oh+1
  144. if .not.eof()
  145. skip
  146. endif
  147. enddo
  148. set color to 0/3,w+/r,
  149. ol=1
  150. oh=7
  151. goto ojlh
  152. scat to ojl
  153. case ok=14
  154. gath from ojl
  155. dele for len(trim(zd))=0.or.len(trim(dm))=0.or.len(trim(nr))=0
  156. pack
  157. sele 9
  158. use odm.lby inde odm alia i
  159. zap
  160. appe from odm.$$$
  161. rein
  162. return
  163. othe
  164. ol=iif(ol<3,ol+1,ol)
  165. endcase
  166. enddo
  167. return
  168.  
  169. *******************************************************
  170. * ▒α│╠╚╒╞┌: 93.11.08   21:44:34
  171. *******************************************************