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

Text File | 1979-12-31 | 654 b | 33 lines

clear
set talk off
set device to screen
close database
a1=.t.
do while a1
clear
@ 3,10 say "********************┼╠┐Γ╙δ▒¿╖╧╩Σ╚δ*******************"
@ 4,10 say " ú░ú«═╦│÷                      ú▒ú«┤≥╙í╒╩├µ┐Γ┤µ"
@ 5,10 say " ú▓ú«┼╠╙»╩Σ╚δ                  ú│ú«┼╠┐≈╩Σ╚δ"
@ 6,10 say " ú┤ú«▒¿╖╧╔Φ▒╕╡─╩Σ╚δ            ú╡ú«▒¿╖╧▒╕╝■╡─╩Σ╚δ"
@ 7,10 say "****************************************************"
wait '          ╟δ╤í╘±╩Σ╚δ║┼(0,1,2,3,4,5):' to w
do case
case w='0'
retu
case w='1'
do ph1.prg
case w='2'
q='y'
do ph3.prg
case w='3'
q='n'
do ph3.prg
case w='4'
do ph4.prg
case w='5'
do ph5.prg
endcase
enddo a1
a1=.t.
retu