Return to peter.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/peter.p, revision 1.1

1.1     ! root        1: program t( output , input );
        !             2:     begin
        !             3:        while not eof do begin
        !             4:            while not eoln do begin
        !             5:                if input^ in [ '+' , '-' , '*' , '/' , '%' ] then
        !             6:                    case input ^ of
        !             7:                        '+':    writeln( 'plus' );
        !             8:                        '-':    writeln( 'minus' );
        !             9:                        '*':    writeln( 'star' );
        !            10:                        '/':    writeln( 'slash' );
        !            11:                        '%':    writeln( 'percent' );
        !            12:                    end
        !            13:                else
        !            14:                    writeln( 'random char' );
        !            15:                get(input);
        !            16:            end;
        !            17:            get(input);
        !            18:        end;
        !            19:     end.

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