4 <DEFINE D-G-P (NUM "AUX" (PD-DP <STRING "MIM:SAV.M20C-" <UNPARSE .NUM>>))
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")>)>
12 <PRINC "Type in M20C version: " ,OUTCHAN>
13 <COND (<TYPE? <SET N <READ ,INCHAN>> FIX> <D-G-P .N>)
15 <PRINC "Not fix, try again." ,OUTCHAN>