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

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

SET TALK OFF
clos data
use sb
set index to sb1
CLEAR
A1=.T.
DO WHILE A1
CLEAR
APPE BLANK
aa='         '
K1='         '
K2='         '
K3='        '
K4='          '
K5='          '
K6='          '
K7='          '
a2=.t.
do while a2
CLEAR
@ 0,8 SAY '╔Φ▒╕▒α║┼' GET SB1
@ 0,40 SAY '╣ñ╥╡╞╒▓Θ║┼' GET SB2
@ 1,8  SAY '╔Φ▒╕├√│╞' GET SB3
@ 1,40 SAY '╨═║┼' GET SB4
@ 2,8  SAY '╣µ╕±' GET SB5
@ 2,40 SAY '╓╪┴┐' GET SB6
@ 3,8 SAY '═Γ╨╬│▀┤τ' GET SB7
@ 3,40 SAY '╓╞╘∞│º' GET SB8
@ 4,8  SAY '╓╞╘∞║┼' GET SB9
@ 4,40 SAY '│÷│º╚╒╞┌' GET K1 PICT '99.99.99'
@ 5,8  SAY '╚δ┐Γ╚╒╞┌' GET K2 PICT '99.99.99'
@ 5,40 SAY '╞⌠╙├╚╒╞┌' GET K3 PICT '99.99.99'
@ 6,8  SAY '╗·F' GET SB13
@ 6,40 SAY '╡τF' GET SB14
@ 7,8  SAY 'ԭ  ֵ' GET sb15
@ 7,40 SAY '╒█╛╔─Ω╧▐' GET SB16
@ 8,8 say "╛╗    ╓╡" get sb17
@ 8,40 say "╒█╛╔┬╩úÑ" get sb19
read
clear
@ 0,8 SAY '╡τ╗·╩²┴┐' GET SB20
@ 0,40 SAY '╓≈╡τ╗·╚▌┴┐' GET SB21
@ 1,8 SAY '╫▄╣ª┬╩' GET SB22
@ 1,40 SAY '╓≈╢»┴ª╘┤' GET SB23
@ 2,8 SAY '╛╗▓╨╓╡┬╩úÑ' GET SB26
@ 2,40 SAY '░▓╫░╡╪╡π' GET SB29
READ
WAIT '╩Σ╚δ╒²╚╖┬≡ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥úí' TO w
do case
case w='z'
exit
case w='x'
loop
case w='r'
dele
pack
retu
endcase
ENDDO
j1=substr(k1,4,2)
j2=substr(k1,7,2)
j3=substr(k1,1,2)
k1=j1+'/'+j2+'/'+j3
k1=ctod(k1)
j1=substr(k2,4,2)
j2=substr(k2,7,2)
j3=substr(k2,1,2)
k2=j1+'/'+j2+'/'+j3
k2=ctod(k2)
j1=substr(k3,4,2)
j2=substr(k3,7,2)
j3=substr(k3,1,2)
k3=j1+'/'+j2+'/'+j3
k3=ctod(k3)
repl sb10 with k1,sb11 with k2,sb12 with k3
tt=(1-sb26/100)/sb16
repl sb18 with sb15-sb17
qq=recno()
reindex on sb1 to sb1
a3=.t.
do while a3
clear
a1=.t.
do while a1
k1='  '
clear
@ 1,1 say "╔Φ▒╕└α╩⌠║┼" get k1
read
if k1='h'
use ls index lssy
f='ls1'
b='ls2'
do hel20
loop
endif
exit
enddo
do while a1
@ 2,0 clear
k2=' '
@ 2,1 say "╣▄╩⌠║┼" get k2
read
if k2='h'
use gs index gssy
f='gs1'
b='gs2'
do hel20
loop
endif
exit
enddo
do while a1
@ 3,0 clear
k3=' '
@ 3,1 say "╓╪╥¬│╠╢╚┤·║┼" get k3
read
if k3='h'
use jdx index jdxsy
f='jdx1'
b='jdx2'
do hel20
loop
endif
exit
enddo
do while a1
@ 4,0 clear
k4='  '
@ 4,1 say "╩╣╙├╡Ñ╬╗┤·║┼" get k4
read
if k4='h'
use dw index dw1
do hel1
loop
endif
exit
enddo
use sb index sb1
goto qq
repl sb24 with k1,sb25 with k2,sb27 with k3,sb28 with k4
@ 5,1 say "╣ñ╫≈░α╓╞" get sb33
@ 1,30 say "╛▓├▄╖Γ╡π╩²" get sb35
@ 2,30 say "╢»├▄╖Γ╡π╩²" get sb36
@ 3,30 say "╨▌╧ó╩▒╝Σ" get sb50
@ 4,30 say "╔Φ▒╕╡─║╧═¼║┼" get aa
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w='y'
exit
endif
enddo a3
bb=sb4
pp=sb1
wait '╩╟╖±╥¬╢╘┤╦╔Φ▒╕╜°╨╨╩┘├ⁿ╓▄╞┌╖╤╙├╖╓╬÷ú¿ú┘ú»ú╬ú⌐' to w
if w='y'
clea
use sm
appe blank
a1=.t.
do while a1
clea
@ 3,10 say "╡≈╤╨╖╤" get sm2
@ 3,40 say "╔Φ╝╞╖╤" get sm3
@ 4,10 say "╣║╓├(╓╞╘∞)╖╤" get sm4
@ 4,40 say "░▓╫░╡≈╩╘╖╤" get sm5
read
wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐ú┐' to w
if w<>'y'
loop
endif
repl sm1 with pp
exit
enddo
endif
use zc
loca for zc1=aa .and. zc4=bb
repl zc6 with zc6-1
wait '╗╣╩Σ╚δ┬≡ú¿ú┘ú»ú╬ú⌐' to w
if w<>'y'
exit
endif
use sb index sb1
enddo
use
retu