1Program "Eco 1.1/ 2860/ 500" (length 15) by "John Dilick <dilickjm@comcast.net>" 2 3 ORG START 4START MOV.I { 0, > 390 5 SPL.AB # -18, < 273 6 SPL.BA # 7, { -1 7 MOV.I $ -3, { -2 8 MOV.I > 4, } 4 9 MOV.I > -6, } 2 10 MOV.I < 286, > 2 11 DJN.B < 208, } -1 12 JMP.AB # -383, @ 15 13 DIV.I > -398, > 386 14 MUL.AB } 273, @ 195 15 DIV.I { 17, > -14 16 MUL.B @ 18, < 284 17 JMP.AB { 4, $ -13 18 JMP.AB { 4, } 187 19 20