PixyDemo

Be a demo-maker using vbscript...

If Right(Ucase(Wscript.FullName),11)="WSCRIPT.EXE" Then
    Set y = WScript.CreateObject("WScript.Shell")
    y.Run "cscript.exe """ & Wscript.ScriptFullName & """", 1
    Wscript.quit
End If
For y=1 To 15
    For x=1 To 70
	S=String(79," ")
	k=Round(Cos(x/11.141)*39)+39
	S=Left(S,k) & "*" & Mid(S,k+2)
	k=Rnd*79
	Wscript.Echo Left(S,k) & "." & Mid(S,k+2)
	wscript.sleep 15
    Next
Next