ROTINA_TABELA_MULTIPLICAR
	NUMERO-LINHA	=1
	LINHA-NUMERO(1)	=1
	EXECUTAR PROC-LINHA ATE' NUMERO-LINHA=10
	IMPRIMIR LINHA-NUMERO

PROC-LINHA
	NUMERO-LINHA	=NUMERO-LINHA+1
	NUMERO-COLUNA	=0
	IMPRIMIR LINHA-NUMERO
	EXECUTAR PROC-NUMERO ATE' NUMERO-LINHA	=NUMERO-COLUNA

PROC-NUMERO
	NUMERO-COLUNA = NUMERO-COLUNA+1
	LINHA-NUMERO (NUMERO-COLUNA)=NUMERO-LINHA * NUMERO-COLUNA