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

Text File | 1979-12-31 | 3.4 KB | 184 lines

set talk off
sele 1
use sb index sb1
goto bott
skip
aaa=recno()
sele 2
use ls
sele 3
use gs
sele 4
use jdx index jdxsy
sele 5
use dw index dw1
sele 1
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 "******************************************************"
wait "          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9,a,b):" to m
clear
do case
   case m="1"
   loca all
   do sbdy1
   case m="2"
   stor "         " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼:" get  sb
   read
   loca all for sb1=sb
   mm='sb1'
   do sbdy1
   case m="3"
   stor "            " to sb
   @ 4,12 say "╟δ╩Σ╚δ╣ñ╥╡╞╒▓Θ║┼:" get  sb
   read
   mm='sb2'
   loca all for sb2=sb
   do sbdy1
   case m="4"
   stor "                " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕├√│╞:" get  sb
   read
   loca all for sb3=sb
   mm='sb3'
   do sbdy1
   case m="5"
   stor "                " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕╨═║┼:" get  sb
   read
   loca all for sb4=sb
   mm='sb4'
   do sbdy1
   case m="6"
   a1=.t.
   do while a1
   clear
   stor "  " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕└α╩⌠║┼:" get  sb
   read
   if sb='h'
   sele 2
   b='ls1'
   c='ls2'
   do hela
   loop
   endif
   exit
   enddo a1
   loca all for sb24=sb
   mm='sb24'
   do sbdy1
   case m="7"
   a1=.t.
   do while a1
   clear
   stor " " to sb
   @ 4,12 say "╟δ╩Σ╚δ╔Φ▒╕╣▄╩⌠║┼:" get  sb
   read
   if sb='h'
   sele 3
   b='gs1'
   c='gs2'
   do hela
   loop
   endif
   sele 1
   exit
   enddo a1
   loca all for sb25=sb
   mm='sb25'
   do sbdy1
   case m="8"
   a1=.t.
    do while a1
   clear
   stor " " to sb
   @ 4,12 say "╟δ╩Σ╚δ╛½┤≤╧í╔Φ▒╕┤·║┼:" get  sb
   read
   if sb='h'
    sele 4
   b='jdx1'
   c='jdx2'
   do hela
   loop
   endif
   sele 1
   exit
   enddo a1
   loca all for sb27=sb
   mm='sb27'
   do sbdy1
   case m="9"
   a1=.t.
   do while a1
   clear
   stor "  " to sb
   @ 4,12 say "╟δ╩Σ╚δ╩╣╙├╡Ñ╬╗▒α║┼:" get  sb
   read
   if sb='h'
   sele 5
   b='dw1'
   c='dw2'
   do hela
   loop
   endif
   sele 1
   exit
   enddo a1
   loca for sb28=sb
   mm='sb28'
   do sbdy1
   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
   j1=substr(da1,4,2)
   j2=substr(da1,7,2)
   j3=substr(da1,1,2)
   da1=j1+'/'+j2+'/'+j3
   j1=substr(da2,4,2)
   j2=substr(da2,7,2)
   j3=substr(da2,1,2)
   da2=j1+'/'+j2+'/'+j3
   da01=ctod(da1)
   da02=ctod(da2)
   loca all for da01<=sb10.and.sb10<=da02
   do sbdy1
   case m="b"
   stor " " to sb
   @ 4,12 say "╟δ╩Σ╚δ╓≈╥¬╔Φ▒╕┤·║┼:" get  sb
   read
   loca all for sb27=sb
   mm='sb27'
   do sbdy1
   case m="0"
   use
   stor "n" to xu
otherwise
   clear
   @ 3,24 say "---------------------"
   @ 4,24 say "  ╩Σ╚δ┤φ╬≤,╟δ─·╓╪└┤"
   @ 5,24 say "---------------------"
   wait " "
endcase
enddo
clos data
set talk on
SET INTE ON
return