Converting standard PASCAL keywords to lowercase....



<fs abs( abs(;>
<fs and and;>
<fs and
 and
;>
<fs arctan( arctan(;>
<fsarray array ;>

 finished abs, and, arctan, array


<fs
begin 

begin ;>
<fs
begin


begin
;>
<fs
begin	

begin	;>
<fs begin
 begin
;>
<fs begin  begin ;>
<fs begin	 begin	;>
<fs:boolean:boolean;>
<fs boolean boolean;>

 finished begin, boolean


<fs case case;>
<fs	case 	case ;>
<fs:char:char;>
<fs char char;>
<fs chr( chr(;>
<fsconst  const ;>
<fs	const		const	;>
<fs cos( cos(;>

 finished case, char, chr, const


<fs div div;>
<fs do  do ;>
<fs downto downto;>

 finished div, do, downto


<fs	else 	else ;>
<fs else  else ;>
<fs
else


else
;>
<fs else
 else
;>
<fs
else


else
;>
<fs	else		else	;>
<fs	end;	end;;>
<fs	end
	end
;>
<fs end
 end
;>
<fs
end.

end.;>
<fs
end;

end;;>
<fs
end


end
;>
<fs end; end;;>
<fs else else;>
<fsend.end.;>
<fs eof( eof(;>
<fs eoln( eoln(;>
<fs exp( exp(;>

 finished else, end, eof, eoln, exp


<fs false
 false
;>
<fs false; false;;>
<fs:=false;:=false;;>
<fs:=false
:=false
;>
<fs file file;>
<fsfor for ;>
<fs forward forward;>
<fsfunction function ;>

 finished false, for, forward, function


<fs get( get(;>
<fsgoto goto ;>

 finished get, goto


<fs	if 	if ;>
<fs if  if ;>
<fs
if


if
;>
<fsif (if (;>
<fs input input;>
<fs:integer:integer;>
<fs integer integer;>

 finished if, input, integer


<fs label label;>
<fs ln( ln(;>

 finished label, ln


<fs maxint maxint;>
<fs mod mod;>

 finished maxint, mod


<fs new( new(;>
<fs nil nil;>
<fs not not;>

 finished new, nil, not


<fs odd( odd(;>
<fs of of;>
<fs or
 or
;>
<fs or  or ;>
<fs ord( ord(;>
<fs output output;>

 finished odd, of, or, ord, output


<fs pack( pack(;>
<fs packed packed;>
<fs page( page(;>
<fs pred( pred(;>
<fsprocedureprocedure;>
<fs program program;>
<fs put( put(;>

 finished pack, packed, page, pred, procedure, program, put


<fs read( read(;>
<fs readln( readln(;>
<fs readln( readln(;>
<fs readln; readln;;>
<fs readln  readln ;>
<fs	readln(	readln(;>
<fs	readln;	readln;;>
<fs	readln
	readln
;>
<fs readln
 readln
;>
<fs:real:real;>
<fs real real;>
<fs record record;>
<fs repeat repeat;>
<fs	repeat
	repeat
;>
<fs reset( reset(;>
<fs rewrite( rewrite(;>
<fs round( round(;>

 finished read, readln, real, record, repeat, reset, rewrite, round


<fs set  set ;>
<fs sin( sin(;>
<fs sqr( sqr(;>
<fs sqrt( sqrt(;>
<fs succ( succ(;>

 finished set, sin, sqr, sqrt, succ


<fs text text;>
<fs	then 	then ;>
<fs then  then ;>
<fs then
 then
;>
<fs
then 

then ;>
<fs
then


then
;>
<fsto to ;>
<fs true
 true
;>
<fs true; true;;>
<fs:=true;:=true;;>
<fs:=true
:=true
;>
<fs trunc( trunc(;>
<fs type type;>

 finished text, then, to, true, trunc, type


<fs unpack( unpack(;>
<fs until until;>

 finished unpack, until


<fs
var 

var ;>
<fs
var	

var	;>
<fs
var


var
;>
<fs var
 var
;>
<fs var  var ;>
<fs	var		var	;>

 finished var


<fswhile while ;>
<fs with with;>
<fswrites(write(;>
<fswrite(write(;>
<fs writeln( writeln(;>
<fs writeln; writeln;;>
<fs writeln  writeln ;>
<fs	writeln(	writeln(;>
<fs	writeln;	writeln;;>
<fs	writeln
	writeln
;>
<fs writeln
 writeln
;>

 finished while, with, write, writeln





    Ready for the second pass, the one which handles only VAX PASCAL
nonstandard keywords.

    The v q-register text area has been saved on the q-register stack. If you
wish to terminate execution now, type

			 ]v<esc><esc>

    If you wish to convert VAX PASCAL nonstandard keywords to lowercase, type

			 mv<esc><esc>



@^uv\eiteco$macros:PASLC3.TEC\