Нужен проект по информатике qbasic коды с движущимся , если кто такое делал, то !

Screen  7 color 1, 2 for x = 1 to 200 step 10     pset (x, 50), 4     sleep 1     pset (x, 50), 2 next x endдвижение точки.без dosboxcolor 1, 2for x = 1 to 20    cls    locate 5, x    print "*"    sleep 1next xend

// pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin   var s: =readinteger('n=').tostring.joinintostring('');   writeln('цифр в числе- ',s.length);   writeln('сумма цифр- ',s.select(d-> integer.parse();   writeln('последняя цифра- ',s.last);   writeln('первая цифра- ',s.first);   writeln('предпоследняя цифра- ',s[s.length-1]);   var m: =readinteger('m=');   write('сумма ',m,' последних цифр числа- ');   writeln(s.skip(s.length-m).select(d-> integer.parse();   write('цифра 3 в запись числа ');   if pos('3',s)> 0 then writeln('входит')   else writeln('не входит');   writeln('число в обратном порядке- ',s.reverse.joinintostring(''));   writeln('перестановка первой и последней цифр- ',       s.last+copy(s,2,s.length-2)+s.first); end. тестовое решение: n= 1063 цифр в числе- 4 сумма цифр- 10 последняя цифра- 3 первая цифра- 1 предпоследняя цифра- 6 m= 2 сумма 2 последних цифр числа- 9 цифра 3 в запись числа входит число в обратном порядке- 3601 перестановка первой и последней цифр- 3061

//pascal abc.net v3.0 сборка 1111 var   a,b,c,d: integer; begin   read(a,b);   c: =a;   d: =b;   while (a< > 0) and (b< > 0) do   if a> b then a: =a mod b else b: =b mod a;   writeln(c div (a+b));   writeln('');   writeln(d div (a+b)); end. //а теперь программа для тестов, выведет 1000 результатов в файл var   a,b,c,d,i: integer;   f: text; begin   assign(f,'text.txt');   rewrite(f);   for i: =1 to 1000 do     begin;       a: =random(1,100);   b: =random(1,100);   c: =a;   d: =b;   while (a< > 0) and (b< > 0) do   if a> b then a: =a mod b else b: =b mod a;   writeln(f,c,' ',c div (a+b));   writeln(f,'=': length(inttostr(;   writeln(f,d,' ',d div (a+b));   writeln(f);     end;   close(f); end.