.ENABLE SUBSTITUTION
       .SETS TCL "GBOX  "
       .SETS LANG "FORTRAN"
       PIP 'TCL'.CMD/PU:2
       PIP 'TCL'.OBJ/PU:2
       .IF LANG EQ "FORTRAN" .GOTO FORT
       .IF LANG EQ "COBOL" .GOTO COB
       .IF LANG EQ "BASIC" .GOTO BAS
       .IF LANG EQ "MACRO" .GOTO MACR
       .GOTO ERR
.FORT:
       F4P 'TCL','TCL'/-SP='TCL'
       .ONERR ERR
       .SETS SLIB "[1,1]F4POTS.OLB/LB,[1,1]SRXAPP.OLB/LB"
       .GOTO TKBILD
.COB:
       CBL 'TCL','TCL'/-SP='TCL'
       .ONERR ERR
       .SETS SLIB "DONT KNOW WHAT"
       .GOTO TKBILD
.BAS:
       .SETS SLIB "DONT KNOW WHAT"
       .GOTO TKBILD
.MACR:
       MAC 'TCL','TCL'/-SP='TCL'
       .ONERR ERR
       .GOTO TKBILD
.TKBILD:
       .OPEN 'TCL'.TMP
.ENABLE DATA
       'TCL','TCL'/-SP='TCL'
.DISABLE DATA
       .IFNDF TRAC .GOTO TKB2
.ENABLE DATA
       'TRAC'
.DISABLE DATA

.TKB2:
       .IFNDF SLIB .GOTO TKB3
.ENABLE DATA
       'SLIB'
.DISABLE DATA
.TKB3:
.ENABLE DATA
/
       UNITS=0
       ACTFIL=0
       STACK=50
       WNDWS=3
       VSECT=SYSVAR:160000:20000
.DISABLE DATA
       .IFNDF SHARED .GOTO TKCLO
.ENABLE DATA
       VSECT='SHARED':140000:20000
.DISABLE DATA
.TKCLO:
.ENABLE DATA
//
.DISABLE DATA
       .CLOSE
       TKB @'TCL'.TMP
       PIP 'TCL'.TMP;*/DE
       PIP 'TCL'.TSK/PU:2
       .GOTO DONE
.ERR:	! ERROR HAS OCCURRED - END OF COMMAND FILE PROCESSING.
.DONE: /