.ENABLE SUBSTITUTION
.SETF $CAM
.SETF $VER
.SETF $VAP
.SETF $TEK
.SETT $F4P
.SETF $SSP
.SETF $PAS
.SETF $RUN
.SETT $CMD
.SETS ARG P1
.GOSUB SPLIT
.SETS ARG P2
.GOSUB SPLIT
.SETS ARG P3
.GOSUB SPLIT
.SETS ARG P4
.GOSUB SPLIT
.SETS ARG P5
.GOSUB SPLIT
.SETS ARG P6
.GOSUB SPLIT
.SETS ARG P7
.GOSUB SPLIT
.SETS ARG P8
.GOSUB SPLIT
.SETS ARG P9
.GOSUB SPLIT
.SETT FIRST
.LINE:
.ASKS CMD COMMAND
.IF CMD EQ "" .GOTO LINE
.TEST CMD
.SETN L <STRLEN>
.LSTRB:
.SETS C CMD[L:L]
.IF C EQ " " .DEC L
.IF C EQ " " .IF L GT 0 .GOTO LSTRB
.IF L LE 0 .GOTO LINE
.SETS CMD CMD[1:L]
.SETT MORE
.SETS C CMD[1:1]
.IF C EQ "/" .SETF MORE
.IFT MORE .GOTO DOIT
.IFF FIRST .GOTO NOMORE
.GOTO LINE
.DOIT:
.IFF FIRST .GOTO OUTIT
.SETF FIRST
.SETN I 1
.SETN J 0
.SETN K 1
.SETF INUIC
.TEST CMD
.SETN L <STRLEN>
.LOOP:
.SETS C CMD[I:I]
.IF C EQ "[" .SETT INUIC
.IF C EQ "]" .SETF INUIC
.IF C EQ "]" .SETN K I+1
.IFF INUIC .IF C EQ "," .GOTO SEP
.IFF INUIC .IF C EQ "." .GOTO SEP0
.IF C EQ ";" .GOTO SEP0
.IF C EQ "/" .GOTO SEP
.IF C EQ "=" .GOTO SEP
.INLOOP:
.INC I
.IF I LE L .GOTO LOOP
.GOTO SEP
.SEP0:
.IF J EQ 0 .SETN J I-1
.GOTO INLOOP
.SEP:
.DEC I
.IF J EQ 0 .SETN J I
.SETS $NAME " "
.IF I EQ 0 .SETF $RUN
.IF J LT K .SETF $CMD
.IF I GT 0 .SETS $NAME CMD[1:I]
.IF J GE K .SETS $CNAME CMD[K:J]
.IFF $CMD .SETS $CNAME "TKBTMP"
PIP '$CNAME'.CMD;777/DE/NM
.OPEN '$CNAME'.CMD;777
.OUTIT:
.DATA 'CMD'
.GOTO LINE
.NOMORE:
.SETF NOOPTS
.IF CMD EQ "//" .SETT NOOPTS
.IFT $CAM .DATA [1,1]CAMLIB/LB
.IFT $VER .DATA [1,1]PEPLIB/LB:.DATA.,PEPLIB/LB
.IFT $VAP .DATA [1,1]VAPPLB/LB:.DATA.:VSMTBL,VAPPLB/LB
.IFT $SSP .DATA [1,1]SSPF4P/LB
.IFT $TEK .DATA [1,1]TKPLTR/LB:.DATA.,TKPLTR/LB
.IFT $PAS .DATA [1,1]PASLIB/LB
.DATA [1,1]F4POTS/-MA/LB
.DATA /
.IFT $F4P .DATA LIBR=F4PRES:RO
.IFT NOOPTS .GOTO ENDIT
.OLINE:
.ASKS OPT OPTION
.IF OPT EQ "" .GOTO OLINE
.TEST OPT
.SETN L <STRLEN>
.OSTRB:
.SETS C OPT[L:L]
.IF C EQ " " .DEC L
.IF C EQ " " .IF L GT 0 .GOTO OSTRB
.IF L LE 0 .GOTO OLINE
.SETS OPT OPT[1:L]
.IF OPT EQ "//" .GOTO ENDIT
.DATA 'OPT'
.GOTO OLINE
.ENDIT:
.DATA //
.CLOSE
TKB @'$CNAME'.CMD
.IFF $CMD PIP '$CNAME'.CMD;777/DE
.IFT $RUN RUN '$NAME'
/
.SPLIT:
.TEST ARG
.SETN L <STRLEN>
.IF L LT 3 .RETURN
.SETS NONO ARG[1:2]
.IF NONO EQ "NO" .GOTO NO
.SETS ARG ARG[1:3]
.SETT $'ARG'
.RETURN
.NO:
.SETS ARG ARG[3:5]
.SETF $'ARG'
.RETURN