10 ? "FREE RAM = ";FRE(0)›20 RAMTOP=PEEK(106):? "RAMTOP = ";RAMTOP;" PAGES":? "LAST ADDRESS = ";RAMTOP*256›30 FOR W=1 TO 1000:NEXT W›40 SMALLRAM=RAMTOP-4›50 POKE 106,SMALLRAM›60 GRAPHICS 0›70 RAMTOP=PEEK(106)›80 ? "NEW FREE RAM = ";FRE(0)›90 ? "NEW RAMTOP = ";RAMTOP;" PAGES":? "LAST ADDRESS = ";RAMTOP*256›100 ? "RESERVED MEMORY BEGINS AT ";RAMTOP*256+1›