Keyboard macros: Difference between revisions

m
remove retro11 example
(Added Perl example)
m (remove retro11 example)
Line 898:
text "(c) 1977 G. Beker"
]</lang>
 
=={{header|Retro}}==
There is a global key handler which we can hook into to capture keys. As a fairly trivial example, remap the '''~''' key to clear the display.
 
<lang Retro>[ default: getc
[ '~ = ] [ drop clear 0 ] when
] is getc</lang>
 
Additional '''when''' conditions could be added to handle other keys. Clearing the key handler to restore its default functionality is done by doing:
 
<lang Retro>devector getc</lang>
 
=={{header|REXX}}==
Anonymous user