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

Text File | 1980-01-01 | 1.3 KB | 68 lines

STORE 'Y' TO D
DO WHILE .NOT. D='N'
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╔Φ▒╕├√│╞' GET C
READ
LOCAT FOR XX1=C
IF EOF()
CLEAR
@ 5,25 SAY '╬▐┤╦└α╔Φ▒╕  '+C
ELSE
STORE 'N' TO CD
DO WHILE .NOT. EOF() .AND. CD='N'
CLEAR
@ 1,10 SAY '╔Φ▒╕├√│╞:  '+XX1
@ 1,40 SAY '╨═║┼'+XX2
@ 2,10 SAY '╣µ╕±'+XX3
@ 2,40 SAY '╓╞╘∞│º'+XX4
@ 3,10 SAY '│÷│º╝█'+XX5
@ 3,30 SAY '═Γ╨╬│▀┤τ'+XX6
@ 4,10 SAY '╫▄╓╪┴┐'+STR(XX7,6,2)
@ 4,25 SAY '╡τ╗░'+XX8
@ 4,50 SAY '╡τ╣╥'+XX9
@ 5,10 SAY '┐¬╗º╥°╨╨'+XX10
@ 5,40 SAY '╒╩║┼'+XX11
@ 6,20 SAY '┴¬╧╡╚╦'+XX12
@ 7,20 SAY '╨┬╨═║┼╗╣╩╟╠╘╠¡╨═?(Y╨┬/N╠╘)'+XX13
READ
@ 8,25 SAY '╩╟╒Γ╠⌡╝╟┬╝┬≡?' GET CD
READ
STORE UPPE(CD) TO CD
STORE RECNO() TO A
CONT
IF CD='N'
IF EOF()=.T.
CLEAR
@ 4,25 SAY '╘┘╬▐┤╦└α╔Φ▒╕'
ENDIF
ENDIF
IF CD='Y'
GO A
CLEAR
@ 1,10 SAY '╔Φ▒╕├√│╞' GET XX1
@ 1,40 SAY '╨═║┼' GET XX2
@ 2,10 SAY '╣µ╕±' GET XX3
@ 2,40 SAY '╓╞╘∞│º' GET XX4
@ 3,10 SAY '│÷│º╝█' GET XX5
@ 3,30 SAY '═Γ╨╬│▀┤τ' GET XX6
@ 4,10 SAY '╫▄╓╪┴┐' GET XX7
@ 4,25 SAY '╡τ╗░' GET XX8
@ 4,50 SAY '╡τ╣╥' GET XX9
@ 5,10 SAY '┐¬╗º╥°╨╨' GET XX10
@ 5,40 SAY '╒╩║┼' GET XX11
@ 6,20 SAY '┴¬╧╡╚╦' GET XX12
READ
ENDIF
ENDDO
ENDIF
@ 9,25 SAY '╗╣╝╠╨°╨▐╕─╩²╛▌┬≡ ?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '                ' TO C
LOOP
ENDIF
ENDDO
RETURN