*V 0
*C DRIVER PORTACALC COMMAND FILE FOR MANPOWER WORKSHEET
*C ASSUMES 40 JOBS IN ROWS 2-41 FOR EFFORT FRACTS AND
*C IN ROWS 44-83 FOR MONEY USED PER UNIT TIME PER JOB.
*C ... REFERRED TO IN CELL BA260 IN SHEET
*C FURTHER ASSUMES MANPOWER LIST IS ROWS 100-199 FOR CURRENT
*C EMPLOYEE JOB MANNING.
*C ON ENTRY, ACCUMULATOR A HAS 36=MAGIC OFFSET BETWEEN SUMMARY ROWS
*C...
*C ASSUMES 24 TIME PERIODS STARTING IN COLUMN H AND THAT
*C ALL RATES ARE PER TIME PERIOD, WHATEVER THAT IS.
*C ASSUMES CELLS IN ROW 99 ARE SCRATCH
B200=-1.
C200=-1.
*C NEG RATES TERMINATE LOOP SO GUARANTEE THEM.
*C MOVE TO START OF MANNING PROFILE CELLS
*P C100
*C ASSUMES B COL HAS RATES PER MAN, C COL HAS JOB NUMBERS
M=Q
N=R
*C M=COL, N=ROW OF START OF TOTALS
*CRATLOP
D=(P#0#0)+2.
*C D GETS JOB NO. ROW IN TOP 40 ROWS
*C SKIP NEXT JUMP IF OK
K=0.01-D+2.
*J DONE
*C GO TO DONE IF NEGATIVE JOB NO.
R=(P#-1#0)+0.
S=(P#1#0)+0.
*C S IS SKILL LEVEL, 1 TO 4 EXPECTED.
*C R IS RATE FOR THIS MAN PER PERIOD
*C NOW GO TO COLUMN H FOR FIRST MANNING FRACTION
*P P#5#0
I=24.
*C 24 TIME PERIODS
*CCOLLOP
*U HERE
*C GETS COL IN T, ROW IN U CELLS. 
C99=T
D99=U-1.
*C GET COST FOR THIS MAN FOR THIS JOB AND PERIOD
F=(P#0#0)*R
E99=D+41.
*P@ C99,E99
P#0#0 = (P#0#0)+F
AA99=M
AB99=N+S-1.
*P@ AA99,AB99
*C NOW AT CELL WITH THIS MAN'S TOTAL JOB REVENUES. SUBTRACT OFF HIS
*C COST...
P##=(P#0#0)-F
*C NOW GO BACK TO MAN'S ROW
*P@ C99,D99
*C MOVE OVER 1 COL
*P P#1#0
I=I-1.
*J COLLOP
*C HERE HAVE GONE THRU ALL 24 TIME PERIODS IN THIS ROW
*C SO GO TO NEXT ONE.
*P P#-29#1
%=1.
*J RATLOP
*C IF WE GET TO DONE, ALL FINISHED SO EXIT
*CDONE