/****************************************
 *                                      *
 * Programm: SeekTest Disk-File lesen   *
 * ===================================  *
 *                                      *
 * Autor:  Datum:      Kommentar:       *
 * ------  ----------  ----------       *
 * Wgb     15.07.1988  Open() & Close() *
 *                     Seek()           *
 *                                      *
 ****************************************/

#include <libraries/dos.h>

extern struct DOSLibrary *DOSBase;

char Puffer[21];

main(argc, argv)
int argc;
char *argv[];
   {
   int i;

   LONG Anzahl, Position;

   struct FileHandle *Handle, *Open();

   if (argc != 2)
      {
      printf("Es wird genau ein File-Name gebraucht!\n");
      exit(FALSE);
      }

   Handle = Open(argv[1], MODE_OLDFILE);

   if (Handle == NULL)
      {
      printf("Es ist ein Fehler beim Öffnen aufgetreten!\n");
      exit(FALSE);
      }

   Puffer[20] = 0;

   for(i=0; i<8; i++)
      {
      Anzahl = Read(Handle, Puffer, 20L);

      printf("%s\n", Puffer);

      Position = Seek(Handle, -19L, OFFSET_CURRENT);
      }

   Close(Handle);
   }