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

Text File | 1979-12-31 | 319 b | 19 lines

STORE 'Y' TO C
DO WHILE .NOT. C='N'
APPEND BLANK
CLEAR
STORE 'N' TO CD
DO WHILE CD='N'
@ 3,15 SAY '╔Φ▒╕╨═║┼' GET GY1
@ 4,15 SAY '▓┐ ╬╗ ┬δ' GET GY2
@ 5,15 SAY '╣ñ╥╒─┌╚▌' GET GY3
READ
@ 7,25 SAY '╩Σ╚δ╒²╚╖┬≡ ? (Y/N)' GET CD
READ
ENDDO
@ 7,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡ ? (Y/N)' GET C
READ
c=uppe(c)
ENDDO
RETURN