home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SBE4.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.8 KB  |  162 lines
  1. set talk off
  2. set inte off
  3. set device to screen
  4. stor "y" to xu
  5. do while xu="y"
  6. stor " " to m
  7. clear
  8. @ 0,10 say "******************╔Φ▒╕╡─═│╝╞********************"
  9. @ 1,10 say "      ú▒ú«╚½▓┐╔Φ▒╕                ú╖ú«╖╓╗º╒╩"
  10. @ 2,10 say "      ú▓ú«├√│╞╖╓╒╩                ú╕ú«╓≈╥¬╔Φ▒╕╒╩"
  11. @ 3,10 say "      ú│ú«╨═║┼╖╓╒╩           " 
  12. @ 4,10 say "      ú┤ú«╖╓└α╒╩                "
  13. @ 5,10 say "      ú╡ú«╣▄╩⌠╖╓╒╩              "
  14. @ 6,10 say "      ú╢ú«╛½┤≤╧í╖╓╒╩             "
  15. @ 7,10 say "      ú░ú«═╦│÷"
  16. @ 8,10 say "******************************************************"
  17. wait "          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8):" to m
  18. clear
  19. sele 1
  20. use sb
  21. do case
  22. case m='0'
  23. exit
  24.    case m="1"
  25.    bt='╚½  ▓┐'
  26.    do sbtj
  27.    case m="2"
  28.    stor "                " to sb
  29.    @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕├√│╞:" get  sb
  30.    read
  31.     bt='&sb'+' └α'
  32.     dd='sb3'
  33.    do sbtj
  34.    case m="3"
  35.    stor "                " to sb
  36.    @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕╨═║┼:" get  sb
  37.    read
  38.    bt='&sb'+' ╨═'
  39.    sele 1 
  40.    use sb index sb1
  41.     dd='sb4'
  42.    do sbtj
  43.    case m="4"
  44.    a1=.t.
  45.    do while a1
  46.    clear
  47.    stor "  " to sb
  48.    @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕└α╩⌠║┼:" get  sb
  49.    read
  50.    sele 2
  51.    use ls index lssy alias lssy
  52.    if sb='h'
  53.    b='ls1' 
  54.    c='ls2'
  55.    do hela
  56.    loop
  57.    endif
  58.    exit
  59.    enddo a1
  60.    seek sb
  61.    p1=trim(ls2)
  62.    sele 1
  63.    bt=p1+' └α'
  64.    dd='sb24'
  65.    do sbtj
  66.    case m="5"
  67.    a1=.t.
  68.    do while a1
  69.     clear
  70.    stor " " to sb
  71.    @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕╣▄╩⌠║┼:" get  sb
  72.    read
  73.    sele 2
  74.    use gs index gssy alias gssy
  75.    if sb='h'
  76.    b='gs1'
  77.    c='gs2'
  78.    do hela
  79.    loop
  80.     endif
  81.    exit
  82.    enddo a1
  83.    seek sb
  84.    p1=trim(gs2)
  85.    sele 1
  86.    bt=p1
  87.    dd='sb25'
  88.    do sbtj
  89.    case m="6"
  90.    a1=.t.
  91. do while a1
  92.    clear
  93.    stor " " to sb
  94.    @ 4,12 say "╟δ╩Σ╚δ╛½┤≤╧í╔Φ▒╕┤·║┼:" get  sb
  95.    read
  96.    sele 2
  97.    use jdx index jdxsy alias jdxsy
  98.    if sb='h'
  99.    b='jdx1'
  100.    c='jdx2'
  101.    do hela
  102.    loop
  103.    endif
  104.    exit
  105.    enddo a1
  106.    seek sb
  107.    p1=trim(jdx2)
  108.    sele 1
  109.    bt=p1
  110.    dd='sb27'
  111.    do sbtj
  112.    case m="7"
  113.    a1=.t.
  114.    do while a1
  115.    clear
  116.    stor "  " to sb
  117.    @ 4,12 say "╟δ╩Σ╚δ╩╣╙├╡Ñ╬╗▒α║┼:" get  sb
  118.    read
  119.    sele 2
  120.    use dw index dw1 alias dw1 
  121.    if sb='h'
  122.    b='dw1'
  123.    c='dw2'
  124.    do hela
  125.    loop
  126.    endif
  127.    exit
  128.    enddo a1
  129.    seek sb
  130.    p1=trim(dw2)
  131.    sele 1
  132.    bt=p1
  133.    dd='sb28'
  134.    do sbtj
  135.    case m="8"
  136.    stor " " to sb
  137.    @ 4,12 say "╟δ╩Σ╚δ╓≈╥¬╔Φ▒╕┤·║┼:" get  sb
  138.    read
  139.    sele 2
  140.    use jdx index jdxsy alias jdxsy
  141.    seek sb
  142.    p1=trim(jdx2)
  143.    sele 1
  144.    bt=p1
  145.    dd='sb27'
  146.    do sbtj
  147.    case m="0"
  148.    clos data
  149.    stor "n" to xu
  150. otherwise
  151.    clear
  152.    @ 3,24 say "---------------------"
  153.    @ 4,24 say "  ╩Σ╚δ┤φ╬≤,╟δ─·╓╪└┤"
  154.    @ 5,24 say "---------------------"
  155.    wait " "
  156. endcase
  157. enddo
  158. set talk on
  159. SET INTE ON
  160. return
  161.  
  162.