0 'RAM100.BA - 8/27/87
1 'Bill Templeton [75655,1056]
2 'Copyright 1986 - All rights reserved
3 'Change the DIM, DEF and INIT commands in line 10 and follow the results!
10 CLS:DIMA(5,5):DEFINTB:B=10:CALL17001:PRINT@0,"--Important M102 RAM Memory Locations---":CALL17006
11 PRINT@42,"Start of CO files:";PEEK(64432)+256*PEEK(64433):PRINT@82,"Start of variable table:";PEEK(64434)+256*PEEK(64435)
12 PRINT@122,"Start of array table:";PEEK(64436)+256*PEEK(64437):PRINT@162,"Start unused memory:";PEEK(64438)+256*PEEK(64439)
13 PRINT@202,"Start of HIMEM:";PEEK(62964)+256*PEEK(62965):PRINT@242,"MAXRAM-HIMEM:";MAXRAM-(PEEK(62964)+256*PEEK(62965));
14 CALL17001:PRINT@290," Edit line 10 (Y/N?):";:CALL17006:Q$=INPUT$(1):IFINSTR("yY",Q$)THENEDIT10ELSEMENU