Skip to content

Commit

Permalink
Compatibilização
Browse files Browse the repository at this point in the history
  • Loading branch information
elenderg committed Dec 21, 2023
1 parent dc1a20d commit 36e88aa
Show file tree
Hide file tree
Showing 7 changed files with 706 additions and 715 deletions.
1 change: 0 additions & 1 deletion .gitattributes
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,6 @@ encoding=cp1252
# Indique todos os arquivos que são verdadeiramente binários e que não devem ser modificados.
*.png binary
*.jpg binary
*.exe binary
*.pdf binary
*.doc binary
*.docx binary
Expand Down
2 changes: 1 addition & 1 deletion PAL-1000/O Ambiente de Trabalho
Original file line number Diff line number Diff line change
Expand Up @@ -154,7 +154,7 @@ Rotina para que se ajuste um menu usando uma localiza
Obtenha um comando desde os comandos deste menu.
Se o comando for inexistente, pare.
Se a coordenada X desta localiza��o mais a largura deste comando for maior do que a coordenada X2,
Atribua a coordenada X desta original localiza��o � coordenada X desta localiza��o;
Atribua a coordenada X desta localiza��o original � coordenada X desta localiza��o;
Adicione a altura do bot�o do painel para a coordenada Y desta localiza��o.
Atribua a localiza��o e a localiza��o � caixa arredondada deste comando.
Adicione a largura deste comando e a altura do bot�o do painel para o canto inferior direito desta caixa arredondada deste comando.
Expand Down
320 changes: 178 additions & 142 deletions PAL-1000/O Compilador

Large diffs are not rendered by default.

1,048 changes: 502 additions & 546 deletions PAL-1000/O Cérebro

Large diffs are not rendered by default.

12 changes: 6 additions & 6 deletions PAL-1000/O Editor de Código
Original file line number Diff line number Diff line change
Expand Up @@ -737,7 +737,7 @@ Rotina para que se efetue a impress
Se o texto do campo estiver em branco, retorne.
Converta o texto do campo para um n�mero entre 1 e o maior n�mero.
Mostre o ambiente de trabalho com "Imprimindo...".
Imprima o n�mero de_ c�pias de_ o source.
Imprima o n�mero d' c�pias d' o source.
Mostre no painel de informa��es "Pronto".

Rotina para que se refa�a a a��o usando um source:
Expand Down Expand Up @@ -856,7 +856,7 @@ Rotina para que se nomeie uns blocos:
Nomeie o bloco.
Reitere.

Rotina para que se imprima uma c�pia de_ um n�mero de folhas de_ um n�mero de folhas/c�pia de_ um source:
Rotina para que se imprima uma c�pia d' um n�mero de folhas d' um n�mero de folhas/c�pia d' um source:
Se o source for inexistente, retorne.
Mostre no painel de informa��es a c�pia seguido de " de " junto com o n�mero de folhas seguido de " de " junto com o n�mero de folhas/c�pia seguido de "...".
Obtenha uma primeira linha de texto e uma �ltima linha de texto usando o n�mero de folhas e o source.
Expand All @@ -871,24 +871,24 @@ Rotina para que se imprima uma c
Reitere.
End a folha.

Rotina para que se imprima uma c�pia de_ um source:
Rotina para que se imprima uma c�pia d' um source:
Se o source for inexistente, retorne.
Atribua o n�mero de folhas/c�pia deste source para um n�mero de folhas/c�pia.
Atribua 1 para um n�mero de folhas.
Itere.
Se o n�mero de folhas for maior do que o n�mero de folhas/c�pia, retorne.
Imprima a c�pia de_ o n�mero de folhas de_ o n�mero de folhas/c�pia de_ o source.
Imprima a c�pia d' o n�mero de folhas d' o n�mero de folhas/c�pia d' o source.
Adicione 1 para o n�mero de folhas.
Reitere.


Rotina para que se imprima um n�mero de_ c�pias de_ um source:
Rotina para que se imprima um n�mero d' c�pias d' um source:
Se o source for inexistente, retorne.
Inicie a impress�o.
Itere.
Adicione 1 para uma c�pia.
Se a c�pia for maior do que o n�mero, pare.
Imprima a c�pia de_ o source.
Imprima a c�pia d' o source.
Reitere.
Acabe de imprimir.

