H                                                                    BOTTLE
     F*
     F* RPG II VERSION OF THE BOTTLES PROGRAM 
     F*
     FWORKSTN CD  F     128            WORKSTN
     IWORKSTN NS  01   1 CA
     I        NS
     C                     READ WORKSTN                  01
     C                     DO   99        W       30
     C           100       SUB  W