Fix a bug with the file handling for the tape punch
This commit is contained in:
parent
152d2d107f
commit
2c2c386e05
11
emulator.pas
11
emulator.pas
|
@ -267,7 +267,16 @@ begin
|
||||||
//Punch
|
//Punch
|
||||||
if Punch.Path <> '' then begin
|
if Punch.Path <> '' then begin
|
||||||
assign (TapeOut, Punch.Path);
|
assign (TapeOut, Punch.Path);
|
||||||
if Punch.Reset then begin
|
if FileExists (Punch.Path) = false then begin
|
||||||
|
try
|
||||||
|
rewrite (TapeOut);
|
||||||
|
write (TapeOut, R [X]);
|
||||||
|
close (TapeOut);
|
||||||
|
Punch.Reset := false;
|
||||||
|
except
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else if Punch.Reset then begin
|
||||||
try
|
try
|
||||||
rewrite (TapeOut);
|
rewrite (TapeOut);
|
||||||
write (TapeOut, R [X]);
|
write (TapeOut, R [X]);
|
||||||
|
|
Loading…
Reference in New Issue