01010H BOB 01020FTAB1 IT F 80 EDISK BOB1 BOB 01030F KASCII BOB 01031FTAB2 IT F 0080 EDISK BOB2 BOB 01032F KASCII BOB 01033FTAB3 IT F 0080 EDISK BOB3 BOB 01034F KASCII BOB 01035FTAB4 IT F 0080 EDISK BOB4 BOB 01036F KASCII BOB 01040FCARDSIN IP F 80 DISK BOBDAT BOB 01050F KASCII BOB 01060FREPORT O F 132 OV PRINTER BOB 02010E TAB1 TABNO1 5 5 5 0A BOB 02020E TAB2 TABDES 4 5 20 BOB 02030E TAB3 TABNO2 4 4 5 0A BOB 02040E TAB4 TABPRC 4 4 4 2 BOB 03010ICARDSIN AA 01 BOB 03020I 1 50PRODNO BOB 03030I 6 80QTY BOB 04010C 01 PRODNO LOKUPTABNO1 TABDES 25 BOB 04020C 01 PRODNO LOKUPTABNO2 TABPRC 50 BOB 04030C 50 MOVE TABPRC PRICE 42 BOB 04040C 50 QTY MULT PRICE AMOUNT 72 BOB 05010OREPORT H 2 1P BOB 05020O OR OV BOB 05030O UDATE 8 ' - - ' BOB 05040O 37 'INVENTORY PARTS LIST' BOB 05050O 50 'PAGE' BOB 05060O PAGE 55 ' 0 ' BOB 05070O H 2 1P BOB 05080O OR OV BOB 05090O 7 'PRODUCT' BOB 05100O 22 'PRODUCT' BOB 05110O 43 'UNIT' BOB 05120O H 11 1P BOB 05130O OR OV BOB 05140O 7 'NUMBER' BOB 05150O 24 'DESCRIPTION' BOB 05160O 35 'QTY' BOB 05170O 43 'PRICE' BOB 05180O 54 'AMOUNT' BOB 05190O D 1 01 BOB 05200O PRODNO 6 ' 0 ' BOB 05210O 25 TABDES 29 BOB 05220O N25 29 '***NO DESCRIPTION***' BOB 05230O QTY 35 ' 0 ' BOB 05240O 50 PRICE 43 ' . ' BOB 05250O N50 43 '*NONE' BOB 05260O 50 AMOUNT 55 ' , 0. ' BOB 05270O D 2 LR BOB 05280O 17 'END OF PRICE LIST' BOB