Código fuente del primer gusano lanzado por Robert Morris en 1988
Sub Main()
'TaskVisible.
App.TaskVisible = False
En caso de error, reanudar siguiente
Atenuar ubicación, ubicación2, desubicación .DesLocation2
Ubicación = App.Pathamp;"\"&App.EXENameamp;".exe"
Ubicación2 = App.Pathamp; "C:³"C:³" amp; App.EXENombreamp;".exe"