Procedure header
Copy_Text('$!');
Split_line;
Copy_text('$!****************************************************************');
Split_line;
Copy_text('$!** **');
Split_line;
Copy_text('$!** Date : **');
Split_line;
Copy_text('$!** **');
Split_line;
Copy_text('$!** Program written by : **');
Split_line;
Copy_text('$!** Release : **');
Split_line;
Copy_text('$!** Last modification : **');
Split_line;
Copy_text('$!** **');
Split_line;
Copy_text('$!** Description : **');
Split_line;
Copy_text('$!** **');
Split_line;
Copy_text('$!** **');
Split_line;
Copy_text('$!****************************************************************');
Split_line;
Copy_text('$!');
Split_line;
Endprocedure;
La touche "PF1 h" associée à la procédure header sera définie :
Define_key('header',Key_name("H",Shift_Key));
