home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b034 / gz.img / ╔╛│.PRG < prev    next >
Encoding:
Text File  |  1989-01-03  |  1.1 KB  |  68 lines
  1. *╔╛│²╫╙│╠╨≥:╔╛│².PRG
  2. set talk off
  3. set delimiter on
  4. use a:gz
  5. clear
  6. e3='        '
  7. bh=0
  8. store .t. to e1
  9. do while e1
  10. store .t. to e5
  11. do while e5
  12. ?
  13. ?
  14. input '╟δ╩Σ╚δ─·╥¬╔╛│²╡─╓░╣ñ▒α║┼:  ' to bh
  15. go bh
  16. ?
  17. list next 1 ╨╒├√ for bh=▒α║┼
  18. ?
  19. accept '╔╛│²╡─╚╦├√╢╘┬≡(y/n)?  ' to e4
  20. ?
  21. if e4='y'.or.e4='Y'
  22.    store .f. to e5
  23. endif
  24. enddo
  25. delete record bh
  26. clear
  27. @ 5,30 say '╔╛│²╝╟┬╝╡─╨╬╩╜'
  28. @ 6,29 say '==============='
  29. @ 8,15 say '┴╨▒φ╩▒▓╗╧╘╩╛╝║▒╗╔╛│²╡─╝╟┬╝------------ 1'
  30. @ 10,15 say '┴╨▒φ╩▒╚╘╧╘╩╛╝║▒╗╔╛│²╡─╝╟┬╝------------ 2'
  31. @ 12,15 say '╜°╨╨╤╣╦⌡┤ª└φ,╔╛│²╝╟┬╝▓╗─▄╗╓╕┤--------- 3'
  32. @ 14,15 say '╗╓╕┤╔╛│²╝╟┬╝-------------------------- 4'
  33. @ 16,15 say '═╦│÷---------------------------------- 5'
  34. @ 18,20 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─║┼┬δ:' get e3
  35.      read
  36.    if e3='1'
  37.     set deleted on
  38.    endif
  39.    if e3='2'
  40.     set deleted off
  41.    endif
  42.    if e3='3'
  43.     replace all ▒α║┼ with ▒α║┼-1 for ▒α║┼>bh
  44.     pack
  45.    endif
  46.    if e3='4'
  47.     recall all
  48.    endif
  49.    if e3='5'
  50.     ? '═╦│÷'
  51.    endif
  52. clear
  53. accept '╩╟╖±╗╣╥¬╝╠╨°╔╛│²(y/n)?  ' to e2
  54. ?
  55. if e2='n'.or.e2='N'
  56.    store .f. to e1
  57. endif
  58. enddo
  59. release e1,e2,e3,e4,e5,bh
  60. use
  61. return
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.