home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
utils
/
antivir2.zip
/
NOHARD.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-11-30
|
2KB
|
57 lines
{$U+}
program NoHardDiskAccess(input,output);
const
INT13 = $4C;
INT40 = $100;
var
Byte0,
Byte1,
Byte2,
Byte3 : integer;
begin
clrscr;
writeln('(c) Copyright 1986 Cavan International');
writeln;
writeln;
writeln('This program is released in the public domain to be distributed freely');
writeln('for non-commercial purposes. If you like this program and would like');
writeln('to donate, send donations to :');
textcolor(white);
writeln('Cavan International');
writeln('P.O. Box 2');
writeln('Santa Monica, CA 90406-0002');
writeln;
writeln;
if mem[$0040:$0075] < 1 then begin
writeln('You don''t have any hard disks. You have no use for this program.');
writeln('Sorry...');
halt;
end;
writeln;
writeln('Your hard disk probably has read-only buffering, so you should probably');
writeln('still be able to do a "dir" of your hard disk, but when the computer does');
writeln('a physical read or write to/from the disk, you will get an "error reading');
writeln('drive x:"');
writeln('Thus, you do not have to worry about Trojan Programs eating your Fixed Disk');
writeln('because of buffering.');
writeln;
write('Press any key to disable hard disk until you do a warm boot...');
repeat
until keypressed;
writeln('Disabling Hard Disk Access...');
writeln;
writeln;
Byte0 := mem[$0:Int40];
Byte1 := mem[$0:Int40 + 1];
Byte2 := mem[$0:Int40 + 2];
Byte3 := mem[$0:Int40 + 3];
mem[$0:Int13] := Byte0;
mem[$0:Int13 + 1] := Byte1;
mem[$0:Int13 + 2] := Byte2;
mem[$0:Int13 + 3] := Byte3;
end.