⍝ COPY.tc
⍝ ----------------------------------

)CLEAR
CLEAR WS


∇Z←A FUN1 B
 Z←'1'
∇

∇Z←A FUN2 B
 Z←'2'
∇

VAR1←'V1'
VAR2←'V2'
VAR3←1 (2 3)

)WSID COPY_tc
WAS CLEAR WS

)DUMP COPY_tc
³

)CLEAR
CLEAR WS

⍝ selective COPY. Make sure that only FUN1, VAR2 and VAR3 are being copies
)COPY COPY_tc.apl FUN1 VAR2 VAR3
DUMPED ³

)VARS
VAR2    VAR3

)FNS
FUN1

VAR2
V2

VAR3
 1  2 3 

FUN1 4
1


⍝ ==================================

