GR.OPEN 255,255,255,255

GR.ORIENTATION 1

GR.SCREEN w,h

GR.SET.ANTIALIAS 0

GR.SET.STROKE 1

GR.COLOR 255,255,0,0,1

LIST.CREATE N,list1

FOR q=1 TO 14

    LIST.ADD list1,10

GR.POLY pt,list1

DO

    GR.RENDER

    FOR q=1 TO 14

        LIST.GET list1,q,x

        LIST.REPLACE list1,q,x+RND()*5

    NEXT

UNTIL 1=2

    LIST.CREATE N,list1 % Создаём список N означает что список числовой

    FOR q=1 TO 10

        LIST.ADD list1,q % Добавляем в список текущее значение q

    NEXT

    DIM list1[10]

    FOR q=1 TO 10

        list1[q]=q

    NEXT

    LIST.CREATE N,list1

    LIST.CREATE N,list2

    !Заполняем список list1

    FOR q=1 TO 5

        LIST.ADD list1,q

    NEXT

    !Заполняем список list2

    FOR q=6 TO 10

        LIST.ADD list2,q

    NEXT

    !Объединяем оба списка

    LIST.ADD.LIST list1,list2

    !Теперь список list1 состоит из 10 элементов от 1 до 10 а список list2 так и остался от 6 до 10

    DIM mas[10]

    LIST.CREATE N,list1

    FOR q=1 TO 10

        mas[q]=q

    NEXT

    LIST.ADD.ARRAY list1,mas[]

    DIM mas[10]

    LIST.CREATE N,list1

    FOR q=1 TO 10

        mas[q]=q

    NEXT

    LIST.ADD.ARRAY list1,mas[]

    ! Допустим нам надо поменять значение 5 элемента в списке на -50

    LIST.REPLACE list1,5,-50

    LIST.CREATE N,list1

    FOR q=1 TO 10

        LIST.INSERT list1,q,1

    NEXT

    LIST.CREATE N,list1

    FOR q=1 TO 10

        LIST.INSERT list1,q,1

    NEXT

    !Теперь выведем все элементы списка на экран

    FOR q=1 to 10

        LIST.GET list1,q,x % В переменную x записывается значение элмента списка под номером q

        PRINT x

    NEXT

    LIST.CREATE S,list1

    LIST.TYPE list1,t$

    PRINT t$

    LIST.CREATE N,list1

    x=ABS(RND()*10)+5 %Получаем случайное число от 5 до 15

    FOR q=1 to x

        LIST.INSERT list1,q,q

    NEXT

    ! Какого размера список получился мы не знаем но ...

    LIST.SIZE list1,x % Записываем в переменную x колличество элементов в списке list1

    PRINT x

    LIST.CREATE N,list1

    !Заполняем список случайными числоми от 1 до 15

    FOR q=1 TO 100

        LIST.INSERT list1,q,ABS(RND()*15)

    NEXT

    !Дольше можно сделать через DO UNTIL но я заметил что вы не используете эту конструкцию поэтому не знаю будет ли понятно могу написать через GOTO

    pos=1 %Начально значение с какого искать

    DO

        LIST.SEARCH list1,7,x,pos

        IF x<>0 THEN sch=sch+10 % Найдено число 7 увеличиваем счетчит на 1

        pos=x+1 % Будем искать дальше со следующей позиции

    UNTIL x=0 % Если больше не найдено выйти

    PRINT sch % Выводим сколько раз встретилось число 7

    LIST.CREATE N,list1

    DIM mas[100]

    FOR q=1 TO 100

        LIST.INSERT list1,q,ABS(RND()*15)

    NEXT

    LIST.TOARRAY list1,mas[] % Скопировать список list1 в массив mas[]

GR.OPEN 255,255,255,255

GR.ORIENTATION 0

GR.SCREEN w,h

GR.SET.ANTIALIAS 0

GR.SET.STROKE 1

GR.COLOR 255,255,0,0,1

LIST.CREATE N,list1

GR.RECT r,10,10,w-10,h-10

DIM m[8]

ARRAY.LOAD m[],10,h/2,w-10,h/2,w-10,h-10,10,w-10

LIST.ADD.ARRAY list1,m[]

FOR q=1 TO 60 STEP 2

    LIST.INSERT list1,2+q,10+ABS(w/30)*ABS(q/2)

    LIST.INSERT list1,2+q+1,ABS(RND()*(h-40))+20

GR.POLY pt,list1

DO

    GR.RENDER

    FOR q=1 TO 60 STEP 2

        LIST.REPLACE list1,2+q+1,ABS(RND()*(h-40))+20

    NEXT

UNTIL 1=2

    SCREEN 9

    x=INT(RND(10,630))

    y=INT(RND(10,470)

    xs=5

    ys=5

    DO

        CIRCLE (x,y),10,0 'Выводим шарик радиусом 10 цветом 0 то есть стираем его в старой позиции

        x=x+xs 'Новые координаты

        y=y+ys

        'Проверим на достижение краёв экрана

        IF x<5 OR x>635 THEN xs=xs*-1

        IF y<5 OR y>475 THEN ys=ys*-1

        CIRCLE (x,y),10,3 ' Выводим шарик в новой позиции 3 цветом

    UNTIL 3=2

    GR.OPEN 255,255,255,255,0,0 % соответственно прозрачность, красный, зелёный, голубой, статусная строка показывать или нет, горизонтальная ориентация экрана

    GR.SCREEN xx,yy %Узнаём разрешение экрана

    x=ABS(RND()*xx-10)+10

    y=ABS(RND()*yy-10)+10

    xs=5

    ys=5

    GR.COLOR 255,255,0,0,1 % Непрозрачный красный цвет с заливкой

    GR.CIRCLE q,x,y,10 % Помещаем шарик в список рендера. Он не будет отрисован немедленно. Но тут есть ньюанс. Теперь на этот шарик указывает переменная q(эта как ссылка что ли я не знаю как объяснить). В дальнейшем мы обращаемся к этой ссылке, переменной и меняем цвет, местоположение, размер конкретно у этого шарика.

    DO

        x=x+xs

        y=y+ys

        IF x<5 THEN xs=xs*-1

        IF x>xx-5 THEN xs=xs*-1

        IF y<5 THEN ys=ys*-1

        IF y>yy-5 THEN ys=ys*-1

        GR.MODIFY q,"x",x,"y",y % Тут мы обращаемся к шарику на который указывает переменная q и меняем его координаты. Стирать ничего не надо. Объект

        GR.RENDER %Даём комманду отрисовать. На данный момент у нас в списке на отрисовку всего один объект - q он и будет отрисован.

    UNTIL 3=2