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

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

use yh
set index to yh2
STORE 'Y' TO D
DO WHILE .NOT. D='N'
c='                '
d='   '
CLEAR
@ 4,25 SAY '╟δ╩Σ╚δ╔Φ▒╕╨═║┼' GET C
READ
LOCAT FOR YH1=C
IF EOF()
CLEAR
@ 4,25 SAY '╬▐┤╦╚≤╗¼╡╡░╕  '+C
ELSE
STORE 'N' TO W
DO WHILE W='N'.AND.(.NOT.EOF())
CLEAR
@ 1,20 SAY '**********╚≤╗¼╡╡░╕┐Γ**********'
@ 2,5 SAY '╔Φ▒╕╨═║┼'+YH1
@ 2,50 SAY '╚≤╗¼╡π▒α║┼'+YH2
@ 3,5 SAY '╚≤╗¼╡π▓┐╬╗'+YH3
@ 3,50 SAY '╚≤╗¼╖╜╩╜'+YH4
@ 4,5 SAY '╣µ╢¿╙├╙═(╧─╝╛)'+YH5
@ 4,50 SAY '╣µ╢¿╙├╙═(╢¼╝╛)'+YH6
@ 5,5 SAY '╣µ╢¿┤·╙├╙═(╧─╝╛)'+YH7
@ 5,50 SAY '╣µ╢¿┤·╙├╙═(╢¼╝╛)'+YH8
@ 6,5 SAY '╗╗╙═╓▄╞┌'+STR(YH12,3,0)
@ 6,50 SAY '╗╗╙═┴┐(KG)'+STR(YH13,3,0)
@ 7,25 SAY '╩╟╒Γ╠⌡╝╟┬╝┬≡?(Y/N)' GET W
READ
STORE UPPE(W) TO W
STORE RECNO() TO A
CONT
IF W='N' .AND. EOF()
@ 8,25 SAY '╘┘╬▐┤╦╝╟┬╝'
ENDIF
IF W='Y'
GO A
CLEAR
@ 1,20 SAY '**********╚≤╗¼╡╡░╕┐Γ**********'
@ 2,5 SAY '╔Φ▒╕╨═║┼' GET YH1
@ 2,50 SAY '╚≤╗¼╡π▒α║┼' GET YH2
@ 3,5 SAY '╚≤╗¼╡π▓┐╬╗' GET YH3
@ 3,50 SAY '╚≤╗¼╖╜╩╜' GET YH4
@ 4,5 SAY '╣µ╢¿╙├╙═(╧─╝╛)' GET YH5
@ 4,50 SAY '╣µ╢¿╙├╙═(╢¼╝╛)' GET YH6
@ 5,5 SAY '╣µ╢¿┤·╙├╙═(╧─╝╛)' GET YH7
@ 5,50 SAY '╣µ╢¿┤·╙├╙═(╢¼╝╛)' GET YH8
@ 6,5 SAY '╗╗╙═╓▄╞┌' GET YH12
@ 6,50 SAY '╗╗╙═┴┐(KG)' GET YH13
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