afont(fontlist) lnFonts=alen(fontlist) clear for x=1 to lnFonts ?fontlist(x)+ ' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ' font fontlist(x) if x%20=0 wait 'Press enter to continue' wind clear endif endfor>Thanks again. Tha's a neat tip.
>@14,2 SAY 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ' >>
>>>>>CLEAR >>>>> >>>>>_SCREEN.FONTNAME = "foxfont" >>>>> >>>>> >>>>>_SCREEN.FONTsize = 10 >>>>>@ 1,1 say 'HELLO, WORLD' >>>>> >>>>>_SCREEN.FONTsize = 11 >>>>>@ 5,1 say 'HELLO, WORLD' >>>>> >>>>>_SCREEN.FONTsize = 12 >>>>>@ 10,1 say 'HELLO, WORLD' >>>>> >>>>>_SCREEN.FONTsize = 13 >>>>>@ 15,1 say 'HELLO, WORLD' >>>>> >>>>>_SCREEN.FONTsize = 14 >>>>>@ 20,1 say 'HELLO, WORLD' >>>>> >>>>>_SCREEN.FONTsize = 15 >>>>>@ 25,1 say 'HELLO, WORLD' >>>>>>>>>>