N1 #500=ABS(#13)
N2 #501=ABS(#13*#7)   ;I=#7
N3 S#500             ;S=#13
N4 SS#501
N5 IF (#13 GE0) GOTO11
N6 IF (#7 GE0) GOTO9
N7 OUT+M54+M232-M53-M231
N8 GOTO15
N9 OUT+M54+M231-M53-M232
N10 GOTO15
N11 IF (#7 GE0) GOTO14
N12 OUT+M53+M232-M54-M231
N13 GOTO15
N14 OUT+M53+M231-M54-M232
N15 M99
N16
