.; XFERMODS.CMD
	; Create required UFD's & transfer files.
	.ENABLE SUBSTITUTION
	.SETS CUIC <UIC>
	SET /UIC=[1,1]
	.ASKS [2:4] SYM Enter which device to transfer too
	.PARSE SYM ":" DV JNK
	UFD 'DV':[11,41]
	UFD 'DV':[12,11]
	UFD 'DV':[12,25]
	UFD 'DV':[12,35]
	UFD 'DV':[12,41]
	;
	PIP 'DV':[11,41]='CUIC'DREIF.EHN
	PIP 'DV':[12,11]='CUIC'MC2.MAC,WHO,CPA,OPA
	PIP 'DV':[12,25]='CUIC'ICPMODBLD.CMD,MC2MODBLD,README.1ST
	PIP 'DV':[12,25]='CUIC'ICPMODS.ASM,MCRMODS,INSMODS,MC2,WHO,OPA,CPA
	PIP 'DV':[12,25]='CUIC'INSBLD.NEW;2,MC2.TKB,WHO,CPA,OPA
	PIP 'DV':[12,41]='CUIC'MC2ICPMOD.SLP,MC2MCRMOD,MC2INSMOD
	SET /UIC='CUIC'