$EXEC {Compile and Code Generate a Pascal Unit} {filename build/comp.text} $ ${ %0 -- pathname of the unit to compile} ${ %1 -- (optional) pathname of the resulting object file. Defaults to %0} ${ Destroys file 'temp/c.i'} ${ %2 -- (optional) pathname of intrinsic.lib. Defaults to -#boot-intrinsic.lib} $ $IF %0='' THEN $WRITE 'File To Compile? ' $READLN %0 $IF %1='' THEN $WRITE "Name For Object File [ For %0]? " $READLN %1 $IF %2='' THEN $WRITE 'Name Of Intrinsic.lib [ For -#boot-intrinsic.lib]? ' $READLN %2 $ENDIF $ENDIF $ENDIF $DEFAULT %1 TO %0 $DEFAULT %2 TO '-#boot-intrinsic.lib' P{ascal Compile}?{option flag} %2 {intrinsic.lib} %0 {source file} {no listing file} %1 {object file} $ENDEXEC