Can you check for string parameters without a magic number?

[Carlos295pz]

Uso común: TYPE(n)

Code:

EXPORT TypeString(n)
BEGIN
  n:=TYPE(n);
  CASE
    IF n=0 THEN "Real" END
    IF n=1 THEN "Integer" END
    IF n=2 THEN "String" END
    IF n=3 THEN "Complex" END
    IF n=4 THEN "Matrix" END
    IF n=6 THEN "List" END
    IF n=8 THEN "Function" END
    IF n=9 THEN "Unit" END
     "?"
  END
END;