          IDENT  EXTRACT
          TITLE  RAM$EXTRACT - HEADER MODULE FOR PROGRAM EXTRACT
          SPACE  4
          ENTRY  EXTRACT,RFL=,SDM=
          ENTRY  SW=MMSZ,SW=MMIN,SW=STSS
          SPACE  4
SW=MMSZ   EQU    6000B       INITIAL FREE MEMORY SIZE
SW=MMIN   EQU    1000B       MINIMAL FIELD LENGTH INCREMENT
SW=STSS   EQU    1700B       DEFAULT STACK SEGMENT SIZE
          SPACE  4
EXTRACT   EQ     =XSW=MAIN
          USE    //
          BSS    SW=MMSZ
RFL=      BSS    0
SDM=      EQU    0
          SPACE  4
          END
