crazyettin
/
Thingamajig
1
0
Fork 0
Code Issues Pull Requests Projects Releases 2 Wiki Activity

Make the delete key insert the delete character

This commit is contained in:
CrazyEttin 2022-08-16 13:35:39 +03:00
parent 2b92cf26a5
commit f2986d50bd
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
emulator.pas
View File

@ -139,8 +139,9 @@ begin
//Non-ASCII
if keypressed then begin
Scan := ReadKey;
ASCII := false;
{$ifdef tape}
//Insert a tape in the tape reader
//The insert key sets a tape to be read
if Scan = ansichar ($52) then begin
writeln ();
write ('Tape to be read: ');
@ -149,7 +150,11 @@ begin
TapeInPos := 0
end;
{$endif}
ASCII := false;
//The delete key inserts the delete character
if Scan = ansichar ($53) then begin
Ch := ansichar ($7f);
ASCII := true;
end;
end
//Null
else ASCII := true;