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

Text File | 1979-12-31 | 4.3 KB | 155 lines

if eof()
clear
@ 3,27 say "------------------"
@ 4,27 say "  ╬▐ ┤╦ └α ╔Φ ▒╕  "
@ 5,27 say "------------------"
wait " "
RETU
else
CF=RECNO()
qq='e'
w='t'
do sbxue1
goto cf
if qq='r'
clos data
retu
endif
if w<>'y'
clos data
retu
endif
stor '|' to s
stor 'y' to dy
do while dy="y"
clear
sele 2
use ls index lssy alias xue1
sele 3
use gs index gssy alias xue2
sele 4
use jdx index jdxsy alias xue3
sele 5
use dw index dw1 alias xue4
sele 1
name='      '
name1='      '
data='        '
@ 3,20 say '╟δ╩Σ╚δ: ╓╞ ▒φ ╚╦ ╨╒ ├√:' get name
@ 4,20 say '        ╓≈ ╣▄ ╚╦ ╨╒ ├√:' get name1
@ 5,20 say '        ╓╞  ▒φ  ╚╒  ╞┌:' get data pict '99.99.99'
read
hang=1
ye=1
clear
@ 3,27 say "---------------------"
@ 4,27 say "  ╟δ─·╔╘║ε,╒²╘┌┤≥╙í"
@ 5,27 say "---------------------"
SET CONS OFF
set marg to 0
set print on
? chr(27)+'IJ'
set device to print
@ 1,54 say bt+"  ╔Φ  ▒╕  ╠¿  ╒╩    "
set print off
set print on
? chr(27)+'II'
set print off
SET CONS ON
set device to print
@ prow()+1,190 say '╓╞▒φ╚╒╞┌:'+data
do while .not.eof()
if hang>=30
@ prow()+1,1 say "========================================================="
@ prow(),0 say "================================================="
@ prow(),0 say "==================================================="
@ prow(),0 say "=============================================="
@ prow(),0 say "====================================="
@ prow()+1,175 say "╓≈╣▄:"+name1
@ prow(),190 say "╓╞▒φ:"+name
@ prow()+1,99 say '╡┌ '+str(ye,2)+' ╥│'
@ prow()+11,0 say ' '
ye=ye+1
hang=1
endif
@ prow()+1,1 say "========================================================="
@ prow(),0 say "================================================="
@ prow(),0 say "==================================================="
@ prow(),0 say "=============================================="
@ prow(),0 say "====================================="
@ prow()+1,1 say "|╔Φ▒╕▒α║┼ | ╣ñ╥╡╞╒▓Θ║┼ |    ╔Φ▒╕├√│╞    |   ╨═    ║┼     "
@ prow(),0 say "|    ╣µ      ╕±      | ╓╪┴┐ |   ═Γ ╨═ │▀ ┤τ      "
@ prow(),0 say "|   ╓╞ ╘∞ │º     |  ╓╞╘∞║┼  |│÷│º╚╒╞┌|╞⌠╙├╚╒╞┌|ú╞╗·"
@ prow(),0 say "|ú╞╡τ |  ╘¡ ╓╡   |╒█╛╔|╡τ╗·|╫▄╣ª┬╩ | └α  ╩⌠ | ╣▄╩⌠ |"
@ prow(),0 say "╓╪╥¬|  ╩╣╙├╡Ñ╬╗  |░▓╫░╡╪╡π    |"
@ prow()+1,1 say "|         |            |                |                "
@ prow(),0 say "|                    |      |                    "
@ prow(),0 say "|                |          |        |        |    "
@ prow(),0 say "|     |          |─Ω╧▐|╩²┴┐|       |        |      |"
@ prow(),0 say "│╠╢╚|            |            |"
do while .not.eof().and.hang<30
@ prow()+1,1 say "|---------|------------|----------------|----------------"
@ prow(),0 say "|--------------------|------|--------------------"
@ prow(),0 say "|----------------|----------|--------|--------|----"
@ prow(),0 say "|-----|----------|----|----|-------|--------|------|"
@ prow(),0 say "----|------------|------------|"
a=sb24
b=sb25
c=sb27
d=sb28
a5=dtoc(sb10)
j1=substr(a5,7,2)
j2=substr(a5,1,2)
j3=substr(a5,4,2)
a5=j1+'.'+j2+'.'+j3
a6=dtoc(sb12)
j1=substr(a6,7,2)
j2=substr(a6,1,2)
j3=substr(a6,4,2)
a6=j1+'.'+j2+'.'+j3
sele 2
seek a
sele 3
seek b
sele 4
seek c
sele 5
seek d
sele 1
@ prow()+1,1 say s+sb1+s+sb2+s+sb3+s+sb4
@ prow(),0 say s+sb5+s+str(sb6,6,2)+s+sb7
@ prow(),0 say s+sb8+s+sb9+s+a5+s+a6+s+str(sb13,4,1)+s
@ prow(),0 say str(sb14,5,1)+s+str(sb15,10,2)+s+str(sb16,2)+"  "+s
@ prow(),0 say str(sb20,2)+"  "+s+str(sb22,7,2)+s+xue1->ls2+s+xue2->gs2+s
@ prow(),0 say xue3->jdx2+s+xue4->dw2+s+sb29+s
cont
hang=hang+1
enddo
enddo
@ prow()+1,1 say "========================================================="
@ prow(),0 say "================================================="
@ prow(),0 say "==================================================="
@ prow(),0 say "=============================================="
@ prow(),0 say "====================================="
@ prow()+1,175 say "╓≈╣▄:"+name1
@ prow(),190 say "╓╞▒φ:"+name
@ prow()+1,99 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
goto CF
enddo
endif
set marg to 0
close databases
xu='y'
return