diff --git a/docs/dosex/ex5.pp b/docs/dosex/ex5.pp
index 4e477d5158..2fab4d90d0 100644
--- a/docs/dosex/ex5.pp
+++ b/docs/dosex/ex5.pp
@@ -11,5 +11,5 @@ begin
   WriteLn('Executing Dir');
   Exec(GetEnv('COMSPEC'),'/C dir');
 {$ENDIF}
-  WriteLn('Program returned with ExitCode ',DosExitCode);
+  WriteLn('Program returned with ExitCode ',Lo(DosExitCode));
 end.
diff --git a/docs/dosex/ex7.pp b/docs/dosex/ex7.pp
index cb21ffae2b..f61f4e4049 100644
--- a/docs/dosex/ex7.pp
+++ b/docs/dosex/ex7.pp
@@ -6,7 +6,7 @@ uses Dos;
 var
   Dir : SearchRec;
 begin
-  FindFirst('*.*',$20,Dir);
+  FindFirst('*.*',archive,Dir);
   WriteLn('FileName'+Space(32),'FileSize':9);
   while (DosError=0) do
    begin
@@ -15,3 +15,4 @@ begin
    end;     
   FindClose(Dir); 
 end.
+
diff --git a/docs/dosex/ex8.pp b/docs/dosex/ex8.pp
index 03b4d70b6b..2c6d02b30f 100644
--- a/docs/dosex/ex8.pp
+++ b/docs/dosex/ex8.pp
@@ -10,9 +10,9 @@ begin
   Assign(f,ParamStr(1));
   GetFAttr(f,Attr);
   WriteLn('File ',ParamStr(1),' has attribute ',Attr);
-  if (Attr and $20)<>0 then WriteLn('- Archive');
-  if (Attr and $10)<>0 then WriteLn('- Directory');
-  if (Attr and $4)<>0 then WriteLn('- Read-Only');
-  if (Attr and $2)<>0 then WriteLn('- System');
-  if (Attr and $1)<>0 then WriteLn('- Hidden');
+  if (Attr and archive)<>0 then WriteLn('- Archive');
+  if (Attr and directory)<>0 then WriteLn('- Directory');
+  if (Attr and readonly)<>0 then WriteLn('- Read-Only');
+  if (Attr and sysfile)<>0 then WriteLn('- System');
+  if (Attr and hidden)<>0 then WriteLn('- Hidden');
 end.