header$ = 'Content-Encoding: iso-8859-1'                                                                    
! Set the Content-Encoding to utf-8
  header$ = header$ + '@0d0a@'
	CMD$ = 'TYPE 0'                                    ! Set MIME type 0
	result$ = CONTROL(0,CMD$)                          ! send control
	Print header$                                      ! Print header

! xml content-type
	SET xml$ = 'Content-Type: text/xml; charset=iso-8859-1'
! Set the content-type to xml
	mime$ = xml$ + '@0d0a0d0a@'                        ! Make sure its terminated with two cr/lf
  CMD$ = 'TYPE 0'                                    ! Set MIME type 0
	result$ = CONTROL(0,CMD$)                          ! send control
	Print mime$                                        ! Print MIME type
!
  data$ = '<?xml version="1.0" encoding="iso-8859-1"?>'
  write (xml,DataFmt)