网页之多变的滚动字幕特效

zw2004

<script language="JavaScript">* o8 g6 Q0 F2 h4 M/ [4 e) ^3 n5 y- Q3 w
$ w0 r' V: ^2 G* H. g
<!-- ActiveASCII by Neal Kanodia (please, don't delete this line)
! y& V2 d2 a: @, D1 b: l2 c5 ?) R( \( j- k# x1 T
function createArr(num) { for(var i = 0; i < num; i++) { this = null } }
+ b4 {6 |; S" H. p/ k  H) e( ufunction fillArr(tx,me,ti,wa) { this.text = tx;  this.method = me.toLowerCase();  this.ticks = ti;  this.wait = wa }
; V. o; P3 E7 A+ m9 _2 A! _function block(num,txt,mthod,tcks,wit) { blocks[num] = new fillArr(txt,mthod,tcks,wit) }4 |+ Q+ \* j3 X. A, j2 E6 o6 [9 \
function ms(unt) { var sp = "";  for( var i = 1; i <= unt; i++ ) { sp += " " } return(sp) }
+ L: g6 |3 k0 d! B( F6 Gfunction Activate() { if (cblock == max) { cblock = 0;  if (iloop == 0) { loops--;  if (loops == 0) { meth = "0" } else { meth = blocks[cblock].method } } else { meth = blocks[cblock].method } } else { meth = blocks[cblock].method }
4 D% k; Y" q7 V- ~: mif (meth == "0") { document.Active.ASCII.value = end }) P* ^/ m- h8 p% E  m+ w
if (meth == "display") { Tape = blocks[cblock].text;  Wait = blocks[cblock].wait;  Display() }3 F4 Z$ Y# C6 p6 O9 C  E! ^5 _5 ?9 T
if (meth == "display center") { Tape = blocks[cblock].text;  Wait = blocks[cblock].wait;  half = Tape.length / 2;  DisplayC() }% J9 Q4 Q/ S" W5 }  c! w
if (meth == "scroll left") { clen = tlen;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  tTicks = Ticks * 2;  ScrollL() }
7 P# v  a& \" p7 m; U% w% Bif (meth == "scroll right") { clen = 0 - blocks[cblock].text.length;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  tTicks = Ticks * 2;  ScrollR() }! ?- X5 x6 c' Y) p# O3 {% S
if (meth == "scroll lc") { clen = 0 - blocks[cblock].text.length;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  Wait = blocks[cblock].wait;  tTicks = Ticks * 2;  half = Tape.length / 2;  ScrollLC() }
$ e! E6 H  r2 m6 w+ h  H* wif (meth == "scroll rc") { clen = tlen;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  Wait = blocks[cblock].wait;  tTicks = Ticks * 2;  half = Tape.length / 2;  ScrollRC() }, C5 R% \1 L8 J) I. a
if (meth == "scroll cl") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  tTicks = Ticks * 2;  half = Tape.length / 2;  clen = cent - half;  ScrollCL() }8 ?" [+ R0 f: p# |1 I7 P2 O
if (meth == "scroll cr") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  tTicks = Ticks * 2;  half = Tape.length / 2;  clen = cent - half;  ScrollCR() }
  h+ s7 l% @5 {& [' Hif (meth == "slide left") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  Wait = blocks[cblock].wait;  cpos = 0;  clet = Tape.charAt(cpos);  clen = tlen;  cstr = "";  SlideL() }  s$ G6 _* E; E$ Z
if (meth == "slide lc") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  Wait = blocks[cblock].wait;  cpos = Tape.length - 1;  clet = Tape.charAt(cpos);  clen = 0;  cstr = "";  half = Tape.length / 2;  iba = cent - half;  ib = ms(iba);  SlideLC() }# O1 c" i; K" A5 D6 G. P
if (meth == "slide rc") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  Wait = blocks[cblock].wait;  cpos = 0;  clet = Tape.charAt(cpos);  cstr = "";  half = Tape.length / 2;  clen = cent + half;  fs = ms(cent - half);  SlideRC() }8 d3 D4 W5 _3 y8 I3 h) a; L* R' ~
if (meth == "slide cl") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  cpos = 0;  clet = Tape.charAt(cpos);  cstr = Tape.substring(1,Tape.length);  half = Tape.length / 2;  clen = cent - half;  iba = 0;  ib = ms(iba);  SlideCL() }
/ }1 ?6 v7 g, t+ @2 n% e# Wif (meth == "slide cr") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  cpos = Tape.length - 1;  clet = Tape.charAt(cpos);  cstr = Tape.substring(0,Tape.length - 1);  half = Tape.length / 2;  clen = 0;  fs = ms(cent - half);  SlideCR() }* _( R9 [5 N  D% S
if (meth == "slip left") { clen = 0;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  SlipL() }6 `- _8 W& M/ B5 b7 d+ m
if (meth == "slip right") { clen = 0;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  SlipR() }
# D0 ^4 {% l: @" y  k4 X9 sif (meth == "slip letter") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  cpos = Tape.length - 1;  clet = Tape.charAt(cpos);  cstr = Tape.substring(0,Tape.length - 1);  clen = 0;  SlipLet() }7 [7 E! r$ O4 h
if (meth == "split"){ Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  var iii = Tape.length / 2;  if (iii / 2 != Math.ceil(iii / 2)) { Tape = Tape + " " } hstr1 = Tape.substring(0,Tape.length/2);  hstr2 = Tape.substring(Tape.length/2,Tape.length);  tTicks = Ticks * 2;  clen = cent - hstr1.length;  iba = 0;  ib = ms(iba);  Split() }
) y8 y6 K1 Y7 i6 Eif (meth == "merge"){ Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  var iii = Tape.length / 2;  if (iii / 2 != Math.ceil(iii / 2)) { Tape = Tape + " " } hstr1 = Tape.substring(0,Tape.length/2);  hstr2 = Tape.substring(Tape.length/2,Tape.length);  tTicks = Ticks * 2;  clen = 0 - hstr1.length;  iba = tlen;  ib = ms(iba);  Wait = blocks[cblock].wait;  Merge() } }
, W: p4 ]- `1 Ffunction Display() { document.Active.ASCII.value = Tape;  cblock++;  timerID = setTimeout("Activate()",Wait) }6 U, x( D4 N/ f$ g1 ?7 Z" a
function DisplayC() { var temp = cent - half;  ini = ms(temp);  document.Active.ASCII.value = ini + Tape;  cblock++;  timerID = setTimeout("Activate()",Wait) }1 P* y# N8 F0 x* }0 C; {  N0 O2 M
function ScrollL() { if (clen >= 0) { ini = ms(clen);  tickered = ini + Tape;  document.Active.ASCII.value = tickered;  clen--;  timerID = setTimeout("ScrollL()",Ticks) } else { beg = 0 - clen;  if (beg == Tape.length) { document.Active.ASCII.value = "";  cblock++;  timerID = setTimeout("Activate()",Ticks) } else { tickered = Tape.substring(beg,tlen);  document.Active.ASCII.value = tickered;  clen--;  timerID = setTimeout("ScrollL()",tTicks) } } }; I  p; k1 ?0 L3 K
function ScrollR() { if (clen >= 0) { if (clen > tlen) { document.Active.ASCII.value = "";  cblock++;  timerID = setTimeout("Activate()",Ticks) } else { ini = ms(clen);  tickered = ini + Tape;  document.Active.ASCII.value = tickered;  clen++;  timerID = setTimeout("ScrollR()",Ticks) } } else { beg = 0 - clen;  tickered = Tape.substring(beg,tlen);  document.Active.ASCII.value = tickered;  clen++;  timerID = setTimeout("ScrollR()",tTicks) } }  f. M4 N4 Z, i, O( L6 I) i( T
function ScrollLC() { if (clen >= 0) { if (cent <= (clen + half)) { cblock++;  timerID = setTimeout("Activate()",Wait) } else { ini = ms(clen);  tickered = ini + Tape;  document.Active.ASCII.value = tickered;  clen++;  timerID = setTimeout("ScrollLC()",Ticks) } } else { beg = 0 - clen;  if (cent <= (clen + half)) { cblock++;  timerID = setTimeout("Activate()",Wait) } else { tickered = Tape.substring(beg,tlen);  document.Active.ASCII.value = tickered;  clen++;  timerID = setTimeout("ScrollLC()",tTicks) } } }
# E% ]! D$ ^# T0 i9 qfunction ScrollRC() { if (clen >= 0) { if (cent >= (clen + half)) { cblock++;  timerID = setTimeout("Activate()",Wait) } else { ini = ms(clen);  tickered = ini + Tape;  document.Active.ASCII.value = tickered;  clen--;  timerID = setTimeout("ScrollRC()",Ticks) } } else { beg = 0 - clen;  if (cent >= (clen + half)) { cblock++;  timerID = setTimeout("Activate()",Wait) } tickered = Tape.substring(beg,tlen);  document.Active.ASCII.value = tickered;  clen--;  timerID = setTimeout("ScrollRC()",tTicks) } }
$ l& {3 P3 l, j; r: Xfunction ScrollCL() { if (clen >= 0) { ini = ms(clen);  tickered = ini + Tape;  document.Active.ASCII.value = tickered;  clen--;  timerID = setTimeout("ScrollCL()",Ticks) } else { beg = 0 - clen;  if (beg >= Tape.length) { document.Active.ASCII.value = "";  cblock++;  timerID = setTimeout("Activate()",Wait) } else { tickered = Tape.substring(beg,tlen);  document.Active.ASCII.value = tickered;  clen--;  timerID = setTimeout("ScrollCL()",tTicks) } } }$ ]! u) u3 [% ]+ l: H
function ScrollCR() { if (clen >= 0) { if (clen > tlen) { document.Active.ASCII.value = "";  cblock++;  timerID = setTimeout("Activate()",Wait) } else { ini = ms(clen);  tickered = ini + Tape;  document.Active.ASCII.value = tickered;  clen++;  timerID = setTimeout("ScrollCR()",Ticks) } } else { beg = 0 - clen;  tickered = Tape.substring(beg,tlen);  document.Active.ASCII.value = tickered;  clen++;  timerID = setTimeout("ScrollCR()",tTicks) } }6 Y/ v; V, |# V& B0 m  C' f% M1 w
function SlideL() { if (clen >= 0) { ini = ms(clen);  tickered = cstr + ini + clet;  document.Active.ASCII.value = tickered;  clen -= 3;  timerID = setTimeout("SlideL()",Ticks) } else { document.Active.ASCII.value = cstr + clet;  cstr = document.Active.ASCII.value;  clen = tlen - cstr.length;  cpos++;  clet = Tape.charAt(cpos);  if (clet == " ") { cstr = cstr + " ";  cpos++;  clet = Tape.charAt(cpos) } if (clet == "") { cblock++;  timerID = setTimeout("Activate()",Wait) } else { timerID = setTimeout("SlideL()",Ticks) } } }
6 R7 J! l: e6 n' V$ ~" o7 }) ~function SlideLC() { if (clen <= cent - half) { ini = ms(clen);  tickered = ini + clet + ib + cstr;  document.Active.ASCII.value = tickered;  clen += 3;  iba -= 3;  ib = ms(iba);  timerID = setTimeout("SlideLC()",Ticks) } else { iba = cent - half;  ini = ms(iba);  ib = ms(iba);  document.Active.ASCII.value = ini + clet + cstr;  cstr = clet + cstr;  clen = 0;  cpos--;  if (cpos >= 0) { clet = Tape.charAt(cpos);  if (clet == " ") { cstr = " " + cstr;  cpos--;  clet = Tape.charAt(cpos) } timerID = setTimeout("SlideLC()",Ticks) } else { cblock++;  timerID = setTimeout("Activate()",Wait) } } }
  Z6 U3 C4 h$ }" Z. Ufunction SlideRC() { if (clen >= 0) { ini = ms(clen);  tickered = fs + cstr + ini + clet;  document.Active.ASCII.value = tickered;  clen -= 3;  timerID = setTimeout("SlideRC()",Ticks) } else { clen = cent + half;  cstr += clet;  document.Active.ASCII.value = fs + cstr;  cpos++;  clet = Tape.charAt(cpos);  if (clet == " ") { cstr = cstr + " ";  cpos++;  clet = Tape.charAt(cpos) } if (clet == "") { document.Active.ASCII.value = fs + Tape;  cblock++;  timerID = setTimeout("Activate()",Wait) } else { timerID = setTimeout("SlideRC()",Ticks) } } }
