escreve "código id"
le i

seja $recurso "/notificacoes/"
concatena $recurso i
seja $baseurl "38.210.210.61"
seja $metodo "DELETE "
seja $porta 6001
seja $useragent "Cinevox"
seja $versao_http " HTTP/1.1"

internet inicia
conecta #0 $baseurl $porta

escreve #0 $metodo $recurso $versao_http
escreve #0 "Host: "$baseurl
escreve #0 "User-Agent: "$useragent
escreve #0 "Accept: */*"
escreve #0 "Connection: Close"
escreve #0 ""
le #0 l
escreve l
enquanto l <> ""
le #0 l
fim enquanto

le #0 l
fecha #1
escreve l
internet termina
