1Program "Eco 1.1/ 1620/ 500" (length 13) by "John Dilick <dilickjm@comcast.net>" 2 3 ORG START 4START MOV.I { 0, > 390 5 SPL.F # -18, > 273 6 SPL.BA # -393, { -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.BA # -383, > 15 13 MOD.A } 381, < 284 14 JMP.AB # -383, } 15 15 DIV.BA @ 17, $ -395 16 SUB.AB } 4, { -19 17 18