if wscript.arguments.count = 0 then
  createobject("wscript.shell").run _
  "cmd /c title Hi~ cn-dos &mode con cols=50 lines=6 & "&_
  " cscript //nologo " &chr(34) &wscript.scriptname &chr(34) &" isme"
  wscript.quit
end if
:rem Made by if(e_x)ist@cn-dos
set inp=wscript.stdin
set put=wscript.stdout
dim str(6)
str(0)=" W W W . C N - D O S . N E T "
str(1)=" B A T H O M E  "
str(2)=" L x m x n  "
str(3)=" E v e r e s t 7 9 "
str(4)=" N e t B e n T o n "
str(5)=" I F _ E X I S T "
str(6)=" H u a h u a 0919 "

for each strx in str
  call EchoInRnd(replace(space(len(strx))," ","-"),strx)
  call EchoInRnd(strx,strx)
  call EchoInRnd(strx,space(len(strx)))
  put.writeline
next

sub EchoInRnd(stra,strb)
 dim x(100)
 xlb=len(stra)
 xla=xlb-1
 for i = 0 to xlb
   x(i) = i
 next
 ln=stra
 for i = xla to 0 step -1
   tn=int(rnd*i)
   ln=left(ln,x(tn)) & mid(strb,x(tn)+1,1) & right(ln,xla-x(tn))
        wscript.sleep 50
   put.write chr(13)
   put.write space((50-xlb)/2) & ln
   x(tn)=x(i)
 next
end sub
复制代码