PROCEDURE cjc_pcwrite_convert

LOCAL	where , pat , token ;


translate 
	( current_buffer , 
	ASCII ( 1 ) ,
	'!'  
	) ;


translate 
	( current_buffer , 
	ASCII ( 24 )     ,
	'^' 
	) ;
translate 
	( current_buffer , 
	ASCII ( 25 ) ,
	'\'  
	) ;


position ( beginning_of ( current_buffer ) ) ;

loop             
	where  :=  search ( 'PI' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'p' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'a%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'a' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'b%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'b' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'f%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'f' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'F%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'F' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'G%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'G' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'g%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'g' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'm%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 230 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'n%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'n' + ASCII ( 13 ) ) ;
endloop ;
	
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'p%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'q' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'P%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'Q' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'r%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'r' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'c%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'c' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'u%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'y' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'U%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'Y' + ASCII ( 13 ) ) ;
endloop ;
	
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'H%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'J' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'h%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'j' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'i%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'i' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'k%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'k' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'l%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'l' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'L%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'L' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 's%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 's' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'S%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'S' + ASCII ( 13 ) ) ;
endloop ;
	
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'x%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'x' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'X%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'X' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'y%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'h' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop                          
	where  :=  search ( 'z%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'z' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'D%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'D' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'e%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'e' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'w%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'w' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'W%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'W' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'd%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'd' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'd&' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'o' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'D&' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'E' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'i&' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'B' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'I&' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + '?' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'S&' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'S' + ASCII ( 13 ) ) ;
endloop ;
	
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( '=&' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'I' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 'x&' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'K' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( '.&' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 249 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( '==' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 'O' + ASCII ( 13 ) ) ;
endloop ;                    
	
position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( '<=' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + '<' + ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;

loop
 	where  :=  search ( '<>' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + '=' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( '>=' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + '>' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( 't%' , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 2 ) ;
	copy_text ( ASCII ( 13 ) + 't' + ASCII ( 13 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;
pat  :=  '-' & span ( '-' ) ;

loop
	where  :=  search ( pat , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	copy_text ( ASCII ( 13 ) ) ;
	translate ( where , '#' , '-' ) ;
	move_horizontal ( length ( where ) ) ;
	copy_text ( ASCII ( 13 ) ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;
token  :=  ASCII ( 13 ) ;
pat    :=  token & span ( ' 	' ) & token ;

loop
	where  :=  search ( pat , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 1 ) ;
	position ( search ( ASCII ( 13 ) , FORWARD , EXACT ) ) ;
	erase_character ( 1 ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;
token  :=  ASCII ( 24 ) ;
pat    :=  token & span ( ' 	' ) & token ;

loop
	where  :=  search ( pat , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 1 ) ;       
	position ( search ( ASCII ( 24 ) , FORWARD , EXACT ) ) ;
	erase_character ( 1 ) ;
endloop ;
	
position ( beginning_of ( current_buffer ) ) ;
token  :=  ASCII ( 25 ) ;
pat    :=  token & span ( ' 	' ) & token ;

loop
	where  :=  search ( pat , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 1 ) ;
	position ( search ( ASCII ( 25 ) , FORWARD , EXACT ) ) ;
	erase_character ( 1 ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( ASCII ( 24 ) , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 1 ) ;
	copy_text ( ASCII ( 24 ) + ASCII ( 6 ) ) ;
	position ( search ( ASCII ( 24 ) , FORWARD , EXACT ) ) ;
	erase_character ( 1 ) ;
	copy_text ( ASCII ( 6 ) + ASCII ( 24 ) ) ;
endloop ;

position ( beginning_of ( current_buffer ) ) ;

loop
	where  :=  search ( ASCII ( 25 ) , FORWARD , EXACT ) ;
	exitif ( where = 0 ) ;
	position ( where ) ;
	erase_character ( 1 ) ;
	copy_text ( ASCII ( 25 ) + ASCII ( 6 ) ) ;
	position ( search ( ASCII ( 25 ) , FORWARD , EXACT ) ) ;
	erase_character ( 1 ) ;
	copy_text ( ASCII ( 6 ) + ASCII ( 25 ) ) ;
endloop ;


ENDPROCEDURE ;