; WWW
; Claudio
;
START   MOV #802,DEST2
VIRUS   SPL <DEST
        SUB #7,DEST
        MOV DEST,@DEST2
        ADD #8,DEST2
        JMP VIRUS
DEST2   JMP VIRUS
DEST    DAT -1500
