Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50145/fun.sss
There are 2 other files named fun.sss in the archive. Click here to see a list.
      FUNCTION FUN(X,Y)                                                 FUN   10
C                                                                       FUN   20
      FUN=1./X                                                          FUN   30
      RETURN                                                            FUN   40
      END                                                               FUN   50