() Effektivitetstrends:
LIST + #dtl dtla dtlb dtle dtlh                        &
            dtlne dtlnf dtlng dtlnz dtlqf dtlqz dtlqs
LIST + #dtk dtka dtkb dtke                             &
            dtkne dtknf dtkng dtknz dtkqf dtkqz dtkqs
LIST + #dtb dtba dtbb                                  &
            dtbne dtbnf dtbng dtbnz dtbqf dtbqz dtbqs

READ <pcim> lang100;
UPD <#per1 #per2> #dtl  * 1.01  ;
UPD <#per1 #per2> #dtk  * 1.01  ;
UPD <#per1 #per2> #dtb  * 1.01  ;
UPD <#per1 #per2> klohh * 1.01  ;
UPD <#per1 #per2> Qwo   * 0.99  ;
UPD <#per1 #per2> fImo1 * 0.99  ;
UPD <#per1 #per2> fImb1 * 0.99  ;
TIME #per1 #per2 ;
SIM ;