10 REM p6

20 REM Язык Quick Basic 4.0
30 REM Числа Фибоначчи - 3
40 REM Задача 83.3
50 DIM a(80) AS INTEGER, b(80) AS INTEGER, c(80) AS INTEGER
60 DIM d AS INTEGER, e AS INTEGER, f AS INTEGER, g AS INTEGER
70 FOR d = 1 TO 80
80 a(d) = 0: b(d) = 0: c(d) = 0
90 NEXT
100 SCREEN 0
110 CLS
120 a(1) = 1: b(1) = 1
130 f = 1: g = 1
200 FOR d = 1 TO 80
210 c(d) = a(d) + b(d)
220 NEXT
250 FOR d = 1 TO 79
260 c(d + 1) = c(d + 1) + c(d) \ 10
270 c(d) = c(d) MOD 10
280 NEXT
300 FOR d = 1 TO 80
310 a(d) = b(d): b(d) = c(d)
320 NEXT
350 e = 0
360 FOR d = 80 TO 1 STEP -1
370 IF c(d) > 0 THEN e = 1
380 IF e > 0 THEN
390 LOCATE f, g
400 PRINT c(d)
410 g = g + 2
420 END IF
430 NEXT
450 f = f + 1
460 IF f > 23 THEN INPUT d: CLS : f = 1
470 IF g < 78 THEN g = 1: GOTO 200
480 END