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

Text File | 1980-01-01 | 5.4 KB | 296 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 1,10 say "**********************╩²╛▌┐Γ╡─╔╛│²**********************"
@ 2,10 say "ú░ú«═╦│÷                    ú▒ú«╣╩╒╧┐Γ"
@ 3,10 say "ú▓ú«╩┬╣╩┐Γ                  ú│ú«╝╞╗«╨▐└φ┐Γ"
@ 4,10 say "ú┤ú«╘┬╣╩╒╧┐Γ                ú╡ú«╘┬╩┬╣╩┐Γ"
@ 5,10 say "ú╢ú«─Ω╔Φ▒╕╣╩╒╧┐Γ            ú╖ú«╘┬═≥╘¬▓·╓╡╬¼╨▐╖╤╙├┬╩┐Γ"
@ 6,10 say "ú╕ú«▒¿╖╧╔Φ▒╕┤µ╖┼┐Γ          ú╣ú«╣╪╝ⁿ╔Φ▒╕╘╦╫¬╠¿╩▒┐Γ"
@ 7,10 say "ú┴ú«╤╣┴ª╚▌╞≈╝∞╨▐╖┤└í┐Γ      ú┬ú«╔Φ▒╕╫█║╧▒¿▒φ"
@ 8,10 say "ú├ú«╣▄╡└╝∞╨▐╝╟┬╝┐Γ"
@ 9,10 say "*********************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9,a,b,c,d):' to w
do case
case w='0'
retu
case w='b'
clear
c='     '
d='     '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌:" get c pict '99.99'
@ 5,10 say "╓╒╓╣╚╒╞┌:" get d pict '99.99'
read
c1=c
c2=d
b='bb.'
e='b20'
clear
@ 4,10 say c1+"------"+c2+"╞┌╝Σ╡─╘┬╫█║╧▒¿▒φ╥╤▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf1.prg
endif
case w='1'
b='gz.'
clear
c='        '
d='        '
@ 4,15 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌:" get c pict '99.99.99'
@ 5,15 say "╓╒╓╣╚╒╞┌:" get d pict '99.99.99'
read
c1=c
c2=d
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
j1=substr(d,4,2)
j2=substr(d,7,2)
j3=substr(d,1,2)
d=j1+'/'+j2+'/'+j3
d=ctod(d)
e='gz3'
clear
@ 4,15 say c1+"------"+c2+"╞┌╝Σ╡─╣╩╒╧▒╕╖▌┴╦┬≡ú┐░┤ú┘╔╛│²ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '           ' to q
if q='y'
do bf1.prg
endif
case w='2'
clear
c='        '
d='        '
@ 4,15 say " ╟δ╩Σ╚δ╞≡╩╝╚╒╞┌:" get c pict '99.99.99'
@ 5,15 say " ╓╒╓╣╚╒╞┌:" get d pict '99.99.99'
read
c1=c
c2=d
b='sg.'
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
j1=substr(d,4,2)
j2=substr(d,7,2)
j3=substr(d,1,2)
d=j1+'/'+j2+'/'+j3
d=ctod(d)
e='sg2'
clear
@ 4,5 say c1+"------"+c2+"╞┌╝Σ╡─╩┬╣╩╩²╛▌╥╤▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '   ' to q
if q='y'
do bf1.prg
endif
case w='3'
clear
c='        '
d='        '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌:" get c pict '99.99.99'
@ 5,10 say "╓╒╓╣╚╒╞┌:" get d pict '99.99.99'
read
c1=c
c2=d
b='jf.'
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
j1=substr(d,4,2)
j2=substr(d,7,2)
j3=substr(d,1,2)
d=j1+'/'+j2+'/'+j3
d=ctod(d)
e='jf3'
clear
@ 4,1 say ì
c1+"------"+c2+"╞┌╝Σ╡─╝╞╗«╨▐└φ╩²╛▌╥╤▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf1.prg
endif
case w='4'
clear
c='     '
d='     '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝─Ω╘┬:" get c pict '99.99'
@ 5,10 say "╓╒╓╣─Ω╘┬:" get d pict '99.99'
read
c1=c
c2=d
b='ygz.'
e='g1'
clear
@ 4,8 say c1+"------"+c2+"╞┌╝Σ╡─╘┬╣╩╒╧╩²╛▌╥╤▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf1.prg
endif
case w='5'
clear
c='     '
d='     '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝─Ω╘┬:" get c pict '99.99'
@ 5,10 say "╓╒╓╣─Ω╘┬:" get d pict '99.99'
read
c1=c
c2=d
b='ysg.'
e='y1'
clear
@ 4,7 say c1+"------"+c2+"╞┌╝Σ╡─╘┬╩┬╣╩╩²╛▌╥╤▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf1.prg
endif
case w='6'
clear
c='  '
d='  '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝─Ω╖▌:" get c pict '99'
@ 5,10 say "╓╒╓╣─Ω╖▌:" get d pict '99'
read
c1=c
c2=d
b='ngz.'
e='ngz1'
clear
@ 4,10 say ì
c1+"------"+c2+"╞┌╝Σ╡──Ω╣╩╒╧╩²╛▌╥╤▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf1.prg
endif
case w='7'
clear
c='     '
d='     '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝─Ω╘┬:" get c pict '99.99'
@ 5,10 say "╓╒╓╣─Ω╘┬:" get d pict '99.99'
read
c1=c
c2=d
b='fyl.'
e='f1'
clear
@ 4,0 say ì
c1+"------"+c2+"╞┌╝Σ╡─╘┬═≥╘¬▓·╓╡╬¼╨▐╖╤╙├┬╩▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼░┤╞Σ╦ⁿ╝ⁿì
╖╡╗╪"
wait '  ' to q
if q='y'
do bf1.prg
endif
case w='8'
clear
c='        '
d='        '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌:" get c pict '99.99.99'
@ 5,10 say "╓╒╓╣╚╒╞┌:" get d pict '99.99.99'
read
c1=c
c2=d
b='bfs.'
e='bfs12'
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
j1=substr(d,4,2)
j2=substr(d,7,2)
j3=substr(d,1,2)
d=j1+'/'+j2+'/'+j3
d=ctod(d)
clear
@ 4,1 say ì
c1+"------"+c2+"╞┌╝Σ╡─▒¿╖╧╔Φ▒╕▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf1.prg
endif
case w='a'
clear
c='        '
d='        '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌:" get c pict '99.99.99'
@ 5,10 say "╓╒╓╣╚╒╞┌:" get d pict '99.99.99'
read
c1=c
c2=d
b='ylf.'
e='ylf2'
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
j1=substr(d,4,2)
j2=substr(d,7,2)
j3=substr(d,1,2)
d=j1+'/'+j2+'/'+j3
d=ctod(d)
clear
@ 4,8 say ì
c1+"------"+"╞┌╝Σ╡─╤╣┴ª╚▌╞≈╝∞╤Θ╖┤└í▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf1.prg
endif
case w='c'
clear
c='        '
d='        '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝╚╒╞┌:" get c pict '99.99.99'
@ 5,10 say "╓╒╓╣╚╒╞┌:" get d pict '99.99.99'
read
c1=c
c2=d
b='gdf.'
e='gdf2'
j1=substr(c,4,2)
j2=substr(c,7,2)
j3=substr(c,1,2)
c=j1+'/'+j2+'/'+j3
c=ctod(c)
j1=substr(d,4,2)
j2=substr(d,7,2)
j3=substr(d,1,2)
d=j1+'/'+j2+'/'+j3
d=j1+'/'+j2+'/'+j3
d=ctod(d)
clear
@ 4,10 say ì
c1+"------"+"╞┌╝Σ╡─╣▄╡└╝∞╨▐▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '    ' to q
if q='y'
do bf1.prg
endif
case w='9'
clear
c='     '
d='     '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝─Ω╘┬:" get c pict '99.99'
@ 5,10 say "╓╒╓╣─Ω╘┬:" get d pict '99.99'
read
c1=c
c2=d
b='yy.'
e='yy1'
clear
@ 4,8 say ì
c1+"------"+"╞┌╝Σ╡─╣╪╝ⁿ╔Φ▒╕╘┬╘╦╫¬╠¿╩▒▒╕╖▌┴╦┬≡ú┐░┤ú┘╝ⁿ╔╛│²ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf1.prg
endif
endcase
enddo a1