10
20
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