$CPU 8086          ' make compatible with XT systems
$LIB ALL OFF       ' turn off all PowerBASIC libraries
$ERROR ALL OFF     ' turn off all PowerBASIC error checking
$OPTIMIZE SIZE     ' optimize for smaller code
$COMPILE UNIT      ' compile to a UNIT (.PBU)

DEFINT A-Z         ' Required for all numeric functions, forces PB to not
                   ' include floating point in UNIT (makes it smaller)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB1"
'/*------------------------------------------------------------------*/
' GETMEM(FILE)
'     Returns string of MEM format screen file.
'     EXAMPLE: SCREEN1$ = GETMEM("c:\mapper\editscrn.mem")
'              PUTSCREEN GETMEM("C:\MAPPER\EDITSCRN.MEM")
'/*------------------------------------------------------------------*/
    FUNCTION GETMEM(BYVAL FI AS STRING ) PUBLIC AS STRING
      X = FREEFILE
      OPEN "B",X,FI
      GET$ #X, 4000, T$
      CLOSE #X
      FUNCTION = T$
    END FUNCTION