home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a057 / 6.img / YQMIS30B.EXE / OXSBB.MBK < prev    next >
Encoding:
Text File  |  1994-05-05  |  1.4 KB  |  97 lines
  1. ****************************
  2. * ╬─╝■├√│╞: OXSBB.PRG
  3. * ╓≈╥¬╣ª─▄: ╞┴─╗╧╘╩╛▒¿▒φ
  4. ****************************
  5. priv oi,ok,ol,ox,oy,okd
  6. set esca off
  7. set safe off
  8. okd=2
  9. ox=1
  10. sele 10
  11. use pmxs.lby alia j
  12. zap
  13. appe from txt.con sdf
  14. goto top
  15. do while .not.eof()
  16. okd=iif(len(trim(zw))>okd,len(trim(zw)),okd)
  17. skip
  18. enddo
  19. oy=recc()-18
  20. goto top
  21. set color to 7/1,,
  22. @ 3,1 clear to 21,78
  23. @ 23,1 say space(78)
  24. @ 23,18 say '╟δ╩╣╙├╣Γ▒Ω╝ⁿ╖¡╘─▒¿▒φ, ^P:┤≥╙í▒¿▒φ Esc╝ⁿ═╦│÷'
  25. ol=recn()
  26. oi=3
  27. do while oi<22
  28. @ oi,2 say subs(zw,ox,76)
  29. if .not.eof()
  30. skip
  31. endif
  32. oi=oi+1
  33. enddo
  34. do while .t.
  35. ok=inkey(0)
  36. do case
  37. case ok=5.and.ol>1
  38. ol=ol-1
  39. goto ol
  40. call hbk with '03012178U'
  41. @ 3,2 say subs(zw,ox,76)
  42. loop
  43. case ok=24.and.ol<oy
  44. ol=ol+1
  45. goto ol
  46. skip 18
  47. call hbk with '03012178T'
  48. @ 21,2 say subs(zw,ox,76)
  49. loop
  50. case ok=3.and.ol<oy
  51. ol=ol+12
  52. ol=iif(ol>oy,oy,ol)
  53. case ok=18.and.ol>1
  54. ol=ol-12
  55. ol=iif(ol<1,1,ol)
  56. case ok=4.and.ox<okd-75
  57. ox=ox+38
  58. if ox+38>okd-75
  59. ox=okd-75
  60. endif
  61. case ok=19.and.ox>1
  62. ox=ox-38
  63. ox=iif(ox<1,1,ox)
  64. case ok=1
  65. if ox>1
  66. ox=1
  67. else
  68. loop
  69. endif
  70. case ok=27
  71. sele 1
  72. return
  73. case ok=16
  74. set print to prn
  75. if sys(13)='READY'
  76. set cons off
  77. type txt.con to print
  78. set cons on
  79. endif
  80. loop
  81. othe
  82. loop
  83. endcase
  84. goto ol
  85. @ 3,1 clear to 21,78
  86. ol=recn()
  87. oi=3
  88. do while oi<22
  89. @ oi,2 say subs(zw,ox,76)
  90. if .not.eof()
  91. skip
  92. endif
  93. oi=oi+1
  94. enddo
  95. enddo
  96. return
  97.