0 REM @COMPILE --xmem --embed rooms.dat@$C000
10 REM Texts kept under the ROM and printed from there
20 A=49152
30 FOR R=1 TO 3
40   PRINT R;": ";
50   XPRINT 0,A,0
60   PRINT
70   REM Step over the text and the nought that ends it
80   IF XPEEK(0,A)<>0 THEN A=A+1:GOTO 80
90   A=A+1
100 NEXT R
110 PRINT "The texts take ";A-49152;" bytes under the ROM"