{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CPIFORMR)}}
====== CPIFORMR ======
(GIN Macro)

**Defined in:** [[george:source:LLSMACROS|LLSMACROS]]

**Used in:** 

<code - CPIFORMR.mac.txt>
 96F6 ...[??? CPIFORMR SECT CENT FGN 35  
 96F7 ...#MAC  CPIFORMR  
 96F8 ...[   
 96F9 ...[     RESTORE TIME MACRO TO ALLOW THE RE-CALCULATION OF MILL RATINGS
 96F= ...[     TO BE BASED UPON A JOBS CPI   
 96F? ...[   
 96F# ...#STR  %A
 96F* ...#ALT AMRTIME=%A 
 96FB ...#STR  %A
 96FC ...#SKI
 96FD ...#ALT  AMRTIME=5 
 96FF ...#MEN  CHARGESC  
 96FG ...#TRA  K51CHARGESC   
 96FH ...      SMO      FX1  
 96FJ ...      LDX   0  K50CHARGESC  
 96FK ...      SBX   0  JCPI(3)  
 96F^ ...#STR  Y,%B  
 96G* ...      LDN   4  2
 96GP ...#STR  Y,%B  
 96H5 ...#SKI
 96HF ...      LDX   4  INSTPARAM+3  
 96HT ...      SBN   4  1
 96J9 ...      LDX   5  0
 96JK ...X     MPY   5  0
 96J^ ...      BCT   4  X
 96K* ...      STO   5  GEN5 
 96KP ...#STR  Y,%C  
 96L5 ...#SKI
 96LF ...(   
 96LT ...#TRA  K54CHARGESC   
 96M9 ...      MPY   4  INSTPARAM+4  
 96MK ...#TRA  K52CHARGESC+1 
 96M^ ...      MPY   5  INSTPARAM+5  
 96N* ...)   
 96NP ...#TRA  K52CHARGESC   
 96P5 ...      MPY   5  GEN5 
 96PF ...#TRA  K53CHARGESC   
 96PT ...      LDN   0  AMRTIME  
 96Q9 ...#END
 96QK ...#MEN  FIXED 
 96Q^ ...#STR  Y,%B  
 96R* ...#SKI
 96RP ...(   
 96S5 ...#TRA  INSTPARAM+3   
 96SF ...      1 
 96ST ...)   
 96T9 ...#STR  Y,%C  
 96TK ...#SKI
 96T^ ...(   
 96W* ...#TRA  INSTPARAM+4   
 96WP ...      #20000000/5*9 
 96X5 ...      #20000000/5   
 96XF ...)   
 96XT ...#END
 96Y9 ...#NOR
</code>