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

Text File | 1979-12-31 | 706 b | 31 lines

STORE 'Y' TO C
DO WHILE .NOT. C='N'
APPEND BLANK
CLEAR
STORE 'N' TO CD
DO WHILE CD='N'
@ 1,10 SAY '╔Φ▒╕├√│╞' GET XX1
@ 2,10 SAY '╨═    ║┼' GET XX2
@ 3,10 SAY '╣µ    ╕±' GET XX3
@ 4,10 SAY '╓╞ ╘∞ │º' GET XX4
@ 5,10 SAY '│÷ │º ╝█' GET XX5
@ 6,10 SAY '═Γ╨╬│▀┤τ' GET XX6
@ 1,40 SAY '╫▄ ╓╪ ┴┐' GET XX7
@ 2,40 SAY '╡τ    ╗░' GET XX8
@ 3,40 SAY '╡τ    ╣╥' GET XX9
@ 4,40 SAY '┐¬╗º╥°╨╨' GET XX10
@ 5,40 SAY '╒╩    ║┼' GET XX11
@ 6,40 SAY '┴¬ ╧╡ ╚╦' GET XX12
@ 7,10 SAY '╨┬╨═║┼╗╣╩╟╠╘╠¡╨═?(Y╨┬/N╠╘)' GET XX13
@ 7,40 say "─Ω╘┬" get xx14
READ
@ 9,25 SAY '╩Σ╚δ╒²╚╖┬≡?(Y/N)' GET CD
READ
STORE UPPE(CD) TO CD
ENDDO
@ 9,25 SAY '╗╣╝╠╨°╩Σ╚δ╩²╛▌┬≡ ?' GET C
READ
STORE UPPE(C) TO C
ENDDO
RETURN