Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/CBHS-4.PRG

Text File | 1990-03-29 | 995 b | 45 lines

*│╔▒╛║╦╦π╫╙│╠╨≥╓«╦─(┤≥╙í╕≈▒¿▒φ):CBHS-4.PRG
set talk off
clear
dy='       '
answer1=.t.
do while answer1
clear
@ 2,23 say '┤≥╙í╫╙│╠╨≥╟σ╡Ñ╬¬─·╠ß╣⌐╥╘╧┬╖■╬±'
@ 3,23 say '=============================='
@ 05,22 say '┤≥╙í░δ│╔╞╖╢¿╢ε▒φ-------------- 1'
@ 07,22 say '┤≥╙í╗∙▒╛╔·▓·╖╓┼Σ▒φ------------ 2'
@ 09,22 say '┤≥╙í▓·╞╖│╔▒╛╝╞╦π▒φ------------ 3'
@ 11,22 say '┤≥╙í│╔▒╛╫¬│÷╝╞╦π▒φ------------ 4'
@ 13,22 say '┤≥╙í│╔▒╛└α╫▄▒φ---------------- 5'
@ 15,22 say '┤≥╙í└√╚≤╖╓┼Σ▒φ---------------- 6'
@ 17,22 say '═╦│÷-------------------------- 7'
@ 19,15 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼' get dy
    read
   do case
      case dy='1'
       do c:bcbdeb1
       do c:bcbdeb2
      case dy='2'
       do c:scfpb
      case dy='3'
       do c:cbjsb-1
       do c:cbjsb-2
       do c:cbjsb-3
      case dy='4'
       do c:cbzcb
      case dy='5'
       do c:cblzb
      case dy='6'
       do c:lyfpb-1
       do c:lyfpb-2
      case dy='7'
       answer1=.f.
    endcase
enddo
set talk on
release all
return