1Program "Evolver   140 x   500" (length 19) by "David Bendit <109rattler@cox.net>"
2
3       ORG      START
4START  SPL.A  #   286, <   -19
5       SPL.F  $   181, <     0
6       MOV.I  <   247, <    -2
7       MOV.I  }    -4, }    -2
8       DJN.I  $    -2, }    -2
9       JMP.BA @     3, $   204
10       MUL.AB >   -15, @    10
11       MOV.AB $  -387, $   284
12       MOV.AB $  -387, <   284
13       MOV.AB $  -387, <   284
14       MOV.AB $  -387, <   284
15       DIV.AB $  -387, @   284
16       DJN.X  >   264, @   284
17       DJN.F  >   277, $   284
18       JMN.AB }  -395, $    19
19       MOV.X  $     8, $   284
20       MOV.X  $     8, $   284
21       SNE.A  #   284, >    -7
22       SNE.AB #     4, >   219
23
24