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

Text File | 1979-12-31 | 1.9 KB | 83 lines

clear
set talk off
set device to screen
close database
sele 2
use bjh
sele 1
use ysg
a='     '
@ 4,10 say "╟δ╩Σ╚δ─Ω╖▌║═╘┬╖▌:" get a pict 'xx.xx'
read
clear
sele 2
count to x
@ 1,0 say "─Ω.╘┬  ╩┬╣╩┤╬╩²  ╓≈╥¬╔Φ▒╕╠¿╩²  ╩┬╣╩┬╩  ═ú╗·╠¿╩▒  ╓▒╜╙╦≡╩º  ╝Σ╜╙╦≡╩º  ì
    ╨▐└φ╖╤"
sele 1
loca for y1<=a
l=2
do while .not. eof()
@ l,0 say " "+y1
@ l,9 say " "+str(y2,5)
@ l,17 say " "+str(x,6)
e=y2*100/x
repl y7 with x
@ l,26 say " "+str(e,8,2)
@ l,34 say " "+str(y3,8,1)
@ l,45 say " "+str(y4,10,2)
@ l,56 say " "+str(y5,10,2)
@ l,67 say " "+str(y6,10,2)
l=l+1
cont
enddo
wait '┤≥╙í┬≡(Y/N)' to w
if w<>'y'
close database
retu
endif
set device to print
? chr(27)+"IJ"
@ prow()+1,30 say "╔Φ▒╕╩┬╣╩╞╡┬╩"
@ prow()+1,1 say "             "
@ prow()+1,1 say ì
"=================================================================ì
================="
@ prow()+1,1 say "|     |        |            |        |            ╩┬╣╩╦≡╩º             ì
          |"
@ prow()+1,1 say "|─Ω.╘┬|╩┬╣╩┤╬╩²|╓≈╥¬╔Φ▒╕╠¿╩²|╩┬╣╩╞╡┬╩ì
|----------|----------|----------|----------|"
@ prow()+1,1 say "|     |        |            |        |═ú╗·╠¿╩▒  |╓▒╜╙╦≡╩º  ì
|╝Σ╜╙╦≡╩º  |╨▐└φ╖╤    |"
@ prow()+1,1 say ì
"|-----|--------|------------|--------|----------|----------|----------|-------ì
---|"
loca for y1<=a
do while .not. eof()
@ prow()+1,1 say "|"+y1
@ prow(),7 say "|"+str(y2,5)
@ prow(),16 say "|"+str(y7,6)
e=y2*100/y7
@ prow(),29 say "|"+str(e,8,2)
@ prow(),38 say "|"+str(y3,8,1)
@ prow(),49 say "|"+str(y4,10,2)
@ prow(),60 say "|"+str(y5,10,2)
@ prow(),71 say "|"+str(y6,10,2)+"|"
cont
if eof()
@ prow()+1,1 say ì
"=================================================================ì
================="
else
@ prow()+1,1 say ì
"|-----|--------|------------|--------|----------|----------|-----ì
-----|----------|"
endif
enddo
set print on
? chr(13)
set print off
set device to screen
close database
retu