GRIPS 2: Government Rast…rocessing Software & Data/GRIPS_2.cdr/dos/adrg/source/mvtopos.pas

Pascal/Delphi Source File | 1989-05-31 | 246 b | 12 lines

PROCEDURE MOVE_TO_POSITION (VAR FV:FILE; POS:LONGINT);
  BEGIN
    {$I-}
    SEEK(FV,POS);
    {$I+}
    IF (IORESULT <> 0) THEN
       BEGIN
         WRITELN('Seek failed in move_to_position ',POS);
         HALT;
       END;
  END;