This is what it was...
SCAR Code:
procedure GiveSurvey;
begin
MoveMouseSmooth(1119,528);
Wait(1000);
Clickmouse(1119,528,true);
Writeln('Surveys now Pending!');
Wait(3000);
end;
Procedure GetNewSurvey;
begin
MoveMouseSmooth(518,528);
Wait(1000);
Clickmouse(518,528,true);
Writeln('New Survey Chosen');
Wait(2000);
end;
//same procedure so took the begin/end out
begin
Wait(3000);
MoveMouseSmooth(1121,49);
Wait(1000);
Clickmouse(1121,49,true);
Wait(1000);
end.// took out the period
To this (added Standerds, 2 spaces)
SCAR Code:
procedure GiveSurvey;
begin
MoveMouseSmooth(1119,528);
Wait(1000);
Clickmouse(1119,528,true);
Writeln('Surveys now Pending!');
Wait(3000);
end;
Procedure GetNewSurvey;
begin
MoveMouseSmooth(518,528);
Wait(1000);
Clickmouse(518,528,true);
Writeln('New Survey Chosen');
Wait(2000);
Wait(3000);
MoveMouseSmooth(1121,49);
Wait(1000);
Clickmouse(1121,49,true);
Wait(1000);
end;
For repeat you just add repeat in the loop...
SCAR Code:
Begin;
SetUpTime;
Repeat;
Fillingout;
Submit;
SwitchToSwatCash;
GiveSurvey;
GetNewSurvey;
Until(False);
End;
End.
Sorry can't test because I'm at school... 
I love making you money!! 
~Stupedspam
Edit: heres with loop...(haven't tested...)
SCAR Code:
program OnlineSurveyCompleter;
var
i: Integer;
procedure SetUpTime;
begin
Writeln('5 Seconds');
Wait(1000);
Writeln('4 Seconds');
Wait(1000);
Writeln('3 Seconds');
Wait(1000);
Writeln('2 Seconds');
Wait(1000);
Writeln('1 Seconds');
Wait(1000);
Writeln('Blast off!');
end;
procedure Fillingout;
begin
MoveMouseSmooth(619,470);
Wait(1000);
ClickMouse(619,470,true);
SendKeys('dunceiam@gmail.com');
MovemouseSmooth(650,497);
Wait(1000);
Clickmouse(650,497,true);
SendKeys('M')
MoveMouseSmooth(635,528)
Clickmouse(635,528,true)
MoveMouseSmooth(631,522);
Wait(1000);
Clickmouse(631,522,true);
SendKeys('Sam');
MoveMouseSmooth(628,549);
Wait(1000);
Clickmouse(628,549,true);
SendKeys('Curley');
MoveMouseSmooth(632,577);
Wait(1000);
Clickmouse(632,577,true);
Sendkeys('25 Beech Street');
MoveMouseSmooth(631,630);
Wait(1000);
Clickmouse(631,630,true);
Sendkeys('Belmont');
MoveMouseSmooth(752,656);
Wait(1000);
Clickmouse(752,656,true);
MoveMouseSmooth(670,549);
ClickMouse(670,549,true);
MoveMouseSmooth(623,682);
Wait(1000);
ClickMouse(623,682,true);
Sendkeys('02478');
MoveMouseSmooth(663,725);
Wait(1000);
Clickmouse(663,725,true)
MoveMouseSmooth(612,779);
Wait(1000);
Clickmouse(612,779,true);
MoveMouseSmooth(718,725);
Wait(1000);
Clickmouse(718,725,true);
MoveMouseSmooth(689,358);
Wait(1000);
Clickmouse(689,358,true);
MoveMouseSmooth(779,724);
Wait(1000);
Clickmouse(779,724,true);
MovemouseSmooth(763,504)
Wait(1000);
ClickMouse(763,504,true);
MoveMouseSmooth(621,749);
Wait(1000);
ClickMouse(621,749,true);
SendKeys('6178235683');
end;
procedure Submit;
begin
{MoveMouseSmooth(830,749);
Wait(1000);
ClickMouse(830,749,true)}
Writeln('You have completed yet another survey you sexy thing!');
end;
procedure SwitchToSwatCash;
begin
MoveMouseSmooth(599,1036);
Wait(1000);
Clickmouse(599,1036,true);
Writeln('You have switched to SWATCash');
end;
procedure GiveSurvey;
begin
MoveMouseSmooth(1119,528);
Wait(1000);
Clickmouse(1119,528,true);
Writeln('Surveys now Pending!');
Wait(3000);
end;
Procedure GetNewSurvey;
begin
MoveMouseSmooth(518,528);
Wait(1000);
Clickmouse(518,528,true);
Writeln('New Survey Chosen');
Wait(2000);
Wait(3000);
MoveMouseSmooth(1121,49);
Wait(1000);
Clickmouse(1121,49,true);
Wait(1000);
end;
Begin;
SetUpTime;
i:= 0;
Repeat;
Fillingout;
Submit;
SwitchToSwatCash;
GiveSurvey;
GetNewSurvey;
i:= i + 1;
until(i=5)
End;
End.