+ cleaner source

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.

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.
+

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.