* Substitui letras de uma cadeia por outras
* Autor: Antonio e Junior
* Em 9/11/2000

escreve "Escreva uma frase qualquer em Zenit Polar (sem acentos)"
le f
seja f maiusc f

* substitui zenit por cadeias que não são encontradas

substitui f "Z" "=@"
substitui f "E" "=#"
substitui f "N" "=%"
substitui f "I" "=&"
substitui f "T" "=*"

* substitui polar por zenit

substitui f "P" "Z"
substitui f "O" "E"
substitui f "L" "N"
substitui f "A" "I"
substitui f "R" "T"

* substitui as cadeias trocadas primeiramente por polar

substitui f "=@" "P"
substitui f "=#" "O"
substitui f "=%" "L"
substitui f "=&" "A"
substitui f "=*" "R"

escreve f
le