/**************************************************************
 /**=-=-=-=-=-=-=-=-=-=*  ON BROADWAY  *=-=-=-=-=-=-=-=-=-=-=-**
 /**-=-=-=-=-=-=-=-=-=-=-*  ARR. BY  *-=-=-=-=-=-=-=-=-=-=-=-=**
 /**=-=-=-=-=-=-=-=-=-=*  TRACE CURRY  *=-=-=-=-=-=-=-=-=-=-=-**
 /**-=-=-=-=-=-=-=-=*  AND- JIM HORNBEEK  *=-=-=-=-=-=-=-=-=-=**
 /**=-=-=-=-=-=-=-=-=-=-=*  1/23/83  *=-=-=-=-=-=-=-=-=-=-=-=-**
 /**************************************************************
 
V1YAV2YBV3YCV4YDV5YE
NQ=60
K1&
 
P01JASEFA50000EJBS48F80000FJCSE0500000AJDSF4080000D
JES80033005F
M *I$I0I5I3I4Q.7
V2*H$I2&Q.4
V3*H$I$Q.2&
V4@Q.BI4QBI4I7
V5_QB'IB'QB'IB'IB'
M *Q5I3I2&Q2&Q4
V2*Q3I3I-1Q-1Q2&
V3*Q0I$I-3Q-3Q-1
V4@IBI4I$I4IBI4I$I4
V5_IB'IB'I$IB'IB'IB'I$IB'
M *Q.3I0H0
V2*Q.0I-1H-1
V3*Q.-2I-3H-3
V4@IBI4I7IBI$Q4IB
V5_IB'IB'IB'IB'I$QB'IB'
M *Q.0I-1H-1
V2*Q.-2I-3H-3
V4@IBI4I7IBI$Q4IB
V5_IB'IB'IB'IB'I$QB'IB'
M *I$I0I5I3I4Q.7
V2*H$I2&Q.7
V3*H$I-1
V4@Q.BI4QBI4I7
V5_QB'IB'QB'IB'IB'
M *Q5I3I2&Q2&I3I0Q.0
V2*Q3I3I-1Q-1I3I-2Q.-2
V3*Q0I3I-3Q-3I3
V4@IBI4I$I4IBI4I$I4IBI4I7
V5_IB'IB'I$IB'IB'IB'I$IB'IB'IB'IB'
M *I-1H-1
V2*I-3H-3
V4@IBI$Q4IB
V5_IB'I$QB'IB'
M *Q.0I-1Q-1Q0
V2*Q.-2I-3Q-3Q-2
V4@IBI4I7IBQBI4IB
V5_IB'IB'IB'IB'QB'IB'IB'
M *I$I3I8I6I7Q.A
V2*H$I5&Q.7
V3*H$I$Q.5&
V4@Q.FI8QFI8IB
V5_QB'IB'QB'IB'IB'
M *Q8I6I7H7
V2*Q6I6I5&H5&
V3*Q3I6I2&H2&
V4@IFI8I$I8I8,I8IBIF
V5_IB'IB'I$IB'IB'IB'IB'IB'
M *I$I3I8I6I7Q.A
V2*H$I5&Q.7
V3*H$I2&Q.5
V4@Q.FI8QFI8IB
V5_QB'IB'QB'IB'IB'
M *Q8I6I7H7
V2*Q6I6I4H4
V3*Q3I$I2H2
V4@IFI8I$IFIFI7IAIE
V5_IB'IB'I$IB'IB'IB'IB'IB'
M *I$I0I5I3I4Q.7
V2*H$I2&Q.4
V3*H$I-1Q.2&
V4@Q.BI4QBI4I7
V5_QB'IB'QB'IB'IB'
P02
M *Q5I3I2&Q2&I3I0
V2*Q3I3I-1Q-1I3I-2
V3*Q0I$I-3Q-3
V4@IBI4I$I4IBI4I$I4
V5_IB'IB'I$IB'IB'IB'I$IB'
M *Q.0I-1H-1
V2*Q.-2I-3H-3
V4@IBI4I7IBI$I4IB
V5_IB'IB'IB'IB'I$IB'IB'
M *Q.0I-1Q-1Q0
V2*Q.-2I-3Q-3Q-2
V4@IBI4I7IBIBI4I7
V5_IB'IB'IB'IB'IB'IB'IB'
R01
P03
M *Q5I3I2&Q2&Q0
V2*Q3I3I-1Q-1
V3*Q0I$I-3Q-3
V4@IBI4I$I4IBI4I$I4
V5_IB'IB'I$IB'IB'IB'I$IB'
M *Q.2&I3H3
V2*Q.2&I0I0Q.-1
V3*H$I$Q.-3
V4@IBI4I7IBQBI4I7
V5_IB'IB'IB'IB'QB'IB'IB'
M *W3
V2*Q.-2I-1H-1
V3*Q.0H-3I-3
V4@IBI4I7IBI$Q4IB
V5_IB'IB'IB'IB'I$QB'IB'
P04NQ=70
M *W3
V2*Q.0I-1Q-1Q0
V3*Q.-2I-3Q-3Q-2
V4@IBI4I7IBQBI4IB
V5_IB'IB'IB'IB'QB'I4'IB'
M *Q3
V2*Q0
V3*Q-2
V4@QB
V5_QB'