10DIM Q%20,T%20,b%&4000
   30PRINT"Memory Map :"'
   40L%=0
   50RESTORE 2000
   60READ F$
   70IF LEFT$(F$,1)="*" OSCLI(F$):GOTO60
   80IF F$="END" GOTO400
   90PRINTTAB(6);"X."F$;TAB(20)~&8000+L%
  100OSCLI("LOAD X."+F$+" "+STR$~(b%+L%))
  110L%=L%+FNlength("X."+F$)
  120GOTO60
  130:
  400PRINT
  410S$="SAVE ^.TELEROM "+STR$~b%+" +4000 3000 3000"
  420PRINTS$
  430OSCLI(S$)
  440END
  999END
 1000DEFFNlength(N$)
 1010$Q%=N$
 1020!T%=Q%
 1030X%=T% MOD 256
 1040Y%=T% DIV 256
 1050A%=5
 1060CALL &FFDD
 1080=T%!10
 1090:
 2000DATA *DIR ^.1
 2005:
 2010DATA DEC2,DEC2A,DEC3,DEC4A
 2020DATA DEC4B,DEC5,DEC5A,DEC6
 2030DATA DEC6A,DEC6B,DEC7,DEC8
 2040DATA DEC9,DEC9A,DEC9B
 2050:
 2060DATA *DIR ^.3
 2070:
 2080DATA RTF1,RTF2,RTF3,RTF4
 2090DATA RTF5,RTF6,RTF7,RTF8
 2100DATA RTF9
 2110:
 2120DATA TERM0,TERM1,TERM2,FINAL
 2130:
 2140DATA END