H
FARRAY1 IT F 80 EDISK BRTAR1
F KASCII
FARRAY2 IT F 80 EDISK BRTAR2
F KASCII
FCARDIN IP F 80 DISK BRTDAT
F KASCII
FLISTING O F 132 OF PRINTER
E ARRAY1 AR1 1 5 5 0AAR1D 20
E ARRAY2 AR2 1 4 5 0AARU 4 2
ICARDIN NS 01
I 1 50PRODNO
I 6 80QTY
C Z-ADD1 I 20
C PRODNO LOKUPAR1,I 50
C 50 Z-ADD1 IN 20
C PRODNO LOKUPAR2,IN 40
C 40 QTY MULT ARU,IN AMOUNT 72
OLISTING H 2 1P
O OR OF
O UDATE Y 8
O 37 'INVENTORY PARTS LIST'
O 50 'PAGE'
O PAGE Z 55
O H 1 1P
O OR OF
O 22 'PRODUCT PRODUCT'
O 43 'UNIT'
O H 2 1P
O OR OF
O 24 'NUMBER DESCRIPTION'
O 54 'QTY PRICE AMOUNT'
O D 1 01
O PRODNO 6
O 50 AR1D,I 29
O N50 29 '***NO DESCRIPTION***'
O QTY Z 35
O 40 ARU,IN1 43
O N40 43 '*NONE'
O 40 AMOUNT1 54
O T 2 LR
O 17 'END OF PRICE LIST'