Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/msdos/tex/webtp55.arc/ARRAYLIK.CHI

Text File | 1989-11-29 | 237b | 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;