SAVE INTOFF GOSUB end *begin $1F14D29E4192195E4393195E2002380E0000295EC090185E4000295E0190185E1F18DB8E *end C=RSTK D0=C D1=80100 LC(5) (end)-(begin) $80B60 LOAD SAVE A=DAT1.A A+10.A D0=A LC 0000000000000000 C=DAT0.W R1=C.W LC 40000 RES.STR AD0EX R2=A.A LC 0000000000000000 B=C.W *loop LC 80100 $80BFF C=R2.A C+B.A C+B.A CD0EX DAT0=A.W B+8.A LC 20000 ?B#C.A GOYES loop A=R2.A A-10.A LOAD DAT1=A.A INTON RPL @