Q3: Which programming language is it?

This is an easy one today for all the wizards of operating system history – for everyone else, good luck with: Q3

Please send your answers to: patrick.plattes@googlemail.com

All user with the right ’till 14pm answer will get the points, but the first one will get +5.

Type: full program

PARSE ARG M
call Fib M, "Fibonacci"
EXIT
Fib:
    PARSE ARG N, subroutinename
    say subroutinename||"("||N||")"
    i = 3
    a = 1
    b = a
    IF N<1 THEN         say "N("||N||") must be equal or larger than 1"     IF N>=1 THEN
        say "Nr[1] "||a
    IF N>=2 THEN
        say "Nr[2] "||b
    DO WHILE N >= i
        tmp = a
        a = a+b
        b = tmp
        say "Nr["||i||"] "||a
        i = i+1
    END
    RETURN

Hint: This language was created for mainfames, but later ported to an operating system developed by Microsoft and a company that produced card puncher and punch cards in the early days.

Points for this challenge: 20