This repository has been archived on 2023-03-26. You can view files and clone it, but cannot push or open issues or pull requests.
pithos/Resources/Floppy Grind.vbs

9 lines
194 B
Text
Raw Normal View History

' theorangeone.net/pithos
Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
On error resume next
for i= 0 to 99999
objShell.Run("""A:\file.pithos""")
WScript.Sleep 2000
next