J1 T
J2 T
J3 L
J4 L
J5 T
J6 T
J7 L
J8 L
J9 L
JA L
JB L
JC L
JD ~
JE ~
JF ~
JG ~
|
+ JBIA - JBCA ^ JDA                  ' LINE 22A
+ JDA < ^ JDA
+ JBIB - JBCB ^ JDB                  ' LINE 22B
+ JDB < ^ JDB
+ JBIC - JBCC ^ JDC                  ' LINE 22C
+ JDC < ^ JDC
+ JBID - JBCD ^ JDD                  ' LINE 22D
+ JDD < ^ JDD
+ 1 ^ TP1                            ' TEST TO COMPLETE LINES 23 - 27
+ JDA > ^ TP1
+ JBBA - JBAA * TP1 ^ JGA            ' LINE 25A
+ JBCA * TP1 ^ JHA                   ' LINE 26A
+ JHA - JGA > + JGA ^ JHA
+ JD - X = + JBCA * TP1 ^ JHA
+ JHA - JBIA * TP1 ^ JIA             ' LINE 27A
+ JIA < ^ JIA
+ 1 ^ TP1                            ' TEST TO COMPLETE LINES 23 - 27
+ JDB > ^ TP1
+ JBBB - JBAB * TP1 ^ JGB            ' LINE 25B
+ JBCB * TP1 ^ JHB                   ' LINE 26B
+ JHB - JGB > + JGB ^ JHB
+ JE - X = + JBCB * TP1 ^ JHB
+ JHB - JBIB * TP1 ^ JIB             ' LINE 27B
+ JIB < ^ JIB
+ 1 ^ TP1                            ' TEST TO COMPLETE LINES 23 - 27
+ JDC > ^ TP1
+ JBBC - JBAC * TP1 ^ JGC            ' LINE 25C
+ JBCC * TP1 ^ JHC                   ' LINE 26C
+ JF - X \ + JBAC > + JGC - JBCC < + JGC ^ JHC
+ JHC - JGC > + JGC ^ JHC
+ JF - X = + JBCC * TP1 ^ JHC
+ JHC - JBIC * TP1 ^ JIC             ' LINE 27C
+ JIC < ^ JIC
+ 1 ^ TP1                            ' TEST TO COMPLETE LINES 23 - 27
+ JDD > ^ TP1
+ JBBD - JBAD * TP1 ^ JGD            ' LINE 25D
+ JBCD * TP1 ^ JHD                   ' LINE 26D
+ JG - X \ + JBAD > + JGD - JBCD < + JGD ^ JHD
+ JHD - JGD > + JGD ^ JHD
+ JG - X = + JBCD * TP1 ^ JHD
+ JHD - JBID * TP1 ^ JID             ' LINE 27D
+ JID < ^ JID
+ JIA + JIB + JIC + JID ^ J28        ' LINE 28
+ J3 - S = + J1 - T = + JIA ^ JK1      ' LINE 29/B/I
+ J4 - S = + J2 - T = + JK1 + JIB ^ JK1
+ J7 - S = + J5 - T = + JK1 + JIC ^ JK1
+ J8 - S = + J6 - T = + JK1 + JID ^ JK1
+ J3 - S = + J1 - I = + JIA ^ JK2      ' LINE 29/B/II
+ J4 - S = + J2 - I = + JK2 + JIB ^ JK2
+ J7 - S = + J5 - I = + JK2 + JIC ^ JK2
+ J8 - S = + J6 - I = + JK2 + JID ^ JK2
+ J3 - S = + JDA ^ JKC                 ' LINE 29/C
+ J4 - S = + JKC + JDB ^ JKC
+ J7 - S = + JKC + JDC ^ JKC
+ J8 - S = + JKC + JDD ^ JKC
- JK1 + JKC ^ J31                      ' LINE 31
+ JK2 ^ J32                            ' LINE 32
+ J3 - L = + J1 - T = + JIA ^ JP1      ' LINE 34/B/I
+ J4 - L = + J2 - T = + JP1 + JIB ^ JP1
+ J7 - L = + J5 - T = + JP1 + JIC ^ JP1
+ J8 - L = + J6 - T = + JP1 + JID ^ JP1
+ J3 - L = + J1 - I = + JIA ^ JP2      ' LINE 34/B/II
+ J4 - L = + J2 - I = + JP2 + JIB ^ JP2
+ J7 - L = + J5 - I = + JP2 + JIC ^ JP2
+ J8 - L = + J6 - I = + JP2 + JID ^ JP2
+ J3 - L = + JDA ^ JPC                 ' LINE 34/C
+ J4 - L = + JPC + JDB ^ JPC
+ J7 - L = + JPC + JDC ^ JPC
+ J8 - L = + JPC + JDD ^ JPC
+ J33 + JPC ^ J36                    ' LINE 36
+ JP1 + JP2 ^ J37                    ' LINE 37
+ J36 - J37 ^ J39                    ' LINE 39
+ J39 < - JP1 + J36 ^ JTA            ' LINE 38A
+ J39 < + JP2 ^ JTB                  '        B
+ J39 < ^ J39                        ' LINE 39
+ J31 < - J31 ^ G5G                  ' FG1 4797 LINE 15
+ JTA < + G5G - JTA ^ G5G
+ J31 > + J31 ^ G5H
+ JTA > + G5H + JTA ^ G5H
- G5G + G5H ^ Z14		     ' 1040 LINE 14

