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 можно эксперементировать.