Attention : elle utilise la version 2 de vertel !!!
genfin(l)
Prgm
Clrhome
local f,att temp,a,key
vertel2("v_type","l","/","e_retr","a")
if a [1]=/="LIST"
Stop
vertel2("d_clrs","/","d_save","temp",0,0,159,99)
for a,1,dim(l)
getkey()->key
99->f
while f>=99-(expr(left(l[a],1))+3)*2
vertel2("d_pict","temp",0,-1,1,"/","d_line",0,99,159,99,1,"/","t_draw",right(l[a],dim(l[a])-1),999,f,expr(left(l[a],1)),1,"/","d_save","temp",0,0,159,99,"/","d_pict","temp",0,-1,1)
f-1->f
endwhile
endfor
for a,-1,-102,-1
vertel2("d_pict","temp",0,a,1)
for att,1,15
endfor
endfor
lbl fin
endprgm
Utilisation :
genfin({"0C'était","2DES CHIFFONS ET","2DES LETTONS","1 ","0Presente par","1Patrice AFFRONT","2 ","0(C) 2003 FRANCE DEGUEU"})
...
