!
!	Cette procedure converti un fichier de type ASCII provenant d'un PC
!		en un fichier ASCII destine a un VAX. Il transforme une partie
!		des codes 8 bits PC (notament les caracteres accentues et
!		une partie des caracteres graphiques) en code 8 bits compris
!		par un VAX.
!
!	Exemple donne en l'etat a la messagerie DECUS, sans garantie de
!		fonctionnement et sans engagements de la part de son auteur
!		et/ou de sa societe.
!
!						23-OCT-1989 Francois FOUCHET
!
constant PC_CHAR :=
	'���������������������������������������������������������������'+
	'�����������������������������';
constant VAX_CHAR :=
	'������a��������A����������ܢ��?f�����Ѫ��++�����   |++++++|++++'+
	'+++++-++++++++-+++++++++++++';
!
! Transforme des caracteres ASCII/PC en ASCII/VAX
!
procedure decode_pc
translate (current_buffer,vax_char,pc_char);
endprocedure
!
!	Main loop
!
inp_file := get_info(command_line,'file_name');
main_buffer := create_buffer("MAIN",inp_file);
position(beginning_of(main_buffer));
decode_pc;
out_file := get_info(command_line,'output_file');
write_file(main_buffer,out_file);
exit;