10 NM = 20
20  DIM A(2,NM - 1)
30 A(1,0) = 1
40 K0 = 0:K1 = 1
50 ND = 1
60  GOSUB 300
70 C = 0
80  FOR I = 0 TO ND - 1
90 S = A(K0,I) + A(K1,I) + C
100 C = 0
110  IF S < 10000 THEN 140
120 S = S - 10000
130 C = 1
140 A(K0,I) = S
150  NEXT 
160  IF C = 0 THEN 200
170  IF ND = NM THEN 230
180 A(K0,ND) = 1
190 ND = ND + 1
200  GOSUB 300
210 K0 = K1:K1 = 1 - K1
220  GOTO 70
230  END 
300  FOR I = NM - 1 TO 0 STEP  -1
310  PRINT  RIGHT$ ("0000" +  STR$ (A(K0,I)),4);
320  NEXT 
330  PRINT : PRINT 
340  RETURN