:util MEM

:class 1

:class A
:use COMMON1						;Incorrect DOS version
:def 10 CR,LF
:def 11 "  Address     Name          Size       Type ",CR,LF
:def 12 "  ÄÄÄÄÄÄÄ     ÄÄÄÄÄÄÄÄ     ÄÄÄÄÄÄ     ÄÄÄÄÄÄ",CR,LF
:def 13 "  Handle      EMS Name      Size   ",CR,LF
:def 14 "  ÄÄÄÄÄÄÄ     ÄÄÄÄÄÄÄÄ     ÄÄÄÄÄÄ  ",CR,LF
:def 15 "  %1      %2     %3     %4",CR,LF
:def 16 "                %1   %2      %3 ",CR,LF
:def 17 "                  %1              %2 ",CR,LF       ;fix in usa
:def 18 "%1 bytes total conventional memory",CR,LF
:def 19 "%1 bytes available for MS-DOS",CR,LF
:def 20 "%1 largest executable program size",CR,LF
:def 21 "%1 bytes total EMS memory",CR,LF
:def 22 "%1 bytes free EMS memory",CR,LF
:def 23 "%1 bytes total contiguous extended memory",CR,LF
:def 24 "Interrupt Vector",0
:def 25 "ROM Communication Area",0
:def 26 "DOS Communication Area",0
:def 27 "IBMBIO",0
:def 28 "IBMDOS",0
:def 29 "System Data",0
:def 30 "System Program",0
:def 31 "System Device Driver",0
:def 32 "Installed Device Driver",0
:def 33 "%1:",0
:def 34 "%1: - %2:",0
:def 35 "BUFFERS=",0
:def 36 "FILES=",0
:def 37 "FCBS=",0
:def 38 "STACKS=",0
:def 39 "DEVICE=",0
:def 40 "IFS=",0
:def 45 "INSTALL=",0
:def 56 "IBMBIO",0                                                        ;*EGH
:def 57 "IBMDOS",0                                                        ;*EGH
:def 59 "Memory below 640K (Conventional Message)"
:def 60 "Memory above 640K (Upper Memory Blocks)"
:def 61 "       Total FREE: "
:def 63 "Name 		size in decimal 	size in hex",CR,LF
:def 64 "--------	---------------		-----------",CR,LF
:def 65 "Total bytes avail to programs (Conv + UMB) : %1 %2",CR,LF
:def 66 "Largest executable program size	    : %1 %2",CR,LF
:def 67 "Largest Loadhigh executable program size   : %1 %2",CR,LF
:def 68 "Too much of memory fragmentation; MEM /C cannot be done",CR,LF
:def 69 "SYSTEM"
:def 70 "Total bytes avail to programs		    : %1 %2",CR,LF


; 300 - 399 reserved for options help messages
:def 300  MEM /?
:def 301  MEM /?
:def 302  MEM /?
:def 303  MEM /?
:def 304  MEM /?

:use 8001 COMMON39						;Incorrect DOS version
:def 8010 CR,LF
:def 8011 "  Address     Name          Size       Type ",CR,LF
:def 8012 "  ÄÄÄÄÄÄÄ     ÄÄÄÄÄÄÄÄ     ÄÄÄÄÄÄ     ÄÄÄÄÄÄ",CR,LF
:def 8013 "  Handle      EMS Name      Size   ",CR,LF
:def 8014 "  ÄÄÄÄÄÄÄ     ÄÄÄÄÄÄÄÄ     ÄÄÄÄÄÄ  ",CR,LF
:def 8015 "  %1      %2     %3     %4",CR,LF
:def 8016 "                %1   %2      %3 ",CR,LF
:def 8017 "                  %1              %2 ",CR,LF       ;fix in usa
:def 8018 "%1 bytes total conventional memory",CR,LF
:def 8019 "%1 bytes available for MS-DOS",CR,LF
:def 8020 "%1 largest executable program size",CR,LF
:def 8021 "%1 bytes total EMS memory",CR,LF
:def 8022 "%1 bytes free EMS memory",CR,LF
:def 8023 "%1 bytes total contiguous extended memory",CR,LF
:def 8024 "Interrupt Vector",0
:def 8025 "ROM Communication Area",0
:def 8026 "DOS Communication Area",0
:def 8027 "IBMBIO",0
:def 8028 "IBMDOS",0
:def 8029 "System Data",0
:def 8030 "System Program",0
:def 8031 "System Device Driver",0
:def 8032 "Installed Device Driver",0
:def 8033 "%1:",0
:def 8034 "%1: - %2:",0
:def 8035 "BUFFERS=",0
:def 8036 "FILES=",0
:def 8037 "FCBS=",0
:def 8038 "STACKS=",0
:def 8039 "DEVICE=",0
:def 8040 "IFS=",0
:def 8045 "INSTALL=",0
:def 8056 "IBMBIO",0                                                        ;*EGH
:def 8057 "IBMDOS",0                                                        ;*EGH
:def 8059 "Memory below 640K (Conventional Message)"
:def 8060 "Memory above 640K (Upper Memory Blocks)"
:def 8061 "       Total FREE: "
:def 8063 "Name 		size in decimal 	size in hex",CR,LF
:def 8064 "--------	---------------		-----------",CR,LF
:def 8065 "Total bytes avail to programs (Conv + UMB) : %1 %2",CR,LF
:def 8066 "Largest executable program size	    : %1 %2",CR,LF
:def 8067 "Largest Loadhigh executable program size   : %1 %2",CR,LF
:def 8068 "Too much of memory fragmentation; MEM /C cannot be done",CR,LF
:def 8069 "SYSTEM"
:def 8070 "Total bytes avail to programs		    : %1 %2",CR,LF
:def 8300  MEM /?
:def 8301  MEM /?
:def 8302  MEM /?
:def 8303  MEM /?
:def 8304  MEM /?

:class B
:def 41 "LASTDRIVE=",0
:def 42 "----------",0
:def 43 " ",0
:def 44 "     %1      %2     %3",CR,LF
:def 46 "%1 bytes available contiguous extended memory",CR,LF
:def 47 "System Stacks",0
:def 48 "-- Free --",0
:def 49 "Program",0
:def 50 "Environment",0
:def 51 "Data",0
:def 52 "%1 bytes available XMS memory",0
:def 53 "           64Kb High Memory Area available",CR,LF
:def 54 "           High Memory Area in use",CR,LF
:def 55 "           MS-DOS resident in High Memory Area",CR,LF
:def 58 "           MS-DOS resident in ROM using High Memory Area",CR,LF
:def 62 "FREE",0

:def 400 "ADDDRV",0

:def 8041 "LASTDRIVE=",0
:def 8042 "----------",0
:def 8043 " ",0
:def 8044 "     %1      %2     %3",CR,LF
:def 8046 "%1 bytes available contiguous extended memory",CR,LF
:def 8047 "System Stacks",0
:def 8048 "-- Free --",0
:def 8049 "Program",0
:def 8050 "Environment",0
:def 8051 "Data",0
:def 8052 "%1 bytes available XMS memory",0
:def 8053 "           64Kb High Memory Area available",CR,LF
:def 8054 "           High Memory Area in use",CR,LF
:def 8055 "           MS-DOS resident in High Memory Area",CR,LF
:def 8058 "           MS-DOS resident in ROM using High Memory Area",CR,LF
:def 8062 "FREE",0
:def 8400 "ADDDRV",0

:end