FBOOKS   IF  E                    DISK                             
      FBOOKLISTO   E             10     PRINTER                          
      C                     WRITEHEADER                                  
      C                     WRITECOLHDG                                  
      C                     READ BOOKS                    45             
      C           *IN45     DOWEQ'0'                                     
      C                     ADD  AMOUNT    TOTAMT     52                 
      C                     WRITEDETAIL                                  
      C           *IN10     IFEQ '1'                                     
      C                     WRITEHEADER                                  
      C                     WRITECOLHDG                                  
      C                     SETOF                       10               
      C                     ENDIF                                        
      C                     READ BOOKS                    45             
      C                     ENDDO                                        
      C                     WRITETOTAL                                   
      C                     SETON                       LR               





   back to RPG page