Sta.sh
program love_test;
type cyborg=string[25];
matrix_error=string[15];
waste_of_time=string[33];
routine_counter=0..65535;
havent_heard_of_it=byte;
var man,woman:cyborg;
emotion:matrix_error;
event:waste_of_time;
day:routine_counter;
passion:havent_heard_of_it;
begin
randomize;
while (1>0) do
begin
writeln('starting test...');
write('man: '); read(man);
write('woman: '); read(woman);
write('emotion='); read(emotion);
if (emotion='love')
then begin
write('initial passion: '); read(passion);
day:=0;
repeat day:=day+1;
write('day ',day);
write('daily event: '); read(event);
passion:=passion+length(event)+random(11)-5-day;
until (passion<=0);
writeln('test results for: ',man,', ',woman);
writeln('relationship duration: ',day,' day(s)');
writeln('next couple please.');
end
else writeln('emotion unrecognized. test failed.');
end;
end.
| Deviant Login | Shop | Join deviantART for FREE  |
Take the Tour  |
absolut extrem de original.
felicitari....original pana in maduva oaselor de programator
fav de la mine
thank you dear
apreciez