SRL Archive - Research & Development Lounge

Procedure StrobeLine(Line:Integer);
var
  s:string;
begin
  S:=GetDebugLine(Line)
  ClearDebugLine(Line)
  wait(50)
  ReplaceDebugLine(Line, S)
end;

Use like this

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.

Ha, nice, looks cool.

Edit: Strob = Strobe ;) if you are referring to a strobe light.

right… fixed

Cool! Good job!