header$ = 'Content-Encoding: utf-8'                                                                    
! Set the Content-Encoding to utf-8
  header$ = header$ + '@0d0a0d0a@'
	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="utf-8"'
! 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
!