OpenEuphoria

Re: US flag

• Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM> Sep 18, 1998
• 816 views

ok, here it is:

flag.ex:

ùwarning

îB=26
îC={
48,49,50,51,52,53,54,55,56,57},
D=C&{
65,66,67,68,69,70},
E=C&{
45,43,46,35}
æF()
ç-(B,0)
éæ
îG=0,
H=-1,
I=1
îJ=-2
îK=1
ïL(¡M)
çM>=0
éï
ïM(¡N)
çN>=JÄN<=255
éï
L N
_O
L P
M Q
æR()
M S
üQ=Jâ
ü«(O)â
üP<=½(O)â
S=O[P]
P=P+1
çS
à
çH
éü
à
ç+(N)
éü
à
S=Q
Q=J
çS
éü
éæ
äS(M T)
Q=T
éä
äT()
M U
èKê
U=R()
üö+(U,{
32,9,10})â
É
éü
éè
S(U)
éä
îU={
110,116,39,34,92,114},
V={
10,9,39,34,92,13}
æW(M X)
L Y
Y=+(X,U)
üY=0â
çI
à
çV[Y]
éü
éæ
æX()
M Y
Y=R()
üY=92â
Y=W(R())
üY=Iâ
ç{I,0}
éü
éü
üR()!=39â
ç{I,0}
à
ç{G,Y}
éü
éæ
æY()
«Z
M a
Z={}
èKê
a=R()
üa=HÅa=10â
ç{I,0}
éü
üa=34â
É
ëa=92â
a=W(R())
üa=Iâ
ç{I,0}
éü
éü
Z=Z&a
éè
ç{G,Z}
éæ
ïZ(¡a)
ça=-1Åa=+1
éï
æa()
M b
Z c,d
L e
¡f
+g,h,i,j
c=+1
g=0
d=+1
i=0
e=0
b=R()
üb=45â
c=-1
ëb !=43â
S(b)
éü
b=R()
üb=35â
èKê
b=R()
f=+(b,D)-1
üf>=0â
e=e+1
g=g*16+f
à
S(b)
üe>0â
ç{G,c*g}
à
ç{I,0}
éü
éü
éè
éü
èb>=48Äb<=57ê
e=e+1
g=g*10+(b-48)
b=R()
éè
üb=46â
b=R()
h=10
èb>=48Äb<=57ê
e=e+1
g=g+(b-48)/h
h=h*10
b=R()
éè
éü
üe=0â
ç{I,0}
éü
üb=101Åb=69â
b=R()
üb=45â
d=-1
ëb !=43â
S(b)
éü
b=R()
üb>=48Äb<=57â
i=b-48
b=R()
èb>=48Äb<=57ê
i=i*10+b-48
b=R()
éè
S(b)
à
ç{I,0}
éü
à
S(b)
éü
j=1
üd>=0â
åk=1ìiê
j=j*10
éå
à
åk=1ìiê
j=j*0.1
éå
éü
ç{G,c*g*j}
éæ
æb()
M c
«d,e
T()
c=R()
ü+(c,E)â
S(c)
ça()
ëc=123â
d={}
èKê
T()
c=R()
üc=125â
ç{G,d}
à
S(c)
éü
e=b()
üe[1]!=Gâ
çe
éü
d=_(d,e[2])
T()
c=R()
üc=125â
ç{G,d}
ëc !=44â
ç{I,0}
éü
éè
ëc=34â
çY()
ëc=39â
çX()
ëc=-1â
ç{H,0}
à
ç{I,0}
éü
éæ
æf(¡g)
N=g
O=0
Q=J
çb()
éæ
æh(«i)
O=i
P=1
Q=J
çb()
éæ
îj=2
îk=#B8000,
c=#B0000,
d=30
îe=9,
g=10,
i=13
ïl(¡m)
çm>=0Äm<=255
éï
ÆîVC_COLOR=1,
VC_MODE=2,
VC_LINES=3,
VC_COLUMNS=4,
VC_XPIXELS=5,
VC_YPIXELS=6,
VC_NCOLORS=7,
VC_PAGES=8
Æævideo_config()
ç-(i,0)
éæ
Ææget_active_page()
ç-(d,0)
éæ
ïm(«n)
ç½(n)=2Än[1]>=1Än[2]>=1
Än[1]<=200Än[2]<=500
éï
Æätext_color(l n)
-(e,n)
éä
Æädisplay_text_image(m n,«o)
+p,q
¡r,s,t
«u
u=video_config()
üu[VC_MODE]=7â
p=c
à
p=k
éü
r=u[VC_COLUMNS]
ür=40â
p=p+get_active_page()*2048
à
p=p+get_active_page()*4096
éü
ün[1]<1Ån[2]<1â
ç
éü
t=u[VC_LINES]-n[1]+1
ü½(o)>tâ
üt<=0â
ç
éü
o=o[1..t]
éü
q=p+(n[1]-1)*r*j
+(n[2]-1)*j
s=2*(u[VC_COLUMNS]-n[2]+1)
åv=1ì½(o)ê
ü½(o[v])>sâ
üs<=0â
ç
éü
o[v]=o[v][1..s]
éü
+(q,o[v])
q=q+r*j
éå
éä
Æäbk_color(l n)
-(g,n)
éä
Ææsave_text_image(m o,m p)
«q,r,s
+t,u
¡v,n
s=video_config()
üs[VC_MODE]=7â
u=c
à
u=k
éü
v=s[VC_COLUMNS]
üv=40â
u=u+get_active_page()*2048
à
u=u+get_active_page()*4096
éü
t=u+
(o[1]-1)*v*j+
(o[2]-1)*j
q={}
n=p[2]-o[2]+1
åw=o[1]ìp[1]ê
r=-({t,n*j})
q=_(q,r)
t=t+v*j
éå
çq
éæ
«o
o=save_text_image({1,1},{25,80})
¦()
»(1,1)
text_color(15)
bk_color(1)
¼(1,{
42,42,42,42,42,42,42,42,42})
¼(1,{
10,42,42,42,42,42,42,42,42,42})
¼(1,{
10,42,42,42,42,42,42,42,42,42})
»(1,10)
bk_color(4)
¼(1,{
32,32,32,32,32,32,32,32,32,32,32,32,32})
»(2,10)
bk_color(7)
¼(1,{
32,32,32,32,32,32,32,32,32,32,32,32,32})
»(3,10)
bk_color(4)
¼(1,{
32,32,32,32,32,32,32,32,32,32,32,32,32})
bk_color(7)
»(4,1)
¼(1,{
»(2,10)
bk_color(7)
¼(1,{
32,32,32,32,32,32,32,32,32,32,32,32,32})
»(3,10)
bk_color(4)
¼(1,{
32,32,32,32,32,32,32,32,32,32,32,32,32})
bk_color(7)
»(4,1)
¼(1,{
32,32})
»(5,1)
bk_color(4)
¼(1,{
32,32})
ü+(o)â
éü
üF()â
éü
¦()
display_text_image({1,1},o)

Well, that's the end of it. You STILL get the original source code if
you guess what the Z stands for.

_____________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
Or call Juno at (800) 654-JUNO [654-5866]