$  Small program to produce z80 code from bcpl source

proc run( command ):
     obey command

     if  rc ~= 0  then
         exit( rc, command )
     fi
corp

parse args: source, dest, etc

while  source = ""  do  prompt "File: ": source, dest, etc  od

if  dest = ""  then  dest  :=  "t:code"  fi

run( "bcp" source "ocode t:ocode opt ws20000/sa2/nu/-op" )
run( "idw:68000-obj.z80cg t:ocode" dest etc )


