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

Text File | 1980-01-01 | 371 b | 26 lines

STORE 'Y' TO D
DO WHILE .NOT. D='N'
CLEAR
@ 9,30 SAY '╟δ╩Σ╚δ╬¼╨▐╫Θ┤·┬δ' GET C
READ
LOCAT FOR WX1=C
IF EOF()
CLEAR
@ 8,30 SAY '╬▐┤╦╬¼╨▐╫Θ┤·┬δ  '+C
ELSE
CLEAR
@ 2,5 SAY '╬¼╨▐░α╫Θ┤·║┼' GET WX1
@ 3,5 SAY '╬¼╨▐░α╫Θ├√│╞' GET WX2
READ
ENDIF
@ 9,30 SAY '╗╣╨▐╕─┬≡?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '  ' TO C
LOOP
ENDIF
ENDDO
RETURN