HarryJames
2007-02-25 19:42:23
Here ya go its very simple
is it any good for a little expansion of a tut that i hav jut started SCAR?:f:
i would just like a little feadback please
is it any good for a little expansion of a tut that i hav jut started SCAR?:f:
// Made by 05hartor and Junkj
// Use the const aorb to swap between two diffrent sentences
program talk;
const
aorb=(''); // a=Text1 b=Text2
procedure Hello;
begin
if(aorb=('a'))then
begin
wait(1000)
writeln('Text1')
end;
end;
procedure Hello2;
begin
if(aorb=('b'))then
begin
wait(1000)
writeln('Text2!')
end;
end;
begin
repeat
hello;
hello2;
until(false)
end.i would just like a little feadback please