C Collection of code snippets by Arne Vajhøj 
C (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) 
      PROGRAM GOTOFUN
      INTEGER*4 LBL
      INTEGER*4 I
731   GOTO 113
      ASSIGN 399 TO LBL
113   I=0
      WRITE(*,*) I
247   ASSIGN 601 TO LBL
      IF(I) 588,922,399
588   I=I+1
      WRITE(*,*) I
      GOTO 399
761   GOTO LBL
922   I=I+1
      WRITE(*,*) I
      GOTO(588,399,922) I
399   GOTO 761
601   CONTINUE
      END