Expand Down
22 changes: 11 additions & 11 deletions PAL-1000/O Editor de Documentos
Original file line number Diff line number Diff line change
Expand Up @@ -861,7 +861,7 @@ Rotina para que se determine se something est
Se a forma estiver selecionada, diga sim.
Reitere.

Rotina para que se determine se uma localiza��o est� em um cropper de_ uma forma sobre uma p�gina:
Rotina para que se determine se uma localiza��o est� em um cropper d' uma forma sobre uma p�gina:
Se a p�gina for inexistente, diga n�o.
Preserve a localiza��o.
Localize a localiza��o usando a origem desta p�gina.
Expand Down Expand Up @@ -969,15 +969,15 @@ Rotina para que se determine se uma localiza
Se a forma for inexistente, diga n�o.
Diga sim.

Rotina para que se determine se uma localiza��o est� em um sizer de_ uma forma sobre uma p�gina:
Rotina para que se determine se uma localiza��o est� em um sizer d' uma forma sobre uma p�gina:
Se a p�gina for inexistente, diga n�o.
Preserve a localiza��o.
Localize a localiza��o usando a origem desta p�gina.
Encontre a forma e o sizer usando as formas desta p�gina e a localiza��o.
Se a forma for inexistente, diga n�o.
Diga sim.

Rotina para que se determine se uma localiza��o est� em um v�rtice de_ uma forma sobre uma p�gina:
Rotina para que se determine se uma localiza��o est� em um v�rtice d' uma forma sobre uma p�gina:
Se a p�gina for inexistente, diga n�o.
Preserve a localiza��o.
Localize a localiza��o usando a origem desta p�gina.
Expand Down Expand Up @@ -1039,7 +1039,7 @@ Rotina para que se determine se uma localiza

Rotina para que se determine se o posicionador de uma p�gina deveria ser redefinido:
Se a p�gina for inexistente, diga n�o.
Obtenha uma caixa de_ as formas selecionadas sobre a p�gina.
Obtenha uma caixa d' as formas selecionadas sobre a p�gina.
Mova a caixa usando o par de n�meros deste posicionador desta p�gina.
Recue a caixa usando a quantidade de twips/pixel .
Mova a caixa usando a origem desta p�gina.
Expand Down Expand Up @@ -1868,7 +1868,7 @@ Rotina para que se obtenha um anchor com which para comece finding usando uma fo
Se a forma desta forma refer�ncia n�o for a forma atual desta p�gina, retorne.
Atribua o cursor de texto desta caixa de texto desta forma desta forma refer�ncia ao anchor.

Rotina para que se obtenha uma caixa de_ as formas selecionadas sobre uma p�gina:
Rotina para que se obtenha uma caixa d' as formas selecionadas sobre uma p�gina:
Se a p�gina for inexistente,
Limpe a caixa;
Retorne.
Expand Down Expand Up @@ -2769,13 +2769,13 @@ Rotina para que se execute um evento usando uma p
Se o evento foi alterado,
Execute o evento usando a p�gina (trace pol�gono);
Retorne. \ tracer
Se a localiza��o deste evento estiver em um cropper de_ a forma sobre a p�gina,
Se a localiza��o deste evento estiver em um cropper d' a forma sobre a p�gina,
Execute o evento usando a p�gina e a forma e o cropper (clique);
Retorne.
Se a localiza��o deste evento estiver em um v�rtice de_ a forma sobre a p�gina,
Se a localiza��o deste evento estiver em um v�rtice d' a forma sobre a p�gina,
Execute o evento usando a p�gina e a forma e o v�rtice (clique);
Retorne.
Se a localiza��o deste evento estiver em um sizer de_ a forma sobre a p�gina,
Se a localiza��o deste evento estiver em um sizer d' a forma sobre a p�gina,
Execute o evento usando a p�gina e a forma e o sizer (clique);
Retorne.
Se a localiza��o deste evento estiver na forma sobre a p�gina,
Expand All @@ -2793,7 +2793,7 @@ Rotina para que se execute um evento usando uma p
Se a localiza��o deste evento estiver no forma atual sobre a p�gina,
Execute o evento usando a p�gina (clique duplo - forma atual);
Retorne.
Se a localiza��o deste evento estiver em um v�rtice de_ uma forma sobre a p�gina,
Se a localiza��o deste evento estiver em um v�rtice d' uma forma sobre a p�gina,
Execute o evento usando a p�gina e a forma e o v�rtice (clique duplo);
Retorne.
Se a localiza��o deste evento estiver sobre a forma sobre a p�gina,
Expand Down Expand Up @@ -3478,7 +3478,7 @@ Rotina para que se execute yank usando uma p
Redefina o posicionador usando a p�gina.
Preserve o n�mero.
Atribua o n�mero ao yank da malha quadriculada deste documento.
Atribua "Yank " junto com o original n�mero / 1440 para uma string.
Atribua "Yank " junto com o n�mero original / 1440 para uma string.
Mostre o ambiente de trabalho com a string.

