home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NVDC87.ZIP / PROCESS.ZIP / GETPARAM.INC < prev    next >
Encoding:
Text File  |  1987-08-17  |  571 b   |  24 lines
  1.   PROCEDURE Get_Parameters(VAR SegP, OfsP : word; VAR OK : boolean);
  2.   VAR code : word;
  3.   BEGIN
  4.     OK := false;
  5.     IF ParamCount <> 2 THEN
  6.       BEGIN
  7.         WriteLn('     Program running as a standalone');
  8.         Exit;
  9.       END;
  10.     Val(paramStr(1), SegP, Code);
  11.     IF Code <> 0 THEN
  12.       BEGIN
  13.         WriteLn('     ERROR in segment parameter');
  14.         Exit;
  15.       END;
  16.     Val(ParamStr(2), OfsP, Code);
  17.     IF Code <> 0 THEN
  18.       BEGIN
  19.         WriteLn('     ERROR in offset parameter');
  20.         Exit;
  21.       END;
  22.     OK := true;
  23.   END;
  24.