Código: Selecionar todos
********************************
procedure LETRAGRAND
parameters ll, co, titulo, carac
private wcoletra, wnuletra
if (Type("LL") = "U")
ll:= 0
endif
if (Type("CO") = "U")
co:= 0
endif
if (Type("TITULO") = "U")
titulo:= " "
endif
if (Type("CARAC") = "U")
carac:= 0
endif
wcoletra:= 1
wnuletra:= Len(titulo)
do while (wcoletra <= wnuletra)
wnmletra:= SubStr(titulo, wcoletra, 1)
LETRA_&WNMLETRA()
wcoletra:= wcoletra + 1
enddo
return
********************************
procedure LETRA_A
@ ll, co + 3 say Replicate(Chr(carac), 2)
@ ll + 1, co + 2 say Replicate(Chr(carac), 4)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 4, co + 1 say Replicate(Chr(carac), 6)
@ ll + 5, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
co:= co + 8
return
********************************
procedure LETRA_B
@ ll, co + 1 say Replicate(Chr(carac), 6)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 2 say Replicate(Chr(carac), 5)
@ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 6)
co:= co + 9
return
********************************
procedure LETRA_C
@ ll, co + 3 say Replicate(Chr(carac), 5)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 2)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 3 say Replicate(Chr(carac), 4)
co:= co + 9
return
********************************
procedure LETRA_D
@ ll, co + 1 say Replicate(Chr(carac), 5)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 5)
co:= co + 9
return
********************************
procedure LETRA_E
@ ll, co + 1 say Replicate(Chr(carac), 7)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 1)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 1)
@ ll + 3, co + 2 say Replicate(Chr(carac), 4)
@ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 1)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 1)
@ ll + 6, co + 1 say Replicate(Chr(carac), 7)
co:= co + 9
return
********************************
procedure LETRA_F
@ ll, co + 1 say Replicate(Chr(carac), 7)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 1)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 1)
@ ll + 3, co + 2 say Replicate(Chr(carac), 4)
@ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 1)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 4)
co:= co + 9
return
********************************
procedure LETRA_G
@ ll, co + 3 say Replicate(Chr(carac), 5)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 2)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 3)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 3 say Replicate(Chr(carac), 5)
co:= co + 9
return
********************************
procedure LETRA_H
@ ll, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 6)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
co:= co + 9
return
********************************
procedure LETRA_I
@ ll, co + 1 say Replicate(Chr(carac), 4)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2)
@ ll + 3, co + 2 say Replicate(Chr(carac), 2)
@ ll + 4, co + 2 say Replicate(Chr(carac), 2)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 4)
co:= co + 7
return
********************************
procedure LETRA_J
@ ll, co + 4 say Replicate(Chr(carac), 4)
@ ll + 1, co + 5 say Replicate(Chr(carac), 2)
@ ll + 2, co + 5 say Replicate(Chr(carac), 2)
@ ll + 3, co + 5 say Replicate(Chr(carac), 2)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 2 say Replicate(Chr(carac), 4)
co:= co + 9
return
********************************
procedure LETRA_K
@ ll, co + 1 say Replicate(Chr(carac), 4) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 2 say Replicate(Chr(carac), 4)
@ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 4) + " " + ;
Replicate(Chr(carac), 2)
co:= co + 9
return
********************************
procedure LETRA_L
@ ll, co + 1 say Replicate(Chr(carac), 4)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2)
@ ll + 3, co + 2 say Replicate(Chr(carac), 2)
@ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 1)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 7)
co:= co + 9
return
********************************
procedure LETRA_M
@ ll, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 1, co + 1 say Replicate(Chr(carac), 3) + " " + ;
Replicate(Chr(carac), 3)
@ ll + 2, co + 1 say Replicate(Chr(carac), 7)
@ ll + 3, co + 1 say Replicate(Chr(carac), 7)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + Chr(carac) ;
+ " " + Replicate(Chr(carac), 2)
@ ll + 5, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
co:= co + 9
return
********************************
procedure LETRA_N
@ ll, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 1, co + 1 say Replicate(Chr(carac), 3) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 4) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 4)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 3)
@ ll + 5, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
co:= co + 9
return
********************************
procedure LETRA_O
@ ll, co + 2 say Replicate(Chr(carac), 5)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 2 say Replicate(Chr(carac), 5)
co:= co + 9
return
********************************
procedure LETRA_P
@ ll, co + 1 say Replicate(Chr(carac), 6)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 2 say Replicate(Chr(carac), 5)
@ ll + 4, co + 2 say Replicate(Chr(carac), 2)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 4)
co:= co + 9
return
********************************
procedure LETRA_Q
@ ll, co + 2 say Replicate(Chr(carac), 4)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 2 say Replicate(Chr(carac), 4)
@ ll + 6, co + 4 say Replicate(Chr(carac), 4)
co:= co + 9
return
********************************
procedure LETRA_R
@ ll, co + 1 say Replicate(Chr(carac), 6)
@ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 2 say Replicate(Chr(carac), 5)
@ ll + 4, co + 2 say Replicate(Chr(carac), 4)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 3) + " " + ;
Replicate(Chr(carac), 2)
co:= co + 9
return
********************************
procedure LETRA_S
@ ll, co + 2 say Replicate(Chr(carac), 4)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2)
@ ll + 3, co + 2 say Replicate(Chr(carac), 4)
@ ll + 4, co + 5 say Replicate(Chr(carac), 2)
@ ll + 5, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 2 say Replicate(Chr(carac), 4)
co:= co + 8
return
********************************
procedure LETRA_T
@ ll, co + 1 say Replicate(Chr(carac), 6)
@ ll + 1, co + 1 say Chr(carac) + " " + Replicate(Chr(carac), 2) ;
+ " " + Chr(carac)
@ ll + 2, co + 3 say Replicate(Chr(carac), 2)
@ ll + 3, co + 3 say Replicate(Chr(carac), 2)
@ ll + 4, co + 3 say Replicate(Chr(carac), 2)
@ ll + 5, co + 3 say Replicate(Chr(carac), 2)
@ ll + 6, co + 2 say Replicate(Chr(carac), 4)
co:= co + 8
return
********************************
procedure LETRA_U
@ ll, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 2 say Replicate(Chr(carac), 4)
co:= co + 9
return
********************************
procedure LETRA_V
@ ll, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 2 say Replicate(Chr(carac), 4)
@ ll + 6, co + 3 say Replicate(Chr(carac), 2)
co:= co + 9
return
********************************
procedure LETRA_W
@ ll, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 1 say Replicate(Chr(carac), 2) + " " + Chr(carac) ;
+ " " + Replicate(Chr(carac), 2)
@ ll + 4, co + 1 say Replicate(Chr(carac), 7)
@ ll + 5, co + 1 say Replicate(Chr(carac), 3) + " " + ;
Replicate(Chr(carac), 3)
@ ll + 6, co + 2 say Chr(carac) + " " + Chr(carac)
co:= co + 9
return
********************************
procedure LETRA_X
@ ll, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 3 say Replicate(Chr(carac), 3)
@ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 5, co + 1 say Replicate(Chr(carac), 3) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
co:= co + 9
return
********************************
procedure LETRA_Y
@ ll, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 2 say Replicate(Chr(carac), 4)
@ ll + 4, co + 3 say Replicate(Chr(carac), 2)
@ ll + 5, co + 3 say Replicate(Chr(carac), 2)
@ ll + 6, co + 2 say Replicate(Chr(carac), 4)
co:= co + 9
return
********************************
function LETRA_Z
@ ll, co + 1 say Replicate(Chr(carac), 7)
@ ll + 1, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 3, co + 4 say Replicate(Chr(carac), 2)
@ ll + 4, co + 3 say Replicate(Chr(carac), 2) + " " + Chr(carac)
@ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
Replicate(Chr(carac), 2)
@ ll + 6, co + 1 say Replicate(Chr(carac), 7)
co:= co + 9
return Nil
* EOF