TS and an address of a const?

I want to get the address of a constant in TopSpeed Modula-2 but can't. Has
anybody solved this problem.
Example

MODULE MyProg;
FROM Storage IM****T ALLOCATE;
IM****T Lib;
CONST
c1='000';
VAR
v1:POINTER TO ARRAY[0..2] OF CHAR;
BEGIN
ALLOCATE(v1,3);
Lib.Move(ADR(c1),v1,3);
END;
-- 
AC(hristoff) Joubert at Paul Jungnickel Home, Plot 14,
Lynnwood Road, Zwavelpoort, Gauteng, RSA (residence);
Box 2066, Zwavelpoort, 0036, South Africa (post);
27128090245 (fax&Tele-Soft BBS); acj@[EMAIL PROTECTED]
 (e-mail)