Return to strngs.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/strngs.p, revision 1.1.1.1

1.1       root        1: program strngs(output);
                      2: 
                      3: const
                      4: STRSZE = 10000;
                      5: CHKPT1 = 6800;
                      6: CHKPT2 = 3000;
                      7: 
                      8: type
                      9: longstr = array[1..STRSZE] of char;
                     10: 
                     11: var
                     12: str1, str2 :longstr;
                     13: i :integer;
                     14: 
                     15: begin
                     16: for i := 1 to STRSZE do begin
                     17:        str1[i] := chr((i mod 127) + 1);
                     18:        str2[i] := chr((i mod 127) + 1);
                     19:        end;
                     20: str1[CHKPT1] := 'a';
                     21: str2[CHKPT1] := 'b';
                     22: if str1 = str2 then
                     23:        writeln('= fails')
                     24: else
                     25:        writeln('= succeeds');
                     26: if str1 <> str2 then
                     27:        writeln('<> succeeds')
                     28: else
                     29:        writeln('<> fails');
                     30: if str1 > str2 then
                     31:        writeln('> fails')
                     32: else
                     33:        writeln('> succeeds');
                     34: if str1 < str2 then
                     35:        writeln('< succeeds')
                     36: else
                     37:        writeln('< fails');
                     38: if str1 >= str2 then
                     39:        writeln('>= fails')
                     40: else
                     41:        writeln('>= succeeds');
                     42: if str1 <= str2 then
                     43:        writeln('<= succeeds')
                     44: else
                     45:        writeln('<= fails');
                     46: str1[CHKPT2] := 'a';
                     47: str2[CHKPT2] := 'b';
                     48: if str1 = str2 then
                     49:        writeln('= fails')
                     50: else
                     51:        writeln('= succeeds');
                     52: if str1 <> str2 then
                     53:        writeln('<> succeeds')
                     54: else
                     55:        writeln('<> fails');
                     56: if str1 > str2 then
                     57:        writeln('> fails')
                     58: else
                     59:        writeln('> succeeds');
                     60: if str1 < str2 then
                     61:        writeln('< succeeds')
                     62: else
                     63:        writeln('< fails');
                     64: if str1 >= str2 then
                     65:        writeln('>= fails')
                     66: else
                     67:        writeln('>= succeeds');
                     68: if str1 <= str2 then
                     69:        writeln('<= succeeds')
                     70: else
                     71:        writeln('<= fails');
                     72: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.