+ h* e( n, O& g' v8 p2 r# dfunction SlideCL() { if (clen > 0) { ini = ms(clen);  tickered = ini + clet + ib + cstr;  document.Active.ASCII.value = tickered;  clen -= 3;  iba += 3;  ib = ms(iba);  timerID = setTimeout("SlideCL()",Ticks) } else { iba = 0;  ib = ms(iba);  clen = cent - half;  ini = ms(clen);  document.Active.ASCII.value = ini + cstr;  cstr = cstr.substring(1,Tape.length);  cpos++;  clet = Tape.charAt(cpos);  if (clet == " ") { cstr = cstr.substring(1,Tape.length);  cpos++;  clet = Tape.charAt(cpos) } if (clet == "") { document.Active.ASCII.value = "";  cblock++;  timerID = setTimeout("Activate()",Ticks) } else { timerID = setTimeout("SlideCL()",Ticks) } } }0 E2 }  S+ I8 c7 G
function SlideCR() { if (clen <= cent + half) { ini = ms(clen);  tickered = fs + cstr + ini + clet;  document.Active.ASCII.value = tickered;  clen += 3;  timerID = setTimeout("SlideCR()",Ticks) } else { clen = 0;  document.Active.ASCII.value = fs + cstr;  cstr = cstr.substring(0,cstr.length - 1);  cpos--;  half += 1;  if (cpos >= 0) {                ;  clet = Tape.charAt(cpos);  if (clet == " ") { cstr = cstr.substring(0,cstr.length - 1);  cpos--;  clet = Tape.charAt(cpos) } timerID = setTimeout("SlideCR()",Ticks) } else { cblock++;  timerID = setTimeout("Activate()",Ticks) } } }
/ H3 P1 |2 g4 K0 \) @0 tfunction SlipR() { if (clen >= 0) { if (clen > tlen) { document.Active.ASCII.value = "";  cblock++;  timerID = setTimeout("Activate()",Ticks) } else { ini = ms(clen);  tickered = ini + Tape;  document.Active.ASCII.value = tickered;  clen++;  timerID = setTimeout("SlipR()",Ticks) } } else { beg = 0 - clen;  tickered = Tape.substring(beg,tlen);  document.Active.ASCII.value = tickered;  clen++;  timerID = setTimeout("SlipR()",Ticks) } }& O1 @; x5 {. @' E; S
function SlipL() { if (clen >= 0) { ini = ms(clen);  tickered = ini + Tape;  document.Active.ASCII.value = tickered;  clen--;  timerID = setTimeout("SlipL()",Ticks) } else { beg = 0 - clen;  if (beg == Tape.length) { document.Active.ASCII.value = "";  cblock++;  timerID = setTimeout("Activate()",Ticks) } else { tickered = Tape.substring(beg,tlen);  document.Active.ASCII.value = tickered;  clen--;  timerID = setTimeout("SlipL()",Ticks) } } }# q# @( Y! X. P
function SlipLet() { if (clen < tlen) { ini = ms(clen);  tickered = cstr + ini + clet;  document.Active.ASCII.value = tickered;  clen += 3;  timerID = setTimeout("SlipLet()",Ticks) } else { clen = 0;  cstr = cstr.substring(0,cstr.length - 1);  cpos--;  if (cpos >= 0) {           ;  clet = Tape.charAt(cpos);  if (clet == " ") { cstr = cstr.substring(0,cstr.length - 1);  cpos--;  clet = Tape.charAt(cpos) } timerID = setTimeout("SlipLet()",Ticks) } else { cblock++;  timerID = setTimeout("Activate()",Ticks) } } }+ m3 R' I- l3 I, q
function Split() { if (clen >= 0) { ini = ms(clen);  tickered = ini + hstr1 + ib + hstr2;  document.Active.ASCII.value = tickered;  clen--;  iba += 2;  ib = ms(iba);  timerID = setTimeout("Split()",Ticks) } else { if (clen <= 0 - hstr1.length) { cblock++;  timerID = setTimeout("Activate()",Ticks) } else { beg = 0 - clen;  tickered = hstr1.substring(beg,tlen);  document.Active.ASCII.value = tickered + ib + hstr2;  clen--;  iba += 2;  ib = ms(iba);  timerID = setTimeout("Split()",tTicks) } } }
+ t% y. U9 `' Q$ n" wfunction Merge() { if (clen >= 0) { if (clen > cent - hstr1.length) { tickered = ini + hstr1 + hstr2;  document.Active.ASCII.value = tickered;  cblock++;  timerID = setTimeout("Activate()",Wait) } else { ini = ms(clen);  tickered = ini + hstr1 + ib + hstr2;  document.Active.ASCII.value = tickered;  clen++;  iba -= 2;  ib = ms(iba);  timerID = setTimeout("Merge()",Ticks) } } else { beg = 0 - clen;  tickered = hstr1.substring(beg,tlen);  document.Active.ASCII.value = tickered + ib + hstr2;  clen++;  iba -= 4;  ib = ms(iba);  timerID = setTimeout("Merge()",tTicks) } }
0 c8 X1 |3 Y$ Y) ^* K5 D7 _- r8 @0 ?1 d7 _* T% r
/////////////////////////////////////////////////////////////////
) p+ m4 ^! B$ J# c# C* W//# User Vars8 {& y' B0 ]7 Y
// Number of blocks (see bottom) to be displayed.4 B3 B& u6 W+ b3 R
// ***COMMON ERROR***: Make sure to set this value according to the1 o( P9 a4 d/ f4 S! p9 H
// number of blocks (always the last block # + 1)!! ]+ A1 U8 u/ t1 n# i: {. z  p
var max = 18" w; T4 o7 H3 S' v  l' U4 n
$ n. @- Q+ a4 e' _
// Don't change this!
( y! m9 }# x) xvar blocks = new createArr(max)+ {8 r! A& G( @$ l1 ?

1 P4 d1 F, l! d, r// Length of textbox4 C! C, Q7 V( p5 s- h; l( I
// ***COMMON ERROR: If you change this or the length of the- w& [$ k  M8 q. p
// textbox, remember to change the other accordingly.***
/ F0 v& J) I1 @$ |4 q* n9 R, [1 jvar len = 50  D2 L$ Q0 Z8 U  Z3 q0 b# d' V: ?2 c
, r7 b! P2 r) J# d
// Number of time to loop ALL blocks (use 0 for unlimited)
' C$ w: k' }8 Q! e, v  Avar loops = 0
7 O: H/ L/ }/ s  J) P% d" b" a0 ]! J* v& d
// If you set the number of loops, set the final messege
& f: H" f5 |' p4 c8 f: Lvar end = 'End of "ActiveASCII" by Neal Kanodia.'; K' j5 x% p% @) w  s. M) s
' K; \& s. [3 Y- X" V. Y5 Q$ _
// Use this format for each string (starting at 0 until 1 less
. ]& G1 q% a& f+ H8 I: L  A// than max):: g5 n9 q5 A; r3 \0 `
// block(#block,"Text to display","Method",#ticks,#wait): w! e) g. |+ `0 P" ^2 j0 z$ J
// example: block(0,"1st block.","Scroll Left",25,0)4 V) C) W" Q0 L; b
// ***COMMON ERROR***: If you add a block INCREASE MAX BY 1. ~) D0 n; B: Z; y4 P& h
// ***COMMON ERROR***: If you remove a block DECREASE MAX BY 1
1 n+ l8 h$ B7 L2 S2 A! I- g0 a6 f// ***COMMON ERROR***: Check the spelling of your methods!!!
6 A! x  N" k8 Q; ^+ _8 d2 X- Lblock(17,"欢迎光临七色风!","display",0,500)
; M& K) M% R* D$ q3 ?( E! `! A) `3 S6 Ablock(18,"新一代网络商城!","display center",0,500)1 c1 Z; s1 m: h. j
block(2,"新一代企业信息系统!","scroll left",25,0)
8 b2 A  ~2 r' K* M7 Vblock(3,"全新的自助建站模式!","scroll right",25,0)
, m. ~4 ~) W4 m! a- Xblock(4,"欢迎光临七色风!","scroll lc",25,500)
1 D' N$ y4 w$ P  ~block(5,"欢迎光临!","scroll rc",25,500): R5 X' O/ f. g( A, [
block(6,"欢迎光临!","scroll cl",25,0)
& M9 V# `0 S+ U  o, T8 A% vblock(7,"欢迎光临!","scroll cr",25,0)) W5 _2 c1 z* t* g7 B; y, B
block(8,"欢迎光临!","slide left",25,500)
/ B0 @7 n/ c+ @0 t; O% cblock(9,"欢迎光临!","slide lc",25,500). W% W' K( o  {9 d6 V
block(10,"欢迎光临!","slide rc",25,500)
. A9 M2 u& {# j1 }- `7 A3 _3 }block(11,"欢迎光临!","slide cl",25,0)
3 @1 ?. {6 @  r' d% }block(12,"国内域名：110元!","slide cr",25,0)& P( |+ N+ Q6 T" E7 C( y, {
block(13,"国际域名：58元!","slip left",25,0)1 W- K+ }% k. r' U
block(14,"欢迎光临中讯数据!","slip right",25,0)% q6 c* K# c/ ^' }" h% P
block(15,"欢迎您的光临","slip letter",25,0)) c% X- k+ j, x# g! j$ }
block(16,"","display",0,500)
8 m8 M2 u; N: e5 X9 m$ P4 ~block(0,"欢迎欢迎!","merge",25,1000)7 s* [) K( q3 ~5 q% y3 @) y! I
block(1,"欢迎!","split",25,0)0 }. v! Q1 J$ W  G/ Y8 W. ~; B% G
//End User Vars+ \/ B! w1 K( E1 G) b2 m7 M, f8 s: u4 E
/////////////////////////////////////////////////////////////////7 c" r1 q8 Q  e( L0 e/ d  e. G( `

% A" W/ u1 ~; Z9 |: D$ V5 r3 R// Don't change!!!
* L1 ?  d% S5 W; g4 N$ {var tlen = 2.4 * len
3 y+ |, M# l& m0 dvar cent = tlen / 2.2
' D% E8 l& k- tvar clen = null4 t. N5 U+ y( E* y: }- i
var tickered = null. a6 n1 W" u& Q) [# q7 F! J
var ini = null
. e7 {! \  L; _. X$ nvar iloop = 0
3 R2 [( ]; s, \) q+ _& D) g) @. x% V9 |if (loops == 0) {iloop = 1}5 Q, \7 t7 `$ ]3 x  Y3 J
var cblock = 0
: v% B+ C/ b4 ~9 _6 Tvar timerID = null7 I8 c4 k! Q0 u+ p' O7 h
var beg = null
, \/ _$ z* y0 z* Yvar clet = null
3 ~, Q9 C& g: ?3 N. xvar cstr = null, V( |# P. f4 q9 }: c( ^8 o
var cpos = null/ S) C- ^& V% {' p+ E
var ib = null
; `: G: r" w* j; J! Ovar iba = null% {% R( w2 X& X
var fs = null4 R1 w% n! W' C' Q
var hstr1 = null  x: a/ n/ o7 n& L2 q+ M
var hstr2 = null
# D2 L7 R0 p6 g/ {0 K<!-- end  -->  t- {# R% L  D5 K! N% s
  S* x  @. U- w
</script>
) D. X1 b4 {$ Q  e8 T  w: d<script language="JavaScript">4 I2 l! v# s7 P* A7 p" I; K
<!--
' @2 b3 G& P; A  g7 x1 o" Edocument.write('<form name="Active" onSubmit="0">')
/ D; C  o1 t3 z5 r# _! Pdocument.write('<input type="text" name="ASCII" size="50">')
. |' f, d/ V# E; Qdocument.write('</form>'); e: J# @$ Z$ U$ ~% V! m
Activate()
& U3 ?0 `7 a  r2 M% }2 k  s0 K<!-- end -->7 t( Y, `/ f0 m9 E
* n% I- X9 P0 Q+ ^! P* C  m9 D
</script>