Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/p109.rpg
There is 1 other file named p109.rpg in the archive. Click here to see a list.
01010H P109
01020FSMCARDS IP F00800080 DISK DAT109 P109
01030F KASCII P109
01040FSALERPT O F01320132 OF PRINTER P109
02010ISMCARDS AA 01 P109
02020I 000100040SMNO P109
02030I 00050024 NAME P109
02040I 003200382CURSLS P109
03010C 01 CURSLS COMP 1000.00 202121 P109
03020C 01 20 CURSLS MULT .05 COMMIS0062H P109
03030C 01 21 CURSLS MULT .03 COMMIS H P109
03040C 01 CURSLS ADD TOTCUR TOTCUR0072 P109
03050C 01 COMMIS ADD TOTCOM TOTCOM0072 P109
04010OSALERPT H 201 1P P109
04020O OR OF P109
04030O UDATE Y 0008 P109
04040O 0030 'COMMISSION' P109
04050O 0037 'REPORT' P109
04060O 0055 ''PAGE' P109
04070O PAGE 0060 P109
04080O H 1 1P P109
04090O OR OF P109
04100O 0003 'S/M' P109
04110O 0021 'SALESMAN' P109
04120O 0039 'CURRENT' P109
04130O H 2 1P P109
04140O OR OF P109
04150O 0003 'NO.' P109
04160O 0019 'NAME' P109
04170O 0038 'SALES' P109
04180O 0048 'PCT.' P109
04190O 0060 'COMMISSION' P109
05010O D 1 01 P109
05020O SMNO Z 0004 P109
05030O NAME 0027 P109
05040O CURSLS1 0040 P109
05050O 20 0047 '5%' P109
05060O 21 0047 '3%' P109
05070O COMMIS1 0059 P109
05080O T 2 LR P109
05090O 0029 'FINAL TOTALS' P109
05100O TOTCUR1 0040 '$' P109
05110O TOTCOM1 0059 '$' P109