;  Command file to encode portable TeX files into Atari TeX files
;
;  encodes     "a -> �    etc.
;
;  since the double quote cannot be directly entered into a string,
;  we must do a trick with &cat here.
;
;  call it with:       M-x execute-file texin.cmd
;
;  -cs
;
	add-mode "exact"
	delete-mode "magic"
;
	beginning-of-file
	replace-string &cat &chr 34 "a" "�"
	beginning-of-file
	replace-string &cat &chr 34 "o" "�"
	beginning-of-file
	replace-string &cat &chr 34 "u" "�"
	beginning-of-file
	replace-string &cat &chr 34 "A" "�"
	beginning-of-file
	replace-string &cat &chr 34 "O" "�"
	beginning-of-file
	replace-string &cat &chr 34 "U" "�"
	beginning-of-file
	replace-string &cat &chr 34 "s" "�"
	beginning-of-file
	replace-string "\S{}" "�"
	beginning-of-file
;
;  -eof-