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

Text File | 1980-01-01 | 561 b | 24 lines

STORE 'Y' TO C
DO WHILE .NOT. C='N'
APPE BLAN
CLEAR
@ 1,10 SAY '╔Φ▒╕▒α║┼' GET JF1
@ 2,10 SAY '╨▐└φ└α▒≡' GET JF2
@ 3,10 SAY '╨▐└φ╚╒╞┌' GET JF3
@ 4,10 SAY '╟»╣ñ╣ñ╩▒' GET JF4
@ 5,10 SAY '╡τ╣ñ╣ñ╩▒' GET JF5
@ 6,10 SAY '╞≡╓╪╣ñ╩▒' GET JF6
@ 7,10 SAY '║╕╣ñ╣ñ╩▒' GET JF7
@ 1,40 SAY '╩╡═ú╨¬╠∞╩²' GET JF8
@ 2,40 SAY '╞Σ╦ⁿ╣ñ╩▒' GET JF9
@ 3,40 SAY '▒╕ ╝■ ╖╤' GET JF10
@ 4,40 SAY '▓─ ┴╧ ╖╤' GET JF11
@ 5,40 SAY '╣ñ ╩▒ ╖╤' GET JF12
@ 6,40 SAY '═Γ╬»╝╙╣ñ╖╤' GET JF13
@ 7,40 SAY '╞Σ ╦ⁿ ╖╤' GET JF14
READ
@ 9,25 SAY '╗╣╝╠╨°╩Σ╚δ┬≡?' GET C
READ
ENDDO
RETURN