Intermedia 1998 January/inter1_98.iso/www/rozi/PARKOW.PAS

Pascal/Delphi Source File | 1997-12-15 | 542b | 32 lines

uses crt,dos;
var x,c,d,h:byte;
begin
c:=$80;
d:=$81;
if paramcount=0 then
begin
writeln;
writeln('Parkowanie glowic dyskow twardych');
writeln('TYTUS SOFTWARE');
writeln;
writeln('Uzycie: PARKOW.EXE dysk');
writeln('np.   : PARKOW.EXE C:');
halt;
end;
if (paramstr(1)='c:') or (paramstr(1)='C:') then h:=c;
if (paramstr(1)='d:') or (paramstr(1)='D:') then h:=d;
asm
mov ah,19h
mov dl,h
int 13h
mov x,ah
end;
if x=0 then
begin
writeln('Glowice zaparkowane.');
end;
if x<>0 then
begin
writeln('Blad.');
end;
end.