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

Text File | 1980-01-01 | 568 b | 27 lines

*********************
*  ╔╛  │²  ╝╟  ┬╝   *
*********************
SET DEVICE TO SCREEN
SET TALK OFF
STORE '  ' TO B
DO WHILE .NOT. B='0'
CLEAR
@ 3,15 SAY '**************** ╔╛  │²  ╝╟  ┬╝ *****************'
@ 4,15 SAY 'ú░ú«═╦│÷                        ú▒ú«╘¡╩╝╡╡░╕'
@ 5,15 SAY 'ú▓ú«╖┤└í╨┼╧ó                    ú│ú«┤·┬δ'
@ 6,15 say "************************************************"
wait '              ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3): 'to B
DO CASE
CASE B='1'
DO E1
CASE B='2'
DO E2
CASE B='3'
DO E3
CASE B='0'
LOOP
ENDCASE
STORE '  ' TO B
ENDDO
RETURN