Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/p329.rpg
There is 1 other file named p329.rpg in the archive. Click here to see a list.
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