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

Text File | 1980-01-01 | 5.1 KB | 272 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='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
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 "╟δ╜½╣╩╒╧▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘┐╜▒┤ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '           ' to q
if q='y'
do bf.prg
endif
case w='b'
clear
c='     '
d='     '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝─Ω╘┬:" get c pict '99.99'
@ 5,10 say "╓╒╓╣─Ω╘┬:" get d pict '99.99'
read
b='bb.'
e='b20'
clear
@ 4,10 say "╟δ╜½╘┬╫█║╧▒¿▒φ▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╝▒┤ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf.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
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,15 say "╟δ╜½╩┬╣╩▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '   ' to q
if q='y'
do bf.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
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,15 say ì
"╟δ╜½╝╞╗«╨▐└φ▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf.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
b='ygz.'
e='g1'
clear
@ 4,15 say "╟δ╜½╘┬╣╩╒╧▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf.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
b='ysg.'
e='y1'
clear
@ 4,15 say "╟δ╜½╘┬╩┬╣╩▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf.prg
endif
case w='6'
clear
c='  '
d='  '
@ 4,10 say "╟δ╩Σ╚δ╞≡╩╝─Ω╖▌:" get c pict '99'
@ 5,10 say "╓╒╓╣─Ω╖▌:" get d pict '99'
read
b='ngz.'
e='ngz1'
clear
@ 4,15 say ì
"╟δ╜½╔Φ▒╕─Ω╣╩╒╧▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf.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
b='fyl.'
e='f1'
clear
@ 4,8 say ì
"╟δ╜½╘┬═≥╘¬▓·╓╡╬¼╨▐╖╤╙├┬╩▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼░┤╞Σ╦ⁿ╝ⁿì
╖╡╗╪"
wait '  ' to q
if q='y'
do bf.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
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,15 say ì
"╟δ╜½▒¿╖╧╔Φ▒╕▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf.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
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 ì
"╟δ╜½╤╣┴ª╚▌╞≈╝∞╤Θ╖┤└í▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf.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
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 ì
"╟δ╜½╣▄╡└╝∞╨▐▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '    ' to q
if q='y'
do bf.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
b='yy.'
e='yy1'
clear
@ 4,8 say ì
"╟δ╜½╣╪╝ⁿ╔Φ▒╕╘┬╘╦╫¬╠¿╩▒▒╕╖▌┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú┘╝ⁿ┐╜▒┤ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
wait '  ' to q
if q='y'
do bf.prg
endif
endcase
enddo a1