rem Chain
    rem by David A. Williams with modifications by Richard T. Russell
    rem Modified for RFO Basic by Roy Shepherd
    
    di_height = 1152 % set to my Device
    di_width = 672

    gr.open 255, 0, 0, 0
    gr.orientation 1 % Portrait 

    pause 1000

    WakeLock 3 

    gr.text.size 40
    
    gr.screen screenWidth, screenHeight
    scale_x = screenWidth / di_width
    scale_y = screenHeight / di_height
    gr.scale scale_x, scale_y
    
      t=0 

      inc = 0.06
      !inc = 0.09

      balls = 100

      r = 50 : g = 150 : b = 250

      do

        r ++ : g ++ : b ++

        gr.cls

        gr.color 150, r, g, b, 1

        for I = 1 to balls

           X = 320 + 180 * sin(toradians(t/3+I )) * cos(toradians(t+8*I ))

           Y = 256 + 180 * cos(toradians(t/4+2*I )) * sin(toradians(t+10*I ))

           !Y = 256 + 180 * cos(toradians(t/4+2*I )) * sin(toradians(t+10*I ))

           !Y = 256 + 180 * cos(toradians(t/4+8*I )) * sin(toradians(t+10*I ))


           t+=inc

          gr.circle null, X , Y , 15

        next

        gr.render

      until 0
     
     onBackKey:
     
     end

! Меняя значения inc и Y можно эксперементировать.