home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / bbs / ff810.lha / FF810 / Amiga_E / Sources / Other / Avail.e next >
Text File  |  1993-01-24  |  522b  |  21 lines
  1. /* Avail replacement */
  2. /* By EA van Breemen */
  3.  
  4. PROC main()
  5. DEF chip,fast,largest_chip,largest_fast,largest_total
  6.  
  7. chip:=AvailMem($2)
  8. fast:=AvailMem($4)
  9. largest_chip:=AvailMem($20002)
  10. largest_fast:=AvailMem($20004)
  11. largest_total:=IF largest_fast>largest_chip THEN largest_fast ELSE largest_chip
  12.  
  13. WriteF('Type  Available      Largest\n')
  14. WriteF('chip  \d[9]    \d[9]\n',chip,largest_chip)
  15. IF fast
  16.     WriteF('fast  \d[9]    \d[9]\n',fast,largest_fast)
  17.     WriteF('total \d[9]    \d[9]\n',chip+fast,largest_total)
  18. ENDIF
  19.  
  20. ENDPROC
  21.