;@modern
; Packed texts: the words that repeat are stored once

CHAR ARRAY hall=PACK "You are in the hall of an old house. There is a door to the north."
CHAR ARRAY kitchen=PACK "You are in the kitchen of an old house. There is a door to the south."

PROC Main()
  CHAR ARRAY plain(100)

  PrintPackedE(hall)
  PrintPackedE(kitchen)
  PrintPackedE("You are in the garden of an old house. There is a door to the west.")

  UnpackText(hall, plain)    ; into an ordinary string
  Print("The first text has ")
  PrintB(plain(0))
  PrintE(" characters.")
RETURN