Liren Large Software Subsidy 6/06.iso/b/b077/1.img/SBGL.ZIP/SBE5.PRG

Text File | 1979-12-31 | 3.6 KB | 188 lines

set talk off
set inte off
set device to screen
stor "y" to xu
do while xu="y"
stor " " to m
clear
@ 0,10 say "******************╔Φ▒╕╠¿╒╩┤≥╙í********************"
@ 1,10 say "      ú▒ú«╚½▓┐╔Φ▒╕                ú╖ú«╣▄╩⌠╖╓╒╩"
@ 2,10 say "      ú▓ú«░┤╔Φ▒╕▒α║┼▓Θ╤»          ú╕ú«╛½┤≤╧í╖╓╒╩"
@ 3,10 say "      ú│ú«░┤╣ñ╥╡╞╒▓Θ║┼▓Θ╤»        ú╣ú«╖╓╗º╒╩"
@ 4,10 say "      ú┤ú«├√│╞╖╓╒╩                ú┴ú«─Ω┤·╖╓╒╩"
@ 5,10 say "      ú╡ú«╨═║┼╖╓╒╩                ú┬ú«╓≈╥¬╔Φ▒╕╒╩"
@ 6,10 say "      ú╢ú«╖╓└α╒╩                  ú├ú«╕¿╗·"
@ 7,10 say "      ú░ú«═╦│÷                    "
@ 8,10 say "******************************************************"
wait "          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9,a,b,c):" to m
clear
sele 1
use sb
do case
case m='0'
exit
   case m='c'
   do fj.prg
   case m="1"
   loca all
   bt='╚½  ▓┐'
   do sbdy2
   case m="2"
   stor "         " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼:" get  sb
   read
   loca all for sb1=sb
   bt='&sb'+'  ║┼(▒α║┼)'
   do sbdy2
   case m="3"
   stor "            " to sb
   @ 4,12 say "╟δ╩Σ╚δ╣ñ╥╡╞╒▓Θ║┼:" get  sb
   read
   loca all for sb2=sb
   bt='&sb'+'║┼ (╣ñ╥╡╞╒▓Θ║┼)'
   do sbdy2
   case m="4"
   stor "                " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕├√│╞:" get  sb
   read
   loca all for sb3=sb
    bt='&sb'+' └α'
   do sbdy2
   case m="5"
   stor "                " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕╨═║┼:" get  sb
   read
   bt='&sb'+' ╨═'
   loca all for sb4=sb
   do sbdy2
   case m="6"
   a1=.t.
   do while a1
   clear
   stor "  " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕└α╩⌠║┼:" get  sb
   read
   sele 2
   use ls index lssy alias lssy
   if sb='h'
   b='ls1'
   c='ls2'
   do hela
   loop
   endif
   exit
   enddo a1
   seek sb
   p1=trim(ls2)
   sele 1
   bt=p1+' └α'
   loca all for sb24=sb
   do sbdy2
   case m="7"
   a1=.t.
   do while a1
    clear
   stor " " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕╣▄╩⌠║┼:" get  sb
   read
   sele 2
   use gs index gssy alias gssy
   if sb='h'
   b='gs1'
   c='gs2'
   do hela
   loop
    endif
   exit
   enddo a1
   seek sb
   p1=trim(gs2)
   sele 1
   bt=p1
   loca all for sb25=sb
   do sbdy2
   case m="8"
   a1=.t.
do while a1
   clear
   stor " " to sb
   @ 4,12 say "╟δ╩Σ╚δ╛½┤≤╧í╔Φ▒╕┤·║┼:" get  sb
   read
   sele 2
   use jdx index jdxsy alias jdxsy
   if sb='h'
   b='jdx1'
   c='jdx2'
   do hela
   loop
   endif
   exit
   enddo a1
   seek sb
   p1=trim(jdx2)
   sele 1
   bt=p1
   loca all for sb27=sb
   do sbdy2
   case m="9"
   a1=.t.
   do while a1
   clear
   stor "  " to sb
   @ 4,12 say "╟δ╩Σ╚δ╩╣╙├╡Ñ╬╗▒α║┼:" get  sb
   read
   sele 2
   use dw index dw1 alias dw1
   if sb='h'
   b='dw1'
   c='dw2'
   do hela
   loop
   endif
   exit
   enddo a1
   seek sb
   p1=trim(dw2)
   sele 1
   bt=p1
   loca all for sb28=sb
   do sbdy2
   case m="a"
   stor "        " to da2
   stor "        " to da1
   @ 4,12 say "╟δ╩Σ╚δ│÷│º╚╒╞┌: ╞≡╩╝╚╒╞┌:" get da1 pict '99/99/99'
   @ 4,50 say "╓╒╓╣╚╒╞┌:" get da2 pict '99/99/99'
   read
   bt='&da1'+'----'+'&da2'
   da01=ctod(da1)
   da02=ctod(da2)
   loca all for da01<=sb10.and.sb10<=da02
   do sbdy2
   case m="b"
   stor " " to sb
   @ 4,12 say "╟δ╩Σ╚δ╓≈╥¬╔Φ▒╕┤·║┼:" get  sb
   read
   sele 2
   use jdx index jdxsy alias jdxsy
   seek sb
   p1=trim(jdx2)
   sele 1
   bt=p1
   loca all for sb27=sb
   do sbdy2
   case m="0"
   use
   stor "n" to xu
otherwise
   clear
   @ 3,24 say "---------------------"
   @ 4,24 say "  ╩Σ╚δ┤φ╬≤,╟δ─·╓╪└┤"
   @ 5,24 say "---------------------"
   wait " "
endcase
enddo
set talk on
SET INTE ON
return