home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 623a.lha / TurboDEX / ExampleSources / Resident.dex < prev    next >
Encoding:
Text File  |  1992-03-22  |  384 b   |  18 lines
  1. ' print out exec resident modules - not the resident commands
  2.  
  3. PROC main()
  4.   DEF sysbase[4]:LONG, resarray:LONG, name:LONG, res:LONG
  5.   resarray := MLONG(sysbase+300)
  6.   res := MLONG(resarray)
  7.   WRITE 'Exec Resident modules:\n----------------------\n'
  8.   WHILE res?0
  9.     name := MLONG(res+14)
  10.     WRITE '\s\n',name
  11.     INC 4,resarray
  12.     res := MLONG(resarray) 
  13.   ENDWHILE 
  14. ENDPROC
  15.  
  16.   
  17.  
  18.