01010H P329
01020FTBL329 IT F00460046 EDISK TBL329 P329
01030F KASCII P329
01040FPRCECDS IP F00350035 DISK DAT329 P329
01050F KASCII P329
01060FPRCELST O F01320132 OF PRINTER P329
03120E TBL329 TABCOD0020019003 0ATABDES020 P329
04080IPRCECDS AA 01 P329
04090I 000100030ITEM P329
04100I 003100352PRICE P329
05080C ITEM LOKUPTABCOD TABDES 50 P329
06080OPRCELST H 201 1P P329
06090O OR OF P329
06100O 0026 'P R I C E L I S T' P329
06110O 0033 'PAGE' 110
06120O PAGE 0038 110
06130O H 2 1P 110
06140O OR OF 110
06150O 0005 'ITEM' 110
06160O 0023 'DESCRIPTION'( 110
06170O 0036 'PRICE' 110
07010O D 1 01 110
07020O ITEM Z 0004 110
07030O 50 TABDES 0027 110
07040O N50 0027 '***ITEM NOT FOUND' 110
07050O PRICE 1 0037 '$' 110
07120O T 2 LR 110
07130O 0017 'END OF PRICE LIST' 110