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

Text File | 1980-01-01 | 3.1 KB | 182 lines

clear
set talk off
set device to screen
close database
sele 7
use dw
sele 6
use gzl1 index gzl11
sele 5
use ygz
sele 1
use jf
sele 2
use bjh
sele 3
use sb index sb1
sele 4
use sm
sele 2
a2=.t.
do while a2
sele 1
k1='        '
k3='          '
j1='         '
j2=' '
j4='   '
j5='   '
j6='   '
j7='   '
j8='   '
j9='   '
j10='        '
j11='        '
j12='        '
j13='        '
j14='        '
j15='   '
j16='  '
j17='                              '
j18='                              '
a1=.t.
do while a1
clear
@ 0,1 say "╣ñ╫≈┴ε║┼" get k3 pict '##########'
@ 1,1 say "╔Φ▒╕▒α║┼" get j1
@ 2,1 say "╨▐└φ└α▒≡(┤≤╨▐ 1,╓╨╨▐ 2,╨í╨▐ 3,╢■▒ú 4)" get j2
@ 3,1 say "╨▐└φ╚╒╞┌"get k1 pict '99.99.99'
a8=.t.
do while a8
@ 4,1 say "╩⌐╣ñ╡Ñ╬╗┤·║┼" get j16
read
if j16='h'
sele 7
do hel1.prg
loop
endif
exit
a8=.f.
sele 1
enddo a8
@ 5,1 say "╟»╣ñ╣ñ╩▒"get j4 pict '###'
@ 6,1 say "╡τ╣ñ╣ñ╩▒"get j5 pict '###'
@ 7,1 say "╞≡╓╪╣ñ╣ñ╩▒" get j6 pict '###'
@ 8,1 say "║╕╣ñ╣ñ╩▒" get j7 pict '###'
@ 9,1 say "╣▄╣ñ╣ñ╩▒" get j15 pict '###'
@ 0,50 say "╞Σ╦ⁿ╣ñ╩▒" get j9 pict '###'
@ 1,50 say "╩╡═ú╨¬╠∞╩²" get j8 pict '###'
@ 2,50 say "▒╕╝■╖╤" get j10 pict '#####.##'
@ 3,50 say "▓─┴╧╖╤" get j11 pict '#####.##'
@ 4,50 say "╣ñ╩▒╖╤" get j12 pict '#####.##'
@ 5,50 say "═Γ╬»╝╙╣ñ╖╤" get j13 pict '#####.##'
@ 6,50 say "╞Σ╦ⁿ╖╤" get j14 pict '#####.##'
@ 7,32 say "╦∙╙├╡─▒╕╝■"  get j17
@ 8,32 say "╢╘╥╘║≤╬¼╨▐╡─╜¿╥Θ" get j18
read
wait '╩²╛▌╒²╚╖ú┌ú¼╖╡╗╪ú╥ú¼╫≈╖╧ú╞ú¼╓╪╨▐╕─ú╪ú║' to w
do case
case w='z'
sele 1
t1=substr(k1,1,5)
a=substr(k1,4,2)
b=substr(k1,7,2)
c=substr(k1,1,2)
k1=a+'/'+b+'/'+c
k1=ctod(k1)
j4=val(j4)
j5=val(j5)
j6=val(j6)
j7=val(j7)
j8=val(j8)
j9=val(j9)
j10=val(j10)
j11=val(j11)
j12=val(j12)
j13=val(j13)
j14=val(j14)
j15=val(j15)
ff=j4+j5+j6+j7+j9+j15
appe blank
repl jf3 with k1,jf1 with j1,jf2 with j2,jf4 with j4,jf5 with ì
j5,jf6 with j6,jf7 with j7,jf8 with j8,jf9 with j9,jf10 with j10
repl jf11 with j11,jf12 with j12,jf13 with j13,jf14 with j14
b=jf2
c=jf1
p=jf10+jf11+jf12+jf13+jf14
p1=jf8
sele 3
seek c
p2=sb33
sele 2
loca for bjh1=c
if b='1'
repl bjh6 with k1,bjh8 with k1,bjh10 with k1,bjh12 with k1,bjh7 ì
with 0,bjh9 with 0,bjh11 with 0,bjh13 with 0
sele 8
use jh index jh1
seek c
repl jhx with 'y'
sele 3
seek c
repl sb50 with sb50+1
sele 2
endif
if b='2'
repl bjh8 with k1,bjh10 with k1,bjh12 with k1,bjh9 with 0,bjh11 ì
with 0,bjh13 with 0
endif
if b='3'
repl bjh10 with k1,bjh12 with k1,bjh11 with 0,bjh13 with 0
endif
if b='4'
repl bjh12 with k1,bjh13 with 0
endif
sele 4
loca for sm1=c
repl sm9 with sm9+p
do case
case p2=1
p1=p1*7.5
case p2=2
p1=p1*15.5
case p2=3
p1=p1*24
otherwise
p1=p1*7.5
endcase
sele 5
loca for g1=t1
if eof()
appe blank
repl g1 with t1,g4 with p1
else
repl g4 with g4+p1
endif
sele 6
k3=val(k3)
seek k3
repl gzl1a with 'y',gzl1f with j17,gzl1e with j18,gzl1d with ì
p,gzl1b with ff,gzl1c with p1-ff
sele 2
a1=.f.
case w='f'
exit
case w='x'
loop
case w='r'
retu
endcase
enddo a1
wait '╗╣╙╨┬≡(y/n) ' to w
if w='y'
a2=.t.
else
a2=.f.
endif
enddo a2
a2=.t.
retu