LOVETEST.PAS

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:assion+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.