1. US flag
- Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM> Sep 18, 1998
- 447 views
I made a US flag program, and shrouded it. If anybody wants it unshrouded, you must guess what my middle initial stands for(Z). HinT: It's a Z name
2. Re: US flag
- Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM> Sep 18, 1998
- 463 views
- Last edited Sep 19, 1998
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]
3. Re: US flag
- Posted by Noah Smith <nhs6080 at UNIX.TAMU.EDU> Sep 18, 1998
- 450 views
Would it be, perhaps *deep breath*: Zac, Zacarias, Zacariaz, Zacario, Zacaris, Zaccaria, Zacchaeus, Zach, Zachaios, Zachariah, Zacharias, Zacharie, Zacharjasz, Zachary, Zachery, Zack, Zackry, Zaed, Zafar, Zahid, Zahair, Zahavi, Zahir, Zahur, Zaid, Zak, Zakai, Zakarias, Zakarij, Zakariyya, Zaki, Zakur, Zameer, Zamir, Zan, Zander, Zane, Zaquarias, Zareb, Zarek, Zavad, Zavdiel, Zavier, Zavior, Zay, Zayd, Zbigniew, Zbyhnev, Zdenek, Zdeslav, Zdzislaw, Zeb, Zebadiah, Zebedee, Zebulon, Zebulun, Zechariah, Zecharya, Zedekiah, Zeeman, Zehariah, Zeheb, Zeke, Zeki, Zelimir, Zemariah, Zeno, Zenobios, Zenon, Zenos, Zenzel, Zephaniah, Zephyrus, Zerach, Zerachia, Zerem, Zerika, Zesiro, Zethus, Zeus, Zev, Zevach, Zevachiah, Zevadiah, Zevid, Zevulun, Zhanmiao, Zhihua, Zhiyu, Zhong, Zhu, Zhuang, Zig, Ziggy, Zikomo, Zimon, Zimran, Zimri, Zinan, Zinova, Zinte, Zipkiyah, Zitkaduta, Zitomir, Ziv, Zivan, Ziven, Ziya, Ziyad, Zlatan, Zlavador, Zollie, Zolly, Zoltan, Zomeir, Zorya, Zotom, Zsigmond, Zuberi, Zubin, Zuhayr, Zwi, Zygmunt, or Zyrillus? Snortboy And, His Friend, The Internet
4. Re: US flag
- Posted by Matt Z Nunyabidness <matt1421 at JUNO.COM> Sep 18, 1998
- 440 views
- Last edited Sep 19, 1998
wrong. guess again _____________________________________________________________________ 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]
5. Re: US flag
- Posted by John Worthington <woodmage at EARTHLINK.NET> Sep 18, 1998
- 454 views
- Last edited Sep 19, 1998
Noah Smith wrote: > Would it be, perhaps *deep breath*: > Zac, Zacarias, Zacariaz, Zacario, Zacaris, Zaccaria, Zacchaeus, Zach, > Zachaios, Zachariah, > Zacharias, Zacharie, Zacharjasz, Zachary, Zachery, Zack, Zackry, Zaed, > Zafar, Zahid, Zahair, > Zahavi, Zahir, Zahur, Zaid, Zak, Zakai, Zakarias, Zakarij, Zakariyya, > Zaki, Zakur, Zameer, > Zamir, Zan, Zander, Zane, Zaquarias, Zareb, Zarek, Zavad, Zavdiel, Zavier, > Zavior, Zay, Zayd, > Zbigniew, Zbyhnev, Zdenek, Zdeslav, Zdzislaw, Zeb, Zebadiah, Zebedee, > Zebulon, Zebulun, > Zechariah, Zecharya, Zedekiah, Zeeman, Zehariah, Zeheb, Zeke, Zeki, > Zelimir, Zemariah, Zeno, > Zenobios, Zenon, Zenos, Zenzel, Zephaniah, Zephyrus, Zerach, Zerachia, > Zerem, Zerika, Zesiro, > Zethus, Zeus, Zev, Zevach, Zevachiah, Zevadiah, Zevid, Zevulun, Zhanmiao, > Zhihua, Zhiyu, > Zhong, Zhu, Zhuang, Zig, Ziggy, Zikomo, Zimon, Zimran, Zimri, Zinan, > Zinova, Zinte, Zipkiyah, > Zitkaduta, Zitomir, Ziv, Zivan, Ziven, Ziya, Ziyad, Zlatan, Zlavador, > Zollie, Zolly, Zoltan, > Zomeir, Zorya, Zotom, Zsigmond, Zuberi, Zubin, Zuhayr, Zwi, Zygmunt, or > Zyrillus? What? No Zebediah? <grin> -- \/\/ood/\/\age -------------------------------------------------------------------- * My ICQ# is: 17965736 * Page me online: http://wwp.mirabilis.com/17965736 * Send me E-mail Express: 17965736 at pager.mirabilis.com * Visit my web page: http://www.biosys.net/woodmage --------------------------------------------------------------------
6. Re: US flag
- Posted by Noah Smith <nhs6080 at UNIX.TAMU.EDU> Sep 19, 1998
- 440 views
Actually, I checked for it specifically: It was under the alternate spelling of "Zebadiah" snortboy John Worthington wrote: > What? No Zebediah? <grin> > > -- > \/\/ood/\/\age > > -------------------------------------------------------------------- > * My ICQ# is: 17965736 > * Page me online: http://wwp.mirabilis.com/17965736 > * Send me E-mail Express: 17965736 at pager.mirabilis.com > * Visit my web page: http://www.biosys.net/woodmage > -------------------------------------------------------------------- >
7. Re: US flag
- Posted by John Worthington <woodmage at EARTHLINK.NET> Sep 19, 1998
- 438 views
Whoops! That's what I get for just searching and not reading. ;') Noah Smith wrote: > > Actually, I checked for it specifically: > > It was under the alternate spelling of "Zebadiah" > > snortboy > > John Worthington wrote: > > > What? No Zebediah? <grin> > > > > -- > > \/\/ood/\/\age > > > > -------------------------------------------------------------------- > > * My ICQ# is: 17965736 > > * Page me online: http://wwp.mirabilis.com/17965736 > > * Send me E-mail Express: 17965736 at pager.mirabilis.com > > * Visit my web page: http://www.biosys.net/woodmage > > -------------------------------------------------------------------- > > -- \/\/ood/\/\age -------------------------------------------------------------------- * My ICQ# is: 17965736 * Page me online: http://wwp.mirabilis.com/17965736 * Send me E-mail Express: 17965736 at pager.mirabilis.com * Visit my web page: http://www.biosys.net/woodmage --------------------------------------------------------------------