A                                      CA03(03 'EXIT')
     A                                      DSPSIZ(24 80 *DS3)
     A          R S1
     A                                  1 16'Example of How To Print From A Dis-
     A                                      play File With RPG'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  9 18'Enter an Item Number:'
     A            ITEM          10   B  9 40DSPATR(HI)
     A                                 22  5'F3=Exit'
     A                                      COLOR(BLU)