10 PRINT CHR$(147):PRINT"FIBONACCIZAHLEN BIS 10^80"
20 DIM A%(80):DIM B%(80)
30 B%(0)=1
40 PRINT 0: GOSUB 3000
50 PRINT 1: GOSUB 3500
60 TI$="000000"
65 J=2
70 FOR I=2 TO 384 STEP 2
80 GOSUB 2000:REM ADDIEREN
85 PRINT I
90 GOSUB 3000:REM AUSGABE
100 GOSUB 2500
110 PRINT I+1
120 GOSUB 3500
200 NEXT
210 PRINT TI$
220 END
2000 REM A=A+B
2005 C=0
2010 FOR J=0 TO 79
2020 S=A%(J)+B%(J)+C: C=0
2030 IF S<10 THEN GOTO 2040
2035 S=S-10:C=1
2040 A%(J)=S
2050 NEXT
2060 RETURN
2500 REM B=A+B
2505 C=0
2510 FOR J=0 TO 79
2520 S=A%(J)+B%(J)+C: C=0
2530 IF S<10 THEN GOTO 2540
2535 S=S-10:C=1
2540 B%(J)=S
2550 NEXT
2560 RETURN
3000 REM AUSGABE A
3005 FOR J=79 TO 0 STEP -1
3010 PRINTCHR$(48+A%(J));
3020 NEXT
3030 RETURN
3500 REM AUSGABE B
3505 FOR J=79 TO 0 STEP -1
3510 PRINTCHR$(48+B%(J));
3520 NEXT
3530 RETURN