&CONTROL OFF
&IF &INDEX LE 0 &GOTO -QUERY
*
&ERROR &EXIT &RETCODE
&TYPE STARTING TO COMPILE &1
EX GOCOMP &1
EX BCPL8086 &1 SL
ERASE &1 OCODE
&EXIT &RETCODE
*
-QUERY &TYPE FILE?
&RETCODE = 4
&EXIT 4