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

Text File | 1980-01-01 | 3.3 KB | 160 lines

clear
set talk off
set device to screen
close database
sele 6
use fyl
sele 5
use gzl1 index gzl11
sele 4
use ysg index ysg1
sele 3
use sm
sele 1
use sg
sele 2
use yin
a1=.t.
do while a1
kk1='     '
kk2='     '
kk4='                              '
kk5='                              '
k22='          '
k1='         '
k2='  '
k3='        '
k4=' '
k5='        '
k6='        '
k7='      '
k8='                                                  '
k9='          '
k10='          '
k11='          '
k12='                                                  '
k13='                                                  '
k14='        '
k17='          '
k18='          '
k19='          '
k20='          '
k21='          '
a2=.t.
do while a2
clear
@ 1,1 say "╣ñ╫≈┴ε║┼" get k22 pict '##########'
@ 1,30 say "╔Φ▒╕▒α║┼"get k1
@ 1,55 say "╩┬╣╩╘¡╥≥┬δ" get k2
read
if k2='h'
sele 2
do hel2
loop
endif
@ 2,1 say "╩┬╣╩╖ó╔·╩▒╝Σ" get k3 pict '99.99.99'
@ 2,30 say "╩┬╣╩└α▒≡┬δú¿╠╪┤≤ú▒ú⌐,ú¿╓╪┤≤ú▓ú⌐,ú¿╥╗░πú│ú⌐" get k4
@ 3,1 say "╩┬╣╩╘≡╚╬╒▀" get k5
@ 3,30 say "╫▄═ú╗·╩▒╝Σ" get k6 pict '######.#'
@ 3,55 say "╞Σ╓╨╙░╧∞╔·▓·╩▒╝Σ" get k7 pict '######.#'
@ 4,1 say "╓▒╜╙╦≡╩º" get k9 pict '#######.##'
@ 4,30 say "╝Σ╜╙╦≡╩º" get k10 pict '#######.##'
@ 4,55 say "╣ñ╩▒╖╤" get k17 pict '#######.##'
@ 5,1 say "▒╕╝■╖╤" get k18 pict '#######.##'
@ 5,30 say "▓─┴╧╖╤" get k19 pict '#######.##'
@ 5,55 say "═Γ╬»╝╙╣ñ╖╤" get k20 pict '#######.##'
@ 6,1 say "╞Σ╦ⁿ╖╤╙├" get k21 pict '#######.##'
@ 6,30 say "╨▐╕┤╩▒╝Σ"get k14 pict '99.99.99'
@ 7,1 say "╩┬╣╩╖ó╔·╛¡╣²╝≥╩÷" get k8
@ 8,1 say "┤ª└φ╛÷╢¿" get k12
@ 9,1 say "╜±║≤╖└╖╢┤δ╩⌐" get k13
read
clear
@ 1,1 say "╩╡╬¼╨▐╩▒╝Σ" get kk1 pict '##.##'
@ 1,40 say "═ú╣ñ┤²┴╧╩▒╝Σ" get kk2 pict '##.##'
@ 2,1 say "╦∙╙├╡─▒╕╝■" get kk4
@ 3,1 say "╢╘╥╘║≤╬¼╨▐╡─╜¿╥Θ" get kk5
read
wait '╩²╛▌╒²╚╖ú┌ú¼╫≈╖╧ú╞ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║' to w
do case
case w='x'
loop
case w='f'
exit
case w='r'
retu
case w='z'
j1=substr(k14,4,2)
j2=substr(k14,7,2)
j3=substr(k14,1,2)
k14=j1+'/'+j2+'/'+j3
k14=ctod(k14)
k17=val(k17)
k18=val(k18)
k22=val(k22)
k19=val(k19)
kk1=val(kk1)
kk2=val(kk2)
k20=val(k20)
k21=val(k21)
k11=k17+k18+k19+k20+k21
k9=val(k9)
k10=val(k10)
k6=val(k6)
k7=val(k7)
t=substr(k3,1,5)
j1=substr(k3,4,2)
j2=substr(k3,7,2)
j3=substr(k3,1,2)
k3=j1+'/'+j2+'/'+j3
k3=ctod(k3)
sele 1
appe blank
repl sg1 with k1,sg2 with k3,sg3 with k4,sg4 with k2,sg5 with ì
k5,sg6 with k6,sg7 with k7,sg8 with k8,sg9 with k9,sg10 with ì
k10,sg11 with k11,sg12 with k12,sg13 with k13
repl sg14 with k14,sg17 with k17,sg18 with k18,sg19 with k19,sg20 ì
with k20,sg21 with k21
sele 6
loca for f1=t
if eof()
appe blank
repl  f1 with t,f3 with k11,f4 with k17,f5 with k19,f6 with ì
k18,f7 with k20,f8 with k21
else
repl f3 with f3+k11,f4 with f4+k17,f5 with f5+k19,f6 with ì
f6+k18,f7 with f7+k20,f8 with f8+k21
endif
sele 3
loca for sm1=k1
repl sm7 with sm7+k11
sele 4
loca for y1=t
if eof()
appe blank
repl y1 with t,y2 with 1,y3 with k6,y4 with k9,y5 with k10,y6 ì
with k11
else
repl y2 with y2+1,y3 with y3+k6,y4 with y4+k9,y5 with y5+k10,y6 ì
with y6+k11
endif
sele 5
seek k22
repl gzl1a with 'y',gzl1b with kk1,gzl1c with kk2,gzl1e with kk5,gzl1f with kk4
sele 1
exit
endcase
enddo a2
clear
@ 4,1 clear
wait '╗╣╩Σ╚δ┬≡(Y/N)' to w
if w='y'
a1=.t.
else
exit
endif
enddo a1
retu