Procedure get_file
gfile := Read_line("Enter file name : ");
If File_search(gfile) = ""
Then
Message('-- File not found --');
Else
Read_file(gfile);
Endif;
Endprocedure;
La touche "PF1 i" associée à la procédure get_file sera définie :
Define_key('get_file',Key_name("i",Shift_key));
