10 REM *****************
20 REM *               *
30 REM *  virus 0.9  *
40 REM *               *
50 REM *****************
60 FOR n=1 TO 4
70 BEEP 1,1: BEEP 3,5: BEEP 5,6
80 NEXT n
90 GOTO 60

Creado por...
[deleted]