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