program DaltonsTalker;
{$DEFINE SMART}
{$i srl/srl.simba}
Const
Message0=('Green: Join "dung store" 25 min refund');
Message1=('White: Join "dung store" Cheap & Fast!');
Message2=('Cyan: Cheap & Fast [Leeching FC] Cheap & Fast');

begin
 ClearDebug();
 SetupSRL();
Repeat
TypeSend(Message0);
TypeSend(Message1);
TypeSend(Message2);
Until(false)
end.