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

Text File | 1980-01-01 | 682 b | 33 lines

STORE 'Y' TO C
DO WHILE .NOT. C='N'
APPEND BLANK
CLEAR
STORE 'N' TO CD
DO WHILE CD='N'
CLEAR
@ 0,20 SAY '**********╚≤╗¼╡╡░╕┐Γ**********'
@ 2,5 SAY '╔Φ▒╕╨═║┼' GET YH1
@ 3,5 SAY '╚≤╗¼╡π▒α║┼' GET YH2
@ 4,5 SAY '╚≤╗¼╡π▓┐╬╗' GET YH3
@ 5,5 SAY '╚≤╗¼╖╜╩╜' GET YH4
@ 6,5 SAY '╣µ╢¿╙├╙═(╧─╝╛)' GET YH5
@ 2,40 SAY '╣µ╢¿╙├╙═(╢¼╝╛)' GET YH6
@ 3,40 SAY '╣µ╢¿┤·╙├╙═(╧─╝╛)' GET YH7
@ 4,40 SAY '╣µ╢¿┤·╙├╙═(╢¼╝╛)' GET YH8
@ 5,40 SAY '╗╗╙═╓▄╞┌' GET YH12
@ 6,40 SAY '╗╗╙═┴┐(KG)' GET YH13
READ
@ 8,25 SAY '╩Σ╚δ╒²╚╖┬≡?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
ENDDO
@ 8,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡?(Y/N)' GET C
STORE UPPE(C) TO C
READ
if c='n' .or. c='N'
exit
endif
ENDDO
RETURN