Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TEX/WEBTP55.ARC/ARRAYLIK.CHI

Text File | 1989-11-29 | 237 b | 14 lines

@* array-like macros
@d mem[#]==LongInt(memp(#)^) {simulate TeX mem array}

@p
type
  pLongInt = ^LongInt;
var
  memseg: word;

Function memp (index: Word): pLongInt;
Begin
  memp:= Ptr(memseg+index shr 2,index shl 2)
End;