%EXTERNALSTRING(15) IFILE,OFILE
%EXTERNALROUTINESPEC RUN(%STRING(63) S)
%EXTERNALROUTINESPEC DEFINE(%STRING(63) S)
%EXTERNALROUTINESPEC LIST(%STRING(63) S)
%EXTERNALINTEGER STREAM
%EXTERNALROUTINESPEC SET MARGINS(%INTEGER A,B,C)
%EXTERNALROUTINE BASIC(%STRING(63) IF)
    OFILE='.TT' %UNLESS IF->IF.('/').OFILE
    %IF IF='' %OR IF='.TT' %START
        IF='.TT' ; STREAM=0
    %FINISHELSE STREAM=1
    IFILE = IF %UNLESS OFILE->OFILE.(',').IFILE
    OFILE='.TT' %IF OFILE=''
    %IF IF#'.TT' %AND ( OFILE=IF %OR OFILE=IFILE) %START
        PRINTSTRING('INVALID PARAMETERS')
        NEWLINE ; %STOP
    %FINISH
    DEFINE('ST01,'.IF)
    DEFINE('ST02,'.OFILE)
    DEFINE('ST03,'.IFILE)
    SELECTOUTPUT(2)
    %IF FROMSTRING(OFILE,1,3)='.LP' %THEN SETMARGINS(2,1,120)
    RUN('CSDEPT.BINTRO')
%END
%EXTERNALROUTINE BHELP
    LIST('CSDEPT.BHELPI')
%END
%ENDOFFILE