SYS "OS_ReadMemMapInfo" TO nbpp%, npages%
DIM block% (npages%+1)*12
DIM access$(3)
access$(0)="read/write"
access$(1)="read-only"
access$(2)="no access"
access$(3)="mapped out"
FOR page%=0 TO npages%-1
  block%!(page%*12) = page%
NEXT
block%!(npages%*12) = -1
SYS "OS_ReadMemMapEntries", block%
FOR page% = 0 TO npages%-1
  PRINT "Page &";RIGHT$("00"+STR$~(block%!(page%*12)),3);" mapped at &";RIGHT$("0000000"+STR$~(block%!(page%*12+4)),8);" ";access$(block%!(page%*12+8))
NEXT