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

Text File | 1979-12-31 | 484 b | 31 lines

use dgm
sTORE 'Y' TO D
DO WHILE .NOT. D='N'
c='  '
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╡Ñ╬╗┤·║┼' GET C
READ
LOCAT FOR DGM1=C
IF EOF()
CLEAR
@ 5,25 SAY '╬▐┤╦╡Ñ╬╗╝╟┬╝  '+C
ELSE
CLEAR
@ 2,10 SAY '╣▄╡└╛▓├▄╖Γ╡π╩²' GET DGM2
@ 3,10 SAY '╡Ñ╬╗┤·┬δ' GET DGM1
@ 4,10 SAY '╢╘╕≈╡Ñ╬╗╥¬╟≤╛▓╨╣┬⌐┬╩' GET DGM3
@ 5,10 SAY '╢╘╕≈╡Ñ╬╗╥¬╟≤╢»╨╣┬⌐┬╩' GET DGM4
READ
ENDIF
@ 9,25 SAY '╗╣╝╠╨°╨▐╕─┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '  ' TO C
LOOP
ENDIF
ENDDO
use
RETURN