TPU : save

Procedure save_lines
Local
wfile,
confirm,
w_range;

If write_in_progress = 0
Then
w_debut := Mark(bold);
write_in_progress := 1;
Message('-- Starting write line(s) to file --');
Else
w_fin := Mark(bold);
write_in_progress := 0;
w_range := Create_range(w_debut,w_fin,REVERSE);
Update(Current_Window);
confirm := Read_line('Ok to write Y/N : ');
Edit(confirm,UPPER);
if confirm = "Y"
Then
wfile := Read_line('Enter output file name : ');
Edit(wfile,COLLAPSE);
If wfile = ""
Then
  Message('Aborted by user, null file name');
  Abort;
Else
  Write_file(w_range,wfile);
Endif;
Else
Message('Aborted by user entry ...');
Abort;
Endif;
w_range := 0;
w_debut := 0;
w_fin   := 0;
Endif;
Endprocedure;