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  |  1016 b   |  57 lines
  1. *╠φ╝╙╫╙│╠╨≥:╠φ╝╙.PRG
  2. use a:gz
  3. set talk off
  4. c='           '
  5. b=.t.
  6. clear
  7. @ 4,30 say '╠φ╝╙╣ñ╫╩╝╞┬╝╣ª─▄╟σ╡Ñ'
  8. @ 5,30 say '===================='
  9. @ 7,28 say '╫╖╝╙╣ñ╫╩╝╞┬╝-----------1'
  10. @ 09,28 say '▓σ╚δ╣ñ╫╩╝╞┬╝-----------2'
  11. @ 11,28 say '═╦│÷-------------------3'
  12. @ 14,28 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼' get c
  13.      read
  14. do case
  15.    case c='1'
  16.     append
  17.    case c='2'
  18.     bh=0
  19.     clear
  20.     do while b
  21.     store .t. to bb1
  22.     do while bb1
  23.     ?
  24.     input '─·╥¬╘┌╩▓├┤▒α║┼║≤▓σ╚δ:    ' to bh
  25.     go bh
  26.     ?
  27.     if ▓┐├┼='═╦╨▌'
  28.        list next 1 ╨╒├√,╦∙╙╨╓╞,▓┐├┼ for bh=▒α║┼
  29.     endif
  30.     if ▓┐├┼<>'═╦╨▌'
  31.        list next 1 ╨╒├√,╦∙╙╨╓╞,▓┐├┼,░α╫Θ,╣ñ╓╓ for bh=▒α║┼
  32.     endif
  33.     ?
  34.     accept '╘┌╔╧├µ╨╒├√║≤▓σ╚δ╢╘┬≡(y/n)?  ' to bb2
  35.     if bb2='y'.or.bb2='Y'
  36.        bb1=.f.
  37.     endif
  38.     enddo
  39.     insert
  40.     replace all ▒α║┼ with ▒α║┼+1 for ▒α║┼>bh
  41.     bh1=bh+1
  42.     go bh1
  43.     replace next 1 ▒α║┼ with ▒α║┼-1
  44.     accept '╩╟╖±╗╣╥¬╝╠╨°▓σ╚δ(y/n)?  ' to d
  45.     if d='n'.or.d='N'
  46.        b=.f.
  47.     endif
  48.     enddo
  49.    case c='3'
  50.     ?'═╦│÷'
  51. endcase
  52. release b,c,d,bh,rno
  53. use
  54. return
  55.  
  56.  
  57.