DIM MenuNome$(1 to 32),MenuLinha%(1 to 32),MenuColuna%(1 to 32),MenuCor%(1 to 4)
MenuMax%=0
DEFINT A-Z
SUB MenuColor (NormF,NormB,SelF,SelB)
SHARED MenuCor%() 
MenuCor%(1)=NormF:MenuCor%(2)=NormB:MenuCor%(3)=SelF:MenuCor%(4)=SelB
END SUB
function MenuRead
SHARED MenuMax%,MenuNome$(),MenuLinha%(),MenuColuna%(),MenuCor%() 
TmpLin=CSRLIN:TmpCol=POS(0)
it=1
DO
FOR i=1 TO MenuMax%
IF i=it THEN COLOR MenuCor%(3),MenuCor%(4)
LOCATE MenuLinha%(i),MenuColuna%(i):?MenuNome$(i);
COLOR MenuCor%(1),MenuCor%(2)
NEXT
SELECT CASE INKEY$
CASE CHR$(0)+"H",CHR$(0)+"K":it=it-1:IF it=0 THEN it=MenuMax%
CASE CHR$(0)+"P",CHR$(0)+"M":it=it+1:IF it>MenuMax% THEN it=1
CASE "":Exit loop
CASE CHR$(13):MenuRead=it:Exit loop
END SELECT
LOOP
LOCATE TmpLin,TmpCol
END FUNCTION
SUB Prompt (linha,coluna,expr$)
SHARED MenuNome$(),MenuLinha%(),MenuColuna%(),MenuMax% 
IF MenuMax%=32 THEN EXIT SUB
MenuMax%=MenuMax%+1
MenuNome$(MenuMax%)=expr$
MenuLinha%(MenuMax%)=linha
MenuColuna%(MenuMax%)=coluna
END SUB