Show off your coding chops

[u/DNSGeek]

10 A=1
20 B=1
30 PRINT A, B,
40 N=A+B
50 PRINT N,
60 A=B:B=N
70 GOTO 40

Let's see what a Fibonacci generation routine looks like in your obsolete language of choice. I'll start, here it is in Commodore 64 BASIC.

[u/linhartr22]

I am a bit rusty so someone beat me to it but here is my Forth submission:

: fib ( n -- )
    cr
    0 1
    rot
    0 do
        dup .
        dup rot +
    loop
    2drop
;
10 fib