+ JINA - JCSA ^ J4A                  ' LINE 4A
+ J4A < ^ J4A
+ 1 ^ TP1                            ' TEST TO COMPLETE LINES 5A - 9A
+ J4A > ^ TP1
+ JVBA - JVAA * TP1 ^ J7A            ' LINE 7A
+ JCSA * TP1 ^ J8A                   ' LINE 8A
+ J8A - J7A > + J7A ^ J8A
+ J8A - JINA * TP1 ^ J9A             ' LINE 9A
+ J9A < ^ J9A
+ JINB - JCSB ^ J4B                  ' LINE 4B
+ J4B < ^ J4B
+ 1 ^ TP1                            ' TEST TO COMPLETE LINES 5B - 9B
+ J4B > ^ TP1
+ JVBB - JVAB * TP1 ^ J7B            ' LINE 7B
+ JCSB * TP1 ^ J8B                   ' LINE 8B
+ J8B - J7B > + J7B ^ J8B
+ J8B - JINB * TP1 ^ J9B             ' LINE 9B
+ J9B < ^ J9B
+ JINC - JCSC ^ J4C		     ' LINE 4C
+ J4C < ^ J4C
+ 1 ^ TP1                            ' TEST TO COMPLETE LINES 5C - 9C
+ J4C > ^ TP1
+ JVBC - JVAC * TP1 ^ J7C	     ' LINE 7C
+ JCSC * TP1 ^ J8C		     ' LINE 8C
+ J8C - J7C > + J7C ^ J8C
+ J8C - JINC * TP1 ^ J9C	     ' LINE 9C
+ J9C < ^ J9C
+ JIND - JCSD ^ J4D		     ' LINE 4D
+ J4D < ^ J4D
+ 1 ^ TP1                            ' TEST TO COMPLETE LINES 5D - 9D
+ J4D > ^ TP1
+ JVBD - JVAD * TP1 ^ J7D	     ' LINE 7D
+ JCSD * TP1 ^ J8D		     ' LINE 8D
+ J8D - J7D > + J7D ^ J8D
+ J8D - JIND * TP1 ^ J9D	     ' LINE 9D
+ J9D < ^ J9D
+ J9A + J9B + J9C + J9D ^ J10        ' LINE 10
+ J10 ^ J11
+ J10 - 100.00 > + 100.00 ^ J11      ' LINE 11
+ J10 - J11 ^ J12                    ' LINE 12
+ J4A + J4B + J4C + J4D ^ J14        ' LINE 14
+ J14 - J12 ^ J15                    ' LINE 15
+ J15 < ^ J15
+ J10 - J12 ^ JDF                         ' SCHEDULE D
- J9A * 100 / J10 * JDF / 100 + J9A ^ J9a
- J9B * 100 / J10 * JDF / 100 + J9B ^ J9b
- J9C * 100 / J10 * JDF / 100 + J9C ^ J9c
- J9D * 100 / J10 * JDF / 100 + J9D ^ J9d
^ TP1
+ J9 - L = + J4A - J9a ^ TP1
+ JA - L = + TP1 + J4B - J9b ^ TP1
+ JB - L = + TP1 + J4C - J9c ^ TP1
+ JC - L = + TP1 + J4D - J9d ^ TP1
+ J15 = ^ TP1
+ TP1 > + TP1 ^ JDL
+ TP1 < - TP1 ^ JDl
^ TP1
+ J9 - S = + J4A - J9a ^ TP1
+ JA - S = + TP1 + J4B - J9b ^ TP1
+ JB - S = + TP1 + J4C - J9c ^ TP1
+ JC - S = + TP1 + J4D - J9d ^ TP1
+ J15 = ^ TP1
+ TP1 > + TP1 ^ JDS
+ TP1 < - TP1 ^ JDs
+ J12 - J14 ^ J16                    ' LINE 16
+ J16 < ^ J16
|
|
