; Strings: texts in CHAR ARRAYs

PROC Order(CHAR ARRAY a, b)  ; a string as a parameter
  INT result

  result=SCompare(a, b)
  Print(a)
  IF result<0 THEN
    Print(" comes before ")
  ELSEIF result=0 THEN
    Print(" is the same as ")
  ELSE
    Print(" comes after ")
  FI
  PrintE(b)
RETURN

PROC Main()
  CHAR ARRAY name="Atari"    ; a string with its text
  CHAR ARRAY copy(20), part(20), line(40)
  BYTE i

  Print("The text: ")      PrintE(name)
  Print("Its length: ")    PrintBE(name(0))
  Print("First letter: ")  Put(name(1)) PutE()

  Print("Spelled: ")
  FOR i=1 TO name(0)
  DO
    Put(name(i)) Put(' )
  OD
  PutE()

  SCopy(copy, name)          ; copy the whole string
  copy(1)='S                 ; change one character
  Print("Changed copy: ")  PrintE(copy)
  Print("The original: ")  PrintE(name)

  SCopyS(part, "Action! language", 1, 7)
  Print("A part: ")        PrintE(part)

  SCopy(line, "Hello, ")     ; join two strings
  SAssign(line, name, line(0)+1, line(0)+name(0))
  Print("Joined: ")        PrintE(line)

  Order("apple", "banana")
  Order("pear", "pear")
  Order("zebra", "ant")
RETURN