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

Text File | 1980-01-01 | 688 b | 37 lines

STORE 'Y' TO D
DO WHILE .NOT. D='N'
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╣ñ╫≈╓ñ║┼' GET C
READ
LOCAT FOR RS1=C
IF EOF()
CLEAR
@ 6,25 SAY '╬▐┤╦╣ñ╫≈╓ñ║┼╡─╝╟┬╝  '+C
ELSE
CLEAR
@ 1,5 SAY '╣ñ╫≈╓ñ║┼' GET RS1
@ 1,20 SAY '╨╒├√' GET RS2
@ 2,5 SAY '╨╘▒≡' GET RS3
@ 2,20 SAY '─Ω┴Σ' GET RS4
@ 3,5 SAY '╬─╗»╦«╞╜' GET RS5
@ 3,20 SAY '╝╝╩⌡╡╚╝╢' GET RS6
@ 4,5 SAY '╓░╬±' GET RS7
@ 4,20 SAY '╓░│╞' GET RS8
@ 5,5 SAY '╣ñ╫╩' GET RS9
@ 5,17 SAY '╒■╓╬├µ├▓' GET RS10
@ 6,5 SAY '╡Ñ╬╗▒α║┼' GET RS11
@ 6,20 SAY '╣ñ╫≈╡τ╗░' GET RS13
@ 7,5 SAY '└═┴ª╦«╞╜' GET RS12
READ
ENDIF
@ 9,25 SAY '╗╣╝╠╨°╨▐╕─┬≡ ?' GET D
READ
STOR UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '     ' TO C
LOOP
ENDIF
ENDDO
RETURN