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

Text File | 1980-01-01 | 3.2 KB | 129 lines

set talk off
set inte off
set device to screen
stor "y" to xu
do while xu="y"
stor "         " to m
clear
@ 3,10 say "╟δ╩Σ╚δ╓≈╗·▒α║┼:" get m
read
use fj
loca all for fj1=m
cf=recno()
if eof()
clear
@ 3,27 say "--------------------"
@ 4,27 say "  ╬▐ ┤╦ú¿└αú⌐╔Φ ▒╕ "
@ 5,27 say "--------------------"
else
m1=trim(m)
do  while .not.eof()
do fjxs
cont
enddo
stor "y" to dy
clear
@ 3,27 say "-------------------------"
@ 4,27 say "  ╥¬ ┤≥ ╙í ┬≡ (y/n) ?  " get dy
@ 5,27 say "-------------------------"
read
set marg to 30
do  while dy='y'
clear
name='      '
name1='      '
data='        '
@ 3,20 say '╟δ╩Σ╚δ: ╓╞ ▒φ ╚╦ ╨╒ ├√:' get name
@ 4,20 say '        ╓≈ ╣▄ ╚╦ ╨╒ ├√:' get name1
@ 5,20 say '        ╓╞  ▒φ  ╚╒  ╞┌:' get data pict '99.99.99'
read
stor '|' to s
goto cf
hang=1
ye=1
clear
@ 3,27 say "--------------------"
@ 4,27 say " ╟δ─·╔╘║ε,╒²╘┌┤≥╙í"
@ 5,27 say "--------------------"
set cons off
set print on
? chr(27)+'IJ'
set devi to print
@ 1,35 say "&m1"+"║┼╓≈╗·╡─╕¿╗·╟σ╡Ñ"
set print off
set print on
? chr(27)+'II'
set print off
set device to print
@ prow()+1,150 say '╓╞▒φ╚╒╞┌:'+data
do while .not.eof()
if hang>=58
@ prow()+1,1 say "============================================;
========================================================================;
========================================================="
@ prow()+1,140 say "╓≈╣▄:"+name1
@ prow(),155 say "╓╞▒φ:"+name
@ prow()+1,80 say '╡┌ '+str(ye,2)+' ╥│'
@ prow()+11,0 say ' '
ye=ye+1
hang=0
endif
@ prow()+1,1 say "============================================;
========================================================================;
========================================================="
@ prow()+1,1 say "|╓≈╗·▒α║┼ |    ╕¿╗·├√│╞    |    ╨═    ║┼    ;
|     ╣µ      ╕±     |    ╔·▓·─▄┴ª    | ╬╗   ║┼ |   ╓╞  ╘∞  │º   |  │÷│º║┼  ;
|░▓╫░╚╒╞┌|═╢▓·╚╒╞┌| ═╝    ║┼ |╩²┴┐| ╦┘▒╚ | ╕¿╗·╘¡╓╡ |"
do while .not.eof().and.hang<58
@ prow()+1,1 say "|---------|----------------|----------------;
|--------------------|----------------|---------|----------------|----------;
|--------|--------|----------|----|------|----------|"
a5=dtoc(fj9)
j1=substr(a5,7,2)
j2=substr(a5,1,2)
j3=substr(a5,4,2)
a5=j1+'.'+j2+'.'+j3
a6=dtoc(fj10)
j1=substr(a6,7,2)
j2=substr(a6,1,2)
j3=substr(a6,4,2)
a6=j1+'.'+j2+'.'+j3
@ prow()+1,1 say s+fj1+s+fj2+s+fj3+s+fj4+s+fj5+s+fj6+s+fj7+s+fj8;
+s+a5+s+a6+s+fj11+s+str(fj12,2)+'  '+s+fj13+s+str(fj14,10,2)+s
cont
hang=hang+1
enddo
enddo
@ prow()+1,1 say "============================================;
========================================================================;
========================================================="
@ prow()+1,140 say "╓≈╣▄:"+name1
@ prow(),155 say "╓╞▒φ:"+name
@ prow()+1,80 say '╡┌ '+str(ye,2)+' ╥│'
@ prow()+1,1 say " "
set print on
? chr(7)
set print off
set device to screen
clear
@ 3,27 say "----------------------------"
@ 4,27 say "  ╝╠ ╨° ┤≥ ╙í ┬≡ (y/n) ?  " get dy
@ 5,27 say "----------------------------"
read
enddo
endif
clear
@ 3,27 say "----------------------------"
@ 4,27 say "  ╝╠ ╨° ▓Θ ╤» ┬≡ (y/n) ?  " get xu
@ 5,27 say "----------------------------"
read
enddo
set talk on
set marg to 0
xu='y'
return