0 REM @COMPILE --xmem --embed rooms.dat@1:$4000
10 REM The same texts in a bank of extended memory
20 PRINT "Banks: ";XBANKS
30 XPRINT 1,16384,0
40 PRINT
50 REM A file into a bank and back out of it
60 OPEN #1,8,0,"D:COPY.DAT"
70 XBPUT #1,1,16384,25
80 CLOSE #1
90 OPEN #1,4,0,"D:COPY.DAT"
100 XBGET #1,2,16384,25
110 CLOSE #1
120 PRINT XGET$(2,16384,25)