Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/bob.rpg
There is 1 other file named bob.rpg in the archive. Click here to see a list.
01010H BOB
01020FTAB1 IT F 80 EDISK BOB1 BOB
01030F KASCII BOB
01031FTAB2 IT F 0080 EDISK BOB2 BOB
01032F KASCII BOB
01033FTAB3 IT F 0080 EDISK BOB3 BOB
01034F KASCII BOB
01035FTAB4 IT F 0080 EDISK BOB4 BOB
01036F KASCII BOB
01040FCARDSIN IP F 80 DISK BOBDAT BOB
01050F KASCII BOB
01060FREPORT O F 132 OV PRINTER BOB
02010E TAB1 TABNO1 5 5 5 0A BOB
02020E TAB2 TABDES 4 5 20 BOB
02030E TAB3 TABNO2 4 4 5 0A BOB
02040E TAB4 TABPRC 4 4 4 2 BOB
03010ICARDSIN AA 01 BOB
03020I 1 50PRODNO BOB
03030I 6 80QTY BOB
04010C 01 PRODNO LOKUPTABNO1 TABDES 25 BOB
04020C 01 PRODNO LOKUPTABNO2 TABPRC 50 BOB
04030C 50 MOVE TABPRC PRICE 42 BOB
04040C 50 QTY MULT PRICE AMOUNT 72 BOB
05010OREPORT H 2 1P BOB
05020O OR OV BOB
05030O UDATE 8 ' - - ' BOB
05040O 37 'INVENTORY PARTS LIST' BOB
05050O 50 'PAGE' BOB
05060O PAGE 55 ' 0 ' BOB
05070O H 2 1P BOB
05080O OR OV BOB
05090O 7 'PRODUCT' BOB
05100O 22 'PRODUCT' BOB
05110O 43 'UNIT' BOB
05120O H 11 1P BOB
05130O OR OV BOB
05140O 7 'NUMBER' BOB
05150O 24 'DESCRIPTION' BOB
05160O 35 'QTY' BOB
05170O 43 'PRICE' BOB
05180O 54 'AMOUNT' BOB
05190O D 1 01 BOB
05200O PRODNO 6 ' 0 ' BOB
05210O 25 TABDES 29 BOB
05220O N25 29 '***NO DESCRIPTION***' BOB
05230O QTY 35 ' 0 ' BOB
05240O 50 PRICE 43 ' . ' BOB
05250O N50 43 '*NONE' BOB
05260O 50 AMOUNT 55 ' , 0. ' BOB
05270O D 2 LR BOB
05280O 17 'END OF PRICE LIST' BOB