DefProcTrace(A$)
Trace:Handle%=OPENUP(Trace:File$)
PTR#Trace:Handle%=EXT#Trace:Handle%
BPUT#Trace:Handle%,A$
CLOSE#Trace:Handle%
ENDPROC




DefProcTraceTo(A$)
Trace:File$=A$
Trace:Handle%=OPENOUT(A$)
CLOSE# Trace:Handle%
ENDPROC




