&CONTROL OFF
&IF &INDEX LE 0 &GOTO -QUERY
*
&ERROR &EXIT &RETCODE
&TYPE Starting to compile &1
EX GOCOMP &1
EX BCPL8086 &1 S
ERASE &1 OCODE
&EXIT &RETCODE
*
-QUERY &TYPE File?
&RETCODE = 4
&EXIT 4