10 REM > Test/src
   20 REM Basic shell test program
   30 :
   40 DIMctrl%31,data%79:A$=FNOS_GetEnv:CommandLine$=A$
   50 quit$=FNcl(" -q",1):ONERRORREPORT:PRINT:PROCexit(ERR):END
   60 debug%=FNcl("-d",0)
   70 :
   80 IFdebug%:PRINT"RunCommand= '"run$"'"'"CommandLine='"CommandLine$"'"'"quit$='"quit$"'"'"debug%=";debug%
   90 IFFNcl("-?",0):PRINT"Syntax: test (-debug) (<retval>) (-quit <fname>)":PROCexit(0):END
  100 :
  110 PROCexit(VALA$)
  120 END

Download Test.src

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.