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

Text File | 1980-01-01 | 999 b | 56 lines

STORE ' ' 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 'Y' TO CD
DO WHILE .NOT. EOF() .AND. CD='Y'
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,5 SAY '┴¬╧╡╚╦:'+XX12
@ 6,48 SAY '╨┬╨═║┼╗╣╩╟╠╘╠¡╨═?(Y╨┬/N╠╘):'+XX13
@ 7,25 SAY '╩╟╥¬╔╛│²╒Γ╠⌡╝╟┬╝┬≡?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
IF CD='Y'
DELE
ENDIF
@ 8,25 SAY '╗╣╥¬╔╛│²═¼├√╞Σ╦ⁿ└α╨═╔Φ▒╕┬≡?' GET CD
READ
STORE UPPE(CD) TO CD
CONT
IF CD='Y'
IF EOF()=.T.
CLEAR
@ 4,25 SAY '╘┘╬▐┤╦└α╔Φ▒╕'
ENDIF
ENDIF
ENDDO
ENDIF
@ 7,25 SAY '╗╣╝╠╨°╔╛│²╩²╛▌┬≡ ?' GET D
READ
STORE UPPE(D) TO D
IF D='Y'
GOTO TOP
STORE '                ' TO C
LOOP
ENDIF
PACK
ENDDO
RETURN