0 REM @COMPILE --xmem
10 REM Hidden memory: the RAM under the ROM and the banks
20 PRINT "Banks of extended memory: ";XBANKS
30 REM Bank 0 from 49152 on is the RAM under the operating system
40 XPOKE 0,49152,123
50 PRINT "Under the ROM: ";XPEEK(0,49152)
60 PRINT "The ROM itself: ";PEEK(49152)
70 XDPOKE 0,49154,12345
80 PRINT "Two bytes: ";XDPEEK(0,49154)
90 DIM A$(20):A$="HELLO, HIDDEN RAM"
100 XPUT 0,55296,A$
110 PRINT XGET$(0,55296,5)
120 XFILL 0,58368,100,42
130 XMOVE 0,55296,0,58368,5
140 PRINT XGET$(0,58368,8)
150 IF XBANKS=0 THEN PRINT "This machine has no banks":END
160 FOR B=1 TO XBANKS:XPOKE B,16384,B*10:NEXT B
170 FOR B=1 TO XBANKS:PRINT XPEEK(B,16384);" ";:NEXT B
180 PRINT