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     ! 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.