Trailing-Edge
-
PDP-10 Archives
-
decuslib10-10
-
43,50517/noprin.rpg
There is 1 other file named noprin.rpg in the archive. Click here to see a list.
01010H NOPRIN
01040FPROCD IP F00800080 EDISK NOPDAT NOPRIN
01045F KASCII NOPRIN
01050FINLIST O F01320132 OF PRINTER NOPRIN
02010E AR1 0010005005 0AAR1D 020 NOPRIN
02020E AR2 4 4 5 0AAR2U 4 2
03010IPROCD AA 01
03020I 1 50PRODNO
03030I 6 80QUAN
04010C Z-ADD1 I 20
04020C PRODNO LOKUPAR1,I 20
04030C Z-ADD1 T 20
04040C PRODNO LOKUPAR2,T 21
04050C 21 QUAN MULT AR2U,T AMT 72
05010OINLIST H 201 1P
05020O OR OF
02030O UDATE 18 ' / / '
05040O 47 'INVENTORY PARTS LIST'
05050O PAGE 65 ' 0 '
05060O H 1 1P
05070O OR OF
05080O 32 'PRODUCT PRODUCT'
05090O 53 'UNIT'
05100O H 2 1P
05110O OR OF
05130O 17 'NUMBER'
05130O 45 'DESCRIPTION QTY'
05140O 64 'PRICE AMOUNT'
06010O D 1 01
06020O PRODNO 16 ' 0'
06030O 20 AR1D,I 39
06040O N20 39 '***NO DESCRIPTION***'
06045O 21 AR2U,T 53 ' 0. '
06050O QUAN 45 ' 0 '
06070O N21 53 '*NONE'
06080O 21 AMT 65 ' , 0. '
06090O T 1 LR
06100O 27 'END OF PRICE LIST'
06110O T 2 LR
06120O 32 'PROGRAMMED BY JOYCE T.'
**
17526BOLT
18171SCREW
19226NAIL
25116NUT
29258MAGNESIUM COVER
**
175260126181710059192260173292585843
/*