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

zw2004

<script language="JavaScript">! [0 q6 g4 B8 P- d/ r5 z

) G9 S8 H, [# |- e, H<!-- ActiveASCII by Neal Kanodia (please, don't delete this line)
/ o2 |& b/ W1 [% `
# ]6 Z2 G; q2 N8 _6 l' t- Rfunction createArr(num) { for(var i = 0; i < num; i++) { this = null } }. r) |( A# p% G/ Z" W/ o
function fillArr(tx,me,ti,wa) { this.text = tx;  this.method = me.toLowerCase();  this.ticks = ti;  this.wait = wa }
  c; V, o: d$ R2 Jfunction block(num,txt,mthod,tcks,wit) { blocks[num] = new fillArr(txt,mthod,tcks,wit) }$ R" z" Y1 v, E7 I3 e
function ms(unt) { var sp = "";  for( var i = 1; i <= unt; i++ ) { sp += " " } return(sp) }
7 Z4 Y) \5 Z. H7 E7 A5 P# nfunction 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 }! r/ I# H& G8 Q) K) s9 P
if (meth == "0") { document.Active.ASCII.value = end }" K! E. j3 [  a9 A
if (meth == "display") { Tape = blocks[cblock].text;  Wait = blocks[cblock].wait;  Display() }5 u) z7 J( H! C
if (meth == "display center") { Tape = blocks[cblock].text;  Wait = blocks[cblock].wait;  half = Tape.length / 2;  DisplayC() }- y7 C2 d* Z2 k5 K; s
if (meth == "scroll left") { clen = tlen;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  tTicks = Ticks * 2;  ScrollL() }
: z0 s0 p0 ], Nif (meth == "scroll right") { clen = 0 - blocks[cblock].text.length;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  tTicks = Ticks * 2;  ScrollR() }
% m9 s+ ~" W9 L9 Q9 lif (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() }0 p8 d# p( [" _# B8 z2 U
if (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() }" g$ x" Q+ i' g
if (meth == "scroll cl") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  tTicks = Ticks * 2;  half = Tape.length / 2;  clen = cent - half;  ScrollCL() }
% q# w# o9 M3 Z3 W- n+ V  ^if (meth == "scroll cr") { Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  tTicks = Ticks * 2;  half = Tape.length / 2;  clen = cent - half;  ScrollCR() }
6 u& {( A# O; s. f! k- Xif (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() }2 T7 h6 j; |% _
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() }! T5 s# F1 n7 f6 Z, F
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() }! a0 |0 o/ X$ p+ ~/ _2 ~
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() }
% x9 L% ]- S7 M2 Zif (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() }
4 u+ g! }: X% U! A. N8 @: g* N; ]if (meth == "slip left") { clen = 0;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  SlipL() }1 u  Y( n7 q. t* E, j! P9 r
if (meth == "slip right") { clen = 0;  Tape = blocks[cblock].text;  Ticks = blocks[cblock].ticks;  SlipR() }
) Y( s3 @) [/ q, f1 j: l# 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() }" U2 p- ^! k7 Y/ F' Z2 i" l0 r
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() }+ O1 O! z! M6 g3 `
if (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() } }7 ?' h1 W% v' w8 M0 K+ U+ O
function Display() { document.Active.ASCII.value = Tape;  cblock++;  timerID = setTimeout("Activate()",Wait) }* B0 b: o2 d  v- J: f( v
function DisplayC() { var temp = cent - half;  ini = ms(temp);  document.Active.ASCII.value = ini + Tape;  cblock++;  timerID = setTimeout("Activate()",Wait) }
; c0 R4 Q' ^' Q4 o' Qfunction 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) } } }( _' p% u, [# ^& A* Y
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) } }* [0 i- m3 I3 _! I: b) F1 S
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) } } }
9 O: ^; h" T+ x6 C' N/ gfunction 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) } }: g  Y- p( C+ p" w# Y
function 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) } } }+ p- m5 Q; b0 z* q6 v
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) } }* F' k- W& B: {+ Y" }, d. \
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) } } }
; x$ \$ U& H( z) e8 b8 I" ffunction 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) } } }3 |8 _# B- M4 [8 |3 ~9 x, I
function 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) } } }
0 l6 ]7 p: p- j( r$ X7 q$ jfunction 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) } } }& s% Y( ~3 \  N8 `. Z3 Y
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) } } }* t5 w/ i4 K( X* J" ]8 k1 r
function 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) } }7 G: E6 W3 m+ ?4 l7 I; I
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) } } }
& T6 _7 X* j) t+ d! V6 ^, Wfunction 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) } } }
4 Z4 \- r- ^  @) r, I0 `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) } } }4 S$ V+ m; p9 D( g: w
function 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) } }
/ G6 U' C* k' `( n% @, {$ j4 l
$ O& {8 F/ R& u& I/////////////////////////////////////////////////////////////////' c$ v, u2 w# b" y# m7 B
//# User Vars9 C/ j4 w$ i' K, M$ x
// Number of blocks (see bottom) to be displayed.
. |) W+ C2 P, T, Y) j2 U  ^! k// ***COMMON ERROR***: Make sure to set this value according to the
/ @. I4 R- j2 V0 v, R. C// number of blocks (always the last block # + 1)!$ p& g* C6 q8 @2 Q
var max = 18
+ H+ d  g& K6 e! u
4 i% t+ p) v/ D- n: ^1 [// Don't change this!" p) l2 C; x6 u4 M9 r
var blocks = new createArr(max)
# K( {  g8 j4 H- y& H( A
; _( A0 Q6 I' a% q! O; N// Length of textbox2 O" S+ d: h( ?! O: C7 {
// ***COMMON ERROR: If you change this or the length of the
' O( ?$ r% i% M' g5 i) [8 P( o# x// textbox, remember to change the other accordingly.***# S% D! i& z; E' l8 g
var len = 50
/ Q4 A& ^2 a/ M4 `) B: j/ N% E" v: h. F% B6 `
// Number of time to loop ALL blocks (use 0 for unlimited)
8 T) i8 y7 s- E5 j; rvar loops = 02 ~* X* {, h$ A3 d$ r; i, M: `2 ~

' H3 M( B; j4 Z; I# V+ G) _0 c) O/ k// If you set the number of loops, set the final messege9 i) Q+ t0 W. F5 ]8 i! I5 c& x1 F
var end = 'End of "ActiveASCII" by Neal Kanodia.'. ~, W9 t8 G$ Y4 H2 g  K5 h. i% G% `

: @# `) O- B* |$ n// Use this format for each string (starting at 0 until 1 less1 O5 T  ]9 d& G
// than max):
% d( D+ {$ k; ]8 G- g+ I1 T$ b// block(#block,"Text to display","Method",#ticks,#wait)8 ?7 R7 A$ ^5 t( x( {  I2 n
// example: block(0,"1st block.","Scroll Left",25,0). _0 r/ |8 N* q4 ^5 \! b
// ***COMMON ERROR***: If you add a block INCREASE MAX BY 1/ P! U+ T0 q" }4 N: M. Z1 b, c
// ***COMMON ERROR***: If you remove a block DECREASE MAX BY 1
, c+ Z9 j, w; V  `! p. n// ***COMMON ERROR***: Check the spelling of your methods!!!; f) A) B/ M2 n/ T; i( t/ V
block(17,"欢迎光临七色风!","display",0,500)
4 L4 v3 u. T! d1 I* k$ a, K  M: Oblock(18,"新一代网络商城!","display center",0,500)
+ E0 O7 S, I) Rblock(2,"新一代企业信息系统!","scroll left",25,0)
( O- D4 s+ z: q2 T0 R/ v7 J) Y- jblock(3,"全新的自助建站模式!","scroll right",25,0)
1 S2 Y1 z' ^9 J; \+ Y# e: [2 f& W* jblock(4,"欢迎光临七色风!","scroll lc",25,500)
6 H6 W4 z+ ?0 Sblock(5,"欢迎光临!","scroll rc",25,500)$ ]5 Z$ Q. d7 a) i1 l) \/ i5 N) j
block(6,"欢迎光临!","scroll cl",25,0)
. \0 W: S1 `: Ublock(7,"欢迎光临!","scroll cr",25,0)
5 i5 b* F7 _+ j. [, Qblock(8,"欢迎光临!","slide left",25,500)
* x8 P: ^0 \5 L& \. dblock(9,"欢迎光临!","slide lc",25,500)
* ]' j( W' h5 q' U7 C& Wblock(10,"欢迎光临!","slide rc",25,500)
0 M. r/ y5 B2 G1 X- iblock(11,"欢迎光临!","slide cl",25,0)
6 n) e0 X) `6 r8 ^block(12,"国内域名：110元!","slide cr",25,0)
' |: `; c- x# U( pblock(13,"国际域名：58元!","slip left",25,0)
3 O$ R* d+ R9 R  ^% G7 X$ U1 W- Iblock(14,"欢迎光临中讯数据!","slip right",25,0)% ?8 h; i  T' [- p; i$ J: b" O
block(15,"欢迎您的光临","slip letter",25,0)# _" d+ L* D( ?3 k: Q* z7 P( t
block(16,"","display",0,500); B7 W: I7 r$ N" v; k
block(0,"欢迎欢迎!","merge",25,1000)
, \+ X5 {/ }: s* A" w& n. k9 C# wblock(1,"欢迎!","split",25,0). B) U8 Y( x$ x* J2 S8 X9 R- H4 O
//End User Vars5 M% z$ O6 m; k) L1 W: s# g+ y
/////////////////////////////////////////////////////////////////( P& r5 ~9 g; Z# N/ h
. `; l- z$ _- g2 V
// Don't change!!!
; _0 R4 k! o7 W9 w- avar tlen = 2.4 * len
3 l4 P5 D$ k- p0 P6 ]2 ]var cent = tlen / 2.2% y( m) V& |( g$ H) g' Y
var clen = null
$ \/ r' }) n2 l, H5 q1 u" H; ~var tickered = null' I" L  \: Q/ P: b2 k' F3 t* z
var ini = null
$ E  [( P" D$ z" G* m9 avar iloop = 0/ b# n' v* x- o8 L
if (loops == 0) {iloop = 1}
# X; a% o7 K0 uvar cblock = 0
$ H+ S  `' S8 `/ a& S7 y0 _var timerID = null
  X( q# h! V# o- g6 e1 Y6 Uvar beg = null
, ~9 R" q  n% D+ p! Gvar clet = null, f5 X7 ~9 t' t% p0 a7 n3 [
var cstr = null
  W2 ]: T* b+ gvar cpos = null- E7 k8 D/ n% z  G+ J) |
var ib = null
: d( p2 T7 Z) j$ X/ @' Y: {$ a# jvar iba = null1 E# ?2 j: w! N$ x* y9 _
var fs = null
/ D/ w9 G; p& n' H* Evar hstr1 = null/ m3 m+ s, ?, Y- _6 ]- p; @
var hstr2 = null
" ^/ l  {* R0 [& C<!-- end  -->
# i/ V  L$ W: j* M9 ^! ]  m- m
& Z$ `6 B! ~7 p+ [' r' Q6 `$ F</script>
* j  [" s% R, Y& X% M! ?$ n# `' L8 f<script language="JavaScript">$ w! k: u5 E$ W' [  n
<!-- . n8 W+ e" m( c7 ^3 K/ L- h" F
document.write('<form name="Active" onSubmit="0">')% y: y# l: y0 z2 H
document.write('<input type="text" name="ASCII" size="50">')+ O) @& F/ B6 O9 b
document.write('</form>')
& V- ^" t% v& Y, c0 u" O( W" JActivate()  D( Y# q; g+ X# w3 [/ A7 @* f
<!-- end -->/ f! |3 ]( Q" Q7 L
$ K3 w0 W- {$ m- D- @) W( l
</script>