SCAR Code:
Procedure StrobeLine(Line:Integer);
var
s:string;
begin
S:=GetDebugLine(Line)
ClearDebugLine(Line)
wait(50)
ReplaceDebugLine(Line, S)
end;
Use like this
SCAR Code:
Procedure StrobeLine(Line:Integer);
var
s:string;
begin
S:=GetDebugLine(Line)
ClearDebugLine(Line)
wait(50)
ReplaceDebugLine(Line, S)
end;
Procedure Intro;
var
I, A:integer;
begin
cleardebug
Writeln(' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _')
Writeln('(_)(_)(_)(_)(_)(_)(_)(_)(_)(_) _(_)(_)(_)(_)_ (_)(_)(_)(_)(_)')
Writeln(' (_) (_) (_) (_) (_)')
Writeln(' (_) (_) _ _ (_)_ _ _ _ (_)')
Writeln(' (_) (_)(_)(_) (_)(_)(_)(_)_ (_)')
Writeln(' (_) (_) _ (_) (_)')
Writeln(' (_) (_) _ _ _ _ (_)_ _ _ _(_) (_)')
Writeln(' (_) (_)(_)(_)(_)(_) (_)(_)(_)(_) (_)')
wait(250)
repeat
for I:=0 to 8 do
StrobeLine(I);
Inc(A)
wait(500)
until(A=3)
end;
begin
Intro;
end.