Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50517/p336.rpg
There is 1 other file named p336.rpg in the archive. Click here to see a list.
01010H                                                                    P336  
02110FARA336  IT  F00460046           EDISK   ARA336                      P336  
02115F                                              KASCII                P336  
02120FPRCECDS IP  F00350035            DISK   DAT336                      P336  
02125F                                              KASCII                P336  
02130FPRCELST O   F01320132     OF     PRINTER                            P336  
03110E    ARA336          IAR   0020019003 0ADAR   020                    P336  
04080IPRCECDS AA  01                                                      P336  
04090I                                     000100030ITEM                  P336  
04100I                                     003100352PRICE                 P336  
05080C                     Z-ADD1         I     0020                      P336  
05090C           ITEM      LOKUPIAR,I                    50               P336  
06080O                                                                    P336  
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      DAR,I   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