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

Text File | 1980-01-01 | 422 b | 22 lines

STORE 'Y' TO C
DO WHILE .NOT. C='N'
APPEND BLANK
CLEAR
STORE 'N' TO CD
DO WHILE CD='N'
@ 1,25 SAY '╣°┬»╤╣┴ª╚▌╞≈░▓╚½╫░╓├┐Γ'
@ 3,20 SAY '╚▌╞≈▒α║┼' GET YAN1
@ 4,20 SAY '░▓╚½╫░╓├├√│╞' GET YAN2
@ 5,20 SAY '╣µ    ╕±' GET YAN3
@ 6,20 SAY '╩²    ┴┐' GET YAN4
READ
@ 8,25 SAY '╩Σ╚δ╒²╚╖┬≡?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
ENDDO
@ 8,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡?(Y/N)' GET C
READ
STORE UPPE(C) TO C
ENDDO
RETURN