The DELETES.I include file resides on the Kyan Pascal 2.x Utilities Disk 1. It contains three procedures:
- PROCEDURE Backspace;
- PROCEDURE Delete_Char;
- PROCEDURE Delete_Line;
Source Code
PROCEDURE Backspace;
BEGIN
WRITE(CHR(126));
END;(* delete/backspace procedure *)
PROCEDURE Delete_Char;
BEGIN
WRITE(CHR(254));
END;(* delete character procedure *)
PROCEDURE Delete_Line;
BEGIN
WRITE(CHR(156));
END;(* delete line procedure *)
No comments:
Post a Comment