BINVMAS BTRANSACTPRODNO + YEAR + MONTH + DAY NY 60 80 Y0  heading HYN  POSITION 1 NNEND 2PRODNO(1) NNNONE YNREAD PRODNO(1) NEQ PRODNO(2) NONE  READ 2 NNTOTAL NNPRINT TOTAL PRINT YNREAD TOTAL YNPOSITION  END YN*  NONE 6 YNPOSITION   PAGENO 3 NLN #PAGE  6 DATE 20 XLN #DATE  PRODNO1 8 NRN PRODNO(1)  DESCRIPT 30 XLN DESCRIPT(1)  * DATE1 8 XLN MONTH(2) + "/" + DAY(2) + "/" + YEAR(2)  7 SOLD1 3 NRN1 ?(TYPE(2) EQ "S") QUANREC(2) ; 0 B  B RECEIVE1 3 NRN2 ?(TYPE(2) = "R") QUANREC(2) ; 0 B  PRODBREAK 8 NRY PRODNO(2) * TRANDATE 8 XLN MONTH(2) + "/" + DAY(2) + "/" + YEAR(2) 7 SOLD 3 NRN1 ?(TYPE(2) EQ "S") QUANREC(2);0 B Z B RECEIVED 3 NRN2 ?(TYPE(2) EQ "R" ) QUANREC(2); 0 B Z 6 SOLDTOT 4 NRN3 #1 Z , A RECTOT 4 NRN4 #2 Z , 6 NET 4 NRN BALANCE(1)+ #2 - #1  6 GRANDSOLD 4 NRN #3  A GRANDREC 4 NRN #4  PRODNO2 8 NRN PRODNO(1)  DESCRIPT2 30 XLN DESCRIPT(1)  6 BALANCE3 4 NRN BALANCE(1)   Page * Report Date  Transaction ListingF   Prod # Description Date Quan Sold Quan Rec TRANSACTON  + TOTALS 6 ---- A ---- BALANCE IN ST - OCK 5 ====   Grand Totals  4 ====  A ====  NO TRANSACTIONS FOR THIS PRODUCT  - BALANCE IN STOCK  6 ==== Totals  3 ====  @