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

Text File | 1980-01-01 | 524 b | 28 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 "*************************************************"
wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3)' to w
do case
case w='0'
retu
case w='1'
p=1
do jj.prg
case w='2'
p=2
do jj.prg
case w='3'
p=3
do jj.prg
endcase
enddo a1
retu