oldane
2007-09-01 13:51:46
this is my first script sorry its a bit basic but i will get better
2007-09-01 13:51:46
2007-09-01 13:57:33
program script;
const
Message1='Hello world!';
procedure Hello;
begin
wait(100)
Writeln(Message1);
end;
begin
repeat
hello;
until(false)
end.program New;
begin
end.2007-09-01 16:35:53
program script;
var count :integer;
const
Message1='Hello world!';
procedure Hello;
begin
inc(count);
wait(100)
Writeln(Message1);
end;
begin
repeat
hello;
if count > 10 then
begin
cleardebug
count := 0;
end;
until(false)
end.
2007-09-07 01:57:41
2007-09-07 16:30:27