;@modern
; Special characters written by name

PROC Main()
  Print("First line\{RETURN}Second line\{RETURN}")
  Print("The letter with the code $41: \{$41}\{RETURN}")

  IF 'A='\{$41} THEN
    PrintE("'A and '\{$41} are the same character")
  FI
RETURN