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

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

STORE 'Y' TO D
DO WHILE .NOT. (D='N' .or. d='n')
CLEAR
c='  '
@ 9,30 SAY '╟δ╩Σ╚δ╘¡╥≥┤·┬δ:' GET C
READ
LOCAT FOR YIN1=C
IF EOF()
CLEAR
@ 8,30 SAY '╬▐┤╦╘¡╥≥┤·┬δ  '+C
ELSE
CLEAR
CLEAR
@ 2,5 SAY '╘¡╥≥┤·┬δ' GET YIN1
@ 3,5 SAY '╘¡╥≥─┌╚▌' GET YIN2
READ
ENDIF
@ 9,30 SAY '╗╣╨▐╕─┬≡?' GET D
READ
IF D='Y' .or. d='y'
GOTO TOP
LOOP
ENDIF
ENDDO
RETURN