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