00100	BEGIN "MEMLOC"
00150	STRING S;LABEL L3;
00200	INTEGER I,J,K;
00300	INTEGER ARRAY A[1:10];
00400	PROCEDURE FOO(INTEGER AR);RETURN;
00500	LABEL L1,L2;
00600	I←LOCATION(J);
00700	J←MEMORY[I];
00800	MEMORY[I]←J;
00900	MEMORY[I+J]←K;
01000	MEMORY[MEMORY[I]]←K;
01100	K←K+MEMORY[MEMORY[I]+J];
01200	K←LOCATION(I+J);
01300	L1: MEMORY[I*1.0]←2.1;
01400	MEMORY[I,REAL]←2.1;
01500	I←3.1*MEMORY[I,REAL];
01600	L2:I←LOCATION(A);
01650	J←LOCATION(A[I]);
01700	FOO(LOCATION(A));
01750	K←LOCATION(S);
01800	END "MEMLOC"