Return to peter.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/peter.p, revision 1.1.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.