mim/development/mim/20c/gluem.mud

   1
   2 <USE "MSGLUE" "PDUMP">
   3
   4 <DEFINE D-G-P (NUM "AUX" (PD-DP <STRING "MIM:SAV.M20C-" <UNPARSE .NUM>>))
   5         (<MAPF ,LIST
   6                <FUNCTION (X)
   7                     (<FILE-GLUE <STRING .X ".MSUBR">>
   8                      <PDUMP <STRING .X ".GSUBR"> .PD-DP>)>
   9                ("ACVAR" "FILE-INDEX" "JSYS" "MOVERS" "NEWGC" "OTHGEN" "PART1"
  10                 "PEEP" "STRMAN" "FILE")>)>
  11 <PROG (N)
  12       <PRINC "Type in M20C version:  " ,OUTCHAN>
  13       <COND (<TYPE? <SET N <READ ,INCHAN>> FIX> <D-G-P .N>)
  14             (ELSE
  15              <PRINC "Not fix, try again." ,OUTCHAN>
  16              <CRLF ,OUTCHAN>
  17              <AGAIN>)>>
  18
  19