!
!	Cette procedure converti un fichier de type ASCII provenant d'un MAC
!		en un fichier ASCII destine a un VAX. Il transforme une partie
!		des codes 8 bits MAC (notament les caracteres accentues) 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.
!
!						11-JUN-1990 Francois FOUCHET
!
constant mac_char := "������������������������������������������������������"
			+"�����������������������������������";
constant vax_char := "���������������������������������������߿��'���ؿ�����"
			+"��������������������~�����-_"+'""'+"''���";
!
! Transforme des caracteres ASCII/MAC en ASCII/VAX
!
procedure decode_mac
translate (current_buffer,vax_char,mac_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_mac;
out_file := get_info(command_line,'output_file');
write_file(main_buffer,out_file);
exit;