progs/editor.pas

@@ -135,11 +135,7 @@ begin
 end;
 
 procedure getScreenSize;
-var c:char;
 begin
-	(* empty keyboard buffer *)
-	while conavail do read(con, c);
-
 	GetTermSize(screenW, screenH);
 	pageSize := screenH - vMargins;
 	(* set scrolling region - DECSTBM *)
@@ -2467,8 +2463,6 @@ begin
 		close(infile);
 	end;
 
-	open(con, '%RAW', ModeOverwrite);
-
 	initScreen;
 	showScreen;
 
@@ -2477,6 +2471,7 @@ begin
 	else
 		statusMsg('Successfully read file.             Press F1 for help', false, false);
 
+	open(con, '%RAW', ModeOverwrite);
 
 	if errorLine > 0 then
 	begin

progs/reclaim.pas

@@ -323,7 +323,6 @@ begin
 
 				(* find next occupied slot *)
 				occSlotNo := scanDirSlots(volid, freeSlotNo + 1, occSlot, [SlotFirst]);
-
 				if occSlotNo <> 0 then
 				begin
 					fileExtents := (occSlot.sizeBytes + extentSize - 1) div extentSize;
@@ -380,14 +379,8 @@ begin
 					i := i + fileExtents;
 				end
 				else	(* no occupied slot found *)
-				begin
 					done := true;
-					(* mark first free slot of last free region as EndScan *)
+					(* TODO: mark first free slot of last free region as EndScan *)
-					freeslot.flags := freeslot.flags + [SlotEndScan];
-					putdirslot(volid, freeSlotNo, freeSlot, error);
-					if error <> IONoError then
-						writeln('Error writing dirslot ', clearSlotNo);
-				end
 			end
 			else	(* no free slot found *)
 				done := true;