home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / PH3.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  547 b   |  42 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a1=.t.
  6. do while a1
  7. clear
  8. c='   '
  9. @ 4,10 say "╟δ╩Σ╚δ╫▄╝╟┬╝╩²" get c pict '999'
  10. read
  11. c=val(c)
  12. do while c<>0
  13. clear
  14. a='        '
  15. b='    '
  16. @ 3,10 say "▒╕╝■▒α║┼" get a
  17. if q='y'
  18. @ 4,10 say "┼╠╙»╩²┴┐" get b pict '####'
  19. else
  20. @ 4,10 say "┼╠┐≈╩²┴┐" get b pict '####'
  21. endif
  22. read
  23. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
  24. if w<>'y'
  25. loop
  26. exit
  27. endif
  28. b=val(b)
  29. use bj 
  30. set index to bj1,bj2
  31. seek a
  32. if q='y'
  33. repl b5 with b5+b
  34. else
  35. repl b5 with b5-b
  36. endif
  37. c=c-1
  38. enddo   
  39. retu
  40.  
  41.  
  42.