Code: Select all
10 CLS
11 LET w$="1": LET v$="1": PRINT w$: PRINT v$
20 FOR k=3 TO 200
21 LET r$="": LET m=0
22 LET l1=LEN (w$): LET l2=LEN (v$)
23 LET l=l1: IF l<l2 THEN LET l=l2
30 FOR i=1 TO l
31 LET d1=0: IF i<=l1 THEN LET d1=VAL (w$(i TO i))
32 LET d2=0: IF i<=l2 THEN LET d2=VAL (v$(i TO i))
40 LET n=d1+d2+m: LET n=n-10*INT (n/10)
41 LET r$=STR$ (n)+r$
42 LET m=INT ((d1+d2+m)/10)
44 NEXT i
46 IF m THEN LET r$=STR$ (m)+r$
47 LET w$=v$
48 LET v$=""
49 FOR j=LEN (r$) TO 1 STEP -1: LET v$=v$+r$(j TO j): NEXT j
50 PRINT r$
60 NEXT k