ð#Syntax10.Scn.Fnt,,MODULE Win31File; IMPORT Files, In, Out; PROCEDURE SkipHeader*; VAR fIn, fOut: Files.File; name: ARRAY 128 OF CHAR; ch: CHAR; r, w: Files.Rider; buffer: ARRAY 1024 OF CHAR; i: INTEGER; BEGIN In.Open; IF In.Next() = In.name THEN In.Name(name) ELSE In.String(name) END ; WHILE In.Done DO fIn := Files.Old(name); Files.Set(r, fIn, 0); Files.Read(r, ch); Out.Ln; Out.String(name); IF ch # "o" THEN Out.String(" does not contain a header") ELSE Files.Read(r, ch); IF ch # "B" THEN Out.String(" does not contain a header") ELSE FOR i := 0 TO 31 DO Files.Read(r, name[i]) END ; Out.String(" skipped header => "); Out.String(name); fOut := Files.New(name); Files.Set(w, fOut, 0); REPEAT Files.ReadBytes(r, buffer, 1024); Files.WriteBytes(w, buffer, 1024 - r.res) UNTIL r.eof; Files.Register(fOut) END END ; IF In.Next() = In.name THEN In.Name(name) ELSE In.String(name) END END END SkipHeader; END Win31File.SkipHeader ^ WinFile.Skip &netbasew.mod 35 &netbase2.mod~ Debugger.SetModules WinFile ~