Converting F4P (FORTRAN 66) keywords to lowercase....



<fsaccept accept ;>

<fsassign assign ;>

 finished accept, assign


<fsbackspace backspace ;>
<fsblock datablock data;>
<fs	byte	byte;>
<fsbyte functionbyte function;>

 finished backspace, block data, byte, byte function


<fs) call) call;>
<fs	call	call;>
<fscarriagecontrol=carriagecontrol=;>
<fsclose close ;>
<fs	common	common;>
<fscomplexcomplex;>
<fscomplex functioncomplex function;>
<fscontinuecontinue;>

 finished call, carriagecontrol=, close, common,
	  complex, complex function, continue


<fs	data	data;>
<fsdecodedecode;>
<fsdefine filedefine file;>
<fsdelete delete ;>

<fsdimensiondimension;>
<sdo d;fsdodo>
<fsdouble precisiondouble precision;>
<fsdouble precision functiondouble precision function;>

 finished data, decode, define file, delete, dimension, do,
	  double precision, double precision function


<fsencodeencode;>
<fs	end	end;>
<fsend=end=;>
<fsendfile endfile ;>
<fsentry entry ;>
<fs	equivalence	equivalence;>
<fsexternal external ;>
<fserr=err=;>

 finished encode, end, end=, endfile, entry, equivalence, external, err=


<fsfind find ;>
<fsformatformat;>

 finished find, format


<fsgotogoto;>

 finished goto


<fsif (if (;>
<fsimplicitimplicit;>
<fs	include	include;>
<fs	integer	integer;>
<fsinteger functioninteger function;>

 finished if, implicit, include, integer, integer function


<fs	logical	logical;>
<fslogical functionlogical function;>

 finished logical, logical function


<fsname=name=;>

 finished name=


<fsopen (open (;>

 finished open


<fsparameter parameter ;>
<fspause pause ;>
<fsprint print ;>
<fsprogram program ;>

 finished parameter, pause, print, program


<fsread (read (;>
<fsreadonlyreadonly;>
<fs	real	real;>
<fsreal functionreal function;>
<fsreturnreturn;>
<fsrewind rewind ;>
<fsrewrite rewrite ;>

 finished read, readonly, real, real function, return, rewind, rewrite


<fs	stop	stop;>
<fs	subroutine	subroutine;>

 finished stop, subroutine


<fs	type 	type ;>
<fs type  type ;>
<fstype=type=;>

 finished type, type=


<fs(unit=(unit=;>
<fsunlock unlock ;>

 finished unit=, unlock


<fsvirtual virtual ;>

 finished virtual


<fswrite (write (;>

 finished write


<fs.and..and.;>
<fs.eq..eq.;>
<fs.eqv..eqv.;>
<fs.false..false.;>
<fs.ge..ge.;>
<fs.gt..gt.;>
<fs.le..le.;>
<fs.lt..lt.;>
<fs.ne..ne.;>
<fs.not..not.;>
<fs.or..or.;>
<fs.true..true.;>
<fs.xor..xor.;>

 finished .and., .eq., .eqv., .false., .ge., .gt., .le., .lt., .ne., .not.,
	  .or., .true., .xor.





    Ready for the second pass, the one which handles only VAX FORTRAN
(FORTRAN 77) 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 FORTRAN (FORTRAN 77) keywords to lowercase, type

			 mv<esc><esc>



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