PROC Main()
  CHAR ARRAY str1,str2,str3(10)

  str1="Atari"
  str2=str1
  SCopy(str3,str1)

  PrintF(" base=%S%E",str1)
  PrintF("alias=%S%E",str2)
  PrintF(" copy=%S%E",str3)
  PutE()

  SCopy(str1,"Action!")

  PrintF(" base=%S%E",str1)
  PrintF("alias=%S%E",str2)
  PrintF(" copy=%S%E",str3)
RETURN