A                                      DSPSIZ(24 80 *DS3)                  
     A                                      MSGLOC(24)                          
     A                                      PRINT                               
     A          R WINDOW                                                        
     A                                      WINDOW(&WNDL &WNDP 13 48)           
     A                                      TEXT(' ウィンドゥ ')                
     A                                      OVERLAY                             
     A                                      PROTECT                             
     A                                      CLRL(*NO)                           
     A                                      BLINK                               
     A                                      CF12(12 ' 前画面 ')                 
     A                                      ROLLUP(14 ' 次頁 ')                 
     A                                      ROLLDOWN(15 ' 前頁 ')               
     A            WNDL           2S 0P                                          
     A            WNDP           2S 0P                                          
     A                                  1 14' 商品コード照会 '                  
     A                                      DSPATR(HI)                          
     A                                      TEXT(' 見出し ')                    
     A                                  3  2' オプションを入力して，実行キーを +
     A                                       押してくだ '                       
     A                                  4  2' さい。 '                          
     A                                  5  4'1= 選択 '                          
     A                                  1  1'ANS005'                            
     A                                  6  1'OPT'                               
     A                                      DSPATR(HI)                          
     A                                  6  6' 商品 ｺｰﾄﾞ'                        
     A                                      DSPATR(HI)                          
     A                                  6 21' 商品名 '                          
     A                                      DSPATR(HI)                          
     A            OPT001         1A  B  7  2                                    
     A            OPT002         1A  B  8  2                                    
     A            OPT003         1A  B  9  2                                    
     A            OPT004         1A  B 10  2                                    
     A            OPT005         1A  B 11  2                                    
     A            CDR001        10A  O  7  5                                    
     A            CDR002        10A  O  8  5                                    
     A            CDR003        10A  O  9  5                                    
     A            CDR004        10A  O 10  5                                    
     A            CDR005        10A  O 11  5                                    
     A            NMR001        24A  O  7 16                                    
     A            NMR002        24A  O  8 16                                    
     A            NMR003        24A  O  9 16                                    
     A            NMR004        24A  O 10 16                                    
     A            NMR005        24A  O 11 16                                    
     A                                 12 33'F12= 前画面 '                      
     A          R #DUMMY                    ASSUME                              
     A                                      FRCDTA                              
     A                                      PUTOVR                              
     A            DMY            2   O  1  2DSPATR(ND)