Remove unused procedure with TODO

suomipelit · Jun 11, 2020 · f82f942 · f82f942
1 parent 7fba882
commit f82f942
Showing 1 changed file with 0 additions and 24 deletions.
diff --git a/SJ3HELP.PAS b/SJ3HELP.PAS
@@ -267,30 +267,6 @@ begin
 
 end;
 
-
-
-Procedure savescreen(str1:string);
-var f1 : text;
-    temp : integer;
- begin
-  assign(f1,str1);
-
- ReWrite(f1);
-
-  for temp:=0 to 1999 do
-   begin
-    if temp mod 80 = 0 then writeln(f1);
-
-    // TODO: Not yet ported
-    //write(f1,chr(mem[$b800:temp*2]));
-
-   end;
-
-
- Close(f1);
-
- end;
-
 Function txtp(jokuluku:longint):string;
 var str1 : string;
 begin