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