Liren Large Software Subsidy 5/05.iso/a/a070/2.ddi/FOXPRO/US.PRG

Text File | 1991-06-14 | 2.5 KB | 104 lines

PARAMETERS U00
CLEAR
JF=" "
SELECT 7
DO US0
DO US1
Z0=0
DO WHILE Z0=0
    Z0=1
    C0=0
    @ 23,0 CLEAR
    SET COLOR TO GR+/R
    @ 23,0 SAY SPACE(80)
    @ 23,1 SAY "╟δ░┤╣Γ▒Ω╤í╘±╧┬┴╨▓┘╫≈:"
    SET COLOR TO G/N
    @ 24,5 PROMPT "0:═╦│÷"
    @ 24,15 PROMPT "1:╔≤╝╞╒╩╬±▓╬╩²╠ε╨┤"
    @ 24,37 PROMPT "2:╔Φ╓├▒╗╔≤╒╩"
    MENU TO C0
    DO CASE
    CASE C0>3
        EXIT
        S=0
    CASE C0=1
        RETURN
    CASE C0=2
        SET COLOR TO GR+/R
        @ 23,0 SAY SPACE(80)
        @ 23,0 SAY "╟δ╩Σ╚δ╠ε╨┤╨≥║┼:" GET NO PICT "9"
        READ
        SET COLOR TO G/N
        IF NO<>0
            GOTO NO
            N=NO+5
            @ N,0 SAY STR(RECNO(),1)
            @ N,4 SAY ╡Ñ╬╗├√│╞
            @ N,30 SAY ╒╩╬±─┌╚▌
            IF ╝╟╒╩╖╜╖¿="1"
                @ N,38 SAY "╜Φ┤√"
            ENDIF
            IF ╝╟╒╩╖╜╖¿="2"
                @ N,38 SAY "╩╒╕╢"
            ENDIF
            @ N,44 SAY ╜Φ
            @ N,48 SAY ┤√
            @ N,53 SAY ╝╟╒╩─Ω
            @ N,58 SAY ┬╖╛╢├√
            @ N,66 SAY ┤ª└φ▒Ω╓╛
            @ N,70 SAY ╔≤╝╞▒Ω╓╛
            @ N,74 SAY ╔Φ┤·┬δ│ñ╢╚
            @ N,4 GET ╡Ñ╬╗├√│╞
            READ
            @ N,30 GET ╒╩╬±─┌╚▌
            READ
            C5=0
            DO WHILE C5=0
                C5=1
                SET COLOR TO GR+/R
                @ 23,0 SAY SPACE(80)
                @ 23,0 SAY "╟δ╩Σ╚δ╝╟╒╩╖╜╖¿(1╬¬╜Φ┤√ 2╬¬╩╒╕╢):" GET JF
                READ
                SET COLOR TO G/N
                IF VAL(JF)>2
                    C5=0
                ELSE
                    EXIT
                ENDIF
            ENDDO
            IF JF="1"
                REPLACE ╝╟╒╩╖╜╖¿ WITH JF
                @ N,38 SAY "╜Φ┤√"
            ENDIF
            IF JF="2"
                REPLACE ╝╟╒╩╖╜╖¿ WITH JF
                @ N,38 SAY "╩╒╕╢"
            ENDIF
            @ N,44 GET ╜Φ
            @ N,48 GET ┤√
            @ N,53 GET ╝╟╒╩─Ω
            READ
            @ N,58 GET ┬╖╛╢├√
            @ N,66 GET ┤ª└φ▒Ω╓╛
            @ N,74 GET ╔Φ┤·┬δ│ñ╢╚
            READ
        ENDIF
        Z0=0
    CASE C0=3
        SET COLOR TO GR+/R
        @ 23,0 SAY SPACE(80)
        @ 23,0 SAY "╟δ╩Σ╚δ╠ε╨┤╨≥║┼:" GET NO PICT "9"
        READ
        SET COLOR TO G/N
        IF NO<>0
            REPLACE ALL ╔≤╝╞▒Ω╓╛ WITH " "
            GOTO NO
            REPLACE ╔≤╝╞▒Ω╓╛ WITH "Y"
            DO US1
        ENDIF
        Z0=0
    ENDCASE
ENDDO
RETURN