CMD        PROMPT('FONT の指定 ')                                  
             PARM       KWD(FONT) +                                             
                        TYPE(FONT) +                                            
                        PROMPT(' フォント ')                                    
FONT:        ELEM       TYPE(*CHAR) +                                           
                        LEN(10) +                                               
                        PROMPT(' 識別コード名 ')                                
             ELEM       TYPE(*DEC) +                                            
                        LEN(5 1) +                                              
                        PROMPT(' フォント・サイズ ')