home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / DQ3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  67 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a
  7. read
  8. a=val(a)
  9. do while a<>0
  10. clear
  11. k1='         '
  12. k2='    '
  13. k3='    '
  14. k4='    '
  15. k5='    '
  16. k6='    '
  17. k7='    '
  18. ka='  '
  19. a1=.t.
  20. do while a1
  21. clear
  22. @ 2,1 say "╔Φ▒╕▒α║┼" get k1
  23. @ 3,1 say "╝∞╨▐╓▄╞┌ 1" get k2
  24. @ 4,1 say "╝∞╨▐╓▄╞┌ 2" get k3
  25. @ 5,1 say "╝∞╨▐╓▄╞┌ 3" get k4
  26. @ 6,1 say "╩╘╤Θ╓▄╞┌ 1" get k5
  27. @ 7,1 say "╩╘╤Θ╓▄╞┌ 2" get k6
  28. @ 8,1 say "╩╘╤Θ╓▄╞┌ 3" get k7
  29. read
  30. a4=.t.
  31. do while a4
  32. @ 9,0 clea
  33. @ 9,1 say "╩╣╙├╡Ñ╬╗┤·║┼" get ka
  34. read
  35. if ka='h'
  36. use dw index dw1
  37. do hel1
  38. loop
  39. endif
  40. exit
  41. enddo 
  42. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
  43. if w='y' 
  44. exit 
  45. endif
  46. enddo a1
  47. k2=val(k2)
  48. k3=val(k3)
  49. k4=val(k4)
  50. k5=val(k5)
  51. k6=val(k6)
  52. k7=val(k7)
  53. use sb index sb1
  54. seek k1
  55. k8=sb12
  56. k9=sb28
  57. use dq
  58. appe blank
  59. repl dq1 with k1,dq2 with k2,dq3 with k3,dq4 with k4,dq5 with ì
  60. k5,dq6 with k6,dq7 with k7,dq10 with k8,dq11 with k8,dq12 with ì
  61. k8,dq13 with k8,dq14 with k8,dq15 with k8,dq9 with k9,dq9 with ka
  62. a=a-1
  63. enddo 
  64. retu
  65.  
  66.  
  67.