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

Text File | 1979-12-31 | 3.4 KB | 126 lines

set talk off
set device to screen
stor "y" to xu
do while xu="y"
stor "                " to m
clear
@ 3,10 say "╟δ╩Σ╚δ┤²▓╔╣║╔Φ▒╕╡─╨═║┼:" get m
read
use xx
loca all for xx2=m.and.xx13<>"y"
haa=recno()
if eof()
clear
@ 3,27 say "---------------------"
@ 4,27 say "  ╬▐ ┤╦ú¿└αú⌐╔Φ ▒╕ "
@ 5,27 say "---------------------"
else
stor "y" to dy
clear
@ 1,30 say "╔Φ▒╕╡─╓≈╥¬▓╔╣║╨┼╧ó"
@ 3,0 say "╔Φ▒╕├√│╞     ╨═  ║┼          ╣µ  ╕±     ;
     ╓╞  ╘∞  │º          │÷│º╝█   ─Ω╘┬"
l=3
do while .not.eof()
@ l+1,0 say xx1+xx2+xx3+xx4+xx5+xx14
stor l+1 to l
if l=8
wait "                              * * * ░┤╗╪│╡ * * *"
@ 4,0 clear
l=3
endif
cont
enddo
wait "                              * * * ░┤╗╪│╡ * * *"
clear
@ 3,27 say "------------------------"
@ 4,27 say "  ╥¬ ┤≥ ╙í ┬≡ (y/n) ?  " get dy
@ 5,27 say "------------------------"
read
stor '|' to s
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
goto haa
hang=1
ye=1
clear
@ 3,27 say "---------------------"
@ 4,27 say "  ╟δ─·╔╘║ε,╒²╘┌┤≥╙í"
@ 5,27 say "---------------------"
set print on
? chr(27)+'IJ'
set print off
set device to print
@ 1,21 say "╨┬╔Φ▒╕▓╔╣║╨┼╧ó╟σ╡Ñ"
set print on
? chr(27)+'II'
set print off
set device to print
@ prow()+1,160 say '╓╞▒φ╚╒╞┌:'+data
do while .not.eof()
if hang>=58
@ prow()+1,1 say "====================================================;
========================================================================;
====================================================================ì
===="
@ prow()+1,150 say "╓≈╣▄:"+name1
@ prow(),165 say "╓╞▒φ:"+name
@ prow()+2,80 say '╡┌ '+str(ye,2)+' ╥│'
ye=ye+1
hang=0
@ prow()+11,0 say ' '
endif
@ prow()+1,1 say "====================================================;
========================================================================;
====================================================================ì
===="
@ prow()+1,1 say "|    ╔Φ▒╕├√│╞    |    ╨═    ║┼    |      ╣µ    ╕±      ;
|     ╓╞╘∞│º     | │÷│º╝█ |      ═Γ╨═│▀┤τ      |╫▄╓╪┴┐|   ╡τ  ╗░   |;
╡τ╣╥|      ┐¬╗º╥°╨╨      |  ╒╩  ║┼  |          ┴¬  ╧╡  ╚╦          ì
|─Ω╘┬ |"
do while .not.eof().and.hang<58
@ prow()+1,1 say "|----------------|----------------|--------------------;
|----------------|--------|--------------------|------|------------|;
----|--------------------|----------|------------------------------|-ì
----|"
@ prow()+1,1 say s+xx1+s+xx2+s+xx3+" "+s+xx4+s+xx5+s+xx6+s+str(xx7,6,2)+s+xx8+s+xx9+s+xx10;
+s+xx11+s+xx12+s+xx14+"|"
cont
hang=hang+1
enddo
enddo
@ prow()+1,1 say "=======================================================;
====================================================================;
=====================================================================ì
====="
@ prow()+1,150 say "╓≈╣▄:"+name1
@ prow(),165 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
return