$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"
'/*------------------------------------------------------------------*/
'  GETSCREEN()
'      Returns string of video screen in MEM format.
'      EXAMPLE: SCREEN1$ = GETSCREEN
'      The returned string, SCREEN1$ can then be copied, saved to disk
'      etc.  (See PUTSCREEN)
'/*------------------------------------------------------------------*/
    FUNCTION GETSCREEN() PUBLIC AS STRING
      DEF SEG = &hB800
      FUNCTION = PEEK$(0,4000) :'/*save the entire screen
    END FUNCTION