1 a=b:forc=4^5to1744step40:a=a-1:ifa>13anda<33thenpokea+c+2,42
2 b=b+1:ifb>15andb<35thenpokeb+c,42
3 next:b=b-13:ifb<67goto1