home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / DQ4.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  484 b   |  39 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,1 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a
  7. read
  8. a=val(a)
  9. if a<>0
  10. use dq
  11. repl all dq8 with 'y'
  12. endif
  13. b=1
  14. do while a<>0
  15. clear
  16. k1='         '
  17. a1=.t.
  18. do while a1
  19. clear
  20. @ 1,50 say "╧╓╘┌╩Σ╚δ╡─╬¬:"+str(b,2)+"╠⌡╝╟┬╝" 
  21. @ 4,10 say "╟δ╩Σ╚δ▓╗═Ω║├╔Φ▒╕╡─▒α║┼" get k1
  22. read
  23. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
  24. if w<>'y'
  25. loop
  26. endif
  27. exit
  28. enddo 
  29. use dq
  30. loca for dq1=k1
  31. repl dq8 with 'n'
  32. a=a-1
  33. b=b+1
  34. enddo
  35. retu
  36.  
  37.  
  38.  
  39.