;@modern
; A text loaded into a bank together with the program

ORG $4000 BANK 1
  CHAR ARRAY story="Once upon a time there was an Atari with twice the memory of the others. The upper half was hidden, and only those who knew the right register could reach it.~"
ENDORG

PROC Main()
  IF XBanks()=0 THEN
    PrintE("This program needs a 130XE.")
    RETURN
  FI

  Print("The text lives in bank ")
  PrintBE(BankOf(story))
  XPrint(BankOf(story), story, '~)
  PutE()
RETURN