Code: Select all
GRAPHICS
OPTION BASE 1
maxx=SCREEN_WIDTH()
maxy=SCREEN_HEIGHT()
DIM A$(12)
DATA "qwer","wert","erty","rtyu","tyui","dfgh","qwsa","lkjh","tgvc","nbvf","tyui","vcbv"
FOR k=1 TO 12
READ A$(k)
NEXT k
SET LISTS CUSTOM
FILL COLOR 1,1,1
DRAW COLOR 0,0,1
LIST "das" TEXT A$ AT 0,0 SIZE maxx/3, maxy
LOOP:
ls=LIST_SELECTED("das")
IF ls >= 0 AND ls <> ols THEN
ols=ls
DRAW TEXT ls AT maxx/2,0
END IF
GOTO LOOP