! xml content-type
	SET xml$ = 'Content-Type: text/xml '
! 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