;@modern
; Hidden memory: the banks of a 130XE and the RAM under the ROM

PROC Main()
  BYTE banks, i

  banks=XBanks()
  Print("Banks of extended memory: ")
  PrintBE(banks)
  IF banks=0 THEN
    PrintE("This program needs a 130XE.")
    RETURN
  FI

  FOR i=1 TO banks           ; the same address in each bank
  DO
    XPoke(i, $4000, i*10)
  OD

  Print("Address $4000 in the banks: ")
  FOR i=1 TO banks
  DO
    PrintB(XPeek(i, $4000))
    Put(' )
  OD
  PutE()

  XPoke(0, $C000, 99)        ; bank 0 is the ordinary memory, also under the ROM
  Print("XPeek sees the RAM under the ROM: ")
  PrintBE(XPeek(0, $C000))
RETURN