TPU : set

Procedure set_width
If Get_info(SCREEN,"WIDTH") = 80
Then
Set(WIDTH,Current_Window,132);
Else
Set(WIDTH,Current_Window,80);
Endif;
Endprocedure;

La touche "CTRL b" associée à la procédure set_width sera définie :

Define_Key('set_width',CTRL_B_KEY);