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

Text File | 1979-12-31 | 2.2 KB | 99 lines

clear
set exac on
public p100
p100='        '
@ 4,15 say "╟δ╩Σ╚δ╜±╠∞╡─╚╒╞┌" get p100 pict '99.99.99'
read
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 2,10 say "*********************╔Φ▒╕╣▄└φ╫▄┐╪**********************"
@ 3,10 say "  ú░ú ═╦│÷                      ú▒ú«╟░╞┌╣▄└φ"
@ 4,10 say "  ú▓ú«╩╣╙├╞┌╣▄└φ                ú│ú«║≤╞┌╖╓╬÷"
@ 5,10 say "  ú┤ú«╕≈╓╓═╝╨╬╧╘╩╛              ú╡ú«╚φ╝■╬¼╗ñ"
@ 6,10 say "  ú╢ú«▒╕╝■╣▄└φ                  ú╖ú«═°┬τ╣µ╗«"
@ 7,10 say "*******************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7):' to w
do case
case w='0'
retu
case w='7'
run basica pert
case w='6'
do bj
case w='1'
a3=.t.
do while a3
clear
@ 3,10 say "****************╟░╞┌╣▄└φ***********************"
@ 4,10 say "  ú░ú«═╦│÷                  ú▒ú«═╢╫╩╛¡╝├╖╓╬÷"
@ 5,10 say "  ú▓ú«╫¿╝╥╞└╣└              ú│ú«╓╞╘∞│º╨┼╧ó▓Θ╤» "
@ 6,10 say "  ú┤ú«╔Φ▒╕║╧═¼╣▄└φ"
@ 7,10 say "***********************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4):' to q
do case
case q='0'
exit
case q='1'
y=5
do xxfx.prg
case q='2'
do c:xzp
case q='3'
do xx.prg
case q='4'
do ht
endcase
enddo a3
case w='2'
do sb.prg
case w='3'
do hq.prg
case w='5'
a9=.t.
do while a9
clear
@ 3,15 say "*********************╚φ╝■╬¼╗ñ***********************"
@ 4,15 say "     ú░ú«═╦│÷                ú▒ú«╩²╛▌┐Γ╡─▒╕╖▌"
@ 5,15 say "     ú▓ú«╩²╛▌╝╟┬╝╡─╔╛│²"
@ 6,15 say "****************************************************"
wait "              ╟δ╩Σ╚δ╤í╘±║┼(0,1,2)" to pp
do case
case pp='0'
exit
case pp='1'
do wh.prg
case pp='2'
do wh1.prg
endcase
enddo a9
case w='4'
a5=.t.
do while a5
clear
@ 2,10 say "****************╕≈╓╓═╝╨╬╧╘╩╛*******************"
@ 3,10 say " ú░ú«═╦│÷                 ú▒ú«╗¡╓▒╖╜═╝"
@ 4,10 say " ú▓ú«╗¡╒█╧▀═╝             ú│ú«╗¡╔╚╨╬═╝ú¿╘┬ú⌐"
@ 5,10 say " ú┤ú«╗¡╔╚╨╬═╝ú¿─Ω╢╚ú⌐  "
@ 6,10 say "***********************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4):' to q1
do case
case q1='0'
exit
case q1='1'
do tx.prg
case q1='2'
do tx1.prg
case q1='3'
do tx2.prg
case q1='4'
do tx5
endcase
enddo a5
endcase
enddo a1
retu