🚀 go-pugleaf

In article <611@eagle.ukc.UUCP> map1@ukc.UUCP (M.A.Pralat) writes:
>
>(4)  If the program is a farce could someone supply a small program
>     that is known to work. Hopefully I'll understand things more clearly
>     if I see it working.

   From Unix 4.1BSD signal(3F) manual page, and tested in 4.2BSD :   
c
c  signal function arguments:
c
c            2 - signal number ( see signal(2) manual page )
c      handler - user defined subroutine name
c           -1 - neg. number to indicate that user defined handling
c                routine is to be used
c
      external handler
      iret = signal(2,handler,-1)
1     print*,'  hi there '
      go to 1
2     stop
      end

      subroutine handler(intsignal)
      print*,'  Interrupt received. STOP'
      stop
      end
-- 
Fernando Torre

ARPA    : ur-helheim!torre@rochester.arpa
UUCP	: {allegra,cmcl2,decvax,seismo}!rochester!ur-helheim!torre