fpcsrc/tests/webtbs/tw1295.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %INTERACTIVE }
{ checking of invalid drive size }

USES DOS;
var
  d : longint;
BEGIN
   {$I-}
   d:=DISKSIZE(1);
   writeln(d);
   WRITELN(IORESULT);
   {$I+}
   if d<>-1 then
    halt(1);
END.