The easiest way to run this program is to use a text editor to copy it from the online version of this manual, modifying it if necessary to remove any extraneous characters introduced by the document formatter.

BEGIN "keyCod"

REDEFINE $scanName = "dpyHdr"; SOURCEFILE "(system library)";

INITIAL PROCEDURE;
BEGIN
BOOLEAN mapped;
INTEGER ch,row;
POINTER(dpyCls) dpy;
mapped := confirm("Y for mapped key codes, N for unmapped");
dpy := new($sGet("Display module: "));
dpy.initializeTerminal; dpy.clearScreen;
row := 0;
DOB ch := IF mapped THEN dpy.dpycRead EL dpy.unmappedDpycRead;
    dpy.setCursorOnScreen(row,0);
    IF row .+ 1 > dpy.lastRowOfScreen THENB
        dpy.clearScreen; row := 0 END;
    dpy.overstrikeChars(cvs(ch)) END UNTIL ch = 'q' OR ch = 'Q';
dpy.deInitializeTerminal;
dispose(dpy);
END;

END "keyCod"