\Rotina para que se inicialize o caderno:
Expand Down Expand Up @@ -5192,7 +5192,7 @@ Rotina para que se rastreie o rubberband sobre uma p
Atribua a localiza��o deste mouse ao canto inferior direito desta caixa.
Role automaticamente a p�gina usando o canto inferior direito desta caixa e o sinalizador.
Localize o canto inferior direito desta caixa usando a origem desta p�gina.
Se a localiza��o atual estiver dentre a malha quadriculada de_ o canto inferior direito desta caixa, reitere.
Se a localiza��o atual estiver dentre a malha quadriculada d' o canto inferior direito desta caixa, reitere.
Ative o sinalizador.
Atribua o canto inferior direito desta caixa ao localiza��o atual.
Selecione as formas desta p�gina usando a caixa.
Expand Down
16 changes: 8 additions & 8 deletions PAL-1000/O Explorador de Arquivos
Original file line number Diff line number Diff line change
Expand Up @@ -329,25 +329,25 @@ Rotina para que se despeje um trecho para uma segundo trecho:
Itere.
Se o caractere inicial deste subtexto for maior do que o caractere final deste trecho, pare.
Se o caractere final deste subtexto for maior do que o caractere final deste trecho, atribua o caractere final deste trecho ao caractere final deste subtexto.
Despeje o subtexto de_ o trecho para o segundo trecho.
Despeje o subtexto d' o trecho para o segundo trecho.
Mova o subtexto usando 16.
Reitere.

Rotina para que se despeje um subtexto de_ um trecho para uma segundo trecho:
Despeje o subtexto de_ o trecho para o segundo trecho (endere�os).
Despeje o subtexto de_ o trecho para o segundo trecho (bytes hexadecimais).
Despeje o subtexto de_ o trecho para o segundo trecho (bytes ASCII).
Rotina para que se despeje um subtexto d' um trecho para um segundo trecho:
Despeje o subtexto d' o trecho para o segundo trecho (endere�os).
Despeje o subtexto d' o trecho para o segundo trecho (bytes hexadecimais).
Despeje o subtexto d' o trecho para o segundo trecho (bytes ASCII).
Acrescente o retorno de carro para a segundo trecho.
Acrescente a quebra de linha para a segundo trecho.

Rotina para que se despeje um subtexto de_ um trecho para uma segundo trecho (endere�os):
Rotina para que se despeje um subtexto d' um trecho para uma segundo trecho (endere�os):
Atribua o caractere inicial deste subtexto menos o caractere inicial deste trecho para um endere�o.
Converta o endere�o para uma cifra hexadecimal.
Acrescente a cifra hexadecimal para a segundo trecho.
Acrescente o caractere de espa�o para a segundo trecho.
Acrescente o caractere de espa�o para a segundo trecho.

Rotina para que se despeje um subtexto de_ um trecho para um segundo trecho (bytes ASCII):
Rotina para que se despeje um subtexto d' um trecho para um segundo trecho (bytes ASCII):
Lance um segundo subtexto sobre o subtexto.
Itere.
Se o segundo subtexto estiver em branco, pare.
Expand All @@ -358,7 +358,7 @@ Rotina para que se despeje um subtexto de_ um trecho para um segundo trecho (byt
Adicione 1 para o caractere inicial deste segundo subtexto.
Reitere.

Rotina para que se despeje um subtexto de_ um trecho para um segundo trecho (bytes hexadecimais):
Rotina para que se despeje um subtexto d' um trecho para um segundo trecho (bytes hexadecimais):
Lance um segundo subtexto sobre o subtexto.
Itere.
Se o segundo subtexto estiver em branco, pare.
Expand Down

0 comments on commit 36e88aa

Please sign in to comment.