SCAR Code:
procedure scrolly;
var i,a,line:integer;
const lines=10;
begin
cleardebug;
repeat
begin
case i of
0:writeln('line 1');
1:writeln('line 2');
2:writeln('line 3');
3:writeln('line 4');
4:writeln('line 5');
5:writeln('line 6');
6:writeln('line 7');
7:writeln('line 8');
8:writeln('line 9');
9:writeln('line 10');
10:writeln('line 11');
11:writeln('line 12');
12:writeln('line 13');
13:writeln('line 14');
14:writeln('line 15');
15:writeln('line 16');
end;
wait(500);
line:=line+1;
i:=i+1;
a:=a+1;
end;
until a>=5;
repeat
cleardebug;
for i:=a-4 to a do
begin
case i of
0:writeln('line 1');
1:writeln('line 2');
2:writeln('line 3');
3:writeln('line 4');
4:writeln('line 5');
5:writeln('line 6');
6:writeln('line 7');
7:writeln('line 8');
8:writeln('line 9');
9:writeln('line 10');
10:writeln('line 11');
11:writeln('line 12');
12:writeln('line 13');
13:writeln('line 14');
14:writeln('line 15');
15:writeln('line 16');
end;
end;
wait(500);
line:=line+1;
a:=a+1;
until line>=lines;
wait(20000);
cleardebug;
end;