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

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

STORE 'Y' TO D
DO WHILE .NOT. D='N'
CLEAR
@ 9,30 SAY '╟δ╩Σ╚δ╔Φ▒╕╓╪╥¬╢╚╩⌠╨╘┤·┬δ' GET C
READ
LOCAT FOR JDX1=C
IF EOF()
CLEAR
@ 8,30 SAY '╬▐┤╦╩⌠╨╘   '+C
ELSE
CLEAR
@ 2,5 SAY '┤·║┼' GET JDX1
@ 3,5 SAY '├√│╞' GET JDX2
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