;
; File to copy FILES media
;
.ENABLE SUBSTITUTION
.;
.; FIRST ASK THE "FROM WHERE" QUESTIONS
.;
;----------------------------------------------
.ASKS WHERE From [ddnn: D:SY:]
.IF WHERE NE "" .GOTO 10
.SETS FM "SY"
.GOTO 20
.;
.; REMOVE COLON, IF SUPPLIED
.;
.10:
.SETN TEMPN <STRLEN>
.SETS TEMPS WHERE[<STRLEN>:<STRLEN>]
.IF TEMPS EQ ":" .DEC TEMPN
.SETS FM WHERE[1:TEMPN]
.20:
;
.ASKS UIC From UIC if not '<UIC>'
.IF UIC EQ "" .SETS UIC <UIC>
.;
.; REMOVE BACKETS, IF SUPPLIED
.;
.TEST UIC
.SETN TEMPN 1
.SETN TEMPN2 <STRLEN>
.SETS TEMPS2 UIC[1:1]
.SETS TEMPS3 UIC[<STRLEN>:<STRLEN>]
.IF TEMPS2 EQ "[" .INC TEMPN
.IF TEMPS3 EQ "]" .DEC TEMPN2
.SETS FMUIC UIC[TEMPN:TEMPN2]
.;
.; NEXT, ASK THE "TO WHERE" QUESTIONS
;
;--------------------------------------------------
.ASKS WHERE To [ddnn: D:SY:]
.IF WHERE NE "" .GOTO 50
.SETS TO "SY"
.GOTO 60
.;
.; REMOVE COLON, IF SUPPLIED
.;
.50:
.SETN TEMPN <STRLEN>
.SETS TEMPS WHERE[<STRLEN>:<STRLEN>]
.IF TEMPS EQ ":" .DEC TEMPN
.SETS TO WHERE[1:TEMPN]
.60:
;
.ASKS UIC To UIC if not '<UIC>'
.IF UIC EQ "" .SETS UIC <UIC>
.;
.; REMOVE BACKETS, IF SUPPLIED
.;
.TEST UIC
.SETN TEMPN 1
.SETN TEMPN2 <STRLEN>
.SETS TEMPS2 UIC[1:1]
.SETS TEMPS3 UIC[<STRLEN>:<STRLEN>]
.IF TEMPS2 EQ "[" .INC TEMPN
.IF TEMPS3 EQ "]" .DEC TEMPN2
.SETS TOUIC UIC[TEMPN:TEMPN2]
;-------------------------------------------------
;
; Now let's move the FILES source files
;
PIP 'TO':['TOUIC']='FM':['FMUIC']FILES.MAC	! SOURCE FILE
PIP 'TO':['TOUIC']='FM':['FMUIC']FILES.COR	! CORRECTION FILE
PIP 'TO':['TOUIC']='FM':['FMUIC']FILES.CMD	! TASK BUILD FILE
PIP 'TO':['TOUIC']='FM':['FMUIC']FILES.DOC	! DOCUMENTATION FILE
PIP 'TO':['TOUIC']='FM':['FMUIC']MOVE.CMD	! "MOVE FILES" COMMAND FILE
PIP 'TO':['TOUIC']='FM':['FMUIC']COPY.CMD	! "COPY SOURCES" FILE (THIS FILE)
;
; Transfer complete
;
