Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0026/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