Return to peter.p CVS log

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

BSD 4.3reno

program t( output , input );
    begin
	while not eof do begin
	    while not eoln do begin
		if input^ in [ '+' , '-' , '*' , '/' , '%' ] then
		    case input ^ of
			'+':	writeln( 'plus' );
			'-':	writeln( 'minus' );
			'*':	writeln( 'star' );
			'/':	writeln( 'slash' );
			'%':	writeln( 'percent' );
		    end
		else
		    writeln( 'random char' );
		get(input);
	    end;
	    get(input);
	end;
    